
theorem Th5:
  RATPLUS c= REALPLUS
  proof
    let x be object;
    assume x in RATPLUS;
    then reconsider y = x as positive Rational by Th2;
    0 < y;
    hence thesis by Th1;
  end;
