diff options
author | Morgan Deters <mdeters@gmail.com> | 2010-10-07 07:16:49 +0000 |
---|---|---|
committer | Morgan Deters <mdeters@gmail.com> | 2010-10-07 07:16:49 +0000 |
commit | 2d7ff62cd52c5c56f29b6567489310cc45767236 (patch) | |
tree | afb975f93b219e7b7a670a4dfc2897e425fd9bf7 /test/regress/regress0/simple-rdl-definefun.smt2 | |
parent | ce4a5fe6a2529f11eaff66b6cdcdb32ef5309323 (diff) |
SMT-LIBv2 (define-fun...) command now functional; does eager expansion at preprocessing time
Diffstat (limited to 'test/regress/regress0/simple-rdl-definefun.smt2')
-rw-r--r-- | test/regress/regress0/simple-rdl-definefun.smt2 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/regress/regress0/simple-rdl-definefun.smt2 b/test/regress/regress0/simple-rdl-definefun.smt2 new file mode 100644 index 000000000..08e99867a --- /dev/null +++ b/test/regress/regress0/simple-rdl-definefun.smt2 @@ -0,0 +1,14 @@ +(set-logic QF_RDL) +(set-info :status unsat) +(declare-fun x () Real) +(declare-fun y () Real) +(declare-sort U 0) +(declare-sort A 2) +(define-sort F (x) (A Real Real)) +(declare-fun x2 () (F Real)) +(define-fun minus ((x Real) (z Real)) Real (- x z)) +(define-fun less ((x Real) (z Real)) Bool (< x z)) +(define-fun foo ((x Real) (z Real)) Bool (less x z)) +(assert (not (=> (foo (minus x y) 0) (less x y)))) +(check-sat) +(exit) |