1 files changed, 36 insertions, 0 deletions
diff --git a/test/regress/regress1/rewriterules/length_gen_010.smt2 b/test/regress/regress1/rewriterules/length_gen_010.smt2
new file mode 100644
index 000000000..052f5905b
--- /dev/null
+++ b/test/regress/regress1/rewriterules/length_gen_010.smt2
@@ -0,0 +1,36 @@
+;; Same than length.smt2 but the nil case is not a rewrite rule
+;; So here the rewrite rules have no guards length
+
+(set-logic AUFLIA)
+(set-info :status unsat)
+
+;; don't use a datatypes for currently focusing in uf
+(declare-sort list 0)
+
+(declare-fun cons (Int list) list)
+(declare-fun nil  ()         list)
+
+
+;;define length
+(declare-fun length (list) Int)
+
+(assert (= (length nil) 0))
+
+;; (assert (forall ((?e Int) (?l list)) (! (= (length (cons ?e ?l)) (+ 1 (length ?l))) :rewrite-rule)))
+
+(assert-rewrite ((?e Int) (?l list)) () () (length (cons ?e ?l)) (+ 1 (length ?l)))
+
+(declare-fun gen_cons (Int list) list)
+
+(assert-rewrite ((?n Int) (?l list)) () (= ?n 0) (gen_cons ?n ?l) (?l))
+
+(assert-rewrite ((?n Int) (?l list)) () (> ?n 0) (gen_cons ?n ?l)
+              (gen_cons (- ?n 1) (cons 1 ?l)))
+
+(declare-fun n () Int)
+
+(assert (not (= (length (gen_cons 10 nil)) 10)))
+
+(check-sat)
+
+(exit)