; @origtpdbfilename ./TRS/TRCSR/PEANO_nosorts_C.trs
; @xtcfilename "./TRS_Standard/Transformed_CSR_04/PEANO_nosorts_C.xml"
(format TRS)
(fun active 1)
(fun and 2)
(fun tt 0)
(fun mark 1)
(fun plus 2)
(fun |0| 0)
(fun s 1)
(fun proper 1)
(fun ok 1)
(fun top 1)
(rule (active (and tt X)) (mark X))
(rule (active (plus N |0|)) (mark N))
(rule (active (plus N (s M))) (mark (s (plus N M))))
(rule (active (and X1 X2)) (and (active X1) X2))
(rule (active (plus X1 X2)) (plus (active X1) X2))
(rule (active (plus X1 X2)) (plus X1 (active X2)))
(rule (active (s X)) (s (active X)))
(rule (and (mark X1) X2) (mark (and X1 X2)))
(rule (plus (mark X1) X2) (mark (plus X1 X2)))
(rule (plus X1 (mark X2)) (mark (plus X1 X2)))
(rule (s (mark X)) (mark (s X)))
(rule (proper (and X1 X2)) (and (proper X1) (proper X2)))
(rule (proper tt) (ok tt))
(rule (proper (plus X1 X2)) (plus (proper X1) (proper X2)))
(rule (proper |0|) (ok |0|))
(rule (proper (s X)) (s (proper X)))
(rule (and (ok X1) (ok X2)) (ok (and X1 X2)))
(rule (plus (ok X1) (ok X2)) (ok (plus X1 X2)))
(rule (s (ok X)) (ok (s X)))
(rule (top (mark X)) (top (proper X)))
(rule (top (ok X)) (top (active X)))