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

theorem
  {} in REAL+ & one in REAL+
by Th1;
