% EXPECT: unsat
OPTION "logic" "ALL_SUPPORTED";
IntPair: TYPE = [INT, INT];
x : SET OF IntPair;
y : SET OF IntPair;
DATATYPE unit = u END;
IntUPair: TYPE = [INT, unit];
UIntPair: TYPE = [unit, INT];
w : SET OF IntUPair;
z : SET OF UIntPair;

ASSERT  (x JOIN y) =  (w JOIN z);

ASSERT (0,1) IS_IN (x JOIN y);
ASSERT (0,u) IS_IN w;

t : INT;
ASSERT t > 0 AND t < 2;

ASSERT NOT (u, t ) IS_IN z;

CHECKSAT;