MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  neiptoptop Structured version   Visualization version   GIF version

Theorem neiptoptop 22957
Description: Lemma for neiptopreu 22959. (Contributed by Thierry Arnoux, 7-Jan-2018.)
Hypotheses
Ref Expression
neiptop.o 𝐽 = {π‘Ž ∈ 𝒫 𝑋 ∣ βˆ€π‘ ∈ π‘Ž π‘Ž ∈ (π‘β€˜π‘)}
neiptop.0 (πœ‘ β†’ 𝑁:π‘‹βŸΆπ’« 𝒫 𝑋)
neiptop.1 ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† 𝑏 ∧ 𝑏 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ 𝑏 ∈ (π‘β€˜π‘))
neiptop.2 ((πœ‘ ∧ 𝑝 ∈ 𝑋) β†’ (fiβ€˜(π‘β€˜π‘)) βŠ† (π‘β€˜π‘))
neiptop.3 (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ 𝑝 ∈ π‘Ž)
neiptop.4 (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆƒπ‘ ∈ (π‘β€˜π‘)βˆ€π‘ž ∈ 𝑏 π‘Ž ∈ (π‘β€˜π‘ž))
neiptop.5 ((πœ‘ ∧ 𝑝 ∈ 𝑋) β†’ 𝑋 ∈ (π‘β€˜π‘))
Assertion
Ref Expression
neiptoptop (πœ‘ β†’ 𝐽 ∈ Top)
Distinct variable groups:   𝑝,π‘Ž   𝑁,π‘Ž   𝑋,π‘Ž,𝑏,𝑝   𝐽,π‘Ž,𝑝   𝑋,𝑝   πœ‘,𝑝   𝑁,𝑏   𝑋,𝑏   πœ‘,π‘Ž,𝑏
Allowed substitution hints:   πœ‘(π‘ž)   𝐽(π‘ž,𝑏)   𝑁(π‘ž,𝑝)   𝑋(π‘ž)

