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 Th7:
  HWZSet(r) is finite implies HWZSet1(r) is finite
  proof
    TRANQN.:HWZSet(r) = HWZSet1(r) by Th6;
    hence thesis;
  end;
