:: NCFCONT2 semantic presentation

definition
let c1 be set ;
let c2, c3 be ComplexNormSpace;
let c4 be PartFunc of c2,c3;
pred c4 is_uniformly_continuous_on c1 means :Def1: :: NCFCONT2:def 1
( a1 c= dom a4 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Point of a2 st b3 in a1 & b4 in a1 & ||.(b3 - b4).|| < b2 holds
||.((a4 /. b3) - (a4 /. b4)).|| < b1 ) ) ) );
end;

:: deftheorem Def1 defines is_uniformly_continuous_on NCFCONT2:def 1 :
for b1 being set
for b2, b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 holds
( b4 is_uniformly_continuous_on b1 iff ( b1 c= dom b4 & ( for b5 being Real st 0 < b5 holds
ex b6 being Real st
( 0 < b6 & ( for b7, b8 being Point of b2 st b7 in b1 & b8 in b1 & ||.(b7 - b8).|| < b6 holds
||.((b4 /. b7) - (b4 /. b8)).|| < b5 ) ) ) ) );

definition
let c1 be set ;
let c2 be RealNormSpace;
let c3 be ComplexNormSpace;
let c4 be PartFunc of c3,c2;
pred c4 is_uniformly_continuous_on c1 means :Def2: :: NCFCONT2:def 2
( a1 c= dom a4 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Point of a3 st b3 in a1 & b4 in a1 & ||.(b3 - b4).|| < b2 holds
||.((a4 /. b3) - (a4 /. b4)).|| < b1 ) ) ) );
end;

:: deftheorem Def2 defines is_uniformly_continuous_on NCFCONT2:def 2 :
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b3,b2 holds
( b4 is_uniformly_continuous_on b1 iff ( b1 c= dom b4 & ( for b5 being Real st 0 < b5 holds
ex b6 being Real st
( 0 < b6 & ( for b7, b8 being Point of b3 st b7 in b1 & b8 in b1 & ||.(b7 - b8).|| < b6 holds
||.((b4 /. b7) - (b4 /. b8)).|| < b5 ) ) ) ) );

definition
let c1 be set ;
let c2 be RealNormSpace;
let c3 be ComplexNormSpace;
let c4 be PartFunc of c2,c3;
pred c4 is_uniformly_continuous_on c1 means :Def3: :: NCFCONT2:def 3
( a1 c= dom a4 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Point of a2 st b3 in a1 & b4 in a1 & ||.(b3 - b4).|| < b2 holds
||.((a4 /. b3) - (a4 /. b4)).|| < b1 ) ) ) );
end;

:: deftheorem Def3 defines is_uniformly_continuous_on NCFCONT2:def 3 :
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 holds
( b4 is_uniformly_continuous_on b1 iff ( b1 c= dom b4 & ( for b5 being Real st 0 < b5 holds
ex b6 being Real st
( 0 < b6 & ( for b7, b8 being Point of b2 st b7 in b1 & b8 in b1 & ||.(b7 - b8).|| < b6 holds
||.((b4 /. b7) - (b4 /. b8)).|| < b5 ) ) ) ) );

definition
let c1 be set ;
let c2 be ComplexNormSpace;
let c3 be PartFunc of the carrier of c2, COMPLEX ;
pred c3 is_uniformly_continuous_on c1 means :Def4: :: NCFCONT2:def 4
( a1 c= dom a3 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Point of a2 st b3 in a1 & b4 in a1 & ||.(b3 - b4).|| < b2 holds
|.((a3 /. b3) - (a3 /. b4)).| < b1 ) ) ) );
end;

:: deftheorem Def4 defines is_uniformly_continuous_on NCFCONT2:def 4 :
for b1 being set
for b2 being ComplexNormSpace
for b3 being PartFunc of the carrier of b2, COMPLEX holds
( b3 is_uniformly_continuous_on b1 iff ( b1 c= dom b3 & ( for b4 being Real st 0 < b4 holds
ex b5 being Real st
( 0 < b5 & ( for b6, b7 being Point of b2 st b6 in b1 & b7 in b1 & ||.(b6 - b7).|| < b5 holds
|.((b3 /. b6) - (b3 /. b7)).| < b4 ) ) ) ) );

definition
let c1 be set ;
let c2 be ComplexNormSpace;
let c3 be PartFunc of the carrier of c2, REAL ;
pred c3 is_uniformly_continuous_on c1 means :Def5: :: NCFCONT2:def 5
( a1 c= dom a3 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Point of a2 st b3 in a1 & b4 in a1 & ||.(b3 - b4).|| < b2 holds
abs ((a3 /. b3) - (a3 /. b4)) < b1 ) ) ) );
end;

