reserve r,s,t,x9,y9,z9,p,q for Element of RAT+;
reserve x,y,z for Element of REAL+;

theorem Th1:
  RAT+ c= REAL+ by Lm2,XBOOLE_1:7,86;
