(meta-info (comment "Ctrl example from examples-transformed/quad.ctrs"))
(format LCTRS :logic QF_LIA)
(fun quad 1 :sort (Int Int))
(fun twice 1 :sort (Int Int))
(fun u 3 :sort (Int Int Int Int))

(rule (quad x) (+ (twice x) (twice x)))
(rule (u x i z) z :guard (not (< i x)))
(rule (u x i z) (u x (+ i 1) (+ z 2)) :guard (< i x))
(rule (twice x) (u x 0 0))