:: FCONT_3 semantic presentation

theorem Th1: :: FCONT_3:1
[#] REAL is closed
proof end;

theorem Th2: :: FCONT_3:2
{} REAL is open
proof end;

theorem Th3: :: FCONT_3:3
{} REAL is closed
proof end;

theorem Th4: :: FCONT_3:4
[#] REAL is open
proof end;

registration
cluster [#] REAL -> closed open ;
coherence
( [#] REAL is open & [#] REAL is closed )
by Th1, Th4;
cluster {} REAL -> closed open ;
coherence
( {} REAL is open & {} REAL is closed )
by Th2, Th3;
end;

theorem Th5: :: FCONT_3:5
for b1 being real number holds right_closed_halfline b1 is closed
proof end;

theorem Th6: :: FCONT_3:6
for b1 being real number holds left_closed_halfline b1 is closed
proof end;

theorem Th7: :: FCONT_3:7
for b1 being real number holds right_open_halfline b1 is open
proof end;

theorem Th8: :: FCONT_3:8
for b1 being real number holds left_open_halfline b1 is open
proof end;

registration
let c1 be real number ;
cluster right_open_halfline a1 -> open ;
coherence
right_open_halfline c1 is open
by Th7;
cluster halfline a1 -> open ;
coherence
halfline c1 is open
by Th8;
cluster right_closed_halfline a1 -> closed ;
coherence
right_closed_halfline c1 is closed
by Th5;
cluster left_closed_halfline a1 -> closed ;
coherence
left_closed_halfline c1 is closed
by Th6;
end;

theorem Th9: :: FCONT_3:9
for b1, b2 being Real
for b3 being real number holds
( ( 0 < b3 & b1 in ].(b2 - b3),(b2 + b3).[ ) iff ex b4 being Real st
( b1 = b2 + b4 & abs b4 < b3 ) )
proof end;

theorem Th10: :: FCONT_3:10
for b1, b2 being Real
for b3 being real number holds
( ( 0 < b3 & b1 in ].(b2 - b3),(b2 + b3).[ ) iff b1 - b2 in ].(- b3),b3.[ )
proof end;

theorem Th11: :: FCONT_3:11
for b1 being Real holds left_closed_halfline b1 = {b1} \/ (left_open_halfline b1)
proof end;

theorem Th12: :: FCONT_3:12
for b1 being Real holds right_closed_halfline b1 = {b1} \/ (right_open_halfline b1)
proof end;

theorem Th13: :: FCONT_3:13
for b1 being Real
for b2 being Real_Sequence
for b3 being real number st ( for b4 being Nat holds b2 . b4 = b3 - (b1 / (b4 + 1)) ) holds
( b2 is convergent & lim b2 = b3 )
proof end;

theorem Th14: :: FCONT_3:14
for b1 being Real
for b2 being Real_Sequence
for b3 being real number st ( for b4 being Nat holds b2 . b4 = b3 + (b1 / (b4 + 1)) ) holds
( b2 is convergent & lim b2 = b3 )
proof end;

theorem Th15: :: FCONT_3:15
for b1 being Real
for b2 being real number
for b3 being PartFunc of REAL , REAL st b3 is_continuous_in b1 & b3 . b1 <> b2 & ex b4 being Neighbourhood of b1 st b4 c= dom b3 holds
ex b4 being Neighbourhood of b1 st
( b4 c= dom b3 & ( for b5 being Real st b5 in b4 holds
b3 . b5 <> b2 ) )
proof end;

theorem Th16: :: FCONT_3:16
for b1 being set
for b2 being PartFunc of REAL , REAL st ( b2 is_increasing_on b1 or b2 is_decreasing_on b1 ) holds
b2 | b1 is one-to-one
proof end;

theorem Th17: :: FCONT_3:17
for b1 being set
for b2 being one-to-one PartFunc of REAL , REAL st b2 is_increasing_on b1 holds
(b2 | b1) " is_increasing_on b2 .: b1
proof end;

theorem Th18: :: FCONT_3:18
for b1 being set
for b2 being one-to-one PartFunc of REAL , REAL st b2 is_decreasing_on b1 holds
(b2 | b1) " is_decreasing_on b2 .: b1
proof end;

theorem Th19: :: FCONT_3:19
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_monotone_on b1 & ex b3 being Real st b2 .: b1 = left_open_halfline b3 holds
b2 is_continuous_on b1
proof end;

theorem Th20: :: FCONT_3:20
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_monotone_on b1 & ex b3 being Real st b2 .: b1 = right_open_halfline b3 holds
b2 is_continuous_on b1
proof end;

theorem Th21: :: FCONT_3:21
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_monotone_on b1 & ex b3 being Real st b2 .: b1 = left_closed_halfline b3 holds
b2 is_continuous_on b1
proof end;

theorem Th22: :: FCONT_3:22
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_monotone_on b1 & ex b3 being Real st b2 .: b1 = right_closed_halfline b3 holds
b2 is_continuous_on b1
proof end;

theorem Th23: :: FCONT_3:23
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_monotone_on b1 & ex b3, b4 being Real st b2 .: b1 = ].b3,b4.[ holds
b2 is_continuous_on b1
proof end;

theorem Th24: :: FCONT_3:24
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_monotone_on b1 & b2 .: b1 = REAL holds
b2 is_continuous_on b1
proof end;

theorem Th25: :: FCONT_3:25
for b1, b2 being Real
for b3 being one-to-one PartFunc of REAL , REAL st ( b3 is_increasing_on ].b1,b2.[ or b3 is_decreasing_on ].b1,b2.[ ) & ].b1,b2.[ c= dom b3 holds
(b3 | ].b1,b2.[) " is_continuous_on b3 .: ].b1,b2.[
proof end;

theorem Th26: :: FCONT_3:26
for b1 being Real
for b2 being one-to-one PartFunc of REAL , REAL st ( b2 is_increasing_on left_open_halfline b1 or b2 is_decreasing_on left_open_halfline b1 ) & left_open_halfline b1 c= dom b2 holds
(b2 | (left_open_halfline b1)) " is_continuous_on b2 .: (left_open_halfline b1)
proof end;

theorem Th27: :: FCONT_3:27
for b1 being Real
for b2 being one-to-one PartFunc of REAL , REAL st ( b2 is_increasing_on right_open_halfline b1 or b2 is_decreasing_on right_open_halfline b1 ) & right_open_halfline b1 c= dom b2 holds
(b2 | (right_open_halfline b1)) " is_continuous_on b2 .: (right_open_halfline b1)
proof end;

theorem Th28: :: FCONT_3:28
for b1 being Real
for b2 being one-to-one PartFunc of REAL , REAL st ( b2 is_increasing_on left_closed_halfline b1 or b2 is_decreasing_on left_closed_halfline b1 ) & left_closed_halfline b1 c= dom b2 holds
(b2 | (left_closed_halfline b1)) " is_continuous_on b2 .: (left_closed_halfline b1)
proof end;

theorem Th29: :: FCONT_3:29
for b1 being Real
for b2 being one-to-one PartFunc of REAL , REAL st ( b2 is_increasing_on right_closed_halfline b1 or b2 is_decreasing_on right_closed_halfline b1 ) & right_closed_halfline b1 c= dom b2 holds
(b2 | (right_closed_halfline b1)) " is_continuous_on b2 .: (right_closed_halfline b1)
proof end;

theorem Th30: :: FCONT_3:30
for b1 being one-to-one PartFunc of REAL , REAL st ( b1 is_increasing_on [#] REAL or b1 is_decreasing_on [#] REAL ) & b1 is total holds
b1 " is_continuous_on rng b1
proof end;

theorem Th31: :: FCONT_3:31
for b1, b2 being Real
for b3 being PartFunc of REAL , REAL st b3 is_continuous_on ].b1,b2.[ & ( b3 is_increasing_on ].b1,b2.[ or b3 is_decreasing_on ].b1,b2.[ ) holds
rng (b3 | ].b1,b2.[) is open
proof end;

theorem Th32: :: FCONT_3:32
for b1 being Real
for b2 being PartFunc of REAL , REAL st b2 is_continuous_on left_open_halfline b1 & ( b2 is_increasing_on left_open_halfline b1 or b2 is_decreasing_on left_open_halfline b1 ) holds
rng (b2 | (left_open_halfline b1)) is open
proof end;

theorem Th33: :: FCONT_3:33
for b1 being Real
for b2 being PartFunc of REAL , REAL st b2 is_continuous_on right_open_halfline b1 & ( b2 is_increasing_on right_open_halfline b1 or b2 is_decreasing_on right_open_halfline b1 ) holds
rng (b2 | (right_open_halfline b1)) is open
proof end;

theorem Th34: :: FCONT_3:34
for b1 being PartFunc of REAL , REAL st b1 is_continuous_on [#] REAL & ( b1 is_increasing_on [#] REAL or b1 is_decreasing_on [#] REAL ) holds
rng b1 is open
proof end;