; @origtpdbfilename emmes-nonloop-ex5_1.trs
; @xtcfilename "./TRS_Standard/EEG_IJCAR_12/emmes-nonloop-ex5_1.xml"
(format TRS)
(fun f 2)
(fun true 0)
(fun s 1)
(fun eq 2)
(fun |0| 0)
(fun minus 2)
(fun double 1)
(fun doubleAkk 2)
(fun false 0)
(rule (f true (s x)) (f (eq |0| (minus x x)) (double (s x))))
(rule (double x) (doubleAkk x |0|))
(rule (doubleAkk |0| y) y)
(rule (doubleAkk (s x) y) (doubleAkk x (s (s y))))
(rule (minus x |0|) x)
(rule (minus |0| y) |0|)
(rule (minus (s x) (s y)) (minus x y))
(rule (eq |0| |0|) true)
(rule (eq (s x) |0|) false)
(rule (eq |0| (s y)) false)
(rule (eq (s x) (s y)) (eq x y))