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

theorem :::Seqs5:
  for n being Nat holds
    (Partial_Sums rseq (0,1,1,0)).n <=
      (Partial_Sums Reci-Sqf).n * (Partial_Sums Reci-TSq).n
        by SERIES_3:39,Seqs1,Seqs4,Core1;
