:: Scott-Continuous Functions, Part II
:: by Adam Grabowski
::
:: Received June 22, 1999
:: Copyright (c) 1999-2011 Association of Mizar Users

begin

theorem :: WAYBEL24:1

for S, T being up-complete Scott TopLattice
for M being Subset of (SCMaps (S,T)) holds "\/" (M,(SCMaps (S,T))) is continuous Function of S,T

proof end;

registration

let S be non empty RelStr ;
let T be non empty reflexive RelStr ;
cluster Function-like constant quasi_total -> monotone Element of bool [: the carrier of S, the carrier of T:];
coherence
for b₁ being Function of S,T st b₁ is constant holds
b₁ is monotone

proof end;

end;

registration

let S be non empty RelStr ;
let T be non empty reflexive RelStr ;
let a be Element of T;
cluster S --> a -> monotone ;
coherence
S --> a is monotone

proof end;

end;

theorem :: WAYBEL24:2

for S being non empty RelStr
for T being non empty reflexive antisymmetric lower-bounded RelStr holds Bottom (MonMaps (S,T)) = S --> (Bottom T)

proof end;

theorem :: WAYBEL24:3

for S being non empty RelStr
for T being non empty reflexive antisymmetric upper-bounded RelStr holds Top (MonMaps (S,T)) = S --> (Top T)

proof end;

scheme :: WAYBEL24:sch 1
FuncFraenkelSL{ F₁() -> non empty RelStr , F₂() -> non empty RelStr , F₃( set ) -> Element of F₂(), F₄() -> Function, P₁[ set ] } :

F₄() .: { F₃(x) where x is Element of F₁() : P₁[x] } = { (F₄() . F₃(x)) where x is Element of F₁() : P₁[x] }

provided

A1: the carrier of F₂() c= dom F₄()

proof end;

scheme :: WAYBEL24:sch 2
Fraenkel6A{ F₁() -> LATTICE, F₂( set ) -> set , P₁[ set ], P₂[ set ] } :

{ F₂(v1) where v1 is Element of F₁() : P₁[v1] } = { F₂(v2) where v2 is Element of F₁() : P₂[v2] }

provided

A1: for v being Element of F₁() holds
( P₁[v] iff P₂[v] )

proof end;

theorem Th4: :: WAYBEL24:4

for S, T being complete LATTICE
for f being monotone Function of S,T
for x being Element of S holds f . x = sup (f .: (downarrow x))

proof end;

theorem :: WAYBEL24:5

for S, T being lower-bounded complete LATTICE
for f being monotone Function of S,T
for x being Element of S holds f . x = "\/" ( { (f . w) where w is Element of S : w <= x } ,T)

proof end;

theorem Th6: :: WAYBEL24:6

for S being RelStr
for T being non empty RelStr
for F being Subset of (T |^ the carrier of S) holds sup F is Function of S,T

proof end;

begin

definition

let X1, X2, Y be non empty RelStr ;
let f be Function of [:X1,X2:],Y;
let x be Element of X1;
func Proj (f,x) -> Function of X2,Y equals :: WAYBEL24:def 1
(curry f) . x;
correctness
coherence
(curry f) . x is Function of X2,Y;

proof end;

end;

:: deftheorem defines Proj WAYBEL24:def 1 :
for X1, X2, Y being non empty RelStr
for f being Function of [:X1,X2:],Y
for x being Element of X1 holds Proj (f,x) = (curry f) . x;

theorem Th7: :: WAYBEL24:7

for Y, X1, X2 being non empty RelStr
for f being Function of [:X1,X2:],Y
for x being Element of X1
for y being Element of X2 holds (Proj (f,x)) . y = f . (x,y)

proof end;

definition

let X1, X2, Y be non empty RelStr ;
let f be Function of [:X1,X2:],Y;
let y be Element of X2;
func Proj (f,y) -> Function of X1,Y equals :: WAYBEL24:def 2
(curry' f) . y;
correctness
coherence
(curry' f) . y is Function of X1,Y;

proof end;

end;

:: deftheorem defines Proj WAYBEL24:def 2 :
for X1, X2, Y being non empty RelStr
for f being Function of [:X1,X2:],Y
for y being Element of X2 holds Proj (f,y) = (curry' f) . y;

theorem Th8: :: WAYBEL24:8

for Y, X2, X1 being non empty RelStr
for f being Function of [:X1,X2:],Y
for y being Element of X2
for x being Element of X1 holds (Proj (f,y)) . x = f . (x,y)

proof end;

theorem Th9: :: WAYBEL24:9

for R, S, T being non empty RelStr
for f being Function of [:R,S:],T
for a being Element of R
for b being Element of S holds (Proj (f,a)) . b = (Proj (f,b)) . a

proof end;

registration

let S be non empty RelStr ;
let T be non empty reflexive RelStr ;
cluster non empty Relation-like the carrier of S -defined the carrier of T -valued Function-like V14( the carrier of S) quasi_total antitone Element of bool [: the carrier of S, the carrier of T:];
existence
ex b₁ being Function of S,T st b₁ is antitone

proof end;

end;

theorem Th10: :: WAYBEL24:10

for R, S, T being non empty reflexive RelStr
for f being Function of [:R,S:],T
for a being Element of R
for b being Element of S st f is monotone holds
( Proj (f,a) is monotone & Proj (f,b) is monotone )

proof end;

theorem Th11: :: WAYBEL24:11

for R, S, T being non empty reflexive RelStr
for f being Function of [:R,S:],T
for a being Element of R
for b being Element of S st f is antitone holds
( Proj (f,a) is antitone & Proj (f,b) is antitone )

proof end;

registration

let R, S, T be non empty reflexive RelStr ;
let f be monotone Function of [:R,S:],T;
let a be Element of R;
cluster Proj (f,a) -> monotone ;
coherence
Proj (f,a) is monotone by Th10;

end;

registration

let R, S, T be non empty reflexive RelStr ;
let f be monotone Function of [:R,S:],T;
let b be Element of S;
cluster Proj (f,b) -> monotone ;
coherence
Proj (f,b) is monotone by Th10;

end;

registration

let R, S, T be non empty reflexive RelStr ;
let f be antitone Function of [:R,S:],T;
let a be Element of R;
cluster Proj (f,a) -> antitone ;
coherence
Proj (f,a) is antitone by Th11;

end;

registration

let R, S, T be non empty reflexive RelStr ;
let f be antitone Function of [:R,S:],T;
let b be Element of S;
cluster Proj (f,b) -> antitone ;
coherence
Proj (f,b) is antitone by Th11;

end;

theorem Th12: :: WAYBEL24:12

for R, S, T being LATTICE
for f being Function of [:R,S:],T st ( for a being Element of R
for b being Element of S holds
( Proj (f,a) is monotone & Proj (f,b) is monotone ) ) holds
f is monotone

proof end;

theorem :: WAYBEL24:13

for R, S, T being LATTICE
for f being Function of [:R,S:],T st ( for a being Element of R
for b being Element of S holds
( Proj (f,a) is antitone & Proj (f,b) is antitone ) ) holds
f is antitone

proof end;

theorem Th14: :: WAYBEL24:14

for R, S, T being LATTICE
for f being Function of [:R,S:],T
for b being Element of S
for X being Subset of R holds (Proj (f,b)) .: X = f .: [:X,{b}:]

proof end;

theorem Th15: :: WAYBEL24:15

for R, S, T being LATTICE
for f being Function of [:R,S:],T
for b being Element of R
for X being Subset of S holds (Proj (f,b)) .: X = f .: [:{b},X:]

proof end;

theorem :: WAYBEL24:16

for R, S, T being LATTICE
for f being Function of [:R,S:],T
for a being Element of R
for b being Element of S st f is directed-sups-preserving holds
( Proj (f,a) is directed-sups-preserving & Proj (f,b) is directed-sups-preserving )

proof end;

theorem Th17: :: WAYBEL24:17

for R, S, T being LATTICE
for f being monotone Function of [:R,S:],T
for a being Element of R
for b being Element of S
for X being directed Subset of [:R,S:] st ex_sup_of f .: X,T & a in proj1 X & b in proj2 X holds
f . [a,b] <= sup (f .: X)

proof end;

theorem :: WAYBEL24:18

for R, S, T being complete LATTICE
for f being Function of [:R,S:],T st ( for a being Element of R
for b being Element of S holds
( Proj (f,a) is directed-sups-preserving & Proj (f,b) is directed-sups-preserving ) ) holds
f is directed-sups-preserving

proof end;

theorem Th19: :: WAYBEL24:19

for S being set
for T being non empty RelStr
for f being set holds
( f is Element of (T |^ S) iff f is Function of S, the carrier of T )

proof end;

begin

definition

let S be TopStruct ;
let T be non empty TopRelStr ;
func ContMaps (S,T) -> strict RelStr means :Def3: :: WAYBEL24:def 3
( it is full SubRelStr of T |^ the carrier of S & ( for x being set holds
( x in the carrier of it iff ex f being Function of S,T st
( x = f & f is continuous ) ) ) );
existence
ex b₁ being strict RelStr st
( b₁ is full SubRelStr of T |^ the carrier of S & ( for x being set holds
( x in the carrier of b₁ iff ex f being Function of S,T st
( x = f & f is continuous ) ) ) )

proof end;

uniqueness
for b₁, b₂ being strict RelStr st b₁ is full SubRelStr of T |^ the carrier of S & ( for x being set holds
( x in the carrier of b₁ iff ex f being Function of S,T st
( x = f & f is continuous ) ) ) & b₂ is full SubRelStr of T |^ the carrier of S & ( for x being set holds
( x in the carrier of b₂ iff ex f being Function of S,T st
( x = f & f is continuous ) ) ) holds
b₁ = b₂

proof end;

end;

:: deftheorem Def3 defines ContMaps WAYBEL24:def 3 :
for S being TopStruct
for T being non empty TopRelStr
for b₃ being strict RelStr holds
( b₃ = ContMaps (S,T) iff ( b₃ is full SubRelStr of T |^ the carrier of S & ( for x being set holds
( x in the carrier of b₃ iff ex f being Function of S,T st
( x = f & f is continuous ) ) ) ) );

registration

let S be non empty TopSpace;
let T be non empty TopSpace-like TopRelStr ;
cluster ContMaps (S,T) -> non empty strict ;
coherence
not ContMaps (S,T) is empty

proof end;

end;

registration

let S be non empty TopSpace;
let T be non empty TopSpace-like TopRelStr ;
cluster ContMaps (S,T) -> constituted-Functions strict ;
coherence
ContMaps (S,T) is constituted-Functions

proof end;

end;

theorem Th20: :: WAYBEL24:20

for S being non empty TopSpace
for T being non empty TopSpace-like reflexive TopRelStr
for x, y being Element of (ContMaps (S,T)) holds
( x <= y iff for i being Element of S holds [(x . i),(y . i)] in the InternalRel of T )

proof end;

theorem Th21: :: WAYBEL24:21

for S being non empty TopSpace
for T being non empty TopSpace-like reflexive TopRelStr
for x being set holds
( x is continuous Function of S,T iff x is Element of (ContMaps (S,T)) )

proof end;

registration

let S be non empty TopSpace;
let T be non empty TopSpace-like reflexive TopRelStr ;
cluster ContMaps (S,T) -> strict reflexive ;
coherence
ContMaps (S,T) is reflexive

proof end;

end;

registration

let S be non empty TopSpace;
let T be non empty TopSpace-like transitive TopRelStr ;
cluster ContMaps (S,T) -> strict transitive ;
coherence
ContMaps (S,T) is transitive

proof end;

end;

registration

let S be non empty TopSpace;
let T be non empty TopSpace-like antisymmetric TopRelStr ;
cluster ContMaps (S,T) -> strict antisymmetric ;
coherence
ContMaps (S,T) is antisymmetric

proof end;

end;

registration

let S be set ;
let T be non empty RelStr ;
cluster T |^ S -> constituted-Functions ;
coherence
T |^ S is constituted-Functions

proof end;

end;

theorem :: WAYBEL24:22

for S being non empty 1-sorted
for T being complete LATTICE
for f, g, h being Function of S,T
for i being Element of S st h = "\/" ({f,g},(T |^ the carrier of S)) holds
h . i = sup {(f . i),(g . i)}

proof end;

theorem Th23: :: WAYBEL24:23

for I being non empty set
for J being RelStr-yielding non-Empty reflexive-yielding ManySortedSet of I st ( for i being Element of I holds J . i is complete LATTICE ) holds
for X being Subset of (product J)
for i being Element of I holds (inf X) . i = inf (pi (X,i))

proof end;

theorem :: WAYBEL24:24

for S being non empty 1-sorted
for T being complete LATTICE
for f, g, h being Function of S,T
for i being Element of S st h = "/\" ({f,g},(T |^ the carrier of S)) holds
h . i = inf {(f . i),(g . i)}

proof end;

theorem Th25: :: WAYBEL24:25

for S being non empty RelStr
for T being complete LATTICE
for F being non empty Subset of (T |^ the carrier of S)
for i being Element of S holds (sup F) . i = "\/" ( { (f . i) where f is Element of (T |^ the carrier of S) : f in F } ,T)

proof end;

theorem Th26: :: WAYBEL24:26

for S, T being complete TopLattice
for F being non empty Subset of (ContMaps (S,T))
for i being Element of S holds ("\/" (F,(T |^ the carrier of S))) . i = "\/" ( { (f . i) where f is Element of (T |^ the carrier of S) : f in F } ,T)

proof end;

theorem Th27: :: WAYBEL24:27

for S being non empty RelStr
for T being complete LATTICE
for F being non empty Subset of (T |^ the carrier of S)
for D being non empty Subset of S holds (sup F) .: D = { ("\/" ( { (f . i) where f is Element of (T |^ the carrier of S) : f in F } ,T)) where i is Element of S : i in D }

proof end;

theorem Th28: :: WAYBEL24:28

for S, T being complete Scott TopLattice
for F being non empty Subset of (ContMaps (S,T))
for D being non empty Subset of S holds ("\/" (F,(T |^ the carrier of S))) .: D = { ("\/" ( { (f . i) where f is Element of (T |^ the carrier of S) : f in F } ,T)) where i is Element of S : i in D }

proof end;

scheme :: WAYBEL24:sch 3
FraenkelF9RS{ F₁() -> non empty TopRelStr , F₂( set ) -> set , F₃( set ) -> set , P₁[ set ] } :

{ F₂(v1) where v1 is Element of F₁() : P₁[v1] } = { F₃(v2) where v2 is Element of F₁() : P₁[v2] }

provided

A1: for v being Element of F₁() st P₁[v] holds
F₂(v) = F₃(v)

proof end;

scheme :: WAYBEL24:sch 4
FraenkelF9RSS{ F₁() -> non empty RelStr , F₂( set ) -> set , F₃( set ) -> set , P₁[ set ] } :

{ F₂(v1) where v1 is Element of F₁() : P₁[v1] } = { F₃(v2) where v2 is Element of F₁() : P₁[v2] }

provided

A1: for v being Element of F₁() st P₁[v] holds
F₂(v) = F₃(v)

proof end;

scheme :: WAYBEL24:sch 5
FuncFraenkelS{ F₁() -> non empty TopRelStr , F₂() -> non empty TopRelStr , F₃( set ) -> Element of F₂(), F₄() -> Function, P₁[ set ] } :

F₄() .: { F₃(x) where x is Element of F₁() : P₁[x] } = { (F₄() . F₃(x)) where x is Element of F₁() : P₁[x] }

provided

A1: the carrier of F₂() c= dom F₄()

proof end;

Lm1: for S being non empty RelStr
for D being non empty Subset of S holds D = { i where i is Element of S : i in D }

proof end;

theorem Th29: :: WAYBEL24:29

for S, T being complete Scott TopLattice
for F being non empty Subset of (ContMaps (S,T)) holds "\/" (F,(T |^ the carrier of S)) is monotone Function of S,T

proof end;

theorem Th30: :: WAYBEL24:30

for S, T being complete Scott TopLattice
for F being non empty Subset of (ContMaps (S,T))
for D being non empty directed Subset of S holds "\/" ( { ("\/" ( { (g . i) where i is Element of S : i in D } ,T)) where g is Element of (T |^ the carrier of S) : g in F } ,T) = "\/" ( { ("\/" ( { (g9 . i9) where g9 is Element of (T |^ the carrier of S) : g9 in F } ,T)) where i9 is Element of S : i9 in D } ,T)

proof end;

theorem Th31: :: WAYBEL24:31

for S, T being complete Scott TopLattice
for F being non empty Subset of (ContMaps (S,T))
for D being non empty directed Subset of S holds "\/" ((("\/" (F,(T |^ the carrier of S))) .: D),T) = ("\/" (F,(T |^ the carrier of S))) . (sup D)

proof end;

theorem Th32: :: WAYBEL24:32

for S, T being complete Scott TopLattice
for F being non empty Subset of (ContMaps (S,T)) holds "\/" (F,(T |^ the carrier of S)) in the carrier of (ContMaps (S,T))

proof end;

theorem Th33: :: WAYBEL24:33

for S being non empty RelStr
for T being non empty antisymmetric lower-bounded RelStr holds Bottom (T |^ the carrier of S) = S --> (Bottom T)

proof end;

theorem :: WAYBEL24:34

for S being non empty RelStr
for T being non empty antisymmetric upper-bounded RelStr holds Top (T |^ the carrier of S) = S --> (Top T)

proof end;

registration

let S be non empty reflexive RelStr ;
let T be complete LATTICE;
let a be Element of T;
cluster S --> a -> directed-sups-preserving ;
coherence
S --> a is directed-sups-preserving

proof end;

end;

theorem Th35: :: WAYBEL24:35

for S, T being complete Scott TopLattice holds ContMaps (S,T) is sups-inheriting SubRelStr of T |^ the carrier of S

proof end;

registration

let S, T be complete Scott TopLattice;
cluster ContMaps (S,T) -> strict complete ;
coherence
ContMaps (S,T) is complete

proof end;

end;

theorem :: WAYBEL24:36

for S, T being non empty complete Scott TopLattice holds Bottom (ContMaps (S,T)) = S --> (Bottom T)

proof end;

theorem :: WAYBEL24:37

for S, T being non empty complete Scott TopLattice holds Top (ContMaps (S,T)) = S --> (Top T)

proof end;

theorem :: WAYBEL24:38

for S, T being complete Scott TopLattice holds SCMaps (S,T) = ContMaps (S,T)

proof end;