Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ismrcd2 Structured version   Visualization version   GIF version
Theorem ismrcd2 41437
Description: Second half of ismrcd1 41436. (Contributed by Stefan O'Rear, 1-Feb-2015.)
Hypotheses
Ref Expression
ismrcd.b (πœ‘ β†’ 𝐡 ∈ 𝑉)
ismrcd.f (πœ‘ β†’ 𝐹:𝒫 π΅βŸΆπ’« 𝐡)
ismrcd.e ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯))
ismrcd.m ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯))
ismrcd.i ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
Assertion
Ref Expression
ismrcd2 (πœ‘ β†’ 𝐹 = (mrClsβ€˜dom (𝐹 ∩ I )))
Distinct variable groups:   πœ‘,π‘₯,𝑦   π‘₯,𝐡,𝑦   π‘₯,𝐹,𝑦   π‘₯,𝑉,𝑦
Proof of Theorem ismrcd2
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 ismrcd.f . . 3 (πœ‘ β†’ 𝐹:𝒫 π΅βŸΆπ’« 𝐡)
21ffnd 6719 . 2 (πœ‘ β†’ 𝐹 Fn 𝒫 𝐡)
3 ismrcd.b . . . 4 (πœ‘ β†’ 𝐡 ∈ 𝑉)
4 ismrcd.e . . . 4 ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯))
5 ismrcd.m . . . 4 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯))
6 ismrcd.i . . . 4 ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
73, 1, 4, 5, 6ismrcd1 41436 . . 3 (πœ‘ β†’ dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅))
8 eqid 2733 . . . 4 (mrClsβ€˜dom (𝐹 ∩ I )) = (mrClsβ€˜dom (𝐹 ∩ I ))
98mrcf 17553 . . 3 (dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) β†’ (mrClsβ€˜dom (𝐹 ∩ I )):𝒫 𝐡⟢dom (𝐹 ∩ I ))
10 ffn 6718 . . 3 ((mrClsβ€˜dom (𝐹 ∩ I )):𝒫 𝐡⟢dom (𝐹 ∩ I ) β†’ (mrClsβ€˜dom (𝐹 ∩ I )) Fn 𝒫 𝐡)
117, 9, 103syl 18 . 2 (πœ‘ β†’ (mrClsβ€˜dom (𝐹 ∩ I )) Fn 𝒫 𝐡)
127, 8mrcssvd 17567 . . . . . 6 (πœ‘ β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡)
1312adantr 482 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡)
14 elpwi 4610 . . . . . 6 (𝑧 ∈ 𝒫 𝐡 β†’ 𝑧 βŠ† 𝐡)
158mrcssid 17561 . . . . . 6 ((dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) ∧ 𝑧 βŠ† 𝐡) β†’ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
167, 14, 15syl2an 597 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
1753expib 1123 . . . . . . . 8 (πœ‘ β†’ ((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)))
1817alrimivv 1932 . . . . . . 7 (πœ‘ β†’ βˆ€π‘¦βˆ€π‘₯((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)))
19 vex 3479 . . . . . . . 8 𝑧 ∈ V
20 fvex 6905 . . . . . . . 8 ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ V
21 sseq1 4008 . . . . . . . . . . . 12 (π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) β†’ (π‘₯ βŠ† 𝐡 ↔ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡))
2221adantl 483 . . . . . . . . . . 11 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (π‘₯ βŠ† 𝐡 ↔ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡))
23 sseq12 4010 . . . . . . . . . . 11 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (𝑦 βŠ† π‘₯ ↔ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
2422, 23anbi12d 632 . . . . . . . . . 10 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ ((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) ↔ (((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
25 fveq2 6892 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ (πΉβ€˜π‘¦) = (πΉβ€˜π‘§))
26 fveq2 6892 . . . . . . . . . . 11 (π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) β†’ (πΉβ€˜π‘₯) = (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
27 sseq12 4010 . . . . . . . . . . 11 (((πΉβ€˜π‘¦) = (πΉβ€˜π‘§) ∧ (πΉβ€˜π‘₯) = (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))) β†’ ((πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯) ↔ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
2825, 26, 27syl2an 597 . . . . . . . . . 10 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ ((πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯) ↔ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
2924, 28imbi12d 345 . . . . . . . . 9 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)) ↔ ((((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))))
3029spc2gv 3591 . . . . . . . 8 ((𝑧 ∈ V ∧ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ V) β†’ (βˆ€π‘¦βˆ€π‘₯((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)) β†’ ((((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))))
3119, 20, 30mp2an 691 . . . . . . 7 (βˆ€π‘¦βˆ€π‘₯((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)) β†’ ((((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
3218, 31syl 17 . . . . . 6 (πœ‘ β†’ ((((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
3332adantr 482 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
3413, 16, 33mp2and 698 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) βŠ† (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
358mrccl 17555 . . . . . 6 ((dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) ∧ 𝑧 βŠ† 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ dom (𝐹 ∩ I ))
367, 14, 35syl2an 597 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ dom (𝐹 ∩ I ))
372adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝐹 Fn 𝒫 𝐡)
3820elpw 4607 . . . . . . . 8 (((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡 ↔ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡)
3912, 38sylibr 233 . . . . . . 7 (πœ‘ β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡)
4039adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡)
41 fnelfp 7173 . . . . . 6 ((𝐹 Fn 𝒫 𝐡 ∧ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡) β†’ (((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
4237, 40, 41syl2anc 585 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
4336, 42mpbid 231 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
4434, 43sseqtrd 4023 . . 3 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
457adantr 482 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅))
46 sseq1 4008 . . . . . . . 8 (π‘₯ = 𝑧 β†’ (π‘₯ βŠ† 𝐡 ↔ 𝑧 βŠ† 𝐡))
4746anbi2d 630 . . . . . . 7 (π‘₯ = 𝑧 β†’ ((πœ‘ ∧ π‘₯ βŠ† 𝐡) ↔ (πœ‘ ∧ 𝑧 βŠ† 𝐡)))
48 id 22 . . . . . . . 8 (π‘₯ = 𝑧 β†’ π‘₯ = 𝑧)
49 fveq2 6892 . . . . . . . 8 (π‘₯ = 𝑧 β†’ (πΉβ€˜π‘₯) = (πΉβ€˜π‘§))
5048, 49sseq12d 4016 . . . . . . 7 (π‘₯ = 𝑧 β†’ (π‘₯ βŠ† (πΉβ€˜π‘₯) ↔ 𝑧 βŠ† (πΉβ€˜π‘§)))
5147, 50imbi12d 345 . . . . . 6 (π‘₯ = 𝑧 β†’ (((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯)) ↔ ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ 𝑧 βŠ† (πΉβ€˜π‘§))))
5251, 4chvarvv 2003 . . . . 5 ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ 𝑧 βŠ† (πΉβ€˜π‘§))
5314, 52sylan2 594 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝑧 βŠ† (πΉβ€˜π‘§))
54 2fveq3 6897 . . . . . . . . 9 (π‘₯ = 𝑧 β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜(πΉβ€˜π‘§)))
5554, 49eqeq12d 2749 . . . . . . . 8 (π‘₯ = 𝑧 β†’ ((πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯) ↔ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§)))
5647, 55imbi12d 345 . . . . . . 7 (π‘₯ = 𝑧 β†’ (((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯)) ↔ ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§))))
5756, 6chvarvv 2003 . . . . . 6 ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§))
5814, 57sylan2 594 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§))
591ffvelcdmda 7087 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) ∈ 𝒫 𝐡)
60 fnelfp 7173 . . . . . 6 ((𝐹 Fn 𝒫 𝐡 ∧ (πΉβ€˜π‘§) ∈ 𝒫 𝐡) β†’ ((πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§)))
6137, 59, 60syl2anc 585 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§)))
6258, 61mpbird 257 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I ))
638mrcsscl 17564 . . . 4 ((dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) ∧ 𝑧 βŠ† (πΉβ€˜π‘§) ∧ (πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I )) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† (πΉβ€˜π‘§))
6445, 53, 62, 63syl3anc 1372 . . 3 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† (πΉβ€˜π‘§))
6544, 64eqssd 4000 . 2 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
662, 11, 65eqfnfvd 7036 1 (πœ‘ β†’ 𝐹 = (mrClsβ€˜dom (𝐹 ∩ I )))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088  βˆ€wal 1540   = wceq 1542   ∈ wcel 2107  Vcvv 3475   ∩ cin 3948   βŠ† wss 3949  π’« cpw 4603   I cid 5574  dom cdm 5677   Fn wfn 6539  βŸΆwf 6540  β€˜cfv 6544  Moorecmre 17526  mrClscmrc 17527
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-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-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-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-fv 6552  df-mre 17530  df-mrc 17531
This theorem is referenced by:  istopclsd  41438  ismrc  41439
  Copyright terms: Public domain W3C validator