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

Theorem mretopd 22459
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 4881 . . . . . . . . 9 (π‘Ž = βˆ… β†’ βˆͺ π‘Ž = βˆͺ βˆ…)
2 uni0 4901 . . . . . . . . 9 βˆͺ βˆ… = βˆ…
31, 2eqtrdi 2793 . . . . . . . 8 (π‘Ž = βˆ… β†’ βˆͺ π‘Ž = βˆ…)
43eleq1d 2823 . . . . . . 7 (π‘Ž = βˆ… β†’ (βˆͺ π‘Ž ∈ 𝐽 ↔ βˆ… ∈ 𝐽))
5 mretopd.j . . . . . . . . . . . . . 14 𝐽 = {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀}
65ssrab3 4045 . . . . . . . . . . . . 13 𝐽 βŠ† 𝒫 𝐡
7 sstr 3957 . . . . . . . . . . . . 13 ((π‘Ž βŠ† 𝐽 ∧ 𝐽 βŠ† 𝒫 𝐡) β†’ π‘Ž βŠ† 𝒫 𝐡)
86, 7mpan2 690 . . . . . . . . . . . 12 (π‘Ž βŠ† 𝐽 β†’ π‘Ž βŠ† 𝒫 𝐡)
98adantl 483 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ π‘Ž βŠ† 𝒫 𝐡)
10 sspwuni 5065 . . . . . . . . . . 11 (π‘Ž βŠ† 𝒫 𝐡 ↔ βˆͺ π‘Ž βŠ† 𝐡)
119, 10sylib 217 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆͺ π‘Ž βŠ† 𝐡)
12 vuniex 7681 . . . . . . . . . . 11 βˆͺ π‘Ž ∈ V
1312elpw 4569 . . . . . . . . . 10 (βˆͺ π‘Ž ∈ 𝒫 𝐡 ↔ βˆͺ π‘Ž βŠ† 𝐡)
1411, 13sylibr 233 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆͺ π‘Ž ∈ 𝒫 𝐡)
1514adantr 482 . . . . . . . 8 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ βˆͺ π‘Ž ∈ 𝒫 𝐡)
16 uniiun 5023 . . . . . . . . . 10 βˆͺ π‘Ž = βˆͺ 𝑏 ∈ π‘Ž 𝑏
1716difeq2i 4084 . . . . . . . . 9 (𝐡 βˆ– βˆͺ π‘Ž) = (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏)
18 iindif2 5042 . . . . . . . . . . 11 (π‘Ž β‰  βˆ… β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) = (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏))
1918adantl 483 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) = (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏))
20 mretopd.m . . . . . . . . . . . 12 (πœ‘ β†’ 𝑀 ∈ (Mooreβ€˜π΅))
2120ad2antrr 725 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ 𝑀 ∈ (Mooreβ€˜π΅))
22 simpr 486 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ π‘Ž β‰  βˆ…)
23 difeq2 4081 . . . . . . . . . . . . . . . . 17 (𝑧 = 𝑏 β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– 𝑏))
2423eleq1d 2823 . . . . . . . . . . . . . . . 16 (𝑧 = 𝑏 β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– 𝑏) ∈ 𝑀))
2524, 5elrab2 3653 . . . . . . . . . . . . . . 15 (𝑏 ∈ 𝐽 ↔ (𝑏 ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– 𝑏) ∈ 𝑀))
2625simprbi 498 . . . . . . . . . . . . . 14 (𝑏 ∈ 𝐽 β†’ (𝐡 βˆ– 𝑏) ∈ 𝑀)
2726rgen 3067 . . . . . . . . . . . . 13 βˆ€π‘ ∈ 𝐽 (𝐡 βˆ– 𝑏) ∈ 𝑀
28 ssralv 4015 . . . . . . . . . . . . . 14 (π‘Ž βŠ† 𝐽 β†’ (βˆ€π‘ ∈ 𝐽 (𝐡 βˆ– 𝑏) ∈ 𝑀 β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀))
2928adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ (βˆ€π‘ ∈ 𝐽 (𝐡 βˆ– 𝑏) ∈ 𝑀 β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀))
3027, 29mpi 20 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
3130adantr 482 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
32 mreiincl 17483 . . . . . . . . . . 11 ((𝑀 ∈ (Mooreβ€˜π΅) ∧ π‘Ž β‰  βˆ… ∧ βˆ€π‘ ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀) β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
3321, 22, 31, 32syl3anc 1372 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ ∩ 𝑏 ∈ π‘Ž (𝐡 βˆ– 𝑏) ∈ 𝑀)
3419, 33eqeltrrd 2839 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ (𝐡 βˆ– βˆͺ 𝑏 ∈ π‘Ž 𝑏) ∈ 𝑀)
3517, 34eqeltrid 2842 . . . . . . . 8 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ (𝐡 βˆ– βˆͺ π‘Ž) ∈ 𝑀)
36 difeq2 4081 . . . . . . . . . 10 (𝑧 = βˆͺ π‘Ž β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– βˆͺ π‘Ž))
3736eleq1d 2823 . . . . . . . . 9 (𝑧 = βˆͺ π‘Ž β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– βˆͺ π‘Ž) ∈ 𝑀))
3837, 5elrab2 3653 . . . . . . . 8 (βˆͺ π‘Ž ∈ 𝐽 ↔ (βˆͺ π‘Ž ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– βˆͺ π‘Ž) ∈ 𝑀))
3915, 35, 38sylanbrc 584 . . . . . . 7 (((πœ‘ ∧ π‘Ž βŠ† 𝐽) ∧ π‘Ž β‰  βˆ…) β†’ βˆͺ π‘Ž ∈ 𝐽)
40 0elpw 5316 . . . . . . . . . 10 βˆ… ∈ 𝒫 𝐡
4140a1i 11 . . . . . . . . 9 (πœ‘ β†’ βˆ… ∈ 𝒫 𝐡)
42 mre1cl 17481 . . . . . . . . . 10 (𝑀 ∈ (Mooreβ€˜π΅) β†’ 𝐡 ∈ 𝑀)
4320, 42syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝐡 ∈ 𝑀)
44 difeq2 4081 . . . . . . . . . . . 12 (𝑧 = βˆ… β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– βˆ…))
45 dif0 4337 . . . . . . . . . . . 12 (𝐡 βˆ– βˆ…) = 𝐡
4644, 45eqtrdi 2793 . . . . . . . . . . 11 (𝑧 = βˆ… β†’ (𝐡 βˆ– 𝑧) = 𝐡)
4746eleq1d 2823 . . . . . . . . . 10 (𝑧 = βˆ… β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ 𝐡 ∈ 𝑀))
4847, 5elrab2 3653 . . . . . . . . 9 (βˆ… ∈ 𝐽 ↔ (βˆ… ∈ 𝒫 𝐡 ∧ 𝐡 ∈ 𝑀))
4941, 43, 48sylanbrc 584 . . . . . . . 8 (πœ‘ β†’ βˆ… ∈ 𝐽)
5049adantr 482 . . . . . . 7 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆ… ∈ 𝐽)
514, 39, 50pm2.61ne 3031 . . . . . 6 ((πœ‘ ∧ π‘Ž βŠ† 𝐽) β†’ βˆͺ π‘Ž ∈ 𝐽)
5251ex 414 . . . . 5 (πœ‘ β†’ (π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽))
5352alrimiv 1931 . . . 4 (πœ‘ β†’ βˆ€π‘Ž(π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽))
54 inss1 4193 . . . . . . . 8 (π‘Ž ∩ 𝑏) βŠ† π‘Ž
55 difeq2 4081 . . . . . . . . . . . . 13 (𝑧 = π‘Ž β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– π‘Ž))
5655eleq1d 2823 . . . . . . . . . . . 12 (𝑧 = π‘Ž β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– π‘Ž) ∈ 𝑀))
5756, 5elrab2 3653 . . . . . . . . . . 11 (π‘Ž ∈ 𝐽 ↔ (π‘Ž ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– π‘Ž) ∈ 𝑀))
5857simplbi 499 . . . . . . . . . 10 (π‘Ž ∈ 𝐽 β†’ π‘Ž ∈ 𝒫 𝐡)
5958elpwid 4574 . . . . . . . . 9 (π‘Ž ∈ 𝐽 β†’ π‘Ž βŠ† 𝐡)
6059ad2antrl 727 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ π‘Ž βŠ† 𝐡)
6154, 60sstrid 3960 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (π‘Ž ∩ 𝑏) βŠ† 𝐡)
62 vex 3452 . . . . . . . . 9 π‘Ž ∈ V
6362inex1 5279 . . . . . . . 8 (π‘Ž ∩ 𝑏) ∈ V
6463elpw 4569 . . . . . . 7 ((π‘Ž ∩ 𝑏) ∈ 𝒫 𝐡 ↔ (π‘Ž ∩ 𝑏) βŠ† 𝐡)
6561, 64sylibr 233 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (π‘Ž ∩ 𝑏) ∈ 𝒫 𝐡)
66 difindi 4246 . . . . . . 7 (𝐡 βˆ– (π‘Ž ∩ 𝑏)) = ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏))
6757simprbi 498 . . . . . . . . 9 (π‘Ž ∈ 𝐽 β†’ (𝐡 βˆ– π‘Ž) ∈ 𝑀)
6867ad2antrl 727 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (𝐡 βˆ– π‘Ž) ∈ 𝑀)
6926ad2antll 728 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (𝐡 βˆ– 𝑏) ∈ 𝑀)
70 simpl 484 . . . . . . . 8 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ πœ‘)
71 uneq1 4121 . . . . . . . . . . . 12 (π‘₯ = (𝐡 βˆ– π‘Ž) β†’ (π‘₯ βˆͺ 𝑦) = ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦))
7271eleq1d 2823 . . . . . . . . . . 11 (π‘₯ = (𝐡 βˆ– π‘Ž) β†’ ((π‘₯ βˆͺ 𝑦) ∈ 𝑀 ↔ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀))
7372imbi2d 341 . . . . . . . . . 10 (π‘₯ = (𝐡 βˆ– π‘Ž) β†’ ((πœ‘ β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀) ↔ (πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀)))
74 uneq2 4122 . . . . . . . . . . . 12 (𝑦 = (𝐡 βˆ– 𝑏) β†’ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) = ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)))
7574eleq1d 2823 . . . . . . . . . . 11 (𝑦 = (𝐡 βˆ– 𝑏) β†’ (((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀 ↔ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀))
7675imbi2d 341 . . . . . . . . . 10 (𝑦 = (𝐡 βˆ– 𝑏) β†’ ((πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ 𝑦) ∈ 𝑀) ↔ (πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀)))
77 mretopd.u . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀) β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀)
78773expb 1121 . . . . . . . . . . 11 ((πœ‘ ∧ (π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀)
7978expcom 415 . . . . . . . . . 10 ((π‘₯ ∈ 𝑀 ∧ 𝑦 ∈ 𝑀) β†’ (πœ‘ β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝑀))
8073, 76, 79vtocl2ga 3538 . . . . . . . . 9 (((𝐡 βˆ– π‘Ž) ∈ 𝑀 ∧ (𝐡 βˆ– 𝑏) ∈ 𝑀) β†’ (πœ‘ β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀))
8180imp 408 . . . . . . . 8 ((((𝐡 βˆ– π‘Ž) ∈ 𝑀 ∧ (𝐡 βˆ– 𝑏) ∈ 𝑀) ∧ πœ‘) β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀)
8268, 69, 70, 81syl21anc 837 . . . . . . 7 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ ((𝐡 βˆ– π‘Ž) βˆͺ (𝐡 βˆ– 𝑏)) ∈ 𝑀)
8366, 82eqeltrid 2842 . . . . . 6 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (𝐡 βˆ– (π‘Ž ∩ 𝑏)) ∈ 𝑀)
84 difeq2 4081 . . . . . . . 8 (𝑧 = (π‘Ž ∩ 𝑏) β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– (π‘Ž ∩ 𝑏)))
8584eleq1d 2823 . . . . . . 7 (𝑧 = (π‘Ž ∩ 𝑏) β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– (π‘Ž ∩ 𝑏)) ∈ 𝑀))
8685, 5elrab2 3653 . . . . . 6 ((π‘Ž ∩ 𝑏) ∈ 𝐽 ↔ ((π‘Ž ∩ 𝑏) ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– (π‘Ž ∩ 𝑏)) ∈ 𝑀))
8765, 83, 86sylanbrc 584 . . . . 5 ((πœ‘ ∧ (π‘Ž ∈ 𝐽 ∧ 𝑏 ∈ 𝐽)) β†’ (π‘Ž ∩ 𝑏) ∈ 𝐽)
8887ralrimivva 3198 . . . 4 (πœ‘ β†’ βˆ€π‘Ž ∈ 𝐽 βˆ€π‘ ∈ 𝐽 (π‘Ž ∩ 𝑏) ∈ 𝐽)
8943pwexd 5339 . . . . . 6 (πœ‘ β†’ 𝒫 𝐡 ∈ V)
905, 89rabexd 5295 . . . . 5 (πœ‘ β†’ 𝐽 ∈ V)
91 istopg 22260 . . . . 5 (𝐽 ∈ V β†’ (𝐽 ∈ Top ↔ (βˆ€π‘Ž(π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽) ∧ βˆ€π‘Ž ∈ 𝐽 βˆ€π‘ ∈ 𝐽 (π‘Ž ∩ 𝑏) ∈ 𝐽)))
9290, 91syl 17 . . . 4 (πœ‘ β†’ (𝐽 ∈ Top ↔ (βˆ€π‘Ž(π‘Ž βŠ† 𝐽 β†’ βˆͺ π‘Ž ∈ 𝐽) ∧ βˆ€π‘Ž ∈ 𝐽 βˆ€π‘ ∈ 𝐽 (π‘Ž ∩ 𝑏) ∈ 𝐽)))
9353, 88, 92mpbir2and 712 . . 3 (πœ‘ β†’ 𝐽 ∈ Top)
946unissi 4879 . . . . . 6 βˆͺ 𝐽 βŠ† βˆͺ 𝒫 𝐡
95 unipw 5412 . . . . . 6 βˆͺ 𝒫 𝐡 = 𝐡
9694, 95sseqtri 3985 . . . . 5 βˆͺ 𝐽 βŠ† 𝐡
97 pwidg 4585 . . . . . . 7 (𝐡 ∈ 𝑀 β†’ 𝐡 ∈ 𝒫 𝐡)
9843, 97syl 17 . . . . . 6 (πœ‘ β†’ 𝐡 ∈ 𝒫 𝐡)
99 difid 4335 . . . . . . 7 (𝐡 βˆ– 𝐡) = βˆ…
100 mretopd.z . . . . . . 7 (πœ‘ β†’ βˆ… ∈ 𝑀)
10199, 100eqeltrid 2842 . . . . . 6 (πœ‘ β†’ (𝐡 βˆ– 𝐡) ∈ 𝑀)
102 difeq2 4081 . . . . . . . 8 (𝑧 = 𝐡 β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– 𝐡))
103102eleq1d 2823 . . . . . . 7 (𝑧 = 𝐡 β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– 𝐡) ∈ 𝑀))
104103, 5elrab2 3653 . . . . . 6 (𝐡 ∈ 𝐽 ↔ (𝐡 ∈ 𝒫 𝐡 ∧ (𝐡 βˆ– 𝐡) ∈ 𝑀))
10598, 101, 104sylanbrc 584 . . . . 5 (πœ‘ β†’ 𝐡 ∈ 𝐽)
106 unissel 4904 . . . . 5 ((βˆͺ 𝐽 βŠ† 𝐡 ∧ 𝐡 ∈ 𝐽) β†’ βˆͺ 𝐽 = 𝐡)
10796, 105, 106sylancr 588 . . . 4 (πœ‘ β†’ βˆͺ 𝐽 = 𝐡)
108107eqcomd 2743 . . 3 (πœ‘ β†’ 𝐡 = βˆͺ 𝐽)
109 istopon 22277 . . 3 (𝐽 ∈ (TopOnβ€˜π΅) ↔ (𝐽 ∈ Top ∧ 𝐡 = βˆͺ 𝐽))
11093, 108, 109sylanbrc 584 . 2 (πœ‘ β†’ 𝐽 ∈ (TopOnβ€˜π΅))
111 eqid 2737 . . . . 5 βˆͺ 𝐽 = βˆͺ 𝐽
112111cldval 22390 . . . 4 (𝐽 ∈ Top β†’ (Clsdβ€˜π½) = {π‘₯ ∈ 𝒫 βˆͺ 𝐽 ∣ (βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽})
11393, 112syl 17 . . 3 (πœ‘ β†’ (Clsdβ€˜π½) = {π‘₯ ∈ 𝒫 βˆͺ 𝐽 ∣ (βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽})
114107pweqd 4582 . . . 4 (πœ‘ β†’ 𝒫 βˆͺ 𝐽 = 𝒫 𝐡)
115107difeq1d 4086 . . . . 5 (πœ‘ β†’ (βˆͺ 𝐽 βˆ– π‘₯) = (𝐡 βˆ– π‘₯))
116115eleq1d 2823 . . . 4 (πœ‘ β†’ ((βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽 ↔ (𝐡 βˆ– π‘₯) ∈ 𝐽))
117114, 116rabeqbidv 3427 . . 3 (πœ‘ β†’ {π‘₯ ∈ 𝒫 βˆͺ 𝐽 ∣ (βˆͺ 𝐽 βˆ– π‘₯) ∈ 𝐽} = {π‘₯ ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– π‘₯) ∈ 𝐽})
1185eleq2i 2830 . . . . . . 7 ((𝐡 βˆ– π‘₯) ∈ 𝐽 ↔ (𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀})
119 difss 4096 . . . . . . . . . 10 (𝐡 βˆ– π‘₯) βŠ† 𝐡
120 elpw2g 5306 . . . . . . . . . . 11 (𝐡 ∈ 𝑀 β†’ ((𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡 ↔ (𝐡 βˆ– π‘₯) βŠ† 𝐡))
12143, 120syl 17 . . . . . . . . . 10 (πœ‘ β†’ ((𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡 ↔ (𝐡 βˆ– π‘₯) βŠ† 𝐡))
122119, 121mpbiri 258 . . . . . . . . 9 (πœ‘ β†’ (𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡)
123 difeq2 4081 . . . . . . . . . . 11 (𝑧 = (𝐡 βˆ– π‘₯) β†’ (𝐡 βˆ– 𝑧) = (𝐡 βˆ– (𝐡 βˆ– π‘₯)))
124123eleq1d 2823 . . . . . . . . . 10 (𝑧 = (𝐡 βˆ– π‘₯) β†’ ((𝐡 βˆ– 𝑧) ∈ 𝑀 ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
125124elrab3 3651 . . . . . . . . 9 ((𝐡 βˆ– π‘₯) ∈ 𝒫 𝐡 β†’ ((𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀} ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
126122, 125syl 17 . . . . . . . 8 (πœ‘ β†’ ((𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀} ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
127126adantr 482 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– π‘₯) ∈ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ 𝑀} ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
128118, 127bitrid 283 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– π‘₯) ∈ 𝐽 ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀))
129 elpwi 4572 . . . . . . . . 9 (π‘₯ ∈ 𝒫 𝐡 β†’ π‘₯ βŠ† 𝐡)
130 dfss4 4223 . . . . . . . . 9 (π‘₯ βŠ† 𝐡 ↔ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) = π‘₯)
131129, 130sylib 217 . . . . . . . 8 (π‘₯ ∈ 𝒫 𝐡 β†’ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) = π‘₯)
132131adantl 483 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ (𝐡 βˆ– (𝐡 βˆ– π‘₯)) = π‘₯)
133132eleq1d 2823 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– (𝐡 βˆ– π‘₯)) ∈ 𝑀 ↔ π‘₯ ∈ 𝑀))
134128, 133bitrd 279 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– π‘₯) ∈ 𝐽 ↔ π‘₯ ∈ 𝑀))
135134rabbidva 3417 . . . 4 (πœ‘ β†’ {π‘₯ ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– π‘₯) ∈ 𝐽} = {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀})
136 incom 4166 . . . . . 6 (𝑀 ∩ 𝒫 𝐡) = (𝒫 𝐡 ∩ 𝑀)
137 dfin5 3923 . . . . . 6 (𝒫 𝐡 ∩ 𝑀) = {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀}
138136, 137eqtri 2765 . . . . 5 (𝑀 ∩ 𝒫 𝐡) = {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀}
139 mresspw 17479 . . . . . . 7 (𝑀 ∈ (Mooreβ€˜π΅) β†’ 𝑀 βŠ† 𝒫 𝐡)
14020, 139syl 17 . . . . . 6 (πœ‘ β†’ 𝑀 βŠ† 𝒫 𝐡)
141 df-ss 3932 . . . . . 6 (𝑀 βŠ† 𝒫 𝐡 ↔ (𝑀 ∩ 𝒫 𝐡) = 𝑀)
142140, 141sylib 217 . . . . 5 (πœ‘ β†’ (𝑀 ∩ 𝒫 𝐡) = 𝑀)
143138, 142eqtr3id 2791 . . . 4 (πœ‘ β†’ {π‘₯ ∈ 𝒫 𝐡 ∣ π‘₯ ∈ 𝑀} = 𝑀)
144135, 143eqtrd 2777 . . 3 (πœ‘ β†’ {π‘₯ ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– π‘₯) ∈ 𝐽} = 𝑀)
145113, 117, 1443eqtrrd 2782 . 2 (πœ‘ β†’ 𝑀 = (Clsdβ€˜π½))
146110, 145jca 513 1 (πœ‘ β†’ (𝐽 ∈ (TopOnβ€˜π΅) ∧ 𝑀 = (Clsdβ€˜π½)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088  βˆ€wal 1540   = wceq 1542   ∈ wcel 2107   β‰  wne 2944  βˆ€wral 3065  {crab 3410  Vcvv 3448   βˆ– cdif 3912   βˆͺ cun 3913   ∩ cin 3914   βŠ† wss 3915  βˆ…c0 4287  π’« cpw 4565  βˆͺ cuni 4870  βˆͺ ciun 4959  βˆ© ciin 4960  β€˜cfv 6501  Moorecmre 17469  Topctop 22258  TopOnctopon 22275  Clsdccld 22383
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-ral 3066  df-rex 3075  df-rab 3411  df-v 3450  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-iin 4962  df-br 5111  df-opab 5173  df-mpt 5194  df-id 5536  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-iota 6453  df-fun 6503  df-fv 6509  df-mre 17473  df-top 22259  df-topon 22276  df-cld 22386
This theorem is referenced by:  iscldtop  22462  zartopn  32496  istopclsd  41052
  Copyright terms: Public domain W3C validator