theorem Th71:
  SetPrimenumber p is finite
proof
  SetPrimenumber p c= Seg p by Th70;
  hence thesis;
end;
