2 OPTION "logic" "ALL_SUPPORTED";
4 x : SET OF [Atom, Atom];
5 y : SET OF [Atom, Atom];
6 r : SET OF [Atom, Atom];
18 ASSERT TUPLE(a) IS_IN (x JOIN_IMAGE 2);
19 ASSERT TUPLE(a) IS_IN (y JOIN_IMAGE 3);
20 %ASSERT y = {(f, g), (b, c), (d, e), (c, e)};
21 ASSERT x = {(f, g), (b, c), (d, e), (c, e), (f, b)};
22 ASSERT (a, f) IS_IN x;
23 ASSERT (a, f) IS_IN y;
30 ASSERT NOT (TUPLE(d) IS_IN (x JOIN_IMAGE 2));