Metamath Proof Explorer

Theorem cnpnei

Description: A condition for continuity at a point in terms of neighborhoods. (Contributed by Jeff Hankins, 7-Sep-2009)

Ref Expression
Hypotheses cnpnei.1 
|- X = U. J
cnpnei.2 
|- Y = U. K
Assertion cnpnei 
|- ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) <-> A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) )

Proof

Step Hyp Ref Expression
1 cnpnei.1 
 |-  X = U. J
2 cnpnei.2 
 |-  Y = U. K
3 cnvimass 
 |-  ( `' F " y ) C_ dom F
4 fdm 
 |-  ( F : X --> Y -> dom F = X )
5 3 4 sseqtrid 
 |-  ( F : X --> Y -> ( `' F " y ) C_ X )
6 5 3ad2ant3 
 |-  ( ( J e. Top /\ K e. Top /\ F : X --> Y ) -> ( `' F " y ) C_ X )
7 6 ad2antrr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) -> ( `' F " y ) C_ X )
8 neii2 
 |-  ( ( K e. Top /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) -> E. g e. K ( { ( F ` A ) } C_ g /\ g C_ y ) )
9 8 3ad2antl2 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) -> E. g e. K ( { ( F ` A ) } C_ g /\ g C_ y ) )
10 9 ad2ant2rl 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) -> E. g e. K ( { ( F ` A ) } C_ g /\ g C_ y ) )
11 simpll 
 |-  ( ( ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> F e. ( ( J CnP K ) ` A ) )
12 simprl 
 |-  ( ( ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> g e. K )
13 fvex 
 |-  ( F ` A ) e. _V
14 13 snss 
 |-  ( ( F ` A ) e. g <-> { ( F ` A ) } C_ g )
15 14 biranri 
 |-  ( ( { ( F ` A ) } C_ g /\ g C_ y ) -> ( F ` A ) e. g )
16 15 ad2antll 
 |-  ( ( ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> ( F ` A ) e. g )
17 11 12 16 3jca 
 |-  ( ( ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> ( F e. ( ( J CnP K ) ` A ) /\ g e. K /\ ( F ` A ) e. g ) )
18 17 adantll 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> ( F e. ( ( J CnP K ) ` A ) /\ g e. K /\ ( F ` A ) e. g ) )
19 cnpimaex 
 |-  ( ( F e. ( ( J CnP K ) ` A ) /\ g e. K /\ ( F ` A ) e. g ) -> E. o e. J ( A e. o /\ ( F " o ) C_ g ) )
20 18 19 syl 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> E. o e. J ( A e. o /\ ( F " o ) C_ g ) )
21 sstr2 
 |-  ( ( F " o ) C_ g -> ( g C_ y -> ( F " o ) C_ y ) )
22 21 com12 
 |-  ( g C_ y -> ( ( F " o ) C_ g -> ( F " o ) C_ y ) )
23 22 ad2antll 
 |-  ( ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) -> ( ( F " o ) C_ g -> ( F " o ) C_ y ) )
24 23 ad2antlr 
 |-  ( ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) /\ o e. J ) -> ( ( F " o ) C_ g -> ( F " o ) C_ y ) )
25 ffun 
 |-  ( F : X --> Y -> Fun F )
26 25 3ad2ant3 
 |-  ( ( J e. Top /\ K e. Top /\ F : X --> Y ) -> Fun F )
27 26 ad2antrr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) -> Fun F )
28 27 ad2antrr 
 |-  ( ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) /\ o e. J ) -> Fun F )
29 1 eltopss 
 |-  ( ( J e. Top /\ o e. J ) -> o C_ X )
30 29 adantlr 
 |-  ( ( ( J e. Top /\ F : X --> Y ) /\ o e. J ) -> o C_ X )
31 4 sseq2d 
 |-  ( F : X --> Y -> ( o C_ dom F <-> o C_ X ) )
32 31 ad2antlr 
 |-  ( ( ( J e. Top /\ F : X --> Y ) /\ o e. J ) -> ( o C_ dom F <-> o C_ X ) )
33 30 32 mpbird 
 |-  ( ( ( J e. Top /\ F : X --> Y ) /\ o e. J ) -> o C_ dom F )
34 33 3adantl2 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ o e. J ) -> o C_ dom F )
35 34 adantlr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ o e. J ) -> o C_ dom F )
36 35 ad4ant14 
 |-  ( ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) /\ o e. J ) -> o C_ dom F )
37 funimass3 
 |-  ( ( Fun F /\ o C_ dom F ) -> ( ( F " o ) C_ y <-> o C_ ( `' F " y ) ) )
38 28 36 37 syl2anc 
 |-  ( ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) /\ o e. J ) -> ( ( F " o ) C_ y <-> o C_ ( `' F " y ) ) )
39 24 38 sylibd 
 |-  ( ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) /\ o e. J ) -> ( ( F " o ) C_ g -> o C_ ( `' F " y ) ) )
40 39 anim2d 
 |-  ( ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) /\ o e. J ) -> ( ( A e. o /\ ( F " o ) C_ g ) -> ( A e. o /\ o C_ ( `' F " y ) ) ) )
41 40 reximdva 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> ( E. o e. J ( A e. o /\ ( F " o ) C_ g ) -> E. o e. J ( A e. o /\ o C_ ( `' F " y ) ) ) )
42 20 41 mpd 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) /\ ( g e. K /\ ( { ( F ` A ) } C_ g /\ g C_ y ) ) ) -> E. o e. J ( A e. o /\ o C_ ( `' F " y ) ) )
43 10 42 rexlimddv 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) -> E. o e. J ( A e. o /\ o C_ ( `' F " y ) ) )
44 1 isneip 
 |-  ( ( J e. Top /\ A e. X ) -> ( ( `' F " y ) e. ( ( nei ` J ) ` { A } ) <-> ( ( `' F " y ) C_ X /\ E. o e. J ( A e. o /\ o C_ ( `' F " y ) ) ) ) )
45 44 3ad2antl1 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( ( `' F " y ) e. ( ( nei ` J ) ` { A } ) <-> ( ( `' F " y ) C_ X /\ E. o e. J ( A e. o /\ o C_ ( `' F " y ) ) ) ) )
46 45 adantr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) -> ( ( `' F " y ) e. ( ( nei ` J ) ` { A } ) <-> ( ( `' F " y ) C_ X /\ E. o e. J ( A e. o /\ o C_ ( `' F " y ) ) ) ) )
47 7 43 46 mpbir2and 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( F e. ( ( J CnP K ) ` A ) /\ y e. ( ( nei ` K ) ` { ( F ` A ) } ) ) ) -> ( `' F " y ) e. ( ( nei ` J ) ` { A } ) )
48 47 exp32 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) -> ( y e. ( ( nei ` K ) ` { ( F ` A ) } ) -> ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) ) )
49 48 ralrimdv 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) -> A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) )
50 simpll3 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) -> F : X --> Y )
51 opnneip 
 |-  ( ( K e. Top /\ o e. K /\ ( F ` A ) e. o ) -> o e. ( ( nei ` K ) ` { ( F ` A ) } ) )
52 imaeq2 
 |-  ( y = o -> ( `' F " y ) = ( `' F " o ) )
53 52 eleq1d 
 |-  ( y = o -> ( ( `' F " y ) e. ( ( nei ` J ) ` { A } ) <-> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
54 53 rspcv 
 |-  ( o e. ( ( nei ` K ) ` { ( F ` A ) } ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
55 51 54 syl 
 |-  ( ( K e. Top /\ o e. K /\ ( F ` A ) e. o ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
56 55 3com23 
 |-  ( ( K e. Top /\ ( F ` A ) e. o /\ o e. K ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
57 56 3expb 
 |-  ( ( K e. Top /\ ( ( F ` A ) e. o /\ o e. K ) ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
58 57 3ad2antl2 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ ( ( F ` A ) e. o /\ o e. K ) ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
59 58 adantlr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) )
60 neii2 
 |-  ( ( J e. Top /\ ( `' F " o ) e. ( ( nei ` J ) ` { A } ) ) -> E. g e. J ( { A } C_ g /\ g C_ ( `' F " o ) ) )
61 60 ex 
 |-  ( J e. Top -> ( ( `' F " o ) e. ( ( nei ` J ) ` { A } ) -> E. g e. J ( { A } C_ g /\ g C_ ( `' F " o ) ) ) )
62 61 3ad2ant1 
 |-  ( ( J e. Top /\ K e. Top /\ F : X --> Y ) -> ( ( `' F " o ) e. ( ( nei ` J ) ` { A } ) -> E. g e. J ( { A } C_ g /\ g C_ ( `' F " o ) ) ) )
63 62 ad2antrr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) -> ( ( `' F " o ) e. ( ( nei ` J ) ` { A } ) -> E. g e. J ( { A } C_ g /\ g C_ ( `' F " o ) ) ) )
64 snssg 
 |-  ( A e. X -> ( A e. g <-> { A } C_ g ) )
65 64 ad3antlr 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) /\ g e. J ) -> ( A e. g <-> { A } C_ g ) )
66 26 ad3antrrr 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) /\ g e. J ) -> Fun F )
67 1 eltopss 
 |-  ( ( J e. Top /\ g e. J ) -> g C_ X )
68 67 3ad2antl1 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ g e. J ) -> g C_ X )
69 4 sseq2d 
 |-  ( F : X --> Y -> ( g C_ dom F <-> g C_ X ) )
70 69 3ad2ant3 
 |-  ( ( J e. Top /\ K e. Top /\ F : X --> Y ) -> ( g C_ dom F <-> g C_ X ) )
71 70 biimpar 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ g C_ X ) -> g C_ dom F )
72 68 71 syldan 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ g e. J ) -> g C_ dom F )
73 72 ad4ant14 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) /\ g e. J ) -> g C_ dom F )
74 funimass3 
 |-  ( ( Fun F /\ g C_ dom F ) -> ( ( F " g ) C_ o <-> g C_ ( `' F " o ) ) )
75 66 73 74 syl2anc 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) /\ g e. J ) -> ( ( F " g ) C_ o <-> g C_ ( `' F " o ) ) )
76 65 75 anbi12d 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) /\ g e. J ) -> ( ( A e. g /\ ( F " g ) C_ o ) <-> ( { A } C_ g /\ g C_ ( `' F " o ) ) ) )
77 76 biimprd 
 |-  ( ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) /\ g e. J ) -> ( ( { A } C_ g /\ g C_ ( `' F " o ) ) -> ( A e. g /\ ( F " g ) C_ o ) ) )
78 77 reximdva 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) -> ( E. g e. J ( { A } C_ g /\ g C_ ( `' F " o ) ) -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) )
79 59 63 78 3syld 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ ( ( F ` A ) e. o /\ o e. K ) ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) )
80 79 exp32 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( ( F ` A ) e. o -> ( o e. K -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
81 80 com24 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> ( o e. K -> ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
82 81 imp 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) -> ( o e. K -> ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) )
83 82 ralrimiv 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) -> A. o e. K ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) )
84 1 2 iscnp2 
 |-  ( F e. ( ( J CnP K ) ` A ) <-> ( ( J e. Top /\ K e. Top /\ A e. X ) /\ ( F : X --> Y /\ A. o e. K ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
85 84 baib 
 |-  ( ( J e. Top /\ K e. Top /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) <-> ( F : X --> Y /\ A. o e. K ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
86 85 3expa 
 |-  ( ( ( J e. Top /\ K e. Top ) /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) <-> ( F : X --> Y /\ A. o e. K ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
87 86 3adantl3 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) <-> ( F : X --> Y /\ A. o e. K ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
88 87 adantr 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) -> ( F e. ( ( J CnP K ) ` A ) <-> ( F : X --> Y /\ A. o e. K ( ( F ` A ) e. o -> E. g e. J ( A e. g /\ ( F " g ) C_ o ) ) ) ) )
89 50 83 88 mpbir2and 
 |-  ( ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) /\ A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) -> F e. ( ( J CnP K ) ` A ) )
90 89 ex 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) -> F e. ( ( J CnP K ) ` A ) ) )
91 49 90 impbid 
 |-  ( ( ( J e. Top /\ K e. Top /\ F : X --> Y ) /\ A e. X ) -> ( F e. ( ( J CnP K ) ` A ) <-> A. y e. ( ( nei ` K ) ` { ( F ` A ) } ) ( `' F " y ) e. ( ( nei ` J ) ` { A } ) ) )