; @origtpdbfilename ./TRS/AProVE/fac.trs
; @xtcfilename "./TRS_Standard/AProVE_04/fac.xml"
(format TRS)
(fun plus 2)
(fun |0| 0)
(fun s 1)
(fun times 2)
(fun p 1)
(fun fac 1)
(rule (plus x |0|) x)
(rule (plus x (s y)) (s (plus x y)))
(rule (times |0| y) |0|)
(rule (times x |0|) |0|)
(rule (times (s x) y) (plus (times x y) y))
(rule (p (s (s x))) (s (p (s x))))
(rule (p (s |0|)) |0|)
(rule (fac (s x)) (times (fac (p (s x))) (s x)))