
theorem Th3:
  NATPLUS c= RATPLUS
  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;
  end;
