Step | Hyp | Ref
| Expression |
1 | | eqid 2732 |
. . . . . 6
β’
(mVRβπ) =
(mVRβπ) |
2 | | eqid 2732 |
. . . . . 6
β’
(mRExβπ) =
(mRExβπ) |
3 | | elmsubrn.s |
. . . . . 6
β’ π = (mSubstβπ) |
4 | | elmsubrn.e |
. . . . . 6
β’ πΈ = (mExβπ) |
5 | | elmsubrn.o |
. . . . . 6
β’ π = (mRSubstβπ) |
6 | 1, 2, 3, 4, 5 | msubffval 34509 |
. . . . 5
β’ (π β V β π = (π β ((mRExβπ) βpm (mVRβπ)) β¦ (π β πΈ β¦ β¨(1st βπ), ((πβπ)β(2nd βπ))β©))) |
7 | 1, 2, 5 | mrsubff 34498 |
. . . . . . . 8
β’ (π β V β π:((mRExβπ) βpm (mVRβπ))βΆ((mRExβπ) βm
(mRExβπ))) |
8 | 7 | ffnd 6718 |
. . . . . . 7
β’ (π β V β π Fn ((mRExβπ) βpm
(mVRβπ))) |
9 | | fnfvelrn 7082 |
. . . . . . 7
β’ ((π Fn ((mRExβπ) βpm
(mVRβπ)) β§ π β ((mRExβπ) βpm
(mVRβπ))) β
(πβπ) β ran π) |
10 | 8, 9 | sylan 580 |
. . . . . 6
β’ ((π β V β§ π β ((mRExβπ) βpm
(mVRβπ))) β
(πβπ) β ran π) |
11 | 7 | feqmptd 6960 |
. . . . . 6
β’ (π β V β π = (π β ((mRExβπ) βpm (mVRβπ)) β¦ (πβπ))) |
12 | | eqidd 2733 |
. . . . . 6
β’ (π β V β (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) = (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©))) |
13 | | fveq1 6890 |
. . . . . . . 8
β’ (π = (πβπ) β (πβ(2nd βπ)) = ((πβπ)β(2nd βπ))) |
14 | 13 | opeq2d 4880 |
. . . . . . 7
β’ (π = (πβπ) β β¨(1st βπ), (πβ(2nd βπ))β© = β¨(1st
βπ), ((πβπ)β(2nd βπ))β©) |
15 | 14 | mpteq2dv 5250 |
. . . . . 6
β’ (π = (πβπ) β (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©) = (π β πΈ β¦ β¨(1st βπ), ((πβπ)β(2nd βπ))β©)) |
16 | 10, 11, 12, 15 | fmptco 7126 |
. . . . 5
β’ (π β V β ((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) β π) = (π β ((mRExβπ) βpm (mVRβπ)) β¦ (π β πΈ β¦ β¨(1st βπ), ((πβπ)β(2nd βπ))β©))) |
17 | 6, 16 | eqtr4d 2775 |
. . . 4
β’ (π β V β π = ((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) β π)) |
18 | 17 | rneqd 5937 |
. . 3
β’ (π β V β ran π = ran ((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) β π)) |
19 | | rnco 6251 |
. . . 4
β’ ran
((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) β π) = ran ((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) βΎ ran π) |
20 | | ssid 4004 |
. . . . . 6
β’ ran π β ran π |
21 | | resmpt 6037 |
. . . . . 6
β’ (ran
π β ran π β ((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) βΎ ran π) = (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©))) |
22 | 20, 21 | ax-mp 5 |
. . . . 5
β’ ((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) βΎ ran π) = (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) |
23 | 22 | rneqi 5936 |
. . . 4
β’ ran
((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) βΎ ran π) = ran (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) |
24 | 19, 23 | eqtri 2760 |
. . 3
β’ ran
((π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) β π) = ran (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) |
25 | 18, 24 | eqtrdi 2788 |
. 2
β’ (π β V β ran π = ran (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©))) |
26 | | mpt0 6692 |
. . . . 5
β’ (π β β
β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) =
β
|
27 | 26 | eqcomi 2741 |
. . . 4
β’ β
=
(π β β
β¦
(π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) |
28 | | fvprc 6883 |
. . . . 5
β’ (Β¬
π β V β
(mSubstβπ) =
β
) |
29 | 3, 28 | eqtrid 2784 |
. . . 4
β’ (Β¬
π β V β π = β
) |
30 | 5 | rnfvprc 6885 |
. . . . 5
β’ (Β¬
π β V β ran π = β
) |
31 | 30 | mpteq1d 5243 |
. . . 4
β’ (Β¬
π β V β (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) = (π β β
β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©))) |
32 | 27, 29, 31 | 3eqtr4a 2798 |
. . 3
β’ (Β¬
π β V β π = (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©))) |
33 | 32 | rneqd 5937 |
. 2
β’ (Β¬
π β V β ran π = ran (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©))) |
34 | 25, 33 | pm2.61i 182 |
1
β’ ran π = ran (π β ran π β¦ (π β πΈ β¦ β¨(1st βπ), (πβ(2nd βπ))β©)) |