let S, T be complete Scott TopLattice; :: thesis: 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 }
let F be non empty Subset of (ContMaps S,T); :: thesis: 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 }
let D be non empty Subset of S; :: thesis: ("\/" 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 }
thus ("\/" F,(T |^ the carrier of S)) .: D c= { ("\/" { (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 } :: according to XBOOLE_0:def 10 :: thesis: { ("\/" { (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 } c= ("\/" F,(T |^ the carrier of S)) .: D

proof

let a be set ; :: according to TARSKI:def 3 :: thesis: ( not a in ("\/" F,(T |^ the carrier of S)) .: D or a in { ("\/" { (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 } )
assume a in ("\/" F,(T |^ the carrier of S)) .: D ; :: thesis: a in { ("\/" { (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 }
then consider x being set such that
x in dom ("\/" F,(T |^ the carrier of S)) and
A1: x in D and
A2: a = ("\/" F,(T |^ the carrier of S)) . x by FUNCT_1:def 12;
reconsider x9 = x as Element of S by A1;
a = "\/" { (f . x9) where f is Element of (T |^ the carrier of S) : f in F } ,T by A2, Th26;
hence a in { ("\/" { (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 } by A1; :: thesis: verum

end;

thus { ("\/" { (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 } c= ("\/" F,(T |^ the carrier of S)) .: D :: thesis: verum

proof

"\/" F,(T |^ the carrier of S) is Function of S,T by Th19;
then A3: dom ("\/" F,(T |^ the carrier of S)) = the carrier of S by FUNCT_2:def 1;
let a be set ; :: according to TARSKI:def 3 :: thesis: ( not a in { ("\/" { (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 } or a in ("\/" F,(T |^ the carrier of S)) .: D )
assume a in { ("\/" { (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 } ; :: thesis: a in ("\/" F,(T |^ the carrier of S)) .: D
then consider i1 being Element of S such that
A4: ( a = "\/" { (f . i1) where f is Element of (T |^ the carrier of S) : f in F } ,T & i1 in D ) ;
a = ("\/" F,(T |^ the carrier of S)) . i1 by A4, Th26;
hence a in ("\/" F,(T |^ the carrier of S)) .: D by A4, A3, FUNCT_1:def 12; :: thesis: verum

end;