 reserve n,i,k,m for Nat;
 reserve p for Prime;
 reserve s, s1, s2 for Real_Sequence;

theorem
  for p being Nat st p+1 is not Prime holds
    ReciProducts (p+1) = ReciProducts p
  proof
    let p be Nat;
    assume p+1 is not Prime; then
    SetPrimes (p+1) = SetPrimes p by PrimesSet;
    hence thesis;
  end;
