% EXPECT: unsat
OPTION "logic" "ALL";
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);
ASSERT zt IS_IN y;

w : IntPair;
ASSERT w = (2, 2);
ASSERT w IS_IN y;
ASSERT z IS_IN x;

ASSERT NOT (zt IS_IN (TRANSPOSE (x JOIN y)));

CHECKSAT;