theorem Th42:
  for s being Nat holds len PrimeNumbersFS(s) = s
  proof
    let s be Nat;
    len PrimeNumbersFS(s) = len (PrimeNumbersS(s) | s) by AFINSQ_1:def 9;
    hence thesis;
  end;
