diff options
Diffstat (limited to 'test/regress')
| -rw-r--r-- | test/regress/regress0/Makefile.am | 1 | ||||
| -rw-r--r-- | test/regress/regress0/simple-rdl-definefun.smt2 | 14 |
2 files changed, 15 insertions, 0 deletions
diff --git a/test/regress/regress0/Makefile.am b/test/regress/regress0/Makefile.am index cdd347962..9bc8991ab 100644 --- a/test/regress/regress0/Makefile.am +++ b/test/regress/regress0/Makefile.am @@ -33,6 +33,7 @@ SMT2_TESTS = \ ite4.smt2 \ simple-lra.smt2 \ simple-rdl.smt2 \ + simple-rdl-definefun.smt2 \ simple-uf.smt2 # Regression tests for PL inputs 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) |