:: The Continuous Functions on Normed Linear Spaces
:: by Takaya Nishiyama, Keiji Ohkubo and Yasunari Shidama
::
:: Received April 6, 2004
:: Copyright (c) 2004-2011 Association of Mizar Users

begin

theorem :: NFCONT_1:1

for S being non empty addLoopStr
for seq1, seq2 being sequence of S holds seq1 - seq2 = seq1 + (- seq2)

proof end;

theorem Th2: :: NFCONT_1:2

for S being RealNormSpace
for seq being sequence of S holds - seq = (- 1) * seq

proof end;

definition

let S be RealNormSpace;
let x0 be Point of S;
canceled;
canceled;
mode Neighbourhood of x0 -> Subset of S means :Def3: :: NFCONT_1:def 3
ex g being Real st
( 0 < g & { y where y is Point of S : ||.(y - x0).|| < g } c= it );
existence
ex b₁ being Subset of S ex g being Real st
( 0 < g & { y where y is Point of S : ||.(y - x0).|| < g } c= b₁ )

proof end;

end;

:: deftheorem NFCONT_1:def 1 :
canceled;

:: deftheorem NFCONT_1:def 2 :
canceled;

:: deftheorem Def3 defines Neighbourhood NFCONT_1:def 3 :
for S being RealNormSpace
for x0 being Point of S
for b₃ being Subset of S holds
( b₃ is Neighbourhood of x0 iff ex g being Real st
( 0 < g & { y where y is Point of S : ||.(y - x0).|| < g } c= b₃ ) );

theorem Th3: :: NFCONT_1:3

for S being RealNormSpace
for x0 being Point of S
for g being Real st 0 < g holds
{ y where y is Point of S : ||.(y - x0).|| < g } is Neighbourhood of x0

proof end;

theorem Th4: :: NFCONT_1:4

for S being RealNormSpace
for x0 being Point of S
for N being Neighbourhood of x0 holds x0 in N

proof end;

definition

let S be RealNormSpace;
let X be Subset of S;
attr X is compact means :Def4: :: NFCONT_1:def 4
for s1 being sequence of S st rng s1 c= X holds
ex s2 being sequence of S st
( s2 is subsequence of s1 & s2 is convergent & lim s2 in X );

end;

:: deftheorem Def4 defines compact NFCONT_1:def 4 :
for S being RealNormSpace
for X being Subset of S holds
( X is compact iff for s1 being sequence of S st rng s1 c= X holds
ex s2 being sequence of S st
( s2 is subsequence of s1 & s2 is convergent & lim s2 in X ) );

definition

let S be RealNormSpace;
let X be Subset of S;
attr X is closed means :: NFCONT_1:def 5
for s1 being sequence of S st rng s1 c= X & s1 is convergent holds
lim s1 in X;

end;

:: deftheorem defines closed NFCONT_1:def 5 :
for S being RealNormSpace
for X being Subset of S holds
( X is closed iff for s1 being sequence of S st rng s1 c= X & s1 is convergent holds
lim s1 in X );

definition

let S be RealNormSpace;
let X be Subset of S;
attr X is open means :: NFCONT_1:def 6
X ` is closed ;

end;

:: deftheorem defines open NFCONT_1:def 6 :
for S being RealNormSpace
for X being Subset of S holds
( X is open iff X ` is closed );

definition

canceled;
canceled;
let S, T be RealNormSpace;
let f be PartFunc of S,T;
let x0 be Point of S;
pred f is_continuous_in x0 means :Def9: :: NFCONT_1:def 9
( x0 in dom f & ( for s1 being sequence of S st rng s1 c= dom f & s1 is convergent & lim s1 = x0 holds
( f /* s1 is convergent & f /. x0 = lim (f /* s1) ) ) );

end;

:: deftheorem NFCONT_1:def 7 :
canceled;

:: deftheorem NFCONT_1:def 8 :
canceled;

:: deftheorem Def9 defines is_continuous_in NFCONT_1:def 9 :
for S, T being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S holds
( f is_continuous_in x0 iff ( x0 in dom f & ( for s1 being sequence of S st rng s1 c= dom f & s1 is convergent & lim s1 = x0 holds
( f /* s1 is convergent & f /. x0 = lim (f /* s1) ) ) ) );

definition

let S be RealNormSpace;
let f be PartFunc of the carrier of S,REAL;
let x0 be Point of S;
pred f is_continuous_in x0 means :Def10: :: NFCONT_1:def 10
( x0 in dom f & ( for s1 being sequence of S st rng s1 c= dom f & s1 is convergent & lim s1 = x0 holds
( f /* s1 is convergent & f /. x0 = lim (f /* s1) ) ) );

end;

:: deftheorem Def10 defines is_continuous_in NFCONT_1:def 10 :
for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL
for x0 being Point of S holds
( f is_continuous_in x0 iff ( x0 in dom f & ( for s1 being sequence of S st rng s1 c= dom f & s1 is convergent & lim s1 = x0 holds
( f /* s1 is convergent & f /. x0 = lim (f /* s1) ) ) ) );

theorem Th5: :: NFCONT_1:5

for n being Element of NAT
for S, T being RealNormSpace
for seq being sequence of S
for h being PartFunc of S,T st rng seq c= dom h holds
seq . n in dom h

proof end;

theorem Th6: :: NFCONT_1:6

for S being RealNormSpace
for seq being sequence of S
for x being set holds
( x in rng seq iff ex n being Element of NAT st x = seq . n )

proof end;

theorem :: NFCONT_1:7

canceled;

theorem :: NFCONT_1:8

canceled;

theorem :: NFCONT_1:9

canceled;

theorem :: NFCONT_1:10

canceled;

theorem :: NFCONT_1:11

canceled;

theorem :: NFCONT_1:12

canceled;

theorem :: NFCONT_1:13

canceled;

theorem Th14: :: NFCONT_1:14

for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S holds
( f is_continuous_in x0 iff ( x0 in dom f & ( for r being Real st 0 < r holds
ex s being Real st
( 0 < s & ( for x1 being Point of S st x1 in dom f & ||.(x1 - x0).|| < s holds
||.((f /. x1) - (f /. x0)).|| < r ) ) ) ) )

proof end;

theorem Th15: :: NFCONT_1:15

for S being RealNormSpace
for x0 being Point of S
for f being PartFunc of the carrier of S,REAL holds
( f is_continuous_in x0 iff ( x0 in dom f & ( for r being Real st 0 < r holds
ex s being Real st
( 0 < s & ( for x1 being Point of S st x1 in dom f & ||.(x1 - x0).|| < s holds
abs ((f /. x1) - (f /. x0)) < r ) ) ) ) )

proof end;

theorem Th16: :: NFCONT_1:16

for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S holds
( f is_continuous_in x0 iff ( x0 in dom f & ( for N1 being Neighbourhood of f /. x0 ex N being Neighbourhood of x0 st
for x1 being Point of S st x1 in dom f & x1 in N holds
f /. x1 in N1 ) ) )

proof end;

theorem Th17: :: NFCONT_1:17

for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S holds
( f is_continuous_in x0 iff ( x0 in dom f & ( for N1 being Neighbourhood of f /. x0 ex N being Neighbourhood of x0 st f .: N c= N1 ) ) )

proof end;

theorem :: NFCONT_1:18

for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S st x0 in dom f & ex N being Neighbourhood of x0 st (dom f) /\ N = {x0} holds
f is_continuous_in x0

proof end;

theorem Th19: :: NFCONT_1:19

for S, T being RealNormSpace
for h1, h2 being PartFunc of S,T
for seq being sequence of S st rng seq c= (dom h1) /\ (dom h2) holds
( (h1 + h2) /* seq = (h1 /* seq) + (h2 /* seq) & (h1 - h2) /* seq = (h1 /* seq) - (h2 /* seq) )

proof end;

theorem Th20: :: NFCONT_1:20

for S, T being RealNormSpace
for h being PartFunc of S,T
for seq being sequence of S
for r being Real st rng seq c= dom h holds
(r (#) h) /* seq = r * (h /* seq)

proof end;

theorem Th21: :: NFCONT_1:21

for S, T being RealNormSpace
for h being PartFunc of S,T
for seq being sequence of S st rng seq c= dom h holds
( ||.(h /* seq).|| = ||.h.|| /* seq & - (h /* seq) = (- h) /* seq )

proof end;

theorem :: NFCONT_1:22

for T, S being RealNormSpace
for f1, f2 being PartFunc of S,T
for x0 being Point of S st f1 is_continuous_in x0 & f2 is_continuous_in x0 holds
( f1 + f2 is_continuous_in x0 & f1 - f2 is_continuous_in x0 )

proof end;

theorem Th23: :: NFCONT_1:23

for r being Real
for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S st f is_continuous_in x0 holds
r (#) f is_continuous_in x0

proof end;

theorem :: NFCONT_1:24

for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S st f is_continuous_in x0 holds
( ||.f.|| is_continuous_in x0 & - f is_continuous_in x0 )

proof end;

definition

let S, T be RealNormSpace;
let f be PartFunc of S,T;
let X be set ;
pred f is_continuous_on X means :Def11: :: NFCONT_1:def 11
( X c= dom f & ( for x0 being Point of S st x0 in X holds
f | X is_continuous_in x0 ) );

end;

:: deftheorem Def11 defines is_continuous_on NFCONT_1:def 11 :
for S, T being RealNormSpace
for f being PartFunc of S,T
for X being set holds
( f is_continuous_on X iff ( X c= dom f & ( for x0 being Point of S st x0 in X holds
f | X is_continuous_in x0 ) ) );

definition

let S be RealNormSpace;
let f be PartFunc of the carrier of S,REAL;
let X be set ;
pred f is_continuous_on X means :Def12: :: NFCONT_1:def 12
( X c= dom f & ( for x0 being Point of S st x0 in X holds
f | X is_continuous_in x0 ) );

end;

:: deftheorem Def12 defines is_continuous_on NFCONT_1:def 12 :
for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL
for X being set holds
( f is_continuous_on X iff ( X c= dom f & ( for x0 being Point of S st x0 in X holds
f | X is_continuous_in x0 ) ) );

theorem Th25: :: NFCONT_1:25

for T, S being RealNormSpace
for X being set
for f being PartFunc of S,T holds
( f is_continuous_on X iff ( X c= dom f & ( for s1 being sequence of S st rng s1 c= X & s1 is convergent & lim s1 in X holds
( f /* s1 is convergent & f /. (lim s1) = lim (f /* s1) ) ) ) )

proof end;

theorem Th26: :: NFCONT_1:26

for X being set
for T, S being RealNormSpace
for f being PartFunc of S,T holds
( f is_continuous_on X iff ( X c= dom f & ( for x0 being Point of S
for r being Real st x0 in X & 0 < r holds
ex s being Real st
( 0 < s & ( for x1 being Point of S st x1 in X & ||.(x1 - x0).|| < s holds
||.((f /. x1) - (f /. x0)).|| < r ) ) ) ) )

proof end;

theorem :: NFCONT_1:27

for X being set
for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL holds
( f is_continuous_on X iff ( X c= dom f & ( for x0 being Point of S
for r being Real st x0 in X & 0 < r holds
ex s being Real st
( 0 < s & ( for x1 being Point of S st x1 in X & ||.(x1 - x0).|| < s holds
abs ((f /. x1) - (f /. x0)) < r ) ) ) ) )

proof end;

theorem :: NFCONT_1:28

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T holds
( f is_continuous_on X iff f | X is_continuous_on X )

proof end;

theorem Th29: :: NFCONT_1:29

for X being set
for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL holds
( f is_continuous_on X iff f | X is_continuous_on X )

proof end;

theorem Th30: :: NFCONT_1:30

for X, X1 being set
for S, T being RealNormSpace
for f being PartFunc of S,T st f is_continuous_on X & X1 c= X holds
f is_continuous_on X1

proof end;

theorem :: NFCONT_1:31

for T, S being RealNormSpace
for f being PartFunc of S,T
for x0 being Point of S st x0 in dom f holds
f is_continuous_on {x0}

proof end;

theorem Th32: :: NFCONT_1:32

for T, S being RealNormSpace
for X being set
for f1, f2 being PartFunc of S,T st f1 is_continuous_on X & f2 is_continuous_on X holds
( f1 + f2 is_continuous_on X & f1 - f2 is_continuous_on X )

proof end;

theorem :: NFCONT_1:33

for T, S being RealNormSpace
for X, X1 being set
for f1, f2 being PartFunc of S,T st f1 is_continuous_on X & f2 is_continuous_on X1 holds
( f1 + f2 is_continuous_on X /\ X1 & f1 - f2 is_continuous_on X /\ X1 )

proof end;

theorem Th34: :: NFCONT_1:34

for T, S being RealNormSpace
for r being Real
for X being set
for f being PartFunc of S,T st f is_continuous_on X holds
r (#) f is_continuous_on X

proof end;

theorem Th35: :: NFCONT_1:35

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T st f is_continuous_on X holds
( ||.f.|| is_continuous_on X & - f is_continuous_on X )

proof end;

theorem :: NFCONT_1:36

for T, S being RealNormSpace
for f being PartFunc of S,T st f is total & ( for x1, x2 being Point of S holds f /. (x1 + x2) = (f /. x1) + (f /. x2) ) & ex x0 being Point of S st f is_continuous_in x0 holds
f is_continuous_on the carrier of S

proof end;

theorem Th37: :: NFCONT_1:37

for T, S being RealNormSpace
for f being PartFunc of S,T st dom f is compact & f is_continuous_on dom f holds
rng f is compact

proof end;

theorem Th38: :: NFCONT_1:38

for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL st dom f is compact & f is_continuous_on dom f holds
rng f is compact

proof end;

theorem :: NFCONT_1:39

for T, S being RealNormSpace
for f being PartFunc of S,T
for Y being Subset of S st Y c= dom f & Y is compact & f is_continuous_on Y holds
f .: Y is compact

proof end;

theorem Th40: :: NFCONT_1:40

for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL st dom f <> {} & dom f is compact & f is_continuous_on dom f holds
ex x1, x2 being Point of S st
( x1 in dom f & x2 in dom f & f /. x1 = upper_bound (rng f) & f /. x2 = lower_bound (rng f) )

proof end;

theorem Th41: :: NFCONT_1:41

for T, S being RealNormSpace
for f being PartFunc of S,T st dom f <> {} & dom f is compact & f is_continuous_on dom f holds
ex x1, x2 being Point of S st
( x1 in dom f & x2 in dom f & ||.f.|| /. x1 = upper_bound (rng ||.f.||) & ||.f.|| /. x2 = lower_bound (rng ||.f.||) )

proof end;

theorem Th42: :: NFCONT_1:42

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T holds ||.f.|| | X = ||.(f | X).||

proof end;

theorem :: NFCONT_1:43

for T, S being RealNormSpace
for f being PartFunc of S,T
for Y being Subset of S st Y <> {} & Y c= dom f & Y is compact & f is_continuous_on Y holds
ex x1, x2 being Point of S st
( x1 in Y & x2 in Y & ||.f.|| /. x1 = upper_bound (||.f.|| .: Y) & ||.f.|| /. x2 = lower_bound (||.f.|| .: Y) )

proof end;

theorem :: NFCONT_1:44

for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL
for Y being Subset of S st Y <> {} & Y c= dom f & Y is compact & f is_continuous_on Y holds
ex x1, x2 being Point of S st
( x1 in Y & x2 in Y & f /. x1 = upper_bound (f .: Y) & f /. x2 = lower_bound (f .: Y) )

proof end;

definition

let S, T be RealNormSpace;
let X be set ;
let f be PartFunc of S,T;
pred f is_Lipschitzian_on X means :Def13: :: NFCONT_1:def 13
( X c= dom f & ex r being Real st
( 0 < r & ( for x1, x2 being Point of S st x1 in X & x2 in X holds
||.((f /. x1) - (f /. x2)).|| <= r * ||.(x1 - x2).|| ) ) );

end;

:: deftheorem Def13 defines is_Lipschitzian_on NFCONT_1:def 13 :
for S, T being RealNormSpace
for X being set
for f being PartFunc of S,T holds
( f is_Lipschitzian_on X iff ( X c= dom f & ex r being Real st
( 0 < r & ( for x1, x2 being Point of S st x1 in X & x2 in X holds
||.((f /. x1) - (f /. x2)).|| <= r * ||.(x1 - x2).|| ) ) ) );

definition

let S be RealNormSpace;
let X be set ;
let f be PartFunc of the carrier of S,REAL;
pred f is_Lipschitzian_on X means :Def14: :: NFCONT_1:def 14
( X c= dom f & ex r being Real st
( 0 < r & ( for x1, x2 being Point of S st x1 in X & x2 in X holds
abs ((f /. x1) - (f /. x2)) <= r * ||.(x1 - x2).|| ) ) );

end;

:: deftheorem Def14 defines is_Lipschitzian_on NFCONT_1:def 14 :
for S being RealNormSpace
for X being set
for f being PartFunc of the carrier of S,REAL holds
( f is_Lipschitzian_on X iff ( X c= dom f & ex r being Real st
( 0 < r & ( for x1, x2 being Point of S st x1 in X & x2 in X holds
abs ((f /. x1) - (f /. x2)) <= r * ||.(x1 - x2).|| ) ) ) );

theorem Th45: :: NFCONT_1:45

for X, X1 being set
for S, T being RealNormSpace
for f being PartFunc of S,T st f is_Lipschitzian_on X & X1 c= X holds
f is_Lipschitzian_on X1

proof end;

theorem :: NFCONT_1:46

for X, X1 being set
for S, T being RealNormSpace
for f1, f2 being PartFunc of S,T st f1 is_Lipschitzian_on X & f2 is_Lipschitzian_on X1 holds
f1 + f2 is_Lipschitzian_on X /\ X1

proof end;

theorem :: NFCONT_1:47

for X, X1 being set
for S, T being RealNormSpace
for f1, f2 being PartFunc of S,T st f1 is_Lipschitzian_on X & f2 is_Lipschitzian_on X1 holds
f1 - f2 is_Lipschitzian_on X /\ X1

proof end;

theorem Th48: :: NFCONT_1:48

for X being set
for p being Real
for S, T being RealNormSpace
for f being PartFunc of S,T st f is_Lipschitzian_on X holds
p (#) f is_Lipschitzian_on X

proof end;

theorem :: NFCONT_1:49

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T st f is_Lipschitzian_on X holds
( - f is_Lipschitzian_on X & ||.f.|| is_Lipschitzian_on X )

proof end;

theorem Th50: :: NFCONT_1:50

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T st X c= dom f & f | X is constant holds
f is_Lipschitzian_on X

proof end;

theorem :: NFCONT_1:51

for S being RealNormSpace
for Y being Subset of S holds id Y is_Lipschitzian_on Y

proof end;

theorem Th52: :: NFCONT_1:52

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T st f is_Lipschitzian_on X holds
f is_continuous_on X

proof end;

theorem Th53: :: NFCONT_1:53

for X being set
for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL st f is_Lipschitzian_on X holds
f is_continuous_on X

proof end;

theorem :: NFCONT_1:54

for T, S being RealNormSpace
for f being PartFunc of S,T st ex r being Point of T st rng f = {r} holds
f is_continuous_on dom f

proof end;

theorem :: NFCONT_1:55

for X being set
for S, T being RealNormSpace
for f being PartFunc of S,T st X c= dom f & f | X is constant holds
f is_continuous_on X by Th50, Th52;

theorem Th56: :: NFCONT_1:56

for S being RealNormSpace
for f being PartFunc of S,S st ( for x0 being Point of S st x0 in dom f holds
f /. x0 = x0 ) holds
f is_continuous_on dom f

proof end;

theorem :: NFCONT_1:57

for S being RealNormSpace
for f being PartFunc of S,S st f = id (dom f) holds
f is_continuous_on dom f

proof end;

theorem :: NFCONT_1:58

for S being RealNormSpace
for Y being Subset of S
for f being PartFunc of S,S st Y c= dom f & f | Y = id Y holds
f is_continuous_on Y

proof end;

theorem :: NFCONT_1:59

for X being set
for S being RealNormSpace
for f being PartFunc of S,S
for r being Real
for p being Point of S st X c= dom f & ( for x0 being Point of S st x0 in X holds
f /. x0 = (r * x0) + p ) holds
f is_continuous_on X

proof end;

theorem Th60: :: NFCONT_1:60

for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL st ( for x0 being Point of S st x0 in dom f holds
f /. x0 = ||.x0.|| ) holds
f is_continuous_on dom f

proof end;

theorem :: NFCONT_1:61

for X being set
for S being RealNormSpace
for f being PartFunc of the carrier of S,REAL st X c= dom f & ( for x0 being Point of S st x0 in X holds
f /. x0 = ||.x0.|| ) holds
f is_continuous_on X

proof end;