let Omega, I be non empty set ; :: thesis: for Sigma being SigmaField of Omega
for F being ManySortedSigmaField of I,Sigma
for J being non empty Subset of holds MeetSections J,F is non empty Subset of
let Sigma be SigmaField of Omega; :: thesis: for F being ManySortedSigmaField of I,Sigma
for J being non empty Subset of holds MeetSections J,F is non empty Subset of
let F be ManySortedSigmaField of I,Sigma; :: thesis: for J being non empty Subset of holds MeetSections J,F is non empty Subset of
let J be non empty Subset of ; :: thesis: MeetSections J,F is non empty Subset of
A1: MeetSections J,F c= Sigma

proof

let X be set ; :: according to TARSKI:def 3 :: thesis: ( not X in MeetSections J,F or X in Sigma )
assume X in MeetSections J,F ; :: thesis: X in Sigma
then consider E being non empty finite Subset of , f being SigmaSection of E,F such that
E c= J and
A2: X = meet (rng f) by Def9;
reconsider Ee = E as Element of Fin E by FINSUB_1:def 5;
for B being Element of Fin E holds meet (rng (f | B)) in Sigma

proof

defpred S₁[ set ] means meet (rng (f | $1)) in Sigma;
let B be Element of Fin E; :: thesis: meet (rng (f | B)) in Sigma
A3: for B' being Element of Fin E
for b being Element of E st S₁[B'] & not b in B' holds
S₁[B' \/ {b}]

proof

reconsider domf = dom f as non empty set ;
let B' be Element of Fin E; :: thesis: for b being Element of E st S₁[B'] & not b in B' holds
S₁[B' \/ {b}]
let b be Element of E; :: thesis: ( S₁[B'] & not b in B' implies S₁[B' \/ {b}] )
assume that
A4: meet (rng (f | B')) in Sigma and
not b in B' ; :: thesis: S₁[B' \/ {b}]
A5: rng (f | (B' \/ {b})) = rng ((f | B') \/ (f | {b})) by RELAT_1:107
.= (rng (f | B')) \/ (rng (f | {b})) by RELAT_1:26 ;
( dom f = E & b in {b} ) by FUNCT_2:def 1, TARSKI:def 1;
then A6: f . b in rng (f | {b}) by FUNCT_1:73;
A7: b is Element of dom f by FUNCT_2:def 1;
then (dom f) /\ {b} = {b} by ZFMISC_1:52;
then dom (f | {b}) = {b} by RELAT_1:90;
then A8: rng (f | {b}) = {((f | {b}) . b)} by FUNCT_1:14;
b in {b} by TARSKI:def 1;
then b in dom (f | {b}) by A7, RELAT_1:86;
then rng (f | {b}) = {(f . b)} by A8, FUNCT_1:70;
then A9: meet (rng (f | {b})) is Event of Sigma by SETFAM_1:11;

per cases ( rng (f | B') = {} or not rng (f | B') = {} ) ;

suppose rng (f | B') = {} ; :: thesis: S₁[B' \/ {b}]

hence S₁[B' \/ {b}] by A9, A5; :: thesis: verum

end;

suppose not rng (f | B') = {} ; :: thesis: S₁[B' \/ {b}]

then meet (rng (f | (B' \/ {b}))) = (meet (rng (f | B'))) /\ (meet (rng (f | {b}))) by A5, A6, SETFAM_1:10;
then meet (rng (f | (B' \/ {b}))) is Event of Sigma by A4, A9, PROB_1:49;
hence S₁[B' \/ {b}] ; :: thesis: verum

end;

end;

end;

meet (rng (f | {} )) = {} by SETFAM_1:def 1;
then A10: S₁[ {}. E] by PROB_1:10;
for B1 being Element of Fin E holds S₁[B1] from SETWISEO:sch 2(A10, A3);
hence meet (rng (f | B)) in Sigma ; :: thesis: verum

end;

then meet (rng (f | Ee)) in Sigma ;
hence X in Sigma by A2, RELSET_1:34; :: thesis: verum

end;

MeetSections J,F is non empty set

proof

consider E being non empty finite Subset of ;
consider f being Function such that
A11: dom f = E and
A12: rng f = {{} } by FUNCT_1:15;
reconsider E = E as non empty finite Subset of by XBOOLE_1:1;
A13: meet (rng f) = {} by A12, SETFAM_1:11;
rng f c= Sigma

proof

let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in rng f or y in Sigma )
assume y in rng f ; :: thesis: y in Sigma
then y = {} by A12, TARSKI:def 1;
hence y in Sigma by PROB_1:10; :: thesis: verum

end;

then reconsider f = f as Function of E,Sigma by A11, FUNCT_2:4;
for i being set st i in E holds
f . i in F . i

proof

let i be set ; :: thesis: ( i in E implies f . i in F . i )
assume A14: i in E ; :: thesis: f . i in F . i
then reconsider Fi = F . i as SigmaField of Omega by Def2;
f . i in rng f by A11, A14, FUNCT_1:def 5;
then f . i = {} by A12, TARSKI:def 1;
then f . i in Fi by PROB_1:10;
hence f . i in F . i ; :: thesis: verum

end;

then reconsider f = f as SigmaSection of E,F by Def4;
reconsider mrf = meet (rng f) as Subset of by A13, XBOOLE_1:2;
mrf in MeetSections J,F by Def9;
hence MeetSections J,F is non empty set ; :: thesis: verum

end;

hence MeetSections J,F is non empty Subset of by A1; :: thesis: verum