theorem Th7:
  HWZSet(r) is finite implies HWZSet1(r) is finite
  proof
    TRANQN.:HWZSet(r) = HWZSet1(r) by Th6;
    hence thesis;
  end;
