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 Th12:
  a c= b implies c \/ a c= c \/ b & a \/ c c= b \/ c
by XBOOLE_1:9;
