; @author Jonas Schöpf
; Ctrl example from examples/sumsimple.ctrs
(format LCTRS :smtlib 2.6)
(theory Ints)
(fun u (-> Int Int Int Int))
(fun sum2 (-> Int Int))

(rule (u x i z) z :guard (not (<= i x)))
(rule (u x i z) (u x (+ i 1) (+ z i)) :guard (<= i x))
(rule (sum2 x) (u x 0 0))