summaryrefslogtreecommitdiff
path: root/test/regress/regress0/quantifiers/bug290.smt2
diff options
context:
space:
mode:
Diffstat (limited to 'test/regress/regress0/quantifiers/bug290.smt2')
-rw-r--r--test/regress/regress0/quantifiers/bug290.smt220
1 files changed, 20 insertions, 0 deletions
diff --git a/test/regress/regress0/quantifiers/bug290.smt2 b/test/regress/regress0/quantifiers/bug290.smt2
new file mode 100644
index 000000000..650d6aab0
--- /dev/null
+++ b/test/regress/regress0/quantifiers/bug290.smt2
@@ -0,0 +1,20 @@
+(set-logic AUFLIA)
+(set-info :source | Simple list theorem |)
+(set-info :smt-lib-version 2.0)
+(set-info :category "crafted")
+(set-info :status unsat)
+(declare-sort List 0)
+(declare-sort Elem 0)
+(declare-fun cons (Elem List) List)
+(declare-fun nil () List)
+(declare-fun len (List) Int)
+(assert (= (len nil) 0))
+(assert (forall ((?x Elem) (?y List)) (= (len (cons ?x ?y)) (+ (len ?y) 1))))
+(declare-fun append (List List) List)
+(assert (forall ((?y List)) (= (append nil ?y) ?y)))
+(assert (forall ((?x Elem) (?y1 List) (?y2 List)) (= (append (cons ?x ?y1) ?y2) (cons ?x (append ?y1 ?y2)))))
+(declare-fun x () Elem)
+(declare-fun y () List)
+(assert (not (= (append (cons x nil) y) (cons x y))))
+(check-sat)
+(exit)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback