theorem Th2:
  x [= y iff x c= y by XBOOLE_1:7,XBOOLE_1:12;
