let T be non empty TopSpace; :: thesis: for F being Subset-Family of T
for S being SetSequence of T st rng S c= F & S is non-empty holds
ex R being non-empty closed SetSequence of T st
( R is non-ascending & ( F is locally_finite & S is one-to-one implies meet R = {} ) & ( for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ) )

let F be Subset-Family of T; :: thesis: for S being SetSequence of T st rng S c= F & S is non-empty holds
ex R being non-empty closed SetSequence of T st
( R is non-ascending & ( F is locally_finite & S is one-to-one implies meet R = {} ) & ( for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ) )

let S be SetSequence of T; :: thesis: ( rng S c= F & S is non-empty implies ex R being non-empty closed SetSequence of T st
( R is non-ascending & ( F is locally_finite & S is one-to-one implies meet R = {} ) & ( for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ) ) )

assume A1: ( rng S c= F & S is non-empty ) ; :: thesis: ex R being non-empty closed SetSequence of T st
( R is non-ascending & ( F is locally_finite & S is one-to-one implies meet R = {} ) & ( for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ) )

defpred S1[ set , set ] means for i being natural number st i = $1 holds
ex SS being Subset-Family of T st
( SS c= F & SS = { (S . j) where j is Element of NAT : j >= i } & $2 = Cl (union SS) );
A2: for x being set st x in NAT holds
ex y being set st
( y in bool the carrier of T & S1[x,y] )
proof
let x be set ; :: thesis: ( x in NAT implies ex y being set st
( y in bool the carrier of T & S1[x,y] ) )

assume A3: x in NAT ; :: thesis: ex y being set st
( y in bool the carrier of T & S1[x,y] )

reconsider x' = x as Element of NAT by A3;
set SS = { (S . j) where j is Element of NAT : j >= x' } ;
{ (S . j) where j is Element of NAT : j >= x' } c= bool the carrier of T
proof
let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in { (S . j) where j is Element of NAT : j >= x' } or y in bool the carrier of T )
assume A4: y in { (S . j) where j is Element of NAT : j >= x' } ; :: thesis: y in bool the carrier of T
ex j being Element of NAT st
( S . j = y & j >= x' ) by A4;
hence y in bool the carrier of T ; :: thesis: verum
end;
then reconsider SS = { (S . j) where j is Element of NAT : j >= x' } as Subset-Family of T ;
take Cl (union SS) ; :: thesis: ( Cl (union SS) in bool the carrier of T & S1[x, Cl (union SS)] )
SS c= F
proof
let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in SS or y in F )
assume A5: y in SS ; :: thesis: y in F
consider j being Element of NAT such that
A6: ( S . j = y & j >= x' ) by A5;
dom S = NAT by FUNCT_2:def 1;
then y in rng S by A6, FUNCT_1:def 5;
hence y in F by A1; :: thesis: verum
end;
hence ( Cl (union SS) in bool the carrier of T & S1[x, Cl (union SS)] ) ; :: thesis: verum
end;
consider R being SetSequence of T such that
A7: for x being set st x in NAT holds
S1[x,R . x] from FUNCT_2:sch 1(A2);
A8: now
let n be set ; :: thesis: ( n in dom R implies not R . n is empty )
assume A9: n in dom R ; :: thesis: not R . n is empty
reconsider n' = n as Element of NAT by A9;
consider SS being Subset-Family of T such that
SS c= F and
A10: ( SS = { (S . j) where j is Element of NAT : j >= n' } & R . n' = Cl (union SS) ) by A7;
B11: dom S = NAT by FUNCT_2:def 1;
S . n' in SS by A10;
then S . n' c= union SS by ZFMISC_1:92;
then ( S . n' c= Cl (S . n') & Cl (S . n') c= Cl (union SS) ) by PRE_TOPC:48, PRE_TOPC:49;
hence not R . n is empty by A10, B11, A1, FUNCT_1:def 15; :: thesis: verum
end;
now
let n be natural number ; :: thesis: R . n is closed
reconsider n' = n as Element of NAT by ORDINAL1:def 13;
ex SS being Subset-Family of T st
( SS c= F & SS = { (S . j) where j is Element of NAT : j >= n' } & R . n' = Cl (union SS) ) by A7;
hence R . n is closed ; :: thesis: verum
end;
then reconsider R = R as non-empty closed SetSequence of T by A8, Def6, FUNCT_1:def 15;
take R ; :: thesis: ( R is non-ascending & ( F is locally_finite & S is one-to-one implies meet R = {} ) & ( for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ) )

now
let n be Element of NAT ; :: thesis: R . (n + 1) c= R . n
consider Sn being Subset-Family of T such that
Sn c= F and
A12: Sn = { (S . j) where j is Element of NAT : j >= n } and
A13: R . n = Cl (union Sn) by A7;
consider Sn1 being Subset-Family of T such that
Sn1 c= F and
A14: Sn1 = { (S . j) where j is Element of NAT : j >= n + 1 } and
A15: R . (n + 1) = Cl (union Sn1) by A7;
Sn1 c= Sn
proof
let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in Sn1 or y in Sn )
assume A16: y in Sn1 ; :: thesis: y in Sn
consider j being Element of NAT such that
A17: ( y = S . j & j >= n + 1 ) by A14, A16;
j >= n by A17, NAT_1:13;
hence y in Sn by A12, A17; :: thesis: verum
end;
then union Sn1 c= union Sn by ZFMISC_1:95;
hence R . (n + 1) c= R . n by A13, A15, PRE_TOPC:49; :: thesis: verum
end;
hence R is non-ascending by KURATO_2:def 5; :: thesis: ( ( F is locally_finite & S is one-to-one implies meet R = {} ) & ( for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ) )

thus ( F is locally_finite & S is one-to-one implies meet R = {} ) :: thesis: for i being natural number ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } )
proof
assume A18: ( F is locally_finite & S is one-to-one ) ; :: thesis: meet R = {}
assume meet R <> {} ; :: thesis: contradiction
then consider x being set such that
A19: x in meet R by XBOOLE_0:def 1;
reconsider x = x as Point of T by A19;
A20: dom S = NAT by FUNCT_2:def 1;
then reconsider rngS = rng S as non empty Subset-Family of T by RELAT_1:65;
rng S is locally_finite by A1, A18, PCOMPS_1:12;
then consider W being Subset of T such that
A21: ( x in W & W is open ) and
A22: { V where V is Subset of T : ( V in rngS & V meets W ) } is finite by PCOMPS_1:def 2;
reconsider Sp = S as Function of NAT ,rngS by A20, FUNCT_2:3;
reconsider S' = Sp " as Function ;
reconsider S' = S' as Function of rngS, NAT by A18, FUNCT_2:31;
deffunc H1( Element of rngS) -> Element of NAT = S' . $1;
set X = { V where V is Subset of T : ( V in rngS & V meets W ) } ;
set Y = { H1(z) where z is Element of rngS : z in { V where V is Subset of T : ( V in rngS & V meets W ) } } ;
A23: { H1(z) where z is Element of rngS : z in { V where V is Subset of T : ( V in rngS & V meets W ) } } is finite from FRAENKEL:sch 21(A22);
{ H1(z) where z is Element of rngS : z in { V where V is Subset of T : ( V in rngS & V meets W ) } } c= NAT
proof
let y be set ; :: according to TARSKI:def 3 :: thesis: ( not y in { H1(z) where z is Element of rngS : z in { V where V is Subset of T : ( V in rngS & V meets W ) } } or y in NAT )
assume A24: y in { H1(z) where z is Element of rngS : z in { V where V is Subset of T : ( V in rngS & V meets W ) } } ; :: thesis: y in NAT
ex z being Element of rngS st
( y = H1(z) & z in { V where V is Subset of T : ( V in rngS & V meets W ) } ) by A24;
hence y in NAT ; :: thesis: verum
end;
then reconsider Y = { H1(z) where z is Element of rngS : z in { V where V is Subset of T : ( V in rngS & V meets W ) } } as Subset of NAT ;
consider n being Element of NAT such that
A25: for k being Element of NAT st k in Y holds
k <= n by A23, STIRL2_1:66;
set n1 = n + 1;
consider Sn being Subset-Family of T such that
A26: Sn c= F and
A27: Sn = { (S . j) where j is Element of NAT : j >= n + 1 } and
A28: R . (n + 1) = Cl (union Sn) by A7;
Sn is locally_finite by A18, A26, PCOMPS_1:12;
then ( Cl (union Sn) = union (clf Sn) & x in R . (n + 1) ) by A19, KURATO_2:6, PCOMPS_1:23;
then consider CLF being set such that
A29: ( x in CLF & CLF in clf Sn ) by A28, TARSKI:def 4;
reconsider CLF = CLF as Subset of T by A29;
consider U being Subset of T such that
A30: ( CLF = Cl U & U in Sn ) by A29, PCOMPS_1:def 3;
consider j being Element of NAT such that
A31: ( U = S . j & j >= n + 1 ) by A27, A30;
( Sp . j in rngS & Sp . j meets W ) by A21, A29, A30, A31, TOPS_1:39;
then X: Sp . j in { V where V is Subset of T : ( V in rngS & V meets W ) } ;
(S " ) . (S . j) = j by A18, FUNCT_2:32;
then j in Y by X;
then j <= n by A25;
hence contradiction by A31, NAT_1:13; :: thesis: verum
end;
let i be natural number ; :: thesis: ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } )

i in NAT by ORDINAL1:def 13;
then ex SS being Subset-Family of T st
( SS c= F & SS = { (S . j) where j is Element of NAT : j >= i } & R . i = Cl (union SS) ) by A7;
hence ex Si being Subset-Family of T st
( R . i = Cl (union Si) & Si = { (S . j) where j is Element of NAT : j >= i } ) ; :: thesis: verum