Metamath Proof Explorer


Theorem neiptoptop

Description: Lemma for neiptopreu . (Contributed by Thierry Arnoux, 7-Jan-2018)

Ref Expression
Hypotheses neiptop.o ⊢ J = a ∈ 𝒫 X | ∀ p ∈ a a ∈ N ⁡ p
neiptop.0 ⊢ φ → N : X ⟶ 𝒫 𝒫 X
neiptop.1 ⊢ φ ∧ p ∈ X ∧ a ⊆ b ∧ b ⊆ X ∧ a ∈ N ⁡ p → b ∈ N ⁡ p
neiptop.2 ⊢ φ ∧ p ∈ X → fi ⁡ N ⁡ p ⊆ N ⁡ p
neiptop.3 ⊢ φ ∧ p ∈ X ∧ a ∈ N ⁡ p → p ∈ a
neiptop.4 ⊢ φ ∧ p ∈ X ∧ a ∈ N ⁡ p → ∃ b ∈ N ⁡ p ∀ q ∈ b a ∈ N ⁡ q
neiptop.5 ⊢ φ ∧ p ∈ X → X ∈ N ⁡ p
Assertion neiptoptop ⊢ φ → J ∈ Top

Proof

Step Hyp Ref Expression
1 neiptop.o ⊢ J = a ∈ 𝒫 X | ∀ p ∈ a a ∈ N ⁡ p
2 neiptop.0 ⊢ φ → N : X ⟶ 𝒫 𝒫 X
3 neiptop.1 ⊢ φ ∧ p ∈ X ∧ a ⊆ b ∧ b ⊆ X ∧ a ∈ N ⁡ p → b ∈ N ⁡ p
4 neiptop.2 ⊢ φ ∧ p ∈ X → fi ⁡ N ⁡ p ⊆ N ⁡ p
5 neiptop.3 ⊢ φ ∧ p ∈ X ∧ a ∈ N ⁡ p → p ∈ a
6 neiptop.4 ⊢ φ ∧ p ∈ X ∧ a ∈ N ⁡ p → ∃ b ∈ N ⁡ p ∀ q ∈ b a ∈ N ⁡ q
7 neiptop.5 ⊢ φ ∧ p ∈ X → X ∈ N ⁡ p
8 uniss ⊢ e ⊆ J → ⋃ e ⊆ ⋃ J
9 8 adantl ⊢ φ ∧ e ⊆ J → ⋃ e ⊆ ⋃ J
10 1 2 3 4 5 6 7 neiptopuni ⊢ φ → X = ⋃ J
11 10 adantr ⊢ φ ∧ e ⊆ J → X = ⋃ J
12 9 11 sseqtrrd ⊢ φ ∧ e ⊆ J → ⋃ e ⊆ X
13 simp-4l ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → φ
14 12 ad3antrrr ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → ⋃ e ⊆ X
15 simpllr ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → p ∈ ⋃ e
16 14 15 sseldd ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → p ∈ X
17 13 16 jca ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → φ ∧ p ∈ X
18 elssuni ⊢ c ∈ e → c ⊆ ⋃ e
19 18 ad2antlr ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → c ⊆ ⋃ e
20 17 19 14 3jca ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X
21 simpr ⊢ φ ∧ e ⊆ J → e ⊆ J
22 21 sselda ⊢ φ ∧ e ⊆ J ∧ c ∈ e → c ∈ J
23 1 neipeltop ⊢ c ∈ J ↔ c ⊆ X ∧ ∀ p ∈ c c ∈ N ⁡ p
24 23 simprbi ⊢ c ∈ J → ∀ p ∈ c c ∈ N ⁡ p
25 22 24 syl ⊢ φ ∧ e ⊆ J ∧ c ∈ e → ∀ p ∈ c c ∈ N ⁡ p
26 25 r19.21bi ⊢ φ ∧ e ⊆ J ∧ c ∈ e ∧ p ∈ c → c ∈ N ⁡ p
27 26 adantllr ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → c ∈ N ⁡ p
28 sseq1 ⊢ a = c → a ⊆ ⋃ e ↔ c ⊆ ⋃ e
29 28 3anbi2d ⊢ a = c → φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ↔ φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X
30 eleq1 ⊢ a = c → a ∈ N ⁡ p ↔ c ∈ N ⁡ p
31 29 30 anbi12d ⊢ a = c → φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p ↔ φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ c ∈ N ⁡ p
32 31 imbi1d ⊢ a = c → φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p → ⋃ e ∈ N ⁡ p ↔ φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ c ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
33 32 imbi2d ⊢ a = c → φ ∧ e ⊆ J → φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p → ⋃ e ∈ N ⁡ p ↔ φ ∧ e ⊆ J → φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ c ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
34 ssidd ⊢ φ → X ⊆ X
35 7 ralrimiva ⊢ φ → ∀ p ∈ X X ∈ N ⁡ p
36 1 neipeltop ⊢ X ∈ J ↔ X ⊆ X ∧ ∀ p ∈ X X ∈ N ⁡ p
37 34 35 36 sylanbrc ⊢ φ → X ∈ J
38 pwexg ⊢ X ∈ J → 𝒫 X ∈ V
39 rabexg ⊢ 𝒫 X ∈ V → a ∈ 𝒫 X | ∀ p ∈ a a ∈ N ⁡ p ∈ V
40 37 38 39 3syl ⊢ φ → a ∈ 𝒫 X | ∀ p ∈ a a ∈ N ⁡ p ∈ V
41 1 40 eqeltrid ⊢ φ → J ∈ V
42 41 adantr ⊢ φ ∧ e ⊆ J → J ∈ V
43 42 21 ssexd ⊢ φ ∧ e ⊆ J → e ∈ V
44 uniexg ⊢ e ∈ V → ⋃ e ∈ V
45 sseq2 ⊢ b = ⋃ e → a ⊆ b ↔ a ⊆ ⋃ e
46 sseq1 ⊢ b = ⋃ e → b ⊆ X ↔ ⋃ e ⊆ X
47 45 46 3anbi23d ⊢ b = ⋃ e → φ ∧ p ∈ X ∧ a ⊆ b ∧ b ⊆ X ↔ φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X
48 47 anbi1d ⊢ b = ⋃ e → φ ∧ p ∈ X ∧ a ⊆ b ∧ b ⊆ X ∧ a ∈ N ⁡ p ↔ φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p
49 eleq1 ⊢ b = ⋃ e → b ∈ N ⁡ p ↔ ⋃ e ∈ N ⁡ p
50 48 49 imbi12d ⊢ b = ⋃ e → φ ∧ p ∈ X ∧ a ⊆ b ∧ b ⊆ X ∧ a ∈ N ⁡ p → b ∈ N ⁡ p ↔ φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
51 50 3 vtoclg ⊢ ⋃ e ∈ V → φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
52 43 44 51 3syl ⊢ φ ∧ e ⊆ J → φ ∧ p ∈ X ∧ a ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ a ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
53 33 52 chvarvv ⊢ φ ∧ e ⊆ J → φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ c ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
54 53 ad3antrrr ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → φ ∧ p ∈ X ∧ c ⊆ ⋃ e ∧ ⋃ e ⊆ X ∧ c ∈ N ⁡ p → ⋃ e ∈ N ⁡ p
55 20 27 54 mp2and ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e ∧ c ∈ e ∧ p ∈ c → ⋃ e ∈ N ⁡ p
56 eluni2 ⊢ p ∈ ⋃ e ↔ ∃ c ∈ e p ∈ c
57 56 bilani ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e → ∃ c ∈ e p ∈ c
58 55 57 r19.29a ⊢ φ ∧ e ⊆ J ∧ p ∈ ⋃ e → ⋃ e ∈ N ⁡ p
59 58 ralrimiva ⊢ φ ∧ e ⊆ J → ∀ p ∈ ⋃ e ⋃ e ∈ N ⁡ p
60 1 neipeltop ⊢ ⋃ e ∈ J ↔ ⋃ e ⊆ X ∧ ∀ p ∈ ⋃ e ⋃ e ∈ N ⁡ p
61 12 59 60 sylanbrc ⊢ φ ∧ e ⊆ J → ⋃ e ∈ J
62 61 ex ⊢ φ → e ⊆ J → ⋃ e ∈ J
63 62 alrimiv ⊢ φ → ∀ e e ⊆ J → ⋃ e ∈ J
64 inss1 ⊢ e ∩ f ⊆ e
65 1 neipeltop ⊢ e ∈ J ↔ e ⊆ X ∧ ∀ p ∈ e e ∈ N ⁡ p
66 65 simplbi ⊢ e ∈ J → e ⊆ X
67 66 ad2antlr ⊢ φ ∧ e ∈ J ∧ f ∈ J → e ⊆ X
68 64 67 sstrid ⊢ φ ∧ e ∈ J ∧ f ∈ J → e ∩ f ⊆ X
69 simplll ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → φ
70 simpllr ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → e ∈ J
71 70 66 syl ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → e ⊆ X
72 simpr ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → p ∈ e ∩ f
73 72 elin1d ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → p ∈ e
74 71 73 sseldd ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → p ∈ X
75 69 74 4 syl2anc ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → fi ⁡ N ⁡ p ⊆ N ⁡ p
76 fvex ⊢ N ⁡ p ∈ V
77 65 simprbi ⊢ e ∈ J → ∀ p ∈ e e ∈ N ⁡ p
78 77 r19.21bi ⊢ e ∈ J ∧ p ∈ e → e ∈ N ⁡ p
79 70 73 78 syl2anc ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → e ∈ N ⁡ p
80 simplr ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → f ∈ J
81 72 elin2d ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → p ∈ f
82 1 neipeltop ⊢ f ∈ J ↔ f ⊆ X ∧ ∀ p ∈ f f ∈ N ⁡ p
83 82 simprbi ⊢ f ∈ J → ∀ p ∈ f f ∈ N ⁡ p
84 83 r19.21bi ⊢ f ∈ J ∧ p ∈ f → f ∈ N ⁡ p
85 80 81 84 syl2anc ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → f ∈ N ⁡ p
86 inelfi ⊢ N ⁡ p ∈ V ∧ e ∈ N ⁡ p ∧ f ∈ N ⁡ p → e ∩ f ∈ fi ⁡ N ⁡ p
87 76 79 85 86 mp3an2i ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → e ∩ f ∈ fi ⁡ N ⁡ p
88 75 87 sseldd ⊢ φ ∧ e ∈ J ∧ f ∈ J ∧ p ∈ e ∩ f → e ∩ f ∈ N ⁡ p
89 88 ralrimiva ⊢ φ ∧ e ∈ J ∧ f ∈ J → ∀ p ∈ e ∩ f e ∩ f ∈ N ⁡ p
90 1 neipeltop ⊢ e ∩ f ∈ J ↔ e ∩ f ⊆ X ∧ ∀ p ∈ e ∩ f e ∩ f ∈ N ⁡ p
91 68 89 90 sylanbrc ⊢ φ ∧ e ∈ J ∧ f ∈ J → e ∩ f ∈ J
92 91 ralrimiva ⊢ φ ∧ e ∈ J → ∀ f ∈ J e ∩ f ∈ J
93 92 ralrimiva ⊢ φ → ∀ e ∈ J ∀ f ∈ J e ∩ f ∈ J
94 istopg ⊢ J ∈ V → J ∈ Top ↔ ∀ e e ⊆ J → ⋃ e ∈ J ∧ ∀ e ∈ J ∀ f ∈ J e ∩ f ∈ J
95 41 94 syl ⊢ φ → J ∈ Top ↔ ∀ e e ⊆ J → ⋃ e ∈ J ∧ ∀ e ∈ J ∀ f ∈ J e ∩ f ∈ J
96 63 93 95 mpbir2and ⊢ φ → J ∈ Top