Step | Hyp | Ref
| Expression |
1 | | selvmul.p |
. . . . . 6
β’ π = (πΌ mPoly π
) |
2 | | eqid 2732 |
. . . . . 6
β’ (πΌ mPoly π) = (πΌ mPoly π) |
3 | | selvmul.b |
. . . . . 6
β’ π΅ = (Baseβπ) |
4 | | eqid 2732 |
. . . . . 6
β’
(Baseβ(πΌ mPoly
π)) = (Baseβ(πΌ mPoly π)) |
5 | | selvmul.1 |
. . . . . 6
β’ Β· =
(.rβπ) |
6 | | eqid 2732 |
. . . . . 6
β’
(.rβ(πΌ mPoly π)) = (.rβ(πΌ mPoly π)) |
7 | | selvmul.i |
. . . . . 6
β’ (π β πΌ β π) |
8 | | selvmul.u |
. . . . . . 7
β’ π = ((πΌ β π½) mPoly π
) |
9 | | selvmul.t |
. . . . . . 7
β’ π = (π½ mPoly π) |
10 | | eqid 2732 |
. . . . . . 7
β’
(algScβπ) =
(algScβπ) |
11 | | eqid 2732 |
. . . . . . 7
β’
((algScβπ)
β (algScβπ)) =
((algScβπ) β
(algScβπ)) |
12 | 7 | difexd 5329 |
. . . . . . 7
β’ (π β (πΌ β π½) β V) |
13 | | selvmul.j |
. . . . . . . 8
β’ (π β π½ β πΌ) |
14 | 7, 13 | ssexd 5324 |
. . . . . . 7
β’ (π β π½ β V) |
15 | | selvmul.r |
. . . . . . 7
β’ (π β π
β CRing) |
16 | 8, 9, 10, 11, 12, 14, 15 | selvcllem2 41152 |
. . . . . 6
β’ (π β ((algScβπ) β (algScβπ)) β (π
RingHom π)) |
17 | | selvmul.f |
. . . . . 6
β’ (π β πΉ β π΅) |
18 | | selvmul.g |
. . . . . 6
β’ (π β πΊ β π΅) |
19 | 1, 2, 3, 4, 5, 6, 7, 16, 17, 18 | rhmcomulmpl 41126 |
. . . . 5
β’ (π β (((algScβπ) β (algScβπ)) β (πΉ Β· πΊ)) = ((((algScβπ) β (algScβπ)) β πΉ)(.rβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ))) |
20 | 19 | fveq2d 6895 |
. . . 4
β’ (π β ((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ Β· πΊ))) = ((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(.rβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))) |
21 | 20 | fveq1d 6893 |
. . 3
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ Β· πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(.rβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
22 | | eqid 2732 |
. . . . 5
β’ (πΌ eval π) = (πΌ eval π) |
23 | | eqid 2732 |
. . . . 5
β’
(Baseβπ) =
(Baseβπ) |
24 | | selvmul.2 |
. . . . 5
β’ β =
(.rβπ) |
25 | 8, 12, 15 | mplcrngd 41120 |
. . . . . 6
β’ (π β π β CRing) |
26 | 9, 14, 25 | mplcrngd 41120 |
. . . . 5
β’ (π β π β CRing) |
27 | | eqid 2732 |
. . . . . 6
β’ (π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))) = (π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))) |
28 | 8, 9, 10, 23, 27, 7, 15, 13 | selvcllem5 41156 |
. . . . 5
β’ (π β (π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))) β ((Baseβπ) βm πΌ)) |
29 | | rhmghm 20261 |
. . . . . . . 8
β’
(((algScβπ)
β (algScβπ))
β (π
RingHom π) β ((algScβπ) β (algScβπ)) β (π
GrpHom π)) |
30 | | ghmmhm 19101 |
. . . . . . . 8
β’
(((algScβπ)
β (algScβπ))
β (π
GrpHom π) β ((algScβπ) β (algScβπ)) β (π
MndHom π)) |
31 | 16, 29, 30 | 3syl 18 |
. . . . . . 7
β’ (π β ((algScβπ) β (algScβπ)) β (π
MndHom π)) |
32 | 1, 2, 3, 4, 7, 31,
17 | mhmcompl 41122 |
. . . . . 6
β’ (π β (((algScβπ) β (algScβπ)) β πΉ) β (Baseβ(πΌ mPoly π))) |
33 | | eqidd 2733 |
. . . . . 6
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
34 | 32, 33 | jca 512 |
. . . . 5
β’ (π β ((((algScβπ) β (algScβπ)) β πΉ) β (Baseβ(πΌ mPoly π)) β§ (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
35 | 1, 2, 3, 4, 7, 31,
18 | mhmcompl 41122 |
. . . . . 6
β’ (π β (((algScβπ) β (algScβπ)) β πΊ) β (Baseβ(πΌ mPoly π))) |
36 | | eqidd 2733 |
. . . . . 6
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
37 | 35, 36 | jca 512 |
. . . . 5
β’ (π β ((((algScβπ) β (algScβπ)) β πΊ) β (Baseβ(πΌ mPoly π)) β§ (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
38 | 22, 2, 23, 4, 6, 24, 7, 26, 28, 34, 37 | evlmulval 41150 |
. . . 4
β’ (π β (((((algScβπ) β (algScβπ)) β πΉ)(.rβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)) β (Baseβ(πΌ mPoly π)) β§ (((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(.rβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))))) |
39 | 38 | simprd 496 |
. . 3
β’ (π β (((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(.rβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
40 | 21, 39 | eqtrd 2772 |
. 2
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ Β· πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
41 | 1, 7, 15 | mplcrngd 41120 |
. . . . 5
β’ (π β π β CRing) |
42 | 41 | crngringd 20068 |
. . . 4
β’ (π β π β Ring) |
43 | 3, 5, 42, 17, 18 | ringcld 20079 |
. . 3
β’ (π β (πΉ Β· πΊ) β π΅) |
44 | 1, 3, 8, 9, 10, 11, 7, 15, 13, 43 | selvval2 41158 |
. 2
β’ (π β (((πΌ selectVars π
)βπ½)β(πΉ Β· πΊ)) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ Β· πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
45 | 1, 3, 8, 9, 10, 11, 7, 15, 13, 17 | selvval2 41158 |
. . 3
β’ (π β (((πΌ selectVars π
)βπ½)βπΉ) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
46 | 1, 3, 8, 9, 10, 11, 7, 15, 13, 18 | selvval2 41158 |
. . 3
β’ (π β (((πΌ selectVars π
)βπ½)βπΊ) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
47 | 45, 46 | oveq12d 7426 |
. 2
β’ (π β ((((πΌ selectVars π
)βπ½)βπΉ) β (((πΌ selectVars π
)βπ½)βπΊ)) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
48 | 40, 44, 47 | 3eqtr4d 2782 |
1
β’ (π β (((πΌ selectVars π
)βπ½)β(πΉ Β· πΊ)) = ((((πΌ selectVars π
)βπ½)βπΉ) β (((πΌ selectVars π
)βπ½)βπΊ))) |