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