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 41069
Description: Second half of ismrcd1 41068. (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 6673 . 2 (πœ‘ β†’ 𝐹 Fn 𝒫 𝐡)
3 ismrcd.b . . . 4 (πœ‘ β†’ 𝐡 ∈ 𝑉)
4 ismrcd.e . . . 4 ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯))
5 ismrcd.m . . . 4 ((πœ‘ ∧ π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯))
6 ismrcd.i . . . 4 ((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
73, 1, 4, 5, 6ismrcd1 41068 . . 3 (πœ‘ β†’ dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅))
8 eqid 2733 . . . 4 (mrClsβ€˜dom (𝐹 ∩ I )) = (mrClsβ€˜dom (𝐹 ∩ I ))
98mrcf 17497 . . 3 (dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) β†’ (mrClsβ€˜dom (𝐹 ∩ I )):𝒫 𝐡⟢dom (𝐹 ∩ I ))
10 ffn 6672 . . 3 ((mrClsβ€˜dom (𝐹 ∩ I )):𝒫 𝐡⟢dom (𝐹 ∩ I ) β†’ (mrClsβ€˜dom (𝐹 ∩ I )) Fn 𝒫 𝐡)
117, 9, 103syl 18 . 2 (πœ‘ β†’ (mrClsβ€˜dom (𝐹 ∩ I )) Fn 𝒫 𝐡)
127, 8mrcssvd 17511 . . . . . 6 (πœ‘ β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡)
1312adantr 482 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡)
14 elpwi 4571 . . . . . 6 (𝑧 ∈ 𝒫 𝐡 β†’ 𝑧 βŠ† 𝐡)
158mrcssid 17505 . . . . . 6 ((dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) ∧ 𝑧 βŠ† 𝐡) β†’ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
167, 14, 15syl2an 597 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
1753expib 1123 . . . . . . . 8 (πœ‘ β†’ ((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)))
1817alrimivv 1932 . . . . . . 7 (πœ‘ β†’ βˆ€π‘¦βˆ€π‘₯((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) β†’ (πΉβ€˜π‘¦) βŠ† (πΉβ€˜π‘₯)))
19 vex 3451 . . . . . . . 8 𝑧 ∈ V
20 fvex 6859 . . . . . . . 8 ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ V
21 sseq1 3973 . . . . . . . . . . . 12 (π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) β†’ (π‘₯ βŠ† 𝐡 ↔ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡))
2221adantl 483 . . . . . . . . . . 11 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (π‘₯ βŠ† 𝐡 ↔ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡))
23 sseq12 3975 . . . . . . . . . . 11 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ (𝑦 βŠ† π‘₯ ↔ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
2422, 23anbi12d 632 . . . . . . . . . 10 ((𝑦 = 𝑧 ∧ π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)) β†’ ((π‘₯ βŠ† 𝐡 ∧ 𝑦 βŠ† π‘₯) ↔ (((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡 ∧ 𝑧 βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))))
25 fveq2 6846 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ (πΉβ€˜π‘¦) = (πΉβ€˜π‘§))
26 fveq2 6846 . . . . . . . . . . 11 (π‘₯ = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) β†’ (πΉβ€˜π‘₯) = (πΉβ€˜((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§)))
27 sseq12 3975 . . . . . . . . . . 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 3561 . . . . . . . 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 17499 . . . . . 6 ((dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) ∧ 𝑧 βŠ† 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ dom (𝐹 ∩ I ))
367, 14, 35syl2an 597 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ dom (𝐹 ∩ I ))
372adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝐹 Fn 𝒫 𝐡)
3820elpw 4568 . . . . . . . 8 (((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡 ↔ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† 𝐡)
3912, 38sylibr 233 . . . . . . 7 (πœ‘ β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡)
4039adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) ∈ 𝒫 𝐡)
41 fnelfp 7125 . . . . . 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 3988 . . 3 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) βŠ† ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
457adantr 482 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅))
46 sseq1 3973 . . . . . . . 8 (π‘₯ = 𝑧 β†’ (π‘₯ βŠ† 𝐡 ↔ 𝑧 βŠ† 𝐡))
4746anbi2d 630 . . . . . . 7 (π‘₯ = 𝑧 β†’ ((πœ‘ ∧ π‘₯ βŠ† 𝐡) ↔ (πœ‘ ∧ 𝑧 βŠ† 𝐡)))
48 id 22 . . . . . . . 8 (π‘₯ = 𝑧 β†’ π‘₯ = 𝑧)
49 fveq2 6846 . . . . . . . 8 (π‘₯ = 𝑧 β†’ (πΉβ€˜π‘₯) = (πΉβ€˜π‘§))
5048, 49sseq12d 3981 . . . . . . 7 (π‘₯ = 𝑧 β†’ (π‘₯ βŠ† (πΉβ€˜π‘₯) ↔ 𝑧 βŠ† (πΉβ€˜π‘§)))
5147, 50imbi12d 345 . . . . . 6 (π‘₯ = 𝑧 β†’ (((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ π‘₯ βŠ† (πΉβ€˜π‘₯)) ↔ ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ 𝑧 βŠ† (πΉβ€˜π‘§))))
5251, 4chvarvv 2003 . . . . 5 ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ 𝑧 βŠ† (πΉβ€˜π‘§))
5314, 52sylan2 594 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ 𝑧 βŠ† (πΉβ€˜π‘§))
54 2fveq3 6851 . . . . . . . . 9 (π‘₯ = 𝑧 β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜(πΉβ€˜π‘§)))
5554, 49eqeq12d 2749 . . . . . . . 8 (π‘₯ = 𝑧 β†’ ((πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯) ↔ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§)))
5647, 55imbi12d 345 . . . . . . 7 (π‘₯ = 𝑧 β†’ (((πœ‘ ∧ π‘₯ βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯)) ↔ ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§))))
5756, 6chvarvv 2003 . . . . . 6 ((πœ‘ ∧ 𝑧 βŠ† 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§))
5814, 57sylan2 594 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§))
591ffvelcdmda 7039 . . . . . 6 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) ∈ 𝒫 𝐡)
60 fnelfp 7125 . . . . . 6 ((𝐹 Fn 𝒫 𝐡 ∧ (πΉβ€˜π‘§) ∈ 𝒫 𝐡) β†’ ((πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§)))
6137, 59, 60syl2anc 585 . . . . 5 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I ) ↔ (πΉβ€˜(πΉβ€˜π‘§)) = (πΉβ€˜π‘§)))
6258, 61mpbird 257 . . . 4 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I ))
638mrcsscl 17508 . . . 4 ((dom (𝐹 ∩ I ) ∈ (Mooreβ€˜π΅) ∧ 𝑧 βŠ† (πΉβ€˜π‘§) ∧ (πΉβ€˜π‘§) ∈ dom (𝐹 ∩ I )) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† (πΉβ€˜π‘§))
6445, 53, 62, 63syl3anc 1372 . . 3 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§) βŠ† (πΉβ€˜π‘§))
6544, 64eqssd 3965 . 2 ((πœ‘ ∧ 𝑧 ∈ 𝒫 𝐡) β†’ (πΉβ€˜π‘§) = ((mrClsβ€˜dom (𝐹 ∩ I ))β€˜π‘§))
662, 11, 65eqfnfvd 6989 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 3447   ∩ cin 3913   βŠ† wss 3914  π’« cpw 4564   I cid 5534  dom cdm 5637   Fn wfn 6495  βŸΆwf 6496  β€˜cfv 6500  Moorecmre 17470  mrClscmrc 17471
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 5260  ax-nul 5267  ax-pow 5324  ax-pr 5388  ax-un 7676
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 2941  df-ral 3062  df-rex 3071  df-rab 3407  df-v 3449  df-sbc 3744  df-csb 3860  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-nul 4287  df-if 4491  df-pw 4566  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4870  df-int 4912  df-br 5110  df-opab 5172  df-mpt 5193  df-id 5535  df-xp 5643  df-rel 5644  df-cnv 5645  df-co 5646  df-dm 5647  df-rn 5648  df-res 5649  df-ima 5650  df-iota 6452  df-fun 6502  df-fn 6503  df-f 6504  df-fv 6508  df-mre 17474  df-mrc 17475
This theorem is referenced by:  istopclsd  41070  ismrc  41071
  Copyright terms: Public domain W3C validator