defpred S₁[ Element of NAT , real number ] means ( x0 < $2 & $2 < x0 + (1 / ($1 + 1)) & $2 in dom f );
let g1, g2 be Real; :: thesis: ( ( for seq being Real_Sequence st seq is convergent & lim seq = x0 & rng seq c= (dom f) /\ (right_open_halfline x0) holds
( f /* seq is convergent & lim (f /* seq) = g1 ) ) & ( for seq being Real_Sequence st seq is convergent & lim seq = x0 & rng seq c= (dom f) /\ (right_open_halfline x0) holds
( f /* seq is convergent & lim (f /* seq) = g2 ) ) implies g1 = g2 )
assume that
A2: for seq being Real_Sequence st seq is convergent & lim seq = x0 & rng seq c= (dom f) /\ (right_open_halfline x0) holds
( f /* seq is convergent & lim (f /* seq) = g1 ) and
A3: for seq being Real_Sequence st seq is convergent & lim seq = x0 & rng seq c= (dom f) /\ (right_open_halfline x0) holds
( f /* seq is convergent & lim (f /* seq) = g2 ) ; :: thesis: g1 = g2

A4: now

let n be Element of NAT ; :: thesis: ex g being Real st S₁[n,g]
x0 < x0 + (1 / (n + 1)) by Lm3;
then consider g being Real such that
A5: g < x0 + (1 / (n + 1)) and
A6: x0 < g and
A7: g in dom f by A1, Def4;
take g = g; :: thesis: S₁[n,g]
thus S₁[n,g] by A5, A6, A7; :: thesis: verum

end;

consider s being Real_Sequence such that
A8: for n being Element of NAT holds S₁[n,s . n] from FUNCT_2:sch 3(A4);
A9: rng s c= (dom f) /\ (right_open_halfline x0) by A8, Th6;
A10: lim s = x0 by A8, Th6;
A11: s is convergent by A8, Th6;
then lim (f /* s) = g1 by A10, A9, A2;
hence g1 = g2 by A11, A10, A9, A3; :: thesis: verum