
theorem
  for c being Real, s being Real_Sequence st s is convergent
  for r be
Real_Sequence st (for i be Nat holds r.i = (s.i-c)*(s.i-c)) holds r
  is convergent & lim r = (lim s-c)*(lim s-c) by Lm4;
