; @origtpdbfilename ./TRS/TRCSR/Ex6_Luc98_C.trs
; @xtcfilename "./TRS_Standard/Transformed_CSR_04/Ex6_Luc98_C.xml"
(format TRS)
(fun active 1)
(fun first 2)
(fun |0| 0)
(fun mark 1)
(fun nil 0)
(fun s 1)
(fun cons 2)
(fun from 1)
(fun proper 1)
(fun ok 1)
(fun top 1)
(rule (active (first |0| X)) (mark nil))
(rule (active (first (s X) (cons Y Z))) (mark (cons Y (first X Z))))
(rule (active (from X)) (mark (cons X (from (s X)))))
(rule (active (first X1 X2)) (first (active X1) X2))
(rule (active (first X1 X2)) (first X1 (active X2)))
(rule (active (s X)) (s (active X)))
(rule (active (cons X1 X2)) (cons (active X1) X2))
(rule (active (from X)) (from (active X)))
(rule (first (mark X1) X2) (mark (first X1 X2)))
(rule (first X1 (mark X2)) (mark (first X1 X2)))
(rule (s (mark X)) (mark (s X)))
(rule (cons (mark X1) X2) (mark (cons X1 X2)))
(rule (from (mark X)) (mark (from X)))
(rule (proper (first X1 X2)) (first (proper X1) (proper X2)))
(rule (proper |0|) (ok |0|))
(rule (proper nil) (ok nil))
(rule (proper (s X)) (s (proper X)))
(rule (proper (cons X1 X2)) (cons (proper X1) (proper X2)))
(rule (proper (from X)) (from (proper X)))
(rule (first (ok X1) (ok X2)) (ok (first X1 X2)))
(rule (s (ok X)) (ok (s X)))
(rule (cons (ok X1) (ok X2)) (ok (cons X1 X2)))
(rule (from (ok X)) (ok (from X)))
(rule (top (mark X)) (top (proper X)))
(rule (top (ok X)) (top (active X)))