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