diff options
Diffstat (limited to 'test/regress/regress0/rels/rel_complex_0.cvc.smt2')
-rw-r--r-- | test/regress/regress0/rels/rel_complex_0.cvc.smt2 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/test/regress/regress0/rels/rel_complex_0.cvc.smt2 b/test/regress/regress0/rels/rel_complex_0.cvc.smt2 new file mode 100644 index 000000000..f7705987d --- /dev/null +++ b/test/regress/regress0/rels/rel_complex_0.cvc.smt2 @@ -0,0 +1,23 @@ +; EXPECT: unsat +(set-option :incremental false) +(set-logic ALL) + +(declare-fun x () (Set (Tuple Int Int))) +(declare-fun y () (Set (Tuple Int Int))) +(declare-fun r () (Set (Tuple Int Int))) +(declare-fun z () (Set Int)) +(declare-fun f () Int) +(declare-fun g () Int) +(declare-fun e () (Tuple Int Int)) +(assert (= e (mkTuple 4 f))) +(assert (member e x)) +(declare-fun d () (Tuple Int Int)) +(assert (= d (mkTuple g 3))) +(assert (member d y)) +(assert (= z (union (singleton f) (singleton g)))) +(assert (= 0 (- f g))) +(declare-fun a () (Tuple Int Int)) +(assert (= a (mkTuple 4 3))) +(assert (= r (join x y))) +(assert (not (member a r))) +(check-sat) |