theorem Th31:
  REAL c= ExtREAL by XBOOLE_1:7;
