; @origtpdbfilename ./TRS/TRCSR/OvConsOS_nosorts_C.trs
; @xtcfilename "./TRS_Standard/Transformed_CSR_04/OvConsOS_nosorts_C.xml"
(format TRS)
(fun active 1)
(fun zeros 0)
(fun mark 1)
(fun cons 2)
(fun |0| 0)
(fun and 2)
(fun tt 0)
(fun length 1)
(fun nil 0)
(fun s 1)
(fun take 2)
(fun proper 1)
(fun ok 1)
(fun top 1)
(rule (active zeros) (mark (cons |0| zeros)))
(rule (active (and tt X)) (mark X))
(rule (active (length nil)) (mark |0|))
(rule (active (length (cons N L))) (mark (s (length L))))
(rule (active (take |0| IL)) (mark nil))
(rule (active (take (s M) (cons N IL))) (mark (cons N (take M IL))))
(rule (active (cons X1 X2)) (cons (active X1) X2))
(rule (active (and X1 X2)) (and (active X1) X2))
(rule (active (length X)) (length (active X)))
(rule (active (s X)) (s (active X)))
(rule (active (take X1 X2)) (take (active X1) X2))
(rule (active (take X1 X2)) (take X1 (active X2)))
(rule (cons (mark X1) X2) (mark (cons X1 X2)))
(rule (and (mark X1) X2) (mark (and X1 X2)))
(rule (length (mark X)) (mark (length X)))
(rule (s (mark X)) (mark (s X)))
(rule (take (mark X1) X2) (mark (take X1 X2)))
(rule (take X1 (mark X2)) (mark (take X1 X2)))
(rule (proper zeros) (ok zeros))
(rule (proper (cons X1 X2)) (cons (proper X1) (proper X2)))
(rule (proper |0|) (ok |0|))
(rule (proper (and X1 X2)) (and (proper X1) (proper X2)))
(rule (proper tt) (ok tt))
(rule (proper (length X)) (length (proper X)))
(rule (proper nil) (ok nil))
(rule (proper (s X)) (s (proper X)))
(rule (proper (take X1 X2)) (take (proper X1) (proper X2)))
(rule (cons (ok X1) (ok X2)) (ok (cons X1 X2)))
(rule (and (ok X1) (ok X2)) (ok (and X1 X2)))
(rule (length (ok X)) (ok (length X)))
(rule (s (ok X)) (ok (s X)))
(rule (take (ok X1) (ok X2)) (ok (take X1 X2)))
(rule (top (mark X)) (top (proper X)))
(rule (top (ok X)) (top (active X)))