MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mretopd Structured version   Visualization version   GIF version
Theorem mretopd 22587
Description: A Moore collection which is closed under finite unions called topological; such a collection is the closed sets of a canonically associated topology. (Contributed by Stefan O'Rear, 1-Feb-2015.)
Hypotheses
Ref Expression
mretopd.m (πœ‘ β†’ 𝑀 ∈ (Mooreβ€˜π΅))
mretopd.z (πœ‘ β†’ βˆ… ∈ 𝑀)
mretopd.u ((πœ‘ ∧ π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀) β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀)
mretopd.j 𝐽 = {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀}
Assertion
Ref Expression
mretopd (πœ‘ β†’ (𝐽 ∈ (TopOnβ€˜π΅) ∧ 𝑀 = (Clsdβ€˜π½)))
Distinct variable groups:   πœ‘,π‘₯,𝑦,𝑧   π‘₯,𝑀,𝑦,𝑧   π‘₯,𝐽,𝑦   π‘₯,𝐡,𝑦,𝑧
Allowed substitution hint:   𝐽(𝑧)
Proof of Theorem mretopd
Dummy variables π‘Ž 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 unieq 4918 . . . . . . . . 9 (π‘Ž = βˆ… β†’ βˆͺ π‘Ž = βˆͺ βˆ…)
2 uni0 4938 . . . . . . . . 9 βˆͺ βˆ… = βˆ…
31, 2eqtrdi 2788 . . . . . . . 8 (π‘Ž = βˆ… β†’ βˆͺ π‘Ž = βˆ…)
43eleq1d 2818 . . . . . . 7 (π‘Ž = βˆ… β†’ (βˆͺ π‘Ž ∈ 𝐽 ↔ βˆ… ∈ 𝐽))
5 mretopd.j . . . . . . . . . . . . . 14 𝐽 = {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀}
65ssrab3 4079 . . . . . . . . . . . . 13 𝐽 βŠ† 𝒫 𝐡
7 sstr 3989 . . . . . . . . . . . . 13 ((π‘Ž βŠ† 𝐽 ∧ 𝐽 βŠ† 𝒫 𝐡) β†’ π‘Ž βŠ† 𝒫 𝐡)
86, 7mpan2 689 . . . . . . . . . . . 12 (π‘Ž βŠ† 𝐽 β†’ π‘Ž βŠ† 𝒫 𝐡)
98adantl 482 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ π‘Ž βŠ† 𝒫 𝐡)
10 sspwuni 5102 . . . . . . . . . . 11 (π‘Ž βŠ† 𝒫 𝐡 ↔ βˆͺ π‘Ž βŠ† 𝐡)
119, 10sylib 217 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆͺ π‘Ž βŠ† 𝐡)
12 vuniex 7725 . . . . . . . . . . 11 βˆͺ π‘Ž ∈ V
1312elpw 4605 . . . . . . . . . 10 (βˆͺ π‘Ž ∈ 𝒫 𝐡 ↔ βˆͺ π‘Ž βŠ† 𝐡)
1411, 13sylibr 233 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆͺ π‘Ž ∈ 𝒫 𝐡)
1514adantr 481 . . . . . . . 8 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ βˆͺ π‘Ž ∈ 𝒫 𝐡)
16 uniiun 5060 . . . . . . . . . 10 βˆͺ π‘Ž = βˆͺ 𝑏 ∈ π‘Ž 𝑏
1716difeq2i 4118 . . . . . . . . 9 (𝐡 βˆ– βˆͺ π‘Ž) = (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏)
18 iindif2 5079 . . . . . . . . . . 11 (π‘Ž β‰  βˆ… β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) = (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏))
1918adantl 482 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) = (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏))
20 mretopd.m . . . . . . . . . . . 12 (πœ‘ β†’ 𝑀 ∈ (Mooreβ€˜π΅))
2120ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ 𝑀 ∈ (Mooreβ€˜π΅))
22 simpr 485 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ π‘Ž β‰  βˆ…)
23 difeq2 4115 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑏 β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– 𝑏))
2423eleq1d 2818 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑏 β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– 𝑏) ∈ 𝑀))
2524, 5elrab2 3685 . . . . . . . . . . . . . . 15 (𝑏 ∈ 𝐽 ↔ (𝑏 ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– 𝑏) ∈ 𝑀))
2625simprbi 497 . . . . . . . . . . . . . 14 (𝑏 ∈ 𝐽 β†’ (𝐡 βˆ– 𝑏) ∈ 𝑀)
2726rgen 3063 . . . . . . . . . . . . 13 βˆ€π‘ ∈ 𝐽 (𝐡 βˆ– 𝑏) ∈ 𝑀
28 ssralv 4049 . . . . . . . . . . . . . 14 (π‘Ž βŠ† 𝐽 β†’ (βˆ€π‘ ∈ 𝐽 (𝐡 βˆ– 𝑏) ∈ 𝑀 β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀))
2928adantl 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ (βˆ€π‘ ∈ 𝐽 (𝐡 βˆ– 𝑏) ∈ 𝑀 β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀))
3027, 29mpi 20 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
3130adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
32 mreiincl 17536 . . . . . . . . . . 11 ((𝑀 ∈ (Mooreβ€˜π΅) ∧ π‘Ž β‰  βˆ… ∧ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀) β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
3321, 22, 31, 32syl3anc 1371 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
3419, 33eqeltrrd 2834 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏) ∈ 𝑀)
3517, 34eqeltrid 2837 . . . . . . . 8 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ (𝐡 βˆ– βˆͺ π‘Ž) ∈ 𝑀)
36 difeq2 4115 . . . . . . . . . 10 (𝑧 = βˆͺ π‘Ž β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– βˆͺ π‘Ž))
3736eleq1d 2818 . . . . . . . . 9 (𝑧 = βˆͺ π‘Ž β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– βˆͺ π‘Ž) ∈ 𝑀))
3837, 5elrab2 3685 . . . . . . . 8 (βˆͺ π‘Ž ∈ 𝐽 ↔ (βˆͺ π‘Ž ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– βˆͺ π‘Ž) ∈ 𝑀))
3915, 35, 38sylanbrc 583 . . . . . . 7 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ βˆͺ π‘Ž ∈ 𝐽)
40 0elpw 5353 . . . . . . . . . 10 βˆ… ∈ 𝒫 𝐡
4140a1i 11 . . . . . . . . 9 (πœ‘ β†’ βˆ… ∈ 𝒫 𝐡)
42 mre1cl 17534 . . . . . . . . . 10 (𝑀 ∈ (Mooreβ€˜π΅) β†’ 𝐡 ∈ 𝑀)
4320, 42syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝐡 ∈ 𝑀)
44 difeq2 4115 . . . . . . . . . . . 12 (𝑧 = βˆ… β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– βˆ…))
45 dif0 4371 . . . . . . . . . . . 12 (𝐡 βˆ– βˆ…) = 𝐡
4644, 45eqtrdi 2788 . . . . . . . . . . 11 (𝑧 = βˆ… β†’ (𝐡 βˆ– 𝑧) = 𝐡)
4746eleq1d 2818 . . . . . . . . . 10 (𝑧 = βˆ… β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ 𝐡 ∈ 𝑀))
4847, 5elrab2 3685 . . . . . . . . 9 (βˆ… ∈ 𝐽 ↔ (βˆ… ∈ 𝒫 𝐡 ∧ 𝐡 ∈ 𝑀))
4941, 43, 48sylanbrc 583 . . . . . . . 8 (πœ‘ β†’ βˆ… ∈ 𝐽)
5049adantr 481 . . . . . . 7 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆ… ∈ 𝐽)
514, 39, 50pm2.61ne 3027 . . . . . 6 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆͺ π‘Ž ∈ 𝐽)
5251ex 413 . . . . 5 (πœ‘ β†’ (π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽))
5352alrimiv 1930 . . . 4 (πœ‘ β†’ βˆ€π‘Ž(π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽))
54 inss1 4227 . . . . . . . 8 (π‘Ž ∩ 𝑏) βŠ† π‘Ž
55 difeq2 4115 . . . . . . . . . . . . 13 (𝑧 = π‘Ž β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– π‘Ž))
5655eleq1d 2818 . . . . . . . . . . . 12 (𝑧 = π‘Ž β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– π‘Ž) ∈ 𝑀))
5756, 5elrab2 3685 . . . . . . . . . . 11 (π‘Ž ∈ 𝐽 ↔ (π‘Ž ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– π‘Ž) ∈ 𝑀))
5857simplbi 498 . . . . . . . . . 10 (π‘Ž ∈ 𝐽 β†’ π‘Ž ∈ 𝒫 𝐡)
5958elpwid 4610 . . . . . . . . 9 (π‘Ž ∈ 𝐽 β†’ π‘Ž βŠ† 𝐡)
6059ad2antrl 726 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ π‘Ž βŠ† 𝐡)
6154, 60sstrid 3992 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (π‘Ž ∩ 𝑏) βŠ† 𝐡)
62 vex 3478 . . . . . . . . 9 π‘Ž ∈ V
6362inex1 5316 . . . . . . . 8 (π‘Ž ∩ 𝑏) ∈ V
6463elpw 4605 . . . . . . 7 ((π‘Ž ∩ 𝑏) ∈ 𝒫 𝐡 ↔ (π‘Ž ∩ 𝑏) βŠ† 𝐡)
6561, 64sylibr 233 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (π‘Ž ∩ 𝑏) ∈ 𝒫 𝐡)
66 difindi 4280 . . . . . . 7 (𝐡 βˆ– (π‘Ž ∩ 𝑏)) = ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏))
6757simprbi 497 . . . . . . . . 9 (π‘Ž ∈ 𝐽 β†’ (𝐡 βˆ– π‘Ž) ∈ 𝑀)
6867ad2antrl 726 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (𝐡 βˆ– π‘Ž) ∈ 𝑀)
6926ad2antll 727 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (𝐡 βˆ– 𝑏) ∈ 𝑀)
70 simpl 483 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ πœ‘)
71 uneq1 4155 . . . . . . . . . . . 12 (π‘₯ = (𝐡 βˆ– π‘Ž) β†’ (π‘₯ βˆͺ 𝑦) = ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦))
7271eleq1d 2818 . . . . . . . . . . 11 (π‘₯ = (𝐡 βˆ– π‘Ž) β†’ ((π‘₯ βˆͺ 𝑦) ∈ 𝑀 ↔ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀))
7372imbi2d 340 . . . . . . . . . 10 (π‘₯ = (𝐡 βˆ– π‘Ž) β†’ ((πœ‘ β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀) ↔ (πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀)))
74 uneq2 4156 . . . . . . . . . . . 12 (𝑦 = (𝐡 βˆ– 𝑏) β†’ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) = ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)))
7574eleq1d 2818 . . . . . . . . . . 11 (𝑦 = (𝐡 βˆ– 𝑏) β†’ (((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀 ↔ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀))
7675imbi2d 340 . . . . . . . . . 10 (𝑦 = (𝐡 βˆ– 𝑏) β†’ ((πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀) ↔ (πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀)))
77 mretopd.u . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀) β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀)
78773expb 1120 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀)
7978expcom 414 . . . . . . . . . 10 ((π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀) β†’ (πœ‘ β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀))
8073, 76, 79vtocl2ga 3566 . . . . . . . . 9 (((𝐡 βˆ– π‘Ž) ∈ 𝑀 ∧ (𝐡 βˆ– 𝑏) ∈ 𝑀) β†’ (πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀))
8180imp 407 . . . . . . . 8 ((((𝐡 βˆ– π‘Ž) ∈ 𝑀 ∧ (𝐡 βˆ– 𝑏) ∈ 𝑀) ∧ πœ‘) β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀)
8268, 69, 70, 81syl21anc 836 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀)
8366, 82eqeltrid 2837 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (𝐡 βˆ– (π‘Ž ∩ 𝑏)) ∈ 𝑀)
84 difeq2 4115 . . . . . . . 8 (𝑧 = (π‘Ž ∩ 𝑏) β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– (π‘Ž ∩ 𝑏)))
8584eleq1d 2818 . . . . . . 7 (𝑧 = (π‘Ž ∩ 𝑏) β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– (π‘Ž ∩ 𝑏)) ∈ 𝑀))
8685, 5elrab2 3685 . . . . . 6 ((π‘Ž ∩ 𝑏) ∈ 𝐽 ↔ ((π‘Ž ∩ 𝑏) ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– (π‘Ž ∩ 𝑏)) ∈ 𝑀))
8765, 83, 86sylanbrc 583 . . . . 5 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (π‘Ž ∩ 𝑏) ∈ 𝐽)
8887ralrimivva 3200 . . . 4 (πœ‘ β†’ βˆ€π‘Ž ∈ 𝐽 βˆ€π‘ ∈ 𝐽 (π‘Ž ∩ 𝑏) ∈ 𝐽)
8943pwexd 5376 . . . . . 6 (πœ‘ β†’ 𝒫 𝐡 ∈ V)
905, 89rabexd 5332 . . . . 5 (πœ‘ β†’ 𝐽 ∈ V)
91 istopg 22388 . . . . 5 (𝐽 ∈ V β†’ (𝐽 ∈ Top ↔ (βˆ€π‘Ž(π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽) ∧ βˆ€π‘Ž ∈ 𝐽 βˆ€π‘ ∈ 𝐽 (π‘Ž ∩ 𝑏) ∈ 𝐽)))
9290, 91syl 17 . . . 4 (πœ‘ β†’ (𝐽 ∈ Top ↔ (βˆ€π‘Ž(π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽) ∧ βˆ€π‘Ž ∈ 𝐽 βˆ€π‘ ∈ 𝐽 (π‘Ž ∩ 𝑏) ∈ 𝐽)))
9353, 88, 92mpbir2and 711 . . 3 (πœ‘ β†’ 𝐽 ∈ Top)
946unissi 4916 . . . . . 6 βˆͺ 𝐽 βŠ† βˆͺ 𝒫 𝐡
95 unipw 5449 . . . . . 6 βˆͺ 𝒫 𝐡 = 𝐡
9694, 95sseqtri 4017 . . . . 5 βˆͺ 𝐽 βŠ† 𝐡
97 pwidg 4621 . . . . . . 7 (𝐡 ∈ 𝑀 β†’ 𝐡 ∈ 𝒫 𝐡)
9843, 97syl 17 . . . . . 6 (πœ‘ β†’ 𝐡 ∈ 𝒫 𝐡)
99 difid 4369 . . . . . . 7 (𝐡 βˆ– 𝐡) = βˆ…
100 mretopd.z . . . . . . 7 (πœ‘ β†’ βˆ… ∈ 𝑀)
10199, 100eqeltrid 2837 . . . . . 6 (πœ‘ β†’ (𝐡 βˆ– 𝐡) ∈ 𝑀)
102 difeq2 4115 . . . . . . . 8 (𝑧 = 𝐡 β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– 𝐡))
103102eleq1d 2818 . . . . . . 7 (𝑧 = 𝐡 β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– 𝐡) ∈ 𝑀))
104103, 5elrab2 3685 . . . . . 6 (𝐡 ∈ 𝐽 ↔ (𝐡 ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– 𝐡) ∈ 𝑀))
10598, 101, 104sylanbrc 583 . . . . 5 (πœ‘ β†’ 𝐡 ∈ 𝐽)
106 unissel 4941 . . . . 5 ((βˆͺ 𝐽 βŠ† 𝐡 ∧ 𝐡 ∈ 𝐽) β†’ βˆͺ 𝐽 = 𝐡)
10796, 105, 106sylancr 587 . . . 4 (πœ‘ β†’ βˆͺ 𝐽 = 𝐡)
108107eqcomd 2738 . . 3 (πœ‘ β†’ 𝐡 = βˆͺ 𝐽)
109 istopon 22405 . . 3 (𝐽 ∈ (TopOnβ€˜π΅) ↔ (𝐽 ∈ Top ∧ 𝐡 = βˆͺ 𝐽))
11093, 108, 109sylanbrc 583 . 2 (πœ‘ β†’ 𝐽 ∈ (TopOnβ€˜π΅))
111 eqid 2732 . . . . 5 βˆͺ 𝐽 = βˆͺ 𝐽
112111cldval 22518 . . . 4 (𝐽 ∈ Top β†’ (Clsdβ€˜π½) = {π‘₯ ∈ 𝒫 βˆͺ 𝐽 ∣ (βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽})
11393, 112syl 17 . . 3 (πœ‘ β†’ (Clsdβ€˜π½) = {π‘₯ ∈ 𝒫 βˆͺ 𝐽 ∣ (βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽})
114107pweqd 4618 . . . 4 (πœ‘ β†’ 𝒫 βˆͺ 𝐽 = 𝒫 𝐡)
115107difeq1d 4120 . . . . 5 (πœ‘ β†’ (βˆͺ 𝐽 βˆ– π‘₯) = (𝐡 βˆ– π‘₯))
116115eleq1d 2818 . . . 4 (πœ‘ β†’ ((βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽 ↔ (𝐡 βˆ– π‘₯) ∈ 𝐽))
117114, 116rabeqbidv 3449 . . 3 (πœ‘ β†’ {π‘₯ ∈ 𝒫 βˆͺ 𝐽 ∣ (βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽} = {π‘₯ ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– π‘₯) ∈ 𝐽})
1185eleq2i 2825 . . . . . . 7 ((𝐡 βˆ– π‘₯) ∈ 𝐽 ↔ (𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀})
119 difss 4130 . . . . . . . . . 10 (𝐡 βˆ– π‘₯) βŠ† 𝐡
120 elpw2g 5343 . . . . . . . . . . 11 (𝐡 ∈ 𝑀 β†’ ((𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡 ↔ (𝐡 βˆ– π‘₯) βŠ† 𝐡))
12143, 120syl 17 . . . . . . . . . 10 (πœ‘ β†’ ((𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡 ↔ (𝐡 βˆ– π‘₯) βŠ† 𝐡))
122119, 121mpbiri 257 . . . . . . . . 9 (πœ‘ β†’ (𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡)
123 difeq2 4115 . . . . . . . . . . 11 (𝑧 = (𝐡 βˆ– π‘₯) β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– (𝐡 βˆ– π‘₯)))
124123eleq1d 2818 . . . . . . . . . 10 (𝑧 = (𝐡 βˆ– π‘₯) β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
125124elrab3 3683 . . . . . . . . 9 ((𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡 β†’ ((𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀} ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
126122, 125syl 17 . . . . . . . 8 (πœ‘ β†’ ((𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀} ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
127126adantr 481 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀} ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
128118, 127bitrid 282 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– π‘₯) ∈ 𝐽 ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
129 elpwi 4608 . . . . . . . . 9 (π‘₯ ∈ 𝒫 𝐡 β†’ π‘₯ βŠ† 𝐡)
130 dfss4 4257 . . . . . . . . 9 (π‘₯ βŠ† 𝐡 ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) = π‘₯)
131129, 130sylib 217 . . . . . . . 8 (π‘₯ ∈ 𝒫 𝐡 β†’ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) = π‘₯)
132131adantl 482 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) = π‘₯)
133132eleq1d 2818 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀 ↔ π‘₯ ∈ 𝑀))
134128, 133bitrd 278 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– π‘₯) ∈ 𝐽 ↔ π‘₯ ∈ 𝑀))
135134rabbidva 3439 . . . 4 (πœ‘ β†’ {π‘₯ ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– π‘₯) ∈ 𝐽} = {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀})
136 incom 4200 . . . . . 6 (𝑀 ∩ 𝒫 𝐡) = (𝒫 𝐡 ∩ 𝑀)
137 dfin5 3955 . . . . . 6 (𝒫 𝐡 ∩ 𝑀) = {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀}
138136, 137eqtri 2760 . . . . 5 (𝑀 ∩ 𝒫 𝐡) = {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀}
139 mresspw 17532 . . . . . . 7 (𝑀 ∈ (Mooreβ€˜π΅) β†’ 𝑀 βŠ† 𝒫 𝐡)
14020, 139syl 17 . . . . . 6 (πœ‘ β†’ 𝑀 βŠ† 𝒫 𝐡)
141 df-ss 3964 . . . . . 6 (𝑀 βŠ† 𝒫 𝐡 ↔ (𝑀 ∩ 𝒫 𝐡) = 𝑀)
142140, 141sylib 217 . . . . 5 (πœ‘ β†’ (𝑀 ∩ 𝒫 𝐡) = 𝑀)
143138, 142eqtr3id 2786 . . . 4 (πœ‘ β†’ {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀} = 𝑀)
144135, 143eqtrd 2772 . . 3 (πœ‘ β†’ {π‘₯ ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– π‘₯) ∈ 𝐽} = 𝑀)
145113, 117, 1443eqtrrd 2777 . 2 (πœ‘ β†’ 𝑀 = (Clsdβ€˜π½))
146110, 145jca 512 1 (πœ‘ β†’ (𝐽 ∈ (TopOnβ€˜π΅) ∧ 𝑀 = (Clsdβ€˜π½)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087  βˆ€wal 1539   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  {crab 3432  Vcvv 3474   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947  βˆ…c0 4321  π’« cpw 4601  βˆͺ cuni 4907  βˆͺ ciun 4996  βˆ© ciin 4997  β€˜cfv 6540  Moorecmre 17522  Topctop 22386  TopOnctopon 22403  Clsdccld 22511
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-iota 6492  df-fun 6542  df-fv 6548  df-mre 17526  df-top 22387  df-topon 22404  df-cld 22514
This theorem is referenced by:  iscldtop  22590  zartopn  32843  istopclsd  41423
  Copyright terms: Public domain W3C validator