let x0 be Real; :: thesis: for f being PartFunc of REAL,REAL st f is_Rcontinuous_in x0 & ( for r being Real st x0 < r holds
ex g being Real st
( g < r & x0 < g & g in dom f ) ) holds
( f is_right_convergent_in x0 & lim_right (f,x0) = f . x0 )
let f be PartFunc of REAL,REAL; :: thesis: ( f is_Rcontinuous_in x0 & ( for r being Real st x0 < r holds
ex g being Real st
( g < r & x0 < g & g in dom f ) ) implies ( f is_right_convergent_in x0 & lim_right (f,x0) = f . x0 ) )
assume that
A1: f is_Rcontinuous_in x0 and
A2: for r being Real st x0 < r holds
ex g being Real st
( g < r & x0 < g & g in dom f ) ; :: thesis: ( f is_right_convergent_in x0 & lim_right (f,x0) = f . x0 )
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) = f . x0 ) by A1, FDIFF_3:def 2;
hence f is_right_convergent_in x0 by A2, LIMFUNC2:def 4; :: thesis: lim_right (f,x0) = f . x0
hence lim_right (f,x0) = f . x0 by A3, LIMFUNC2:def 8; :: thesis: verum