; @author Jonas Schöpf
; Ctrl example from examples/student/sumfrom01.ctrs
(format LCTRS :smtlib 2.6)
(theory Ints)
(sort Unit)
(fun return (-> Int Unit))
(fun tmp (-> Int Unit Unit))
(fun sumfrom (-> Int Int Unit))

(rule (tmp m (return n)) (return (+ m n)) :var ((m Int) (n Int)))
(rule (sumfrom m n) (tmp n (sumfrom m (- n 1))) :guard (<= m n) :var ((m Int) (n Int)))
(rule (sumfrom m n) (return 0) :guard (> m n) :var ((m Int) (n Int)))