% EXPECT: unsat
OPTION "logic" "ALL_SUPPORTED";
IntPair: TYPE = [INT, INT];
w : SET OF IntPair;
x : SET OF IntPair;
y : SET OF IntPair;
z : SET OF IntPair;
r : SET OF IntPair;

t : INT;
u : INT;

ASSERT 4 < t AND t < 6;
ASSERT 4 < u AND u < 6;

ASSERT (1, t) IS_IN x;
ASSERT (u, 3) IS_IN y;

a : IntPair;
ASSERT a = (1,3);

ASSERT NOT (a IS_IN  (x JOIN y));

st : SET OF INT;
su : SET OF INT;
ASSERT t IS_IN st;
ASSERT u IS_IN su;
CHECKSAT;