Proof of Theorem neiptoptop
Dummy variables 𝑐 𝑒 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 uniss 4907 . . . . . . 7 (𝑒 βŠ† 𝐽 β†’ βˆͺ 𝑒 βŠ† βˆͺ 𝐽)
21adantl 481 . . . . . 6 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ βˆͺ 𝑒 βŠ† βˆͺ 𝐽)
3 neiptop.o . . . . . . . 8 𝐽 = {π‘Ž ∈ 𝒫 𝑋 ∣ βˆ€π‘ ∈ π‘Ž π‘Ž ∈ (π‘β€˜π‘)}
4 neiptop.0 . . . . . . . 8 (πœ‘ β†’ 𝑁:π‘‹βŸΆπ’« 𝒫 𝑋)
5 neiptop.1 . . . . . . . 8 ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† 𝑏 ∧ 𝑏 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ 𝑏 ∈ (π‘β€˜π‘))
6 neiptop.2 . . . . . . . 8 ((πœ‘ ∧ 𝑝 ∈ 𝑋) β†’ (fiβ€˜(π‘β€˜π‘)) βŠ† (π‘β€˜π‘))
7 neiptop.3 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ 𝑝 ∈ π‘Ž)
8 neiptop.4 . . . . . . . 8 (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆƒπ‘ ∈ (π‘β€˜π‘)βˆ€π‘ž ∈ 𝑏 π‘Ž ∈ (π‘β€˜π‘ž))
9 neiptop.5 . . . . . . . 8 ((πœ‘ ∧ 𝑝 ∈ 𝑋) β†’ 𝑋 ∈ (π‘β€˜π‘))
103, 4, 5, 6, 7, 8, 9neiptopuni 22956 . . . . . . 7 (πœ‘ β†’ 𝑋 = βˆͺ 𝐽)
1110adantr 480 . . . . . 6 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ 𝑋 = βˆͺ 𝐽)
122, 11sseqtrrd 4015 . . . . 5 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ βˆͺ 𝑒 βŠ† 𝑋)
13 simp-4l 780 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ πœ‘)
1412ad3antrrr 727 . . . . . . . . . . 11 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ βˆͺ 𝑒 βŠ† 𝑋)
15 simpllr 773 . . . . . . . . . . 11 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ 𝑝 ∈ βˆͺ 𝑒)
1614, 15sseldd 3975 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ 𝑝 ∈ 𝑋)
1713, 16jca 511 . . . . . . . . 9 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ (πœ‘ ∧ 𝑝 ∈ 𝑋))
18 elssuni 4931 . . . . . . . . . 10 (𝑐 ∈ 𝑒 β†’ 𝑐 βŠ† βˆͺ 𝑒)
1918ad2antlr 724 . . . . . . . . 9 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ 𝑐 βŠ† βˆͺ 𝑒)
2017, 19, 143jca 1125 . . . . . . . 8 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ ((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋))
21 simpr 484 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ 𝑒 βŠ† 𝐽)
2221sselda 3974 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑐 ∈ 𝑒) β†’ 𝑐 ∈ 𝐽)
233neipeltop 22955 . . . . . . . . . . . 12 (𝑐 ∈ 𝐽 ↔ (𝑐 βŠ† 𝑋 ∧ βˆ€π‘ ∈ 𝑐 𝑐 ∈ (π‘β€˜π‘)))
2423simprbi 496 . . . . . . . . . . 11 (𝑐 ∈ 𝐽 β†’ βˆ€π‘ ∈ 𝑐 𝑐 ∈ (π‘β€˜π‘))
2522, 24syl 17 . . . . . . . . . 10 (((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑐 ∈ 𝑒) β†’ βˆ€π‘ ∈ 𝑐 𝑐 ∈ (π‘β€˜π‘))
2625r19.21bi 3240 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ 𝑐 ∈ (π‘β€˜π‘))
2726adantllr 716 . . . . . . . 8 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ 𝑐 ∈ (π‘β€˜π‘))
28 sseq1 3999 . . . . . . . . . . . . . 14 (π‘Ž = 𝑐 β†’ (π‘Ž βŠ† βˆͺ 𝑒 ↔ 𝑐 βŠ† βˆͺ 𝑒))
29283anbi2d 1437 . . . . . . . . . . . . 13 (π‘Ž = 𝑐 β†’ (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ↔ ((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋)))
30 eleq1 2813 . . . . . . . . . . . . 13 (π‘Ž = 𝑐 β†’ (π‘Ž ∈ (π‘β€˜π‘) ↔ 𝑐 ∈ (π‘β€˜π‘)))
3129, 30anbi12d 630 . . . . . . . . . . . 12 (π‘Ž = 𝑐 β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) ↔ (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ 𝑐 ∈ (π‘β€˜π‘))))
3231imbi1d 341 . . . . . . . . . . 11 (π‘Ž = 𝑐 β†’ (((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘)) ↔ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ 𝑐 ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘))))
3332imbi2d 340 . . . . . . . . . 10 (π‘Ž = 𝑐 β†’ (((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘))) ↔ ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ 𝑐 ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘)))))
34 ssidd 3997 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑋 βŠ† 𝑋)
359ralrimiva 3138 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ βˆ€π‘ ∈ 𝑋 𝑋 ∈ (π‘β€˜π‘))
363neipeltop 22955 . . . . . . . . . . . . . . . 16 (𝑋 ∈ 𝐽 ↔ (𝑋 βŠ† 𝑋 ∧ βˆ€π‘ ∈ 𝑋 𝑋 ∈ (π‘β€˜π‘)))
3734, 35, 36sylanbrc 582 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑋 ∈ 𝐽)
38 pwexg 5366 . . . . . . . . . . . . . . 15 (𝑋 ∈ 𝐽 β†’ 𝒫 𝑋 ∈ V)
39 rabexg 5321 . . . . . . . . . . . . . . 15 (𝒫 𝑋 ∈ V β†’ {π‘Ž ∈ 𝒫 𝑋 ∣ βˆ€π‘ ∈ π‘Ž π‘Ž ∈ (π‘β€˜π‘)} ∈ V)
4037, 38, 393syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ {π‘Ž ∈ 𝒫 𝑋 ∣ βˆ€π‘ ∈ π‘Ž π‘Ž ∈ (π‘β€˜π‘)} ∈ V)
413, 40eqeltrid 2829 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐽 ∈ V)
4241adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ 𝐽 ∈ V)
4342, 21ssexd 5314 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ 𝑒 ∈ V)
44 uniexg 7723 . . . . . . . . . . 11 (𝑒 ∈ V β†’ βˆͺ 𝑒 ∈ V)
45 sseq2 4000 . . . . . . . . . . . . . . 15 (𝑏 = βˆͺ 𝑒 β†’ (π‘Ž βŠ† 𝑏 ↔ π‘Ž βŠ† βˆͺ 𝑒))
46 sseq1 3999 . . . . . . . . . . . . . . 15 (𝑏 = βˆͺ 𝑒 β†’ (𝑏 βŠ† 𝑋 ↔ βˆͺ 𝑒 βŠ† 𝑋))
4745, 463anbi23d 1435 . . . . . . . . . . . . . 14 (𝑏 = βˆͺ 𝑒 β†’ (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† 𝑏 ∧ 𝑏 βŠ† 𝑋) ↔ ((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋)))
4847anbi1d 629 . . . . . . . . . . . . 13 (𝑏 = βˆͺ 𝑒 β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† 𝑏 ∧ 𝑏 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) ↔ (((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘))))
49 eleq1 2813 . . . . . . . . . . . . 13 (𝑏 = βˆͺ 𝑒 β†’ (𝑏 ∈ (π‘β€˜π‘) ↔ βˆͺ 𝑒 ∈ (π‘β€˜π‘)))
5048, 49imbi12d 344 . . . . . . . . . . . 12 (𝑏 = βˆͺ 𝑒 β†’ (((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† 𝑏 ∧ 𝑏 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ 𝑏 ∈ (π‘β€˜π‘)) ↔ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘))))
5150, 5vtoclg 3535 . . . . . . . . . . 11 (βˆͺ 𝑒 ∈ V β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘)))
5243, 44, 513syl 18 . . . . . . . . . 10 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ π‘Ž βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ π‘Ž ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘)))
5333, 52chvarvv 1994 . . . . . . . . 9 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ 𝑐 ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘)))
5453ad3antrrr 727 . . . . . . . 8 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ ((((πœ‘ ∧ 𝑝 ∈ 𝑋) ∧ 𝑐 βŠ† βˆͺ 𝑒 ∧ βˆͺ 𝑒 βŠ† 𝑋) ∧ 𝑐 ∈ (π‘β€˜π‘)) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘)))
5520, 27, 54mp2and 696 . . . . . . 7 (((((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) ∧ 𝑐 ∈ 𝑒) ∧ 𝑝 ∈ 𝑐) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘))
56 simpr 484 . . . . . . . 8 (((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) β†’ 𝑝 ∈ βˆͺ 𝑒)
57 eluni2 4903 . . . . . . . 8 (𝑝 ∈ βˆͺ 𝑒 ↔ βˆƒπ‘ ∈ 𝑒 𝑝 ∈ 𝑐)
5856, 57sylib 217 . . . . . . 7 (((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) β†’ βˆƒπ‘ ∈ 𝑒 𝑝 ∈ 𝑐)
5955, 58r19.29a 3154 . . . . . 6 (((πœ‘ ∧ 𝑒 βŠ† 𝐽) ∧ 𝑝 ∈ βˆͺ 𝑒) β†’ βˆͺ 𝑒 ∈ (π‘β€˜π‘))
6059ralrimiva 3138 . . . . 5 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ βˆ€π‘ ∈ βˆͺ 𝑒βˆͺ 𝑒 ∈ (π‘β€˜π‘))
613neipeltop 22955 . . . . 5 (βˆͺ 𝑒 ∈ 𝐽 ↔ (βˆͺ 𝑒 βŠ† 𝑋 ∧ βˆ€π‘ ∈ βˆͺ 𝑒βˆͺ 𝑒 ∈ (π‘β€˜π‘)))
6212, 60, 61sylanbrc 582 . . . 4 ((πœ‘ ∧ 𝑒 βŠ† 𝐽) β†’ βˆͺ 𝑒 ∈ 𝐽)
6362ex 412 . . 3 (πœ‘ β†’ (𝑒 βŠ† 𝐽 β†’ βˆͺ 𝑒 ∈ 𝐽))
6463alrimiv 1922 . 2 (πœ‘ β†’ βˆ€π‘’(𝑒 βŠ† 𝐽 β†’ βˆͺ 𝑒 ∈ 𝐽))
65 inss1 4220 . . . . . 6 (𝑒 ∩ 𝑓) βŠ† 𝑒
663neipeltop 22955 . . . . . . . 8 (𝑒 ∈ 𝐽 ↔ (𝑒 βŠ† 𝑋 ∧ βˆ€π‘ ∈ 𝑒 𝑒 ∈ (π‘β€˜π‘)))
6766simplbi 497 . . . . . . 7 (𝑒 ∈ 𝐽 β†’ 𝑒 βŠ† 𝑋)
6867ad2antlr 724 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) β†’ 𝑒 βŠ† 𝑋)
6965, 68sstrid 3985 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) β†’ (𝑒 ∩ 𝑓) βŠ† 𝑋)
70 simplll 772 . . . . . . . 8 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ πœ‘)
71 simpllr 773 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑒 ∈ 𝐽)
7271, 67syl 17 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑒 βŠ† 𝑋)
73 simpr 484 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑝 ∈ (𝑒 ∩ 𝑓))
7473elin1d 4190 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑝 ∈ 𝑒)
7572, 74sseldd 3975 . . . . . . . 8 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑝 ∈ 𝑋)
7670, 75, 6syl2anc 583 . . . . . . 7 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ (fiβ€˜(π‘β€˜π‘)) βŠ† (π‘β€˜π‘))
77 fvex 6894 . . . . . . . 8 (π‘β€˜π‘) ∈ V
7866simprbi 496 . . . . . . . . . 10 (𝑒 ∈ 𝐽 β†’ βˆ€π‘ ∈ 𝑒 𝑒 ∈ (π‘β€˜π‘))
7978r19.21bi 3240 . . . . . . . . 9 ((𝑒 ∈ 𝐽 ∧ 𝑝 ∈ 𝑒) β†’ 𝑒 ∈ (π‘β€˜π‘))
8071, 74, 79syl2anc 583 . . . . . . . 8 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑒 ∈ (π‘β€˜π‘))
81 simplr 766 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑓 ∈ 𝐽)
8273elin2d 4191 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑝 ∈ 𝑓)
833neipeltop 22955 . . . . . . . . . . 11 (𝑓 ∈ 𝐽 ↔ (𝑓 βŠ† 𝑋 ∧ βˆ€π‘ ∈ 𝑓 𝑓 ∈ (π‘β€˜π‘)))
8483simprbi 496 . . . . . . . . . 10 (𝑓 ∈ 𝐽 β†’ βˆ€π‘ ∈ 𝑓 𝑓 ∈ (π‘β€˜π‘))
8584r19.21bi 3240 . . . . . . . . 9 ((𝑓 ∈ 𝐽 ∧ 𝑝 ∈ 𝑓) β†’ 𝑓 ∈ (π‘β€˜π‘))
8681, 82, 85syl2anc 583 . . . . . . . 8 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ 𝑓 ∈ (π‘β€˜π‘))
87 inelfi 9409 . . . . . . . 8 (((π‘β€˜π‘) ∈ V ∧ 𝑒 ∈ (π‘β€˜π‘) ∧ 𝑓 ∈ (π‘β€˜π‘)) β†’ (𝑒 ∩ 𝑓) ∈ (fiβ€˜(π‘β€˜π‘)))
8877, 80, 86, 87mp3an2i 1462 . . . . . . 7 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ (𝑒 ∩ 𝑓) ∈ (fiβ€˜(π‘β€˜π‘)))
8976, 88sseldd 3975 . . . . . 6 ((((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) ∧ 𝑝 ∈ (𝑒 ∩ 𝑓)) β†’ (𝑒 ∩ 𝑓) ∈ (π‘β€˜π‘))
9089ralrimiva 3138 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) β†’ βˆ€π‘ ∈ (𝑒 ∩ 𝑓)(𝑒 ∩ 𝑓) ∈ (π‘β€˜π‘))
913neipeltop 22955 . . . . 5 ((𝑒 ∩ 𝑓) ∈ 𝐽 ↔ ((𝑒 ∩ 𝑓) βŠ† 𝑋 ∧ βˆ€π‘ ∈ (𝑒 ∩ 𝑓)(𝑒 ∩ 𝑓) ∈ (π‘β€˜π‘)))
9269, 90, 91sylanbrc 582 . . . 4 (((πœ‘ ∧ 𝑒 ∈ 𝐽) ∧ 𝑓 ∈ 𝐽) β†’ (𝑒 ∩ 𝑓) ∈ 𝐽)
9392ralrimiva 3138 . . 3 ((πœ‘ ∧ 𝑒 ∈ 𝐽) β†’ βˆ€π‘“ ∈ 𝐽 (𝑒 ∩ 𝑓) ∈ 𝐽)
9493ralrimiva 3138 . 2 (πœ‘ β†’ βˆ€π‘’ ∈ 𝐽 βˆ€π‘“ ∈ 𝐽 (𝑒 ∩ 𝑓) ∈ 𝐽)
95 istopg 22719 . . 3 (𝐽 ∈ V β†’ (𝐽 ∈ Top ↔ (βˆ€π‘’(𝑒 βŠ† 𝐽 β†’ βˆͺ 𝑒 ∈ 𝐽) ∧ βˆ€π‘’ ∈ 𝐽 βˆ€π‘“ ∈ 𝐽 (𝑒 ∩ 𝑓) ∈ 𝐽)))
9641, 95syl 17 . 2 (πœ‘ β†’ (𝐽 ∈ Top ↔ (βˆ€π‘’(𝑒 βŠ† 𝐽 β†’ βˆͺ 𝑒 ∈ 𝐽) ∧ βˆ€π‘’ ∈ 𝐽 βˆ€π‘“ ∈ 𝐽 (𝑒 ∩ 𝑓) ∈ 𝐽)))
9764, 94, 96mpbir2and 710 1 (πœ‘ β†’ 𝐽 ∈ Top)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∧ w3a 1084  βˆ€wal 1531   = wceq 1533   ∈ wcel 2098  βˆ€wral 3053  βˆƒwrex 3062  {crab 3424  Vcvv 3466   ∩ cin 3939   βŠ† wss 3940  π’« cpw 4594  βˆͺ cuni 4899  βŸΆwf 6529  β€˜cfv 6533  ficfi 9401  Topctop 22717
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-ral 3054  df-rex 3063  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-op 4627  df-uni 4900  df-int 4941  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-om 7849  df-1o 8461  df-en 8936  df-fin 8939  df-fi 9402  df-top 22718
This theorem is referenced by:  neiptopnei  22958  neiptopreu  22959
  Copyright terms: Public domain W3C validator