
theorem RNS9:
  for seq be Real_Sequence, seq1 be sequence of RNS_Real
    st seq = seq1 & seq is convergent holds lim seq = lim seq1
proof
  let seq be Real_Sequence, seq1 be sequence of RNS_Real;
  assume AS: seq = seq1;
  assume P1: seq is convergent; then
P5: seq1 is convergent by AS,RNS8;
  reconsider s1=lim seq as Point of RNS_Real by XREAL_0:def 1;
  now let p be Real;
    assume 0 < p; then
    consider n be Nat such that
P2:   for m be Nat st n <= m holds |.seq.m - lim seq .| < p
        by P1,SEQ_2:def 7;
    take n;
    hereby let m be Nat;
      assume n <= m; then
P3:   |.seq.m - lim seq .| < p by P2;
      seq.m - lim seq = seq1.m - s1 by AS,RNS4;
      hence ||.seq1.m - s1.|| < p by P3,EUCLID:def 2;
    end;
  end;
  hence lim seq1 = lim seq by P5,NORMSP_1:def 7;
end;
