Metamath Proof Explorer


Theorem cnpfcfi

Description: Lemma for cnpfcf . If a function is continuous at a point, it respects clustering there. (Contributed by Jeff Hankins, 20-Nov-2009) (Revised by Stefan O'Rear, 9-Aug-2015)

Ref Expression
Assertion cnpfcfi
|- ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> ( F ` A ) e. ( ( K fClusf L ) ` F ) )

Proof

Step Hyp Ref Expression
1 simp2
 |-  ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> A e. ( J fClus L ) )
2 eqid
 |-  U. J = U. J
3 2 fclsfil
 |-  ( A e. ( J fClus L ) -> L e. ( Fil ` U. J ) )
4 3 3ad2ant2
 |-  ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> L e. ( Fil ` U. J ) )
5 fclsfnflim
 |-  ( L e. ( Fil ` U. J ) -> ( A e. ( J fClus L ) <-> E. f e. ( Fil ` U. J ) ( L C_ f /\ A e. ( J fLim f ) ) ) )
6 4 5 syl
 |-  ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> ( A e. ( J fClus L ) <-> E. f e. ( Fil ` U. J ) ( L C_ f /\ A e. ( J fLim f ) ) ) )
7 1 6 mpbid
 |-  ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> E. f e. ( Fil ` U. J ) ( L C_ f /\ A e. ( J fLim f ) ) )
8 simpl1
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> K e. Top )
9 toptopon2
 |-  ( K e. Top <-> K e. ( TopOn ` U. K ) )
10 8 9 sylib
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> K e. ( TopOn ` U. K ) )
11 simprl
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> f e. ( Fil ` U. J ) )
12 eqid
 |-  U. K = U. K
13 2 12 cnpf
 |-  ( F e. ( ( J CnP K ) ` A ) -> F : U. J --> U. K )
14 13 3ad2ant3
 |-  ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> F : U. J --> U. K )
15 14 adantr
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> F : U. J --> U. K )
16 flfssfcf
 |-  ( ( K e. ( TopOn ` U. K ) /\ f e. ( Fil ` U. J ) /\ F : U. J --> U. K ) -> ( ( K fLimf f ) ` F ) C_ ( ( K fClusf f ) ` F ) )
17 10 11 15 16 syl3anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( K fLimf f ) ` F ) C_ ( ( K fClusf f ) ` F ) )
18 12 topopn
 |-  ( K e. Top -> U. K e. K )
19 8 18 syl
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> U. K e. K )
20 4 adantr
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> L e. ( Fil ` U. J ) )
21 filfbas
 |-  ( L e. ( Fil ` U. J ) -> L e. ( fBas ` U. J ) )
22 20 21 syl
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> L e. ( fBas ` U. J ) )
23 fmfil
 |-  ( ( U. K e. K /\ L e. ( fBas ` U. J ) /\ F : U. J --> U. K ) -> ( ( U. K FilMap F ) ` L ) e. ( Fil ` U. K ) )
24 19 22 15 23 syl3anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( U. K FilMap F ) ` L ) e. ( Fil ` U. K ) )
25 filfbas
 |-  ( f e. ( Fil ` U. J ) -> f e. ( fBas ` U. J ) )
26 25 ad2antrl
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> f e. ( fBas ` U. J ) )
27 simprrl
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> L C_ f )
28 fmss
 |-  ( ( ( U. K e. K /\ L e. ( fBas ` U. J ) /\ f e. ( fBas ` U. J ) ) /\ ( F : U. J --> U. K /\ L C_ f ) ) -> ( ( U. K FilMap F ) ` L ) C_ ( ( U. K FilMap F ) ` f ) )
29 19 22 26 15 27 28 syl32anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( U. K FilMap F ) ` L ) C_ ( ( U. K FilMap F ) ` f ) )
30 fclsss2
 |-  ( ( K e. ( TopOn ` U. K ) /\ ( ( U. K FilMap F ) ` L ) e. ( Fil ` U. K ) /\ ( ( U. K FilMap F ) ` L ) C_ ( ( U. K FilMap F ) ` f ) ) -> ( K fClus ( ( U. K FilMap F ) ` f ) ) C_ ( K fClus ( ( U. K FilMap F ) ` L ) ) )
31 10 24 29 30 syl3anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( K fClus ( ( U. K FilMap F ) ` f ) ) C_ ( K fClus ( ( U. K FilMap F ) ` L ) ) )
32 fcfval
 |-  ( ( K e. ( TopOn ` U. K ) /\ f e. ( Fil ` U. J ) /\ F : U. J --> U. K ) -> ( ( K fClusf f ) ` F ) = ( K fClus ( ( U. K FilMap F ) ` f ) ) )
33 10 11 15 32 syl3anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( K fClusf f ) ` F ) = ( K fClus ( ( U. K FilMap F ) ` f ) ) )
34 fcfval
 |-  ( ( K e. ( TopOn ` U. K ) /\ L e. ( Fil ` U. J ) /\ F : U. J --> U. K ) -> ( ( K fClusf L ) ` F ) = ( K fClus ( ( U. K FilMap F ) ` L ) ) )
35 10 20 15 34 syl3anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( K fClusf L ) ` F ) = ( K fClus ( ( U. K FilMap F ) ` L ) ) )
36 31 33 35 3sstr4d
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( K fClusf f ) ` F ) C_ ( ( K fClusf L ) ` F ) )
37 17 36 sstrd
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( ( K fLimf f ) ` F ) C_ ( ( K fClusf L ) ` F ) )
38 simprrr
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> A e. ( J fLim f ) )
39 simpl3
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> F e. ( ( J CnP K ) ` A ) )
40 cnpflfi
 |-  ( ( A e. ( J fLim f ) /\ F e. ( ( J CnP K ) ` A ) ) -> ( F ` A ) e. ( ( K fLimf f ) ` F ) )
41 38 39 40 syl2anc
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( F ` A ) e. ( ( K fLimf f ) ` F ) )
42 37 41 sseldd
 |-  ( ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) /\ ( f e. ( Fil ` U. J ) /\ ( L C_ f /\ A e. ( J fLim f ) ) ) ) -> ( F ` A ) e. ( ( K fClusf L ) ` F ) )
43 7 42 rexlimddv
 |-  ( ( K e. Top /\ A e. ( J fClus L ) /\ F e. ( ( J CnP K ) ` A ) ) -> ( F ` A ) e. ( ( K fClusf L ) ` F ) )