diff options
Diffstat (limited to 'test/regress/regress0/rewriterules/length_gen.smt2')
-rw-r--r-- | test/regress/regress0/rewriterules/length_gen.smt2 | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/test/regress/regress0/rewriterules/length_gen.smt2 b/test/regress/regress0/rewriterules/length_gen.smt2 deleted file mode 100644 index dda478357..000000000 --- a/test/regress/regress0/rewriterules/length_gen.smt2 +++ /dev/null @@ -1,34 +0,0 @@ -;; 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))) - -(declare-fun gen_cons (Int list) list) - -(assert (forall ((?n Int) (?l list)) (! (=> (= ?n 0) (= (gen_cons ?n ?l) ?l)) :rewrite-rule))) - -(assert (forall ((?n Int) (?l list)) (! (=> (> ?n 0) (= (gen_cons ?n ?l) - (gen_cons (- ?n 1) (cons 1 ?l)))) :rewrite-rule))) - -(declare-fun n () Int) - -(assert (not (= (length (gen_cons 42 nil)) 42))) - -(check-sat) - -(exit) |