:: deftheorem Def5 defines is_uniformly_continuous_on NCFCONT2:def 5 :
for b1 being set
for b2 being ComplexNormSpace
for b3 being PartFunc of the carrier of b2, REAL holds
( b3 is_uniformly_continuous_on b1 iff ( b1 c= dom b3 & ( for b4 being Real st 0 < b4 holds
ex b5 being Real st
( 0 < b5 & ( for b6, b7 being Point of b2 st b6 in b1 & b7 in b1 & ||.(b6 - b7).|| < b5 holds
abs ((b3 /. b6) - (b3 /. b7)) < b4 ) ) ) ) );

definition
let c1 be set ;
let c2 be RealNormSpace;
let c3 be PartFunc of the carrier of c2, COMPLEX ;
pred c3 is_uniformly_continuous_on c1 means :Def6: :: NCFCONT2:def 6
( a1 c= dom a3 & ( for b1 being Real st 0 < b1 holds
ex b2 being Real st
( 0 < b2 & ( for b3, b4 being Point of a2 st b3 in a1 & b4 in a1 & ||.(b3 - b4).|| < b2 holds
|.((a3 /. b3) - (a3 /. b4)).| < b1 ) ) ) );
end;

:: deftheorem Def6 defines is_uniformly_continuous_on NCFCONT2:def 6 :
for b1 being set
for b2 being RealNormSpace
for b3 being PartFunc of the carrier of b2, COMPLEX holds
( b3 is_uniformly_continuous_on b1 iff ( b1 c= dom b3 & ( for b4 being Real st 0 < b4 holds
ex b5 being Real st
( 0 < b5 & ( for b6, b7 being Point of b2 st b6 in b1 & b7 in b1 & ||.(b6 - b7).|| < b5 holds
|.((b3 /. b6) - (b3 /. b7)).| < b4 ) ) ) ) );

theorem Th1: :: NCFCONT2:1
for b1, b2 being set
for b3, b4 being ComplexNormSpace
for b5 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 & b2 c= b1 holds
b5 is_uniformly_continuous_on b2
proof end;

theorem Th2: :: NCFCONT2:2
for b1, b2 being set
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5 being PartFunc of b4,b3 st b5 is_uniformly_continuous_on b1 & b2 c= b1 holds
b5 is_uniformly_continuous_on b2
proof end;

theorem Th3: :: NCFCONT2:3
for b1, b2 being set
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 & b2 c= b1 holds
b5 is_uniformly_continuous_on b2
proof end;

theorem Th4: :: NCFCONT2:4
for b1, b2 being set
for b3, b4 being ComplexNormSpace
for b5, b6 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 holds
b5 + b6 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th5: :: NCFCONT2:5
for b1, b2 being set
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5, b6 being PartFunc of b4,b3 st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 holds
b5 + b6 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th6: :: NCFCONT2:6
for b1, b2 being set
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5, b6 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 holds
b5 + b6 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th7: :: NCFCONT2:7
for b1, b2 being set
for b3, b4 being ComplexNormSpace
for b5, b6 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 holds
b5 - b6 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th8: :: NCFCONT2:8
for b1, b2 being set
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5, b6 being PartFunc of b4,b3 st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 holds
b5 - b6 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th9: :: NCFCONT2:9
for b1, b2 being set
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5, b6 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 & b6 is_uniformly_continuous_on b2 holds
b5 - b6 is_uniformly_continuous_on b1 /\ b2
proof end;

theorem Th10: :: NCFCONT2:10
for b1 being set
for b2 being Complex
for b3, b4 being ComplexNormSpace
for b5 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 holds
b2 (#) b5 is_uniformly_continuous_on b1
proof end;

theorem Th11: :: NCFCONT2:11
for b1 being set
for b2 being Real
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5 being PartFunc of b4,b3 st b5 is_uniformly_continuous_on b1 holds
b2 (#) b5 is_uniformly_continuous_on b1
proof end;

theorem Th12: :: NCFCONT2:12
for b1 being set
for b2 being Complex
for b3 being RealNormSpace
for b4 being ComplexNormSpace
for b5 being PartFunc of b3,b4 st b5 is_uniformly_continuous_on b1 holds
b2 (#) b5 is_uniformly_continuous_on b1
proof end;

theorem Th13: :: NCFCONT2:13
for b1 being set
for b2, b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_uniformly_continuous_on b1 holds
- b4 is_uniformly_continuous_on b1
proof end;

theorem Th14: :: NCFCONT2:14
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b3,b2 st b4 is_uniformly_continuous_on b1 holds
- b4 is_uniformly_continuous_on b1
proof end;

theorem Th15: :: NCFCONT2:15
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_uniformly_continuous_on b1 holds
- b4 is_uniformly_continuous_on b1
proof end;

theorem Th16: :: NCFCONT2:16
for b1 being set
for b2, b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_uniformly_continuous_on b1 holds
||.b4.|| is_uniformly_continuous_on b1
proof end;

theorem Th17: :: NCFCONT2:17
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b3,b2 st b4 is_uniformly_continuous_on b1 holds
||.b4.|| is_uniformly_continuous_on b1
proof end;

theorem Th18: :: NCFCONT2:18
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_uniformly_continuous_on b1 holds
||.b4.|| is_uniformly_continuous_on b1
proof end;

theorem Th19: :: NCFCONT2:19
for b1 being set
for b2, b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_uniformly_continuous_on b1 holds
b4 is_continuous_on b1
proof end;

theorem Th20: :: NCFCONT2:20
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b3,b2 st b4 is_uniformly_continuous_on b1 holds
b4 is_continuous_on b1
proof end;

theorem Th21: :: NCFCONT2:21
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_uniformly_continuous_on b1 holds
b4 is_continuous_on b1
proof end;

theorem Th22: :: NCFCONT2:22
for b1 being set
for b2 being ComplexNormSpace
for b3 being PartFunc of the carrier of b2, COMPLEX st b3 is_uniformly_continuous_on b1 holds
b3 is_continuous_on b1
proof end;

theorem Th23: :: NCFCONT2:23
for b1 being set
for b2 being ComplexNormSpace
for b3 being PartFunc of the carrier of b2, REAL st b3 is_uniformly_continuous_on b1 holds
b3 is_continuous_on b1
proof end;

theorem Th24: :: NCFCONT2:24
for b1 being set
for b2 being RealNormSpace
for b3 being PartFunc of the carrier of b2, COMPLEX st b3 is_uniformly_continuous_on b1 holds
b3 is_continuous_on b1
proof end;

theorem Th25: :: NCFCONT2:25
for b1 being set
for b2, b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_Lipschitzian_on b1 holds
b4 is_uniformly_continuous_on b1
proof end;

theorem Th26: :: NCFCONT2:26
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b3,b2 st b4 is_Lipschitzian_on b1 holds
b4 is_uniformly_continuous_on b1
proof end;

theorem Th27: :: NCFCONT2:27
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b4 is_Lipschitzian_on b1 holds
b4 is_uniformly_continuous_on b1
proof end;

theorem Th28: :: NCFCONT2:28
for b1, b2 being ComplexNormSpace
for b3 being PartFunc of b1,b2
for b4 being Subset of b1 st b4 is compact & b3 is_continuous_on b4 holds
b3 is_uniformly_continuous_on b4
proof end;

theorem Th29: :: NCFCONT2:29
for b1 being RealNormSpace
for b2 being ComplexNormSpace
for b3 being PartFunc of b2,b1
for b4 being Subset of b2 st b4 is compact & b3 is_continuous_on b4 holds
b3 is_uniformly_continuous_on b4
proof end;

theorem Th30: :: NCFCONT2:30
for b1 being RealNormSpace
for b2 being ComplexNormSpace
for b3 being PartFunc of b1,b2
for b4 being Subset of b1 st b4 is compact & b3 is_continuous_on b4 holds
b3 is_uniformly_continuous_on b4
proof end;

theorem Th31: :: NCFCONT2:31
for b1, b2 being ComplexNormSpace
for b3 being PartFunc of b1,b2
for b4 being Subset of b1 st b4 c= dom b3 & b4 is compact & b3 is_uniformly_continuous_on b4 holds
b3 .: b4 is compact
proof end;

theorem Th32: :: NCFCONT2:32
for b1 being RealNormSpace
for b2 being ComplexNormSpace
for b3 being PartFunc of b2,b1
for b4 being Subset of b2 st b4 c= dom b3 & b4 is compact & b3 is_uniformly_continuous_on b4 holds
b3 .: b4 is compact
proof end;

theorem Th33: :: NCFCONT2:33
for b1 being RealNormSpace
for b2 being ComplexNormSpace
for b3 being PartFunc of b1,b2
for b4 being Subset of b1 st b4 c= dom b3 & b4 is compact & b3 is_uniformly_continuous_on b4 holds
b3 .: b4 is compact
proof end;

theorem Th34: :: NCFCONT2:34
for b1 being ComplexNormSpace
for b2 being PartFunc of the carrier of b1, REAL
for b3 being Subset of b1 st b3 <> {} & b3 c= dom b2 & b3 is compact & b2 is_uniformly_continuous_on b3 holds
ex b4, b5 being Point of b1 st
( b4 in b3 & b5 in b3 & b2 /. b4 = upper_bound (b2 .: b3) & b2 /. b5 = lower_bound (b2 .: b3) )
proof end;

theorem Th35: :: NCFCONT2:35
for b1 being set
for b2, b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b1 c= dom b4 & b4 is_constant_on b1 holds
b4 is_uniformly_continuous_on b1
proof end;

theorem Th36: :: NCFCONT2:36
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b3,b2 st b1 c= dom b4 & b4 is_constant_on b1 holds
b4 is_uniformly_continuous_on b1
proof end;

theorem Th37: :: NCFCONT2:37
for b1 being set
for b2 being RealNormSpace
for b3 being ComplexNormSpace
for b4 being PartFunc of b2,b3 st b1 c= dom b4 & b4 is_constant_on b1 holds
b4 is_uniformly_continuous_on b1
proof end;

definition
let c1 be ComplexBanachSpace;
mode contraction of c1 -> Function of the carrier of a1,the carrier of a1 means :Def7: :: NCFCONT2:def 7
ex b1 being Real st
( 0 < b1 & b1 < 1 & ( for b2, b3 being Point of a1 holds ||.((a2 . b2) - (a2 . b3)).|| <= b1 * ||.(b2 - b3).|| ) );
existence
ex b1 being Function of the carrier of c1,the carrier of c1ex b2 being Real st
( 0 < b2 & b2 < 1 & ( for b3, b4 being Point of c1 holds ||.((b1 . b3) - (b1 . b4)).|| <= b2 * ||.(b3 - b4).|| ) )
proof end;
end;

:: deftheorem Def7 defines contraction NCFCONT2:def 7 :
for b1 being ComplexBanachSpace
for b2 being Function of the carrier of b1,the carrier of b1 holds
( b2 is contraction of b1 iff ex b3 being Real st
( 0 < b3 & b3 < 1 & ( for b4, b5 being Point of b1 holds ||.((b2 . b4) - (b2 . b5)).|| <= b3 * ||.(b4 - b5).|| ) ) );

theorem Th38: :: NCFCONT2:38
for b1 being ComplexNormSpace
for b2, b3 being Point of b1 holds
( ||.(b2 - b3).|| > 0 iff b2 <> b3 )
proof end;

theorem Th39: :: NCFCONT2:39
for b1 being ComplexNormSpace
for b2, b3 being Point of b1 holds ||.(b2 - b3).|| = ||.(b3 - b2).||
proof end;

Lemma21: for b1 being ComplexNormSpace
for b2, b3, b4 being Point of b1
for b5 being Real st b5 > 0 & ||.(b2 - b4).|| < b5 / 2 & ||.(b4 - b3).|| < b5 / 2 holds
||.(b2 - b3).|| < b5
proof end;

Lemma22: for b1 being ComplexNormSpace
for b2, b3, b4 being Point of b1
for b5 being Real st b5 > 0 & ||.(b2 - b4).|| < b5 / 2 & ||.(b3 - b4).|| < b5 / 2 holds
||.(b2 - b3).|| < b5
proof end;

Lemma23: for b1 being ComplexNormSpace
for b2 being Point of b1 st ( for b3 being Real st b3 > 0 holds
||.b2.|| < b3 ) holds
b2 = 0. b1
proof end;

Lemma24: for b1 being ComplexNormSpace
for b2, b3 being Point of b1 st ( for b4 being Real st b4 > 0 holds
||.(b2 - b3).|| < b4 ) holds
b2 = b3
proof end;

Lemma25: for b1, b2, b3 being real number st 0 < b1 & b1 < 1 & 0 < b3 holds
ex b4 being Nat st abs (b2 * (b1 to_power b4)) < b3
by NFCONT_2:16;

theorem Th40: :: NCFCONT2:40
for b1 being ComplexBanachSpace
for b2 being Function of b1,b1 st b2 is contraction of b1 holds
ex b3 being Point of b1 st
( b2 . b3 = b3 & ( for b4 being Point of b1 st b2 . b4 = b4 holds
b3 = b4 ) )
proof end;

theorem Th41: :: NCFCONT2:41
for b1 being ComplexBanachSpace
for b2 being Function of b1,b1 st ex b3 being Nat st iter b2,b3 is contraction of b1 holds
ex b3 being Point of b1 st
( b2 . b3 = b3 & ( for b4 being Point of b1 st b2 . b4 = b4 holds
b3 = b4 ) )
proof end;