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
   for r holds
   { q : |.r-q.| < 1/(sqrt 5 * denominator(q)|^2) } is infinite
   proof
     let r;
     HWZSet1(r) is infinite;
     hence thesis by Th7;
   end;
