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

z : IntPair;
ASSERT z = (1,2);
zt : IntPair;
ASSERT zt = (2,1);
v : IntPair;
ASSERT v = (1,1);
a : IntPair;
ASSERT a = (1,5);

ASSERT (1, 7) IS_IN x;
ASSERT (2, 3) IS_IN x;
ASSERT (3, 4) IS_IN x;

ASSERT (7, 5) IS_IN y;
ASSERT (7, 3) IS_IN y;
ASSERT (4, 7) IS_IN y;

%ASSERT (a IS_IN (r JOIN(x JOIN y)));

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

CHECKSAT;