theorem Th68:
  SetPrimenumber p c= SetPrimes
proof
  let x be object;
  assume
A1: x in SetPrimenumber p;
  then reconsider x9 = x as Element of NAT;
  x9 is prime by A1,Def7;
  hence thesis by Def6;
end;
