reserve A, B for non empty preBoolean set,
  x, y for Element of [:A,B:];
reserve X for set,
  a,b,c for Element of [:A,B:];

theorem Th10:
  a c= a \/ b & b c= a \/ b
by XBOOLE_1:7;
