; EXPECT: unsat
(set-option :incremental false)
(set-logic ALL)

(declare-fun w () (Set (Tuple Int Int)))
(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))
(assert (member (mkTuple 3 3) w))
(declare-fun a () (Tuple Int Int))
(assert (= a (mkTuple 4 1)))
(assert (not (member a (transpose r))))
(declare-fun zz () (Set (Tuple Int Int)))
(assert (= zz (join (transpose x) y)))
(assert (not (member (mkTuple 1 3) w)))
(assert (not (member (mkTuple 1 3) (union w zz))))
(check-sat)