reserve r1,r2,r3 for non negative Real;
reserve n,m1 for Nat;
reserve s for Real;
reserve cn,cd,i1,j1 for Integer;
reserve r for irrational Real;
reserve q for Rational;

theorem Th10:
  for h being Nat st h in HWZSet1(r) holds h > 0
   proof
     let h be Nat;
     assume h in HWZSet1(r); then
     ex h1 be Nat st h1 = h & ex p be Rational st
       p in HWZSet(r) & h1 = denominator(p);
     hence thesis;
   end;
