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

t : SET OF [INT];

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 TUPLE(1) IS_IN t;
ASSERT TUPLE(2) IS_IN t;
ASSERT z IS_IN x;
ASSERT zt IS_IN x;
ASSERT v IS_IN x;
ASSERT a IS_IN x;
ASSERT id = IDEN(t);
ASSERT NOT ((1, 1) IS_IN (id & x));

CHECKSAT;