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;
