let p be Real; :: thesis: for f being one-to-one PartFunc of REAL ,REAL st ( f | (right_open_halfline p) is increasing or f | (right_open_halfline p) is decreasing ) & right_open_halfline p c= dom f holds
((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous
let f be one-to-one PartFunc of REAL ,REAL ; :: thesis: ( ( f | (right_open_halfline p) is increasing or f | (right_open_halfline p) is decreasing ) & right_open_halfline p c= dom f implies ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous )
set L = right_open_halfline p;
assume that
A1: ( f | (right_open_halfline p) is increasing or f | (right_open_halfline p) is decreasing ) and
A2: right_open_halfline p c= dom f ; :: thesis: ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous

now

per cases ( f | (right_open_halfline p) is increasing or f | (right_open_halfline p) is decreasing ) by A1;

suppose f | (right_open_halfline p) is increasing ; :: thesis: ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous

then ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is increasing by Th17;
then ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is non-decreasing ;
then A3: ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is monotone ;

now

let r be Real; :: thesis: ( r in f .: (right_open_halfline p) implies r in dom ((f | (right_open_halfline p)) " ) )
assume r in f .: (right_open_halfline p) ; :: thesis: r in dom ((f | (right_open_halfline p)) " )
then consider s being Real such that
A4: ( s in dom f & s in right_open_halfline p & r = f . s ) by PARTFUN2:78;
( s in (dom f) /\ (right_open_halfline p) & r = f . s ) by A4, XBOOLE_0:def 4;
then ( s in dom (f | (right_open_halfline p)) & r = f . s ) by RELAT_1:90;
then ( s in dom (f | (right_open_halfline p)) & r = (f | (right_open_halfline p)) . s ) by FUNCT_1:70;
then r in rng (f | (right_open_halfline p)) by FUNCT_1:def 5;
hence r in dom ((f | (right_open_halfline p)) " ) by FUNCT_1:55; :: thesis: verum

end;

then A5: f .: (right_open_halfline p) c= dom ((f | (right_open_halfline p)) " ) by SUBSET_1:7;
((f | (right_open_halfline p)) " ) .: (f .: (right_open_halfline p)) = ((f | (right_open_halfline p)) " ) .: (rng (f | (right_open_halfline p))) by RELAT_1:148
.= ((f | (right_open_halfline p)) " ) .: (dom ((f | (right_open_halfline p)) " )) by FUNCT_1:55
.= rng ((f | (right_open_halfline p)) " ) by RELAT_1:146
.= dom (f | (right_open_halfline p)) by FUNCT_1:55
.= (dom f) /\ (right_open_halfline p) by RELAT_1:90
.= right_open_halfline p by A2, XBOOLE_1:28 ;
hence ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous by A3, A5, Th20; :: thesis: verum

end;

suppose f | (right_open_halfline p) is decreasing ; :: thesis: ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous

then ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is decreasing by Th18;
then ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is non-increasing ;
then A6: ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is monotone ;

now

let r be Real; :: thesis: ( r in f .: (right_open_halfline p) implies r in dom ((f | (right_open_halfline p)) " ) )
assume r in f .: (right_open_halfline p) ; :: thesis: r in dom ((f | (right_open_halfline p)) " )
then consider s being Real such that
A7: ( s in dom f & s in right_open_halfline p & r = f . s ) by PARTFUN2:78;
s in (dom f) /\ (right_open_halfline p) by A7, XBOOLE_0:def 4;
then s in dom (f | (right_open_halfline p)) by RELAT_1:90;
then ( s in dom (f | (right_open_halfline p)) & r = (f | (right_open_halfline p)) . s ) by A7, FUNCT_1:70;
then r in rng (f | (right_open_halfline p)) by FUNCT_1:def 5;
hence r in dom ((f | (right_open_halfline p)) " ) by FUNCT_1:55; :: thesis: verum

end;

then A8: f .: (right_open_halfline p) c= dom ((f | (right_open_halfline p)) " ) by SUBSET_1:7;
((f | (right_open_halfline p)) " ) .: (f .: (right_open_halfline p)) = ((f | (right_open_halfline p)) " ) .: (rng (f | (right_open_halfline p))) by RELAT_1:148
.= ((f | (right_open_halfline p)) " ) .: (dom ((f | (right_open_halfline p)) " )) by FUNCT_1:55
.= rng ((f | (right_open_halfline p)) " ) by RELAT_1:146
.= dom (f | (right_open_halfline p)) by FUNCT_1:55
.= (dom f) /\ (right_open_halfline p) by RELAT_1:90
.= right_open_halfline p by A2, XBOOLE_1:28 ;
hence ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous by A6, A8, Th20; :: thesis: verum

end;

end;

end;

hence ((f | (right_open_halfline p)) " ) | (f .: (right_open_halfline p)) is continuous ; :: thesis: verum