let S1, S2 be sequence of ExtREAL; :: thesis:
assume that
A3: S1 . 0 = N . 0 and
A4: for n being Nat
for y being R_eal st y = S1 . n holds
S1 . (n + 1) = y + (N . (n + 1)) and
A5: S2 . 0 = N . 0 and
A6: for n being Nat
for y being R_eal st y = S2 . n holds
S2 . (n + 1) = y + (N . (n + 1)) ; :: thesis:
defpred S₁[ object ] means S1 . $1 = S2 . $1;
for n being object st n in NAT holds
S₁[n]

let n be object ; :: thesis:
assume A7: n in NAT ; :: thesis:
then reconsider n = n as Element of REAL by NUMBERS:19;
reconsider n = n as Element of NAT by A7;
A8: for k being Nat st S₁[k] holds
S₁[k + 1]

let k be Nat; :: thesis:
reconsider y2 = S2 . k as R_eal ;
assume S1 . k = S2 . k ; :: thesis:
hence S1 . (k + 1) = y2 + (N . (k + 1)) by A4
.= S2 . (k + 1) by A6 ;
:: thesis:

end;

end;