; 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)))
(declare-fun t () Int)
(declare-fun u () Int)
(assert (and (< 4 t) (< t 6)))
(assert (and (< 4 u) (< u 6)))
(assert (member (mkTuple 1 t) x))
(assert (member (mkTuple u 3) y))
(declare-fun a () (Tuple Int Int))
(assert (= a (mkTuple 1 3)))
(assert (not (member a (join x y))))
(declare-fun st () (Set Int))
(declare-fun su () (Set Int))
(assert (member t st))
(assert (member u su))
(check-sat)