:: WAYBEL24 semantic presentation

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 constant -> monotone M4(the carrier of S,the carrier of T);
coherence

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

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;

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

proof end;

end;

:: deftheorem defines Proj WAYBEL24:def 1 :

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

proof end;

end;

:: deftheorem defines Proj WAYBEL24:def 2 :

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 antitone M4(the carrier of S,the carrier of T);
existence

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 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 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 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 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;

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

proof end;

uniqueness

proof end;

end;

:: deftheorem Def3 defines ContMaps WAYBEL24:def 3 :

registration

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

proof end;

end;

registration

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

proof end;

end;

theorem Th20: :: WAYBEL24:20

for S being non empty TopSpace
for T being non empty reflexive TopSpace-like 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 reflexive TopSpace-like 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 reflexive TopSpace-like TopRelStr ;
cluster ContMaps S,T -> non empty strict reflexive constituted-Functions ;
coherence

proof end;

end;

registration

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

proof end;

end;

registration

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

proof end;

end;

registration

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

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 Scott complete 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
FraenkelF'RS{ 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
FraenkelF'RSS{ 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 Scott complete 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 Scott complete 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 = "\/" { ("\/" { (g' . i') where g' is Element of (T |^ the carrier of S) : g' in F } ,T) where i' is Element of S : i' in D } ,T

proof end;

theorem Th31: :: WAYBEL24:31

for S, T being Scott complete 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 Scott complete 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 -> monotone directed-sups-preserving ;
coherence

proof end;

end;

theorem Th35: :: WAYBEL24:35

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

proof end;

registration

let S, T be Scott complete TopLattice;
cluster ContMaps S,T -> non empty strict reflexive transitive antisymmetric complete constituted-Functions ;
coherence

proof end;

end;

theorem :: WAYBEL24:36

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

proof end;

theorem :: WAYBEL24:37

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

proof end;

theorem :: WAYBEL24:38

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

proof end;