diff options
Diffstat (limited to 'test/regress/regress1/fmf-fun-dbu.smt2')
-rw-r--r-- | test/regress/regress1/fmf-fun-dbu.smt2 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/regress/regress1/fmf-fun-dbu.smt2 b/test/regress/regress1/fmf-fun-dbu.smt2 new file mode 100644 index 000000000..b35c98aa9 --- /dev/null +++ b/test/regress/regress1/fmf-fun-dbu.smt2 @@ -0,0 +1,14 @@ +; COMMAND-LINE: --incremental --fmf-fun --no-check-models +(set-logic UFDTLIA) +(set-option :produce-models true) +(declare-datatypes ((List 0)) (((Nil) (Cons (Cons$head Int) (Cons$tail List))))) +(define-fun-rec all-z ((x List)) Bool (=> ((_ is Cons) x) (and (= 0 (Cons$head x)) (all-z (Cons$tail x))))) +(define-fun-rec len ((x List)) Int (ite ((_ is Nil) x) 0 (+ 1 (len (Cons$tail x))))) +(declare-fun root() List) +; EXPECT: sat +(assert (and (all-z root) (<= 1 (len root)))) +(check-sat) +; EXPECT: sat +(assert (= root (Cons 0 Nil))) +(check-sat) + |