diff options
Diffstat (limited to 'test/regress/regress0/rels/rel_join_5.cvc.smt2')
-rw-r--r-- | test/regress/regress0/rels/rel_join_5.cvc.smt2 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/regress/regress0/rels/rel_join_5.cvc.smt2 b/test/regress/regress0/rels/rel_join_5.cvc.smt2 new file mode 100644 index 000000000..1d138befa --- /dev/null +++ b/test/regress/regress0/rels/rel_join_5.cvc.smt2 @@ -0,0 +1,18 @@ +; 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 z () (Set (Tuple Int Int))) +(declare-fun r () (Set (Tuple Int Int))) +(assert (member (mkTuple 7 1) x)) +(assert (member (mkTuple 2 3) x)) +(assert (member (mkTuple 7 3) y)) +(assert (member (mkTuple 4 7) y)) +(assert (member (mkTuple 3 4) z)) +(declare-fun a () (Tuple Int Int)) +(assert (= a (mkTuple 1 4))) +(assert (= r (join (join (transpose x) y) z))) +(assert (not (member a r))) +(check-sat) |