diff options
Diffstat (limited to 'test/regress/regress1/rels/set-strat.cvc.smt2')
| -rw-r--r-- | test/regress/regress1/rels/set-strat.cvc.smt2 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/regress/regress1/rels/set-strat.cvc.smt2 b/test/regress/regress1/rels/set-strat.cvc.smt2 new file mode 100644 index 000000000..e1c82de24 --- /dev/null +++ b/test/regress/regress1/rels/set-strat.cvc.smt2 @@ -0,0 +1,20 @@ +; EXPECT: sat +(set-option :incremental false) +(set-logic ALL) + + +(declare-fun x () (Set (Tuple Int Int))) +(declare-fun y () (Set (Tuple Int Int))) +(declare-fun w () (Set (Tuple Int Int))) +(declare-fun z () (Set (Tuple (Set (Tuple Int Int)) (Set (Tuple Int Int))))) +(declare-fun a () (Tuple Int Int)) +(declare-fun b () (Tuple Int Int)) +(assert (not (= a b))) +(assert (member a x)) +(assert (member b y)) +(assert (member b w)) +(assert (member (mkTuple x y) z)) +(assert (member (mkTuple w x) z)) +(assert (not (member (mkTuple x x) (join z z)))) +(assert (member (mkTuple x (singleton (mkTuple 0 0))) (join z z))) +(check-sat) |