diff options
Diffstat (limited to 'test/regress/regress0/simple-rdl-definefun.smt2')
-rw-r--r-- | test/regress/regress0/simple-rdl-definefun.smt2 | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/test/regress/regress0/simple-rdl-definefun.smt2 b/test/regress/regress0/simple-rdl-definefun.smt2 index 08e99867a..6b38c6a70 100644 --- a/test/regress/regress0/simple-rdl-definefun.smt2 +++ b/test/regress/regress0/simple-rdl-definefun.smt2 @@ -1,14 +1,15 @@ (set-logic QF_RDL) (set-info :status unsat) +(set-info :notes | Simple test, based on simple-rdl.smt2, of define-sort and define-fun |) (declare-fun x () Real) (declare-fun y () Real) (declare-sort U 0) -(declare-sort A 2) -(define-sort F (x) (A Real Real)) +(define-sort A (x y) y) +(define-sort F (x) (A x x)) (declare-fun x2 () (F Real)) -(define-fun minus ((x Real) (z Real)) Real (- x z)) +(define-fun minus ((x Real) (z Real)) (A (A U Bool) (A (F U) Real)) (- x z)) (define-fun less ((x Real) (z Real)) Bool (< x z)) -(define-fun foo ((x Real) (z Real)) Bool (less x z)) +(define-fun foo ((x (F Real)) (z (A U Real))) (F (F Bool)) (less x z)) (assert (not (=> (foo (minus x y) 0) (less x y)))) (check-sat) (exit) |