:: FCONT_2 semantic presentation

definition
let c1 be PartFunc of REAL , REAL ;
let c2 be set ;
pred c1 is_uniformly_continuous_on c2 means :Def1: :: FCONT_2:def 1
( a2 c= dom a1 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Real st b3 in a2 & b4 in a2 & abs (b3 - b4) < b2 holds
abs ((a1 . b3) - (a1 . b4)) < b1 ) ) ) );
end;

:: deftheorem Def1 defines is_uniformly_continuous_on FCONT_2:def 1 :
for b1 being PartFunc of REAL , REAL
for b2 being set holds
( b1 is_uniformly_continuous_on b2 iff ( b2 c= dom b1 & ( for b3 being Real st 0 < b3 holds
ex b4 being Real st
( 0 < b4 & ( for b5, b6 being Real st b5 in b2 & b6 in b2 & abs (b5 - b6) < b4 holds
abs ((b1 . b5) - (b1 . b6)) < b3 ) ) ) ) );

theorem Th1: :: FCONT_2:1
canceled;

theorem Th2: :: FCONT_2:2
for b1, b2 being set
for b3 being PartFunc of REAL , REAL st b3 is_uniformly_continuous_on b1 & b2 c= b1 holds
b3 is_uniformly_continuous_on b2
proof end;

theorem Th3: :: FCONT_2:3
for b1, b2 being set
for b3, b4 being PartFunc of REAL , REAL st b3 is_uniformly_continuous_on b1 & b4 is_uniformly_continuous_on b2 holds
b3 + b4 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th4: :: FCONT_2:4
for b1, b2 being set
for b3, b4 being PartFunc of REAL , REAL st b3 is_uniformly_continuous_on b1 & b4 is_uniformly_continuous_on b2 holds
b3 - b4 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th5: :: FCONT_2:5
for b1 being set
for b2 being Real
for b3 being PartFunc of REAL , REAL st b3 is_uniformly_continuous_on b1 holds
b2 (#) b3 is_uniformly_continuous_on b1
proof end;

theorem Th6: :: FCONT_2:6
for b1 being set
for b2 being PartFunc of REAL , REAL st b2 is_uniformly_continuous_on b1 holds
- b2 is_uniformly_continuous_on b1
proof end;

theorem Th7: :: FCONT_2:7
for b1 being set
for b2 being PartFunc of REAL , REAL st b2 is_uniformly_continuous_on b1 holds
abs b2 is_uniformly_continuous_on b1
proof end;

theorem Th8: :: FCONT_2:8
for b1, b2, b3, b4 being set
for b5, b6 being PartFunc of REAL , REAL st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 & b5 is_bounded_on b3 & b6 is_bounded_on b4 holds
b5 (#) b6 is_uniformly_continuous_on ((b1 /\ b3) /\ b2) /\ b4
proof end;

theorem Th9: :: FCONT_2:9
for b1 being set
for b2 being PartFunc of REAL , REAL st b2 is_uniformly_continuous_on b1 holds
b2 is_continuous_on b1
proof end;

theorem Th10: :: FCONT_2:10
for b1 being set
for b2 being PartFunc of REAL , REAL st b2 is_Lipschitzian_on b1 holds
b2 is_uniformly_continuous_on b1
proof end;

theorem Th11: :: FCONT_2:11
for b1 being PartFunc of REAL , REAL
for b2 being Subset of REAL st b2 is compact & b1 is_continuous_on b2 holds
b1 is_uniformly_continuous_on b2
proof end;

theorem Th12: :: FCONT_2:12
canceled;

theorem Th13: :: FCONT_2:13
for b1 being Subset of REAL
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b1 is compact & b2 is_uniformly_continuous_on b1 holds
b2 .: b1 is compact
proof end;

theorem Th14: :: FCONT_2:14
for b1 being PartFunc of REAL , REAL
for b2 being Subset of REAL st b2 <> {} & b2 c= dom b1 & b2 is compact & b1 is_uniformly_continuous_on b2 holds
ex b3, b4 being Real st
( b3 in b2 & b4 in b2 & b1 . b3 = upper_bound (b1 .: b2) & b1 . b4 = lower_bound (b1 .: b2) )
proof end;

theorem Th15: :: FCONT_2:15
for b1 being set
for b2 being PartFunc of REAL , REAL st b1 c= dom b2 & b2 is_constant_on b1 holds
b2 is_uniformly_continuous_on b1
proof end;

theorem Th16: :: FCONT_2:16
for b1, b2 being Real
for b3 being PartFunc of REAL , REAL st b1 <= b2 & b3 is_continuous_on [.b1,b2.] holds
for b4 being Real st b4 in [.(b3 . b1),(b3 . b2).] \/ [.(b3 . b2),(b3 . b1).] holds
ex b5 being Real st
( b5 in [.b1,b2.] & b4 = b3 . b5 )
proof end;

theorem Th17: :: FCONT_2:17
for b1, b2 being Real
for b3 being PartFunc of REAL , REAL st b1 <= b2 & b3 is_continuous_on [.b1,b2.] holds
for b4 being Real st b4 in [.(lower_bound (b3 .: [.b1,b2.])),(upper_bound (b3 .: [.b1,b2.])).] holds
ex b5 being Real st
( b5 in [.b1,b2.] & b4 = b3 . b5 )
proof end;

theorem Th18: :: FCONT_2:18
for b1, b2 being Real
for b3 being PartFunc of REAL , REAL st b3 is one-to-one & b1 <= b2 & b3 is_continuous_on [.b1,b2.] & not b3 is_increasing_on [.b1,b2.] holds
b3 is_decreasing_on [.b1,b2.]
proof end;

theorem Th19: :: FCONT_2:19
for b1, b2 being Real
for b3 being PartFunc of REAL , REAL st b3 is one-to-one & b1 <= b2 & b3 is_continuous_on [.b1,b2.] & not ( lower_bound (b3 .: [.b1,b2.]) = b3 . b1 & upper_bound (b3 .: [.b1,b2.]) = b3 . b2 ) holds
( lower_bound (b3 .: [.b1,b2.]) = b3 . b2 & upper_bound (b3 .: [.b1,b2.]) = b3 . b1 )
proof end;

theorem Th20: :: FCONT_2:20
for b1, b2 being Real
for b3 being PartFunc of REAL , REAL st b1 <= b2 & b3 is_continuous_on [.b1,b2.] holds
b3 .: [.b1,b2.] = [.(lower_bound (b3 .: [.b1,b2.])),(upper_bound (b3 .: [.b1,b2.])).]
proof end;

theorem Th21: :: FCONT_2:21
for b1, b2 being Real
for b3 being one-to-one PartFunc of REAL , REAL st b1 <= b2 & b3 is_continuous_on [.b1,b2.] holds
b3 " is_continuous_on [.(lower_bound (b3 .: [.b1,b2.])),(upper_bound (b3 .: [.b1,b2.])).]
proof end;