summaryrefslogtreecommitdiff
path: root/test/regress/regress1/rels/prod-mod-eq.cvc.smt2
diff options
context:
space:
mode:
Diffstat (limited to 'test/regress/regress1/rels/prod-mod-eq.cvc.smt2')
-rw-r--r--test/regress/regress1/rels/prod-mod-eq.cvc.smt220
1 files changed, 20 insertions, 0 deletions
diff --git a/test/regress/regress1/rels/prod-mod-eq.cvc.smt2 b/test/regress/regress1/rels/prod-mod-eq.cvc.smt2
new file mode 100644
index 000000000..7d9147a8b
--- /dev/null
+++ b/test/regress/regress1/rels/prod-mod-eq.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 z () (Set (Tuple Int Int Int Int)))
+(declare-fun z1 () (Set (Tuple Int Int)))
+(declare-fun w1 () (Set (Tuple Int Int)))
+(declare-fun z2 () (Set (Tuple Int Int)))
+(declare-fun w2 () (Set (Tuple Int Int)))
+(assert (not (= z (product x y))))
+(assert (member (mkTuple 0 1 2 3) z))
+(assert (member (mkTuple 0 1) z1))
+(assert (member (mkTuple 0 1) z2))
+(assert (member (mkTuple 2 3) w1))
+(assert (member (mkTuple 2 3) w2))
+(assert (or (and (= x z1) (= y w1)) (and (= x z2) (= y w2))))
+(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback