Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  istopclsd Structured version   Visualization version   GIF version
Theorem istopclsd 41438
Description: A closure function which satisfies sscls 22560, clsidm 22571, cls0 22584, and clsun 35213 defines a (unique) topology which it is the closure function on. (Contributed by Stefan O'Rear, 1-Feb-2015.)
Hypotheses
Ref Expression
istopclsd.b (πœ‘ β†’ 𝐡 ∈ 𝑉)
istopclsd.f (πœ‘ β†’ 𝐹:𝒫 π΅βŸΆπ’« 𝐡)
istopclsd.e ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯))
istopclsd.i ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
istopclsd.z (πœ‘ β†’ (πΉβ€˜βˆ…) = βˆ…)
istopclsd.u ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† 𝐡) β†’ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)))
istopclsd.j 𝐽 = {𝑧 ∈ 𝒫 𝐡 ∣ (πΉβ€˜(𝐡 βˆ– 𝑧)) = (𝐡 βˆ– 𝑧)}
Assertion
Ref Expression
istopclsd (πœ‘ β†’ (𝐽 ∈ (TopOnβ€˜π΅) ∧ (clsβ€˜π½) = 𝐹))
Distinct variable groups:   π‘₯,𝐡,𝑦,𝑧   πœ‘,π‘₯,𝑦,𝑧   π‘₯,𝐹,𝑦,𝑧   π‘₯,𝐽,𝑦   π‘₯,𝑉,𝑦,𝑧
Allowed substitution hint:   𝐽(𝑧)
Proof of Theorem istopclsd
StepHypRef Expression
1 istopclsd.j . . . 4 𝐽 = {𝑧 ∈ 𝒫 𝐡 ∣ (πΉβ€˜(𝐡 βˆ– 𝑧)) = (𝐡 βˆ– 𝑧)}
2 istopclsd.f . . . . . . . . 9 (πœ‘ β†’ 𝐹:𝒫 π΅βŸΆπ’« 𝐡)
32ffnd 6719 . . . . . . . 8 (πœ‘ β†’ 𝐹 Fn 𝒫 𝐡)
43adantr 482 . . . . . . 7 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝐹 Fn 𝒫 𝐡)
5 difss 4132 . . . . . . . . 9 (𝐡 βˆ– 𝑧) βŠ† 𝐡
6 istopclsd.b . . . . . . . . . 10 (πœ‘ β†’ 𝐡 ∈ 𝑉)
7 elpw2g 5345 . . . . . . . . . 10 (𝐡 ∈ 𝑉 β†’ ((𝐡 βˆ– 𝑧) ∈ 𝒫 𝐡 ↔ (𝐡 βˆ– 𝑧) βŠ† 𝐡))
86, 7syl 17 . . . . . . . . 9 (πœ‘ β†’ ((𝐡 βˆ– 𝑧) ∈ 𝒫 𝐡 ↔ (𝐡 βˆ– 𝑧) βŠ† 𝐡))
95, 8mpbiri 258 . . . . . . . 8 (πœ‘ β†’ (𝐡 βˆ– 𝑧) ∈ 𝒫 𝐡)
109adantr 482 . . . . . . 7 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (𝐡 βˆ– 𝑧) ∈ 𝒫 𝐡)
11 fnelfp 7173 . . . . . . 7 ((𝐹 Fn 𝒫 𝐡 ∧ (𝐡 βˆ– 𝑧) ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(𝐡 βˆ– 𝑧)) = (𝐡 βˆ– 𝑧)))
124, 10, 11syl2anc 585 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(𝐡 βˆ– 𝑧)) = (𝐡 βˆ– 𝑧)))
1312bicomd 222 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((πΉβ€˜(𝐡 βˆ– 𝑧)) = (𝐡 βˆ– 𝑧) ↔ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )))
1413rabbidva 3440 . . . 4 (πœ‘ β†’ {𝑧 ∈ 𝒫 𝐡 ∣ (πΉβ€˜(𝐡 βˆ– 𝑧)) = (𝐡 βˆ– 𝑧)} = {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )})
151, 14eqtrid 2785 . . 3 (πœ‘ β†’ 𝐽 = {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )})
16 istopclsd.e . . . . . 6 ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯))
17 simp1 1137 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ πœ‘)
18 simp2 1138 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ π‘₯ βŠ† 𝐡)
19 simp3 1139 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ 𝑦 βŠ† π‘₯)
2019, 18sstrd 3993 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ 𝑦 βŠ† 𝐡)
21 istopclsd.u . . . . . . . . 9 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† 𝐡) β†’ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)))
2217, 18, 20, 21syl3anc 1372 . . . . . . . 8 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)))
23 ssequn2 4184 . . . . . . . . . . 11 (𝑦 βŠ† π‘₯ ↔ (π‘₯ βˆͺ 𝑦) = π‘₯)
2423biimpi 215 . . . . . . . . . 10 (𝑦 βŠ† π‘₯ β†’ (π‘₯ βˆͺ 𝑦) = π‘₯)
25243ad2ant3 1136 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (π‘₯ βˆͺ 𝑦) = π‘₯)
2625fveq2d 6896 . . . . . . . 8 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = (πΉβ€˜π‘₯))
2722, 26eqtr3d 2775 . . . . . . 7 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)) = (πΉβ€˜π‘₯))
28 ssequn2 4184 . . . . . . 7 ((πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯) ↔ ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)) = (πΉβ€˜π‘₯))
2927, 28sylibr 233 . . . . . 6 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯))
30 istopclsd.i . . . . . 6 ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
316, 2, 16, 29, 30ismrcd1 41436 . . . . 5 (πœ‘ β†’ dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅))
32 istopclsd.z . . . . . 6 (πœ‘ β†’ (πΉβ€˜βˆ…) = βˆ…)
33 0elpw 5355 . . . . . . 7 βˆ… ∈ 𝒫 𝐡
34 fnelfp 7173 . . . . . . 7 ((𝐹 Fn 𝒫 𝐡 ∧ βˆ… ∈ 𝒫 𝐡) β†’ (βˆ… ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜βˆ…) = βˆ…))
353, 33, 34sylancl 587 . . . . . 6 (πœ‘ β†’ (βˆ… ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜βˆ…) = βˆ…))
3632, 35mpbird 257 . . . . 5 (πœ‘ β†’ βˆ… ∈ dom (𝐹 ∩ I ))
37 simp1 1137 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ πœ‘)
38 inss1 4229 . . . . . . . . . . . . 13 (𝐹 ∩ I ) βŠ† 𝐹
39 dmss 5903 . . . . . . . . . . . . 13 ((𝐹 ∩ I ) βŠ† 𝐹 β†’ dom (𝐹 ∩ I ) βŠ† dom 𝐹)
4038, 39ax-mp 5 . . . . . . . . . . . 12 dom (𝐹 ∩ I ) βŠ† dom 𝐹
4140, 2fssdm 6738 . . . . . . . . . . 11 (πœ‘ β†’ dom (𝐹 ∩ I ) βŠ† 𝒫 𝐡)
42413ad2ant1 1134 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ dom (𝐹 ∩ I ) βŠ† 𝒫 𝐡)
43 simp2 1138 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ π‘₯ ∈ dom (𝐹 ∩ I ))
4442, 43sseldd 3984 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ π‘₯ ∈ 𝒫 𝐡)
4544elpwid 4612 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ π‘₯ βŠ† 𝐡)
46 simp3 1139 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ 𝑦 ∈ dom (𝐹 ∩ I ))
4742, 46sseldd 3984 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ 𝑦 ∈ 𝒫 𝐡)
4847elpwid 4612 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ 𝑦 βŠ† 𝐡)
4937, 45, 48, 21syl3anc 1372 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)))
5033ad2ant1 1134 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ 𝐹 Fn 𝒫 𝐡)
51 fnelfp 7173 . . . . . . . . . 10 ((𝐹 Fn 𝒫 𝐡 ∧ π‘₯ ∈ 𝒫 𝐡) β†’ (π‘₯ ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜π‘₯) = π‘₯))
5250, 44, 51syl2anc 585 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (π‘₯ ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜π‘₯) = π‘₯))
5343, 52mpbid 231 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (πΉβ€˜π‘₯) = π‘₯)
54 fnelfp 7173 . . . . . . . . . 10 ((𝐹 Fn 𝒫 𝐡 ∧ 𝑦 ∈ 𝒫 𝐡) β†’ (𝑦 ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜π‘¦) = 𝑦))
5550, 47, 54syl2anc 585 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (𝑦 ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜π‘¦) = 𝑦))
5646, 55mpbid 231 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (πΉβ€˜π‘¦) = 𝑦)
5753, 56uneq12d 4165 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ ((πΉβ€˜π‘₯) βˆͺ (πΉβ€˜π‘¦)) = (π‘₯ βˆͺ 𝑦))
5849, 57eqtrd 2773 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = (π‘₯ βˆͺ 𝑦))
5945, 48unssd 4187 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (π‘₯ βˆͺ 𝑦) βŠ† 𝐡)
60 vex 3479 . . . . . . . . . 10 π‘₯ ∈ V
61 vex 3479 . . . . . . . . . 10 𝑦 ∈ V
6260, 61unex 7733 . . . . . . . . 9 (π‘₯ βˆͺ 𝑦) ∈ V
6362elpw 4607 . . . . . . . 8 ((π‘₯ βˆͺ 𝑦) ∈ 𝒫 𝐡 ↔ (π‘₯ βˆͺ 𝑦) βŠ† 𝐡)
6459, 63sylibr 233 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (π‘₯ βˆͺ 𝑦) ∈ 𝒫 𝐡)
65 fnelfp 7173 . . . . . . 7 ((𝐹 Fn 𝒫 𝐡 ∧ (π‘₯ βˆͺ 𝑦) ∈ 𝒫 𝐡) β†’ ((π‘₯ βˆͺ 𝑦) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = (π‘₯ βˆͺ 𝑦)))
6650, 64, 65syl2anc 585 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ ((π‘₯ βˆͺ 𝑦) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(π‘₯ βˆͺ 𝑦)) = (π‘₯ βˆͺ 𝑦)))
6758, 66mpbird 257 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ dom (𝐹 ∩ I ) ∧ 𝑦 ∈ dom (𝐹 ∩ I )) β†’ (π‘₯ βˆͺ 𝑦) ∈ dom (𝐹 ∩ I ))
68 eqid 2733 . . . . 5 {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )} = {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )}
6931, 36, 67, 68mretopd 22596 . . . 4 (πœ‘ β†’ ({𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )} ∈ (TopOnβ€˜π΅) ∧ dom (𝐹 ∩ I ) = (Clsdβ€˜{𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )})))
7069simpld 496 . . 3 (πœ‘ β†’ {𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )} ∈ (TopOnβ€˜π΅))
7115, 70eqeltrd 2834 . 2 (πœ‘ β†’ 𝐽 ∈ (TopOnβ€˜π΅))
72 topontop 22415 . . . . . 6 (𝐽 ∈ (TopOnβ€˜π΅) β†’ 𝐽 ∈ Top)
7371, 72syl 17 . . . . 5 (πœ‘ β†’ 𝐽 ∈ Top)
74 eqid 2733 . . . . . 6 (mrClsβ€˜(Clsdβ€˜π½)) = (mrClsβ€˜(Clsdβ€˜π½))
7574mrccls 22583 . . . . 5 (𝐽 ∈ Top β†’ (clsβ€˜π½) = (mrClsβ€˜(Clsdβ€˜π½)))
7673, 75syl 17 . . . 4 (πœ‘ β†’ (clsβ€˜π½) = (mrClsβ€˜(Clsdβ€˜π½)))
7769simprd 497 . . . . . 6 (πœ‘ β†’ dom (𝐹 ∩ I ) = (Clsdβ€˜{𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )}))
7815fveq2d 6896 . . . . . 6 (πœ‘ β†’ (Clsdβ€˜π½) = (Clsdβ€˜{𝑧 ∈ 𝒫 𝐡 ∣ (𝐡 βˆ– 𝑧) ∈ dom (𝐹 ∩ I )}))
7977, 78eqtr4d 2776 . . . . 5 (πœ‘ β†’ dom (𝐹 ∩ I ) = (Clsdβ€˜π½))
8079fveq2d 6896 . . . 4 (πœ‘ β†’ (mrClsβ€˜dom (𝐹 ∩ I )) = (mrClsβ€˜(Clsdβ€˜π½)))
8176, 80eqtr4d 2776 . . 3 (πœ‘ β†’ (clsβ€˜π½) = (mrClsβ€˜dom (𝐹 ∩ I )))
826, 2, 16, 29, 30ismrcd2 41437 . . 3 (πœ‘ β†’ 𝐹 = (mrClsβ€˜dom (𝐹 ∩ I )))
8381, 82eqtr4d 2776 . 2 (πœ‘ β†’ (clsβ€˜π½) = 𝐹)
8471, 83jca 513 1 (πœ‘ β†’ (𝐽 ∈ (TopOnβ€˜π΅) ∧ (clsβ€˜π½) = 𝐹))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  {crab 3433   βˆ– cdif 3946   βˆͺ cun 3947   ∩ cin 3948   βŠ† wss 3949  βˆ…c0 4323  π’« cpw 4603   I cid 5574  dom cdm 5677   Fn wfn 6539  βŸΆwf 6540  β€˜cfv 6544  mrClscmrc 17527  Topctop 22395  TopOnctopon 22412  Clsdccld 22520  clsccl 22522
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 2704  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5364  ax-pr 5428  ax-un 7725
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 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-int 4952  df-iun 5000  df-iin 5001  df-br 5150  df-opab 5212  df-mpt 5233  df-id 5575  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-f1 6549  df-fo 6550  df-f1o 6551  df-fv 6552  df-mre 17530  df-mrc 17531  df-top 22396  df-topon 22413  df-cld 22523  df-cls 22525
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator