1 files changed, 40 insertions, 0 deletions
diff --git a/test/regress/regress1/rels/rel_complex_4.cvc.smt2 b/test/regress/regress1/rels/rel_complex_4.cvc.smt2
new file mode 100644
index 000000000..1f99668ac
--- /dev/null
+++ b/test/regress/regress1/rels/rel_complex_4.cvc.smt2
@@ -0,0 +1,40 @@
+; EXPECT: unsat
+(set-option :incremental true)
+(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)))
+(declare-fun w () (Set (Tuple Int Int)))
+(declare-fun f () (Tuple Int Int))
+(assert (= f (mkTuple 3 1)))
+(assert (member f x))
+(declare-fun g () (Tuple Int Int))
+(assert (= g (mkTuple 1 3)))
+(assert (member g y))
+(declare-fun h () (Tuple Int Int))
+(assert (= h (mkTuple 3 5)))
+(assert (member h x))
+(assert (member h y))
+(assert (= r (join x y)))
+(declare-fun a () Int)
+(declare-fun e () (Tuple Int Int))
+(assert (= e (mkTuple a a)))
+(assert (= w (singleton e)))
+(assert (subset (transpose w) y))
+(assert (not (member e r)))
+(assert (not (= z (intersection x y))))
+(assert (= z (setminus x y)))
+(assert (subset x y))
+(assert (member e (join r z)))
+(assert (member e x))
+(assert (member e (intersection x y)))
+(push 1)
+
+(assert true)
+
+(check-sat)
+
+(pop 1)
+