1 files changed, 45 insertions, 0 deletions
diff --git a/test/regress/regress1/rewriterules/test_guards.smt2 b/test/regress/regress1/rewriterules/test_guards.smt2
new file mode 100644
index 000000000..98c845fb5
--- /dev/null
+++ b/test/regress/regress1/rewriterules/test_guards.smt2
@@ -0,0 +1,45 @@
+;; 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)
+;; don't use arith
+(declare-sort mynat 0)
+(declare-fun zero () mynat)
+(declare-fun succ (mynat) mynat)
+
+(declare-fun cons (Int list) list)
+(declare-fun nil  ()         list)
+(declare-fun p (list) Bool)
+
+
+;;define length
+(declare-fun length (list) mynat)
+
+(assert (= (length nil) zero))
+
+(assert (forall ((?e Int) (?l list)) (! (= (length (cons ?e ?l)) (succ (length ?l))) :rewrite-rule)))
+
+(declare-fun ten_one_cons (list) list)
+
+(assert (forall ((?l list)) (! (=> (p ?l) (= (ten_one_cons ?l)
+        (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 (cons 1 ?l) )))))))))
+        )) :rewrite-rule)))
+
+(declare-fun a  () Bool)
+(declare-fun b  () Bool)
+(declare-fun c  () Bool)
+
+(assert (=> a (p nil)) )
+(assert (=> b (p nil)) )
+(assert (or a b))
+
+(assert (not (= (length (ten_one_cons nil))
+        (succ(succ(succ(succ(succ(succ(succ(succ(succ(succ zero)))))))))))))
+
+(check-sat)
+
+(exit)