Metamath Proof Explorer


Theorem cmpfi

Description: If a topology is compact and a collection of closed sets has the finite intersection property, its intersection is nonempty. (Contributed by Jeff Hankins, 25-Aug-2009) (Proof shortened by Mario Carneiro, 1-Sep-2015)

Ref Expression
Assertion cmpfi ( 𝐽 ∈ Top → ( 𝐽 ∈ Comp ↔ ∀ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ( ¬ ∅ ∈ ( fi ‘ 𝑥 ) → 𝑥 ≠ ∅ ) ) )

Proof

Step Hyp Ref Expression
1 elpwi ( 𝑦 ∈ 𝒫 𝐽𝑦𝐽 )
2 0ss ∅ ⊆ 𝑦
3 0fi ∅ ∈ Fin
4 elfpw ( ∅ ∈ ( 𝒫 𝑦 ∩ Fin ) ↔ ( ∅ ⊆ 𝑦 ∧ ∅ ∈ Fin ) )
5 2 3 4 mpbir2an ∅ ∈ ( 𝒫 𝑦 ∩ Fin )
6 simprr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 = ∅ ∧ 𝐽 = 𝑦 ) ) → 𝐽 = 𝑦 )
7 simprl ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 = ∅ ∧ 𝐽 = 𝑦 ) ) → 𝑦 = ∅ )
8 7 unieqd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 = ∅ ∧ 𝐽 = 𝑦 ) ) → 𝑦 = ∅ )
9 6 8 eqtrd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 = ∅ ∧ 𝐽 = 𝑦 ) ) → 𝐽 = ∅ )
10 unieq ( 𝑧 = ∅ → 𝑧 = ∅ )
11 10 rspceeqv ( ( ∅ ∈ ( 𝒫 𝑦 ∩ Fin ) ∧ 𝐽 = ∅ ) → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 )
12 5 9 11 sylancr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 = ∅ ∧ 𝐽 = 𝑦 ) ) → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 )
13 12 expr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) )
14 vn0 V ≠ ∅
15 iineq1 ( 𝑦 = ∅ → 𝑟𝑦 ( 𝐽𝑟 ) = 𝑟 ∈ ∅ ( 𝐽𝑟 ) )
16 15 adantl ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → 𝑟𝑦 ( 𝐽𝑟 ) = 𝑟 ∈ ∅ ( 𝐽𝑟 ) )
17 0iin 𝑟 ∈ ∅ ( 𝐽𝑟 ) = V
18 16 17 eqtrdi ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → 𝑟𝑦 ( 𝐽𝑟 ) = V )
19 18 eqeq1d ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ ↔ V = ∅ ) )
20 19 necon3bbid ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → ( ¬ 𝑟𝑦 ( 𝐽𝑟 ) = ∅ ↔ V ≠ ∅ ) )
21 14 20 mpbiri ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → ¬ 𝑟𝑦 ( 𝐽𝑟 ) = ∅ )
22 21 pm2.21d ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) )
23 13 22 2thd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 = ∅ ) → ( ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ) )
24 uniss ( 𝑦𝐽 𝑦 𝐽 )
25 24 ad2antlr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → 𝑦 𝐽 )
26 eqss ( 𝑦 = 𝐽 ↔ ( 𝑦 𝐽 𝐽 𝑦 ) )
27 26 baib ( 𝑦 𝐽 → ( 𝑦 = 𝐽 𝐽 𝑦 ) )
28 25 27 syl ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( 𝑦 = 𝐽 𝐽 𝑦 ) )
29 eqcom ( 𝑦 = 𝐽 𝐽 = 𝑦 )
30 ssdif0 ( 𝐽 𝑦 ↔ ( 𝐽 𝑦 ) = ∅ )
31 28 29 30 3bitr3g ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( 𝐽 = 𝑦 ↔ ( 𝐽 𝑦 ) = ∅ ) )
32 iindif2 ( 𝑦 ≠ ∅ → 𝑟𝑦 ( 𝐽𝑟 ) = ( 𝐽 𝑟𝑦 𝑟 ) )
33 32 adantl ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → 𝑟𝑦 ( 𝐽𝑟 ) = ( 𝐽 𝑟𝑦 𝑟 ) )
34 uniiun 𝑦 = 𝑟𝑦 𝑟
35 34 difeq2i ( 𝐽 𝑦 ) = ( 𝐽 𝑟𝑦 𝑟 )
36 33 35 eqtr4di ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → 𝑟𝑦 ( 𝐽𝑟 ) = ( 𝐽 𝑦 ) )
37 36 eqeq1d ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ ↔ ( 𝐽 𝑦 ) = ∅ ) )
38 31 37 bitr4d ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( 𝐽 = 𝑦 𝑟𝑦 ( 𝐽𝑟 ) = ∅ ) )
39 imassrn ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ⊆ ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) )
40 df-ima ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ran ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) ↾ 𝑦 )
41 resmpt ( 𝑦𝐽 → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) ↾ 𝑦 ) = ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
42 41 adantl ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) ↾ 𝑦 ) = ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
43 42 rneqd ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ran ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) ↾ 𝑦 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
44 40 43 eqtrid ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
45 44 ad2antrr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
46 39 45 sseqtrrid ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) )
47 funmpt Fun ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) )
48 elinel2 ( 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) → 𝑧 ∈ Fin )
49 48 adantl ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ) → 𝑧 ∈ Fin )
50 imafi ( ( Fun ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) ∧ 𝑧 ∈ Fin ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ∈ Fin )
51 47 49 50 sylancr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ∈ Fin )
52 elfpw ( ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ↔ ( ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∧ ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ∈ Fin ) )
53 46 51 52 sylanbrc ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) )
54 eqid 𝐽 = 𝐽
55 54 topopn ( 𝐽 ∈ Top → 𝐽𝐽 )
56 55 difexd ( 𝐽 ∈ Top → ( 𝐽𝑟 ) ∈ V )
57 56 ralrimivw ( 𝐽 ∈ Top → ∀ 𝑟𝑦 ( 𝐽𝑟 ) ∈ V )
58 eqid ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) = ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) )
59 58 fnmpt ( ∀ 𝑟𝑦 ( 𝐽𝑟 ) ∈ V → ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) Fn 𝑦 )
60 57 59 syl ( 𝐽 ∈ Top → ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) Fn 𝑦 )
61 60 ad3antrrr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) Fn 𝑦 )
62 elfpw ( 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ↔ ( 𝑤 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∧ 𝑤 ∈ Fin ) )
63 62 bilani ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → ( 𝑤 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∧ 𝑤 ∈ Fin ) )
64 63 simpld ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → 𝑤 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) )
65 44 ad2antrr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
66 64 65 sseqtrd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → 𝑤 ⊆ ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
67 63 simprd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → 𝑤 ∈ Fin )
68 fipreima ( ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) Fn 𝑦𝑤 ⊆ ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) ∧ 𝑤 ∈ Fin ) → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = 𝑤 )
69 61 66 67 68 syl3anc ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = 𝑤 )
70 eqcom ( ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = 𝑤𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
71 70 rexbii ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = 𝑤 ↔ ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
72 69 71 sylib ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ) → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
73 simpr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) → 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
74 73 inteqd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) → 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
75 74 eqeq2d ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑤 = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) → ( ∅ = 𝑤 ↔ ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
76 53 72 75 rexxfrd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ∅ = 𝑤 ↔ ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
77 0ex ∅ ∈ V
78 imassrn ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ⊆ ran ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) )
79 eqid ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) = ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) )
80 54 79 opncldf1 ( 𝐽 ∈ Top → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽1-1-onto→ ( Clsd ‘ 𝐽 ) ∧ ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) = ( 𝑣 ∈ ( Clsd ‘ 𝐽 ) ↦ ( 𝐽𝑣 ) ) ) )
81 80 simpld ( 𝐽 ∈ Top → ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽1-1-onto→ ( Clsd ‘ 𝐽 ) )
82 f1ofo ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽1-1-onto→ ( Clsd ‘ 𝐽 ) → ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽onto→ ( Clsd ‘ 𝐽 ) )
83 81 82 syl ( 𝐽 ∈ Top → ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽onto→ ( Clsd ‘ 𝐽 ) )
84 forn ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽onto→ ( Clsd ‘ 𝐽 ) → ran ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) = ( Clsd ‘ 𝐽 ) )
85 83 84 syl ( 𝐽 ∈ Top → ran ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) = ( Clsd ‘ 𝐽 ) )
86 78 85 sseqtrid ( 𝐽 ∈ Top → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ⊆ ( Clsd ‘ 𝐽 ) )
87 fvex ( Clsd ‘ 𝐽 ) ∈ V
88 87 elpw2 ( ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∈ 𝒫 ( Clsd ‘ 𝐽 ) ↔ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ⊆ ( Clsd ‘ 𝐽 ) )
89 86 88 sylibr ( 𝐽 ∈ Top → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∈ 𝒫 ( Clsd ‘ 𝐽 ) )
90 89 ad2antrr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∈ 𝒫 ( Clsd ‘ 𝐽 ) )
91 elfi ( ( ∅ ∈ V ∧ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∈ 𝒫 ( Clsd ‘ 𝐽 ) ) → ( ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ↔ ∃ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ∅ = 𝑤 ) )
92 77 90 91 sylancr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ↔ ∃ 𝑤 ∈ ( 𝒫 ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∩ Fin ) ∅ = 𝑤 ) )
93 inundif ( ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) ∪ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) = ( 𝒫 𝑦 ∩ Fin )
94 93 rexeqi ( ∃ 𝑧 ∈ ( ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) ∪ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) 𝐽 = 𝑧 ↔ ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 )
95 rexun ( ∃ 𝑧 ∈ ( ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) ∪ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) 𝐽 = 𝑧 ↔ ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 ∨ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
96 94 95 bitr3i ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ↔ ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 ∨ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
97 elinel2 ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) → 𝑧 ∈ { ∅ } )
98 elsni ( 𝑧 ∈ { ∅ } → 𝑧 = ∅ )
99 97 98 syl ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) → 𝑧 = ∅ )
100 99 unieqd ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) → 𝑧 = ∅ )
101 uni0 ∅ = ∅
102 100 101 eqtrdi ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) → 𝑧 = ∅ )
103 102 eqeq2d ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) → ( 𝐽 = 𝑧 𝐽 = ∅ ) )
104 103 biimpd ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) → ( 𝐽 = 𝑧 𝐽 = ∅ ) )
105 104 rexlimiv ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 𝐽 = ∅ )
106 ssidd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦𝑦 )
107 simprr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝐽 = ∅ )
108 0ss ∅ ⊆ 𝑦
109 107 108 eqsstrdi ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝐽 𝑦 )
110 24 ad2antlr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 𝐽 )
111 109 110 eqssd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝐽 = 𝑦 )
112 111 107 eqtr3d ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 = ∅ )
113 112 3 eqeltrdi ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 ∈ Fin )
114 pwfi ( 𝑦 ∈ Fin ↔ 𝒫 𝑦 ∈ Fin )
115 113 114 sylib ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝒫 𝑦 ∈ Fin )
116 pwuni 𝑦 ⊆ 𝒫 𝑦
117 ssfi ( ( 𝒫 𝑦 ∈ Fin ∧ 𝑦 ⊆ 𝒫 𝑦 ) → 𝑦 ∈ Fin )
118 115 116 117 sylancl ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 ∈ Fin )
119 elfpw ( 𝑦 ∈ ( 𝒫 𝑦 ∩ Fin ) ↔ ( 𝑦𝑦𝑦 ∈ Fin ) )
120 106 118 119 sylanbrc ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 ∈ ( 𝒫 𝑦 ∩ Fin ) )
121 simprl ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 ≠ ∅ )
122 eldifsn ( 𝑦 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ↔ ( 𝑦 ∈ ( 𝒫 𝑦 ∩ Fin ) ∧ 𝑦 ≠ ∅ ) )
123 120 121 122 sylanbrc ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → 𝑦 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) )
124 unieq ( 𝑧 = 𝑦 𝑧 = 𝑦 )
125 124 rspceeqv ( ( 𝑦 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ∧ 𝐽 = 𝑦 ) → ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 )
126 123 111 125 syl2anc ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ ( 𝑦 ≠ ∅ ∧ 𝐽 = ∅ ) ) → ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 )
127 126 expr ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( 𝐽 = ∅ → ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
128 105 127 syl5 ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 → ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
129 idd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 → ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
130 128 129 jaod ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 ∨ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) → ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
131 olc ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 → ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 ∨ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
132 130 131 impbid1 ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∩ { ∅ } ) 𝐽 = 𝑧 ∨ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) ↔ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
133 96 132 bitrid ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ↔ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ) )
134 eldifi ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) → 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) )
135 134 adantl ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) )
136 elfpw ( 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ↔ ( 𝑧𝑦𝑧 ∈ Fin ) )
137 135 136 sylib ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( 𝑧𝑦𝑧 ∈ Fin ) )
138 137 simpld ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑧𝑦 )
139 simpllr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑦𝐽 )
140 138 139 sstrd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑧𝐽 )
141 140 unissd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑧 𝐽 )
142 eqss ( 𝑧 = 𝐽 ↔ ( 𝑧 𝐽 𝐽 𝑧 ) )
143 142 baib ( 𝑧 𝐽 → ( 𝑧 = 𝐽 𝐽 𝑧 ) )
144 141 143 syl ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( 𝑧 = 𝐽 𝐽 𝑧 ) )
145 eqcom ( 𝑧 = 𝐽 𝐽 = 𝑧 )
146 ssdif0 ( 𝐽 𝑧 ↔ ( 𝐽 𝑧 ) = ∅ )
147 eqcom ( ( 𝐽 𝑧 ) = ∅ ↔ ∅ = ( 𝐽 𝑧 ) )
148 146 147 bitri ( 𝐽 𝑧 ↔ ∅ = ( 𝐽 𝑧 ) )
149 144 145 148 3bitr3g ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( 𝐽 = 𝑧 ↔ ∅ = ( 𝐽 𝑧 ) ) )
150 df-ima ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ran ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) ↾ 𝑧 )
151 138 resmptd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) ↾ 𝑧 ) = ( 𝑟𝑧 ↦ ( 𝐽𝑟 ) ) )
152 151 rneqd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ran ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) ↾ 𝑧 ) = ran ( 𝑟𝑧 ↦ ( 𝐽𝑟 ) ) )
153 150 152 eqtrid ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ran ( 𝑟𝑧 ↦ ( 𝐽𝑟 ) ) )
154 153 inteqd ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ran ( 𝑟𝑧 ↦ ( 𝐽𝑟 ) ) )
155 56 ralrimivw ( 𝐽 ∈ Top → ∀ 𝑟𝑧 ( 𝐽𝑟 ) ∈ V )
156 155 ad3antrrr ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ∀ 𝑟𝑧 ( 𝐽𝑟 ) ∈ V )
157 dfiin3g ( ∀ 𝑟𝑧 ( 𝐽𝑟 ) ∈ V → 𝑟𝑧 ( 𝐽𝑟 ) = ran ( 𝑟𝑧 ↦ ( 𝐽𝑟 ) ) )
158 156 157 syl ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑟𝑧 ( 𝐽𝑟 ) = ran ( 𝑟𝑧 ↦ ( 𝐽𝑟 ) ) )
159 eldifsni ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) → 𝑧 ≠ ∅ )
160 159 adantl ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑧 ≠ ∅ )
161 iindif2 ( 𝑧 ≠ ∅ → 𝑟𝑧 ( 𝐽𝑟 ) = ( 𝐽 𝑟𝑧 𝑟 ) )
162 160 161 syl ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → 𝑟𝑧 ( 𝐽𝑟 ) = ( 𝐽 𝑟𝑧 𝑟 ) )
163 154 158 162 3eqtr2d ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ( 𝐽 𝑟𝑧 𝑟 ) )
164 uniiun 𝑧 = 𝑟𝑧 𝑟
165 164 difeq2i ( 𝐽 𝑧 ) = ( 𝐽 𝑟𝑧 𝑟 )
166 163 165 eqtr4di ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ( 𝐽 𝑧 ) )
167 166 eqeq2d ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ↔ ∅ = ( 𝐽 𝑧 ) ) )
168 149 167 bitr4d ( ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) ∧ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) → ( 𝐽 = 𝑧 ↔ ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
169 168 rexbidva ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) 𝐽 = 𝑧 ↔ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
170 133 169 bitrd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ↔ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
171 imaeq2 ( 𝑧 = ∅ → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ ∅ ) )
172 ima0 ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ ∅ ) = ∅
173 171 172 eqtrdi ( 𝑧 = ∅ → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ∅ )
174 173 inteqd ( 𝑧 = ∅ → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = ∅ )
175 int0 ∅ = V
176 174 175 eqtrdi ( 𝑧 = ∅ → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) = V )
177 176 neeq1d ( 𝑧 = ∅ → ( ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ≠ ∅ ↔ V ≠ ∅ ) )
178 14 177 mpbiri ( 𝑧 = ∅ → ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ≠ ∅ )
179 178 necomd ( 𝑧 = ∅ → ∅ ≠ ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
180 179 necon2i ( ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) → 𝑧 ≠ ∅ )
181 eldifsn ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ↔ ( 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ∧ 𝑧 ≠ ∅ ) )
182 181 rbaibr ( 𝑧 ≠ ∅ → ( 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ↔ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) )
183 180 182 syl ( ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) → ( 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ↔ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ) )
184 183 pm5.32ri ( ( 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ∧ ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) ↔ ( 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ∧ ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
185 184 rexbii2 ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ↔ ∃ 𝑧 ∈ ( ( 𝒫 𝑦 ∩ Fin ) ∖ { ∅ } ) ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) )
186 170 185 bitr4di ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ↔ ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) ∅ = ( ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) “ 𝑧 ) ) )
187 76 92 186 3bitr4rd ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ↔ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) )
188 38 187 imbi12d ( ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) ∧ 𝑦 ≠ ∅ ) → ( ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ) )
189 23 188 pm2.61dane ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ) )
190 57 adantr ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ∀ 𝑟𝑦 ( 𝐽𝑟 ) ∈ V )
191 dfiin3g ( ∀ 𝑟𝑦 ( 𝐽𝑟 ) ∈ V → 𝑟𝑦 ( 𝐽𝑟 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
192 190 191 syl ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → 𝑟𝑦 ( 𝐽𝑟 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
193 44 inteqd ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ran ( 𝑟𝑦 ↦ ( 𝐽𝑟 ) ) )
194 192 193 eqtr4d ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → 𝑟𝑦 ( 𝐽𝑟 ) = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) )
195 194 eqeq1d ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ ↔ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ∅ ) )
196 nne ( ¬ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ↔ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) = ∅ )
197 195 196 bitr4di ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ ↔ ¬ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) )
198 197 imbi1d ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝑟𝑦 ( 𝐽𝑟 ) = ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ↔ ( ¬ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ) )
199 189 198 bitrd ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ( ¬ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ) )
200 con1b ( ( ¬ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ → ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) ↔ ( ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) )
201 199 200 bitrdi ( ( 𝐽 ∈ Top ∧ 𝑦𝐽 ) → ( ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ( ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) ) )
202 1 201 sylan2 ( ( 𝐽 ∈ Top ∧ 𝑦 ∈ 𝒫 𝐽 ) → ( ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ( ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) ) )
203 202 ralbidva ( 𝐽 ∈ Top → ( ∀ 𝑦 ∈ 𝒫 𝐽 ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ↔ ∀ 𝑦 ∈ 𝒫 𝐽 ( ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) ) )
204 54 iscmp ( 𝐽 ∈ Comp ↔ ( 𝐽 ∈ Top ∧ ∀ 𝑦 ∈ 𝒫 𝐽 ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ) )
205 204 baib ( 𝐽 ∈ Top → ( 𝐽 ∈ Comp ↔ ∀ 𝑦 ∈ 𝒫 𝐽 ( 𝐽 = 𝑦 → ∃ 𝑧 ∈ ( 𝒫 𝑦 ∩ Fin ) 𝐽 = 𝑧 ) ) )
206 89 adantr ( ( 𝐽 ∈ Top ∧ 𝑦 ∈ 𝒫 𝐽 ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ∈ 𝒫 ( Clsd ‘ 𝐽 ) )
207 simpl ( ( 𝐽 ∈ Top ∧ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ) → 𝐽 ∈ Top )
208 funmpt Fun ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) )
209 208 a1i ( ( 𝐽 ∈ Top ∧ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ) → Fun ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) )
210 elpwi ( 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) → 𝑥 ⊆ ( Clsd ‘ 𝐽 ) )
211 foima ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) : 𝐽onto→ ( Clsd ‘ 𝐽 ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝐽 ) = ( Clsd ‘ 𝐽 ) )
212 83 211 syl ( 𝐽 ∈ Top → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝐽 ) = ( Clsd ‘ 𝐽 ) )
213 212 sseq2d ( 𝐽 ∈ Top → ( 𝑥 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝐽 ) ↔ 𝑥 ⊆ ( Clsd ‘ 𝐽 ) ) )
214 210 213 imbitrrid ( 𝐽 ∈ Top → ( 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) → 𝑥 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝐽 ) ) )
215 214 imp ( ( 𝐽 ∈ Top ∧ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ) → 𝑥 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝐽 ) )
216 ssimaexg ( ( 𝐽 ∈ Top ∧ Fun ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) ∧ 𝑥 ⊆ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝐽 ) ) → ∃ 𝑦 ( 𝑦𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
217 207 209 215 216 syl3anc ( ( 𝐽 ∈ Top ∧ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ) → ∃ 𝑦 ( 𝑦𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
218 df-rex ( ∃ 𝑦 ∈ 𝒫 𝐽 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ↔ ∃ 𝑦 ( 𝑦 ∈ 𝒫 𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
219 velpw ( 𝑦 ∈ 𝒫 𝐽𝑦𝐽 )
220 219 anbi1i ( ( 𝑦 ∈ 𝒫 𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ↔ ( 𝑦𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
221 220 exbii ( ∃ 𝑦 ( 𝑦 ∈ 𝒫 𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ↔ ∃ 𝑦 ( 𝑦𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
222 218 221 bitri ( ∃ 𝑦 ∈ 𝒫 𝐽 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ↔ ∃ 𝑦 ( 𝑦𝐽𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
223 217 222 sylibr ( ( 𝐽 ∈ Top ∧ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ) → ∃ 𝑦 ∈ 𝒫 𝐽 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) )
224 simpr ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) )
225 224 fveq2d ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( fi ‘ 𝑥 ) = ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) )
226 225 eleq2d ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ∅ ∈ ( fi ‘ 𝑥 ) ↔ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) )
227 226 notbid ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ¬ ∅ ∈ ( fi ‘ 𝑥 ) ↔ ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) ) )
228 224 inteqd ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) )
229 228 neeq1d ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( 𝑥 ≠ ∅ ↔ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) )
230 227 229 imbi12d ( ( 𝐽 ∈ Top ∧ 𝑥 = ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( ¬ ∅ ∈ ( fi ‘ 𝑥 ) → 𝑥 ≠ ∅ ) ↔ ( ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) ) )
231 206 223 230 ralxfrd ( 𝐽 ∈ Top → ( ∀ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ( ¬ ∅ ∈ ( fi ‘ 𝑥 ) → 𝑥 ≠ ∅ ) ↔ ∀ 𝑦 ∈ 𝒫 𝐽 ( ¬ ∅ ∈ ( fi ‘ ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ) → ( ( 𝑟𝐽 ↦ ( 𝐽𝑟 ) ) “ 𝑦 ) ≠ ∅ ) ) )
232 203 205 231 3bitr4d ( 𝐽 ∈ Top → ( 𝐽 ∈ Comp ↔ ∀ 𝑥 ∈ 𝒫 ( Clsd ‘ 𝐽 ) ( ¬ ∅ ∈ ( fi ‘ 𝑥 ) → 𝑥 ≠ ∅ ) ) )