
theorem Th4:
  NATPLUS c= REALPLUS
  proof
    let x be object;
    assume
A1: x in NATPLUS;
    then reconsider y = x as Nat;
    0 < y by A1,NAT_LAT:def 6;
    hence thesis by Th1;
  end;
