; @author Jonas Schöpf
; Ctrl example from examples/student/sum12.ctrs
(format LCTRS :smtlib 2.6)
(theory Ints)
(sort Result)
(fun v (-> Int Int Int Result))
(fun return (-> Int Result))
(fun u (-> Int Int Int Result))
(fun sum1 (-> Int Result))

(rule (v n i s) (return s) :guard (not (> (- n i) 0)) :var ((n Int) (i Int) (s Int)))
(rule (v n i s) (v n (+ i 1) (+ s (- n i))) :guard (> (- n i) 0) :var ((n Int) (i Int) (s Int)))
(rule (u n i s) (v n 0 s) :guard (> n 0) :var ((n Int) (i Int) (s Int)))
(rule (u n i s) (return 0) :guard (<= n 0) :var ((n Int) (i Int) (s Int)))
(rule (sum1 n) (u n rnd 0) :var ((n Int) (rnd Int)))