Step | Hyp | Ref
| Expression |
1 | | selvadd.p |
. . . . . 6
β’ π = (πΌ mPoly π
) |
2 | | eqid 2733 |
. . . . . 6
β’ (πΌ mPoly π) = (πΌ mPoly π) |
3 | | selvadd.b |
. . . . . 6
β’ π΅ = (Baseβπ) |
4 | | eqid 2733 |
. . . . . 6
β’
(Baseβ(πΌ mPoly
π)) = (Baseβ(πΌ mPoly π)) |
5 | | selvadd.1 |
. . . . . 6
β’ + =
(+gβπ) |
6 | | eqid 2733 |
. . . . . 6
β’
(+gβ(πΌ mPoly π)) = (+gβ(πΌ mPoly π)) |
7 | | selvadd.i |
. . . . . 6
β’ (π β πΌ β π) |
8 | | selvadd.u |
. . . . . . . 8
β’ π = ((πΌ β π½) mPoly π
) |
9 | | selvadd.t |
. . . . . . . 8
β’ π = (π½ mPoly π) |
10 | | eqid 2733 |
. . . . . . . 8
β’
(algScβπ) =
(algScβπ) |
11 | | eqid 2733 |
. . . . . . . 8
β’
((algScβπ)
β (algScβπ)) =
((algScβπ) β
(algScβπ)) |
12 | 7 | difexd 5330 |
. . . . . . . 8
β’ (π β (πΌ β π½) β V) |
13 | | selvadd.j |
. . . . . . . . 9
β’ (π β π½ β πΌ) |
14 | 7, 13 | ssexd 5325 |
. . . . . . . 8
β’ (π β π½ β V) |
15 | | selvadd.r |
. . . . . . . 8
β’ (π β π
β CRing) |
16 | 8, 9, 10, 11, 12, 14, 15 | selvcllem2 41150 |
. . . . . . 7
β’ (π β ((algScβπ) β (algScβπ)) β (π
RingHom π)) |
17 | | rhmghm 20262 |
. . . . . . 7
β’
(((algScβπ)
β (algScβπ))
β (π
RingHom π) β ((algScβπ) β (algScβπ)) β (π
GrpHom π)) |
18 | | ghmmhm 19102 |
. . . . . . 7
β’
(((algScβπ)
β (algScβπ))
β (π
GrpHom π) β ((algScβπ) β (algScβπ)) β (π
MndHom π)) |
19 | 16, 17, 18 | 3syl 18 |
. . . . . 6
β’ (π β ((algScβπ) β (algScβπ)) β (π
MndHom π)) |
20 | | selvadd.f |
. . . . . 6
β’ (π β πΉ β π΅) |
21 | | selvadd.g |
. . . . . 6
β’ (π β πΊ β π΅) |
22 | 1, 2, 3, 4, 5, 6, 7, 19, 20, 21 | mhmcoaddmpl 41123 |
. . . . 5
β’ (π β (((algScβπ) β (algScβπ)) β (πΉ + πΊ)) = ((((algScβπ) β (algScβπ)) β πΉ)(+gβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ))) |
23 | 22 | fveq2d 6896 |
. . . 4
β’ (π β ((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ + πΊ))) = ((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(+gβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))) |
24 | 23 | fveq1d 6894 |
. . 3
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ + πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(+gβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
25 | | eqid 2733 |
. . . . 5
β’ (πΌ eval π) = (πΌ eval π) |
26 | | eqid 2733 |
. . . . 5
β’
(Baseβπ) =
(Baseβπ) |
27 | | selvadd.2 |
. . . . 5
β’ β =
(+gβπ) |
28 | 8, 12, 15 | mplcrngd 41118 |
. . . . . 6
β’ (π β π β CRing) |
29 | 9, 14, 28 | mplcrngd 41118 |
. . . . 5
β’ (π β π β CRing) |
30 | | eqid 2733 |
. . . . . 6
β’ (π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))) = (π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))) |
31 | 8, 9, 10, 26, 30, 7, 15, 13 | selvcllem5 41154 |
. . . . 5
β’ (π β (π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))) β ((Baseβπ) βm πΌ)) |
32 | 1, 2, 3, 4, 7, 19,
20 | mhmcompl 41120 |
. . . . . 6
β’ (π β (((algScβπ) β (algScβπ)) β πΉ) β (Baseβ(πΌ mPoly π))) |
33 | | eqidd 2734 |
. . . . . 6
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
34 | 32, 33 | jca 513 |
. . . . 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, 19,
21 | mhmcompl 41120 |
. . . . . 6
β’ (π β (((algScβπ) β (algScβπ)) β πΊ) β (Baseβ(πΌ mPoly π))) |
36 | | eqidd 2734 |
. . . . . 6
β’ (π β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
37 | 35, 36 | jca 513 |
. . . . 5
β’ (π β ((((algScβπ) β (algScβπ)) β πΊ) β (Baseβ(πΌ mPoly π)) β§ (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
38 | 25, 2, 26, 4, 6, 27, 7, 29, 31, 34, 37 | evladdval 41147 |
. . . 4
β’ (π β (((((algScβπ) β (algScβπ)) β πΉ)(+gβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)) β (Baseβ(πΌ mPoly π)) β§ (((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(+gβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))))) |
39 | 38 | simprd 497 |
. . 3
β’ (π β (((πΌ eval π)β((((algScβπ) β (algScβπ)) β πΉ)(+gβ(πΌ mPoly π))(((algScβπ) β (algScβπ)) β πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
40 | 24, 39 | eqtrd 2773 |
. 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 41118 |
. . . . 5
β’ (π β π β CRing) |
42 | 41 | crnggrpd 20070 |
. . . 4
β’ (π β π β Grp) |
43 | 3, 5, 42, 20, 21 | grpcld 18833 |
. . 3
β’ (π β (πΉ + πΊ) β π΅) |
44 | 1, 3, 8, 9, 10, 11, 7, 15, 13, 43 | selvval2 41156 |
. 2
β’ (π β (((πΌ selectVars π
)βπ½)β(πΉ + πΊ)) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β (πΉ + πΊ)))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
45 | 1, 3, 8, 9, 10, 11, 7, 15, 13, 20 | selvval2 41156 |
. . 3
β’ (π β (((πΌ selectVars π
)βπ½)βπΉ) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
46 | 1, 3, 8, 9, 10, 11, 7, 15, 13, 21 | selvval2 41156 |
. . 3
β’ (π β (((πΌ selectVars π
)βπ½)βπΊ) = (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯)))))) |
47 | 45, 46 | oveq12d 7427 |
. 2
β’ (π β ((((πΌ selectVars π
)βπ½)βπΉ) β (((πΌ selectVars π
)βπ½)βπΊ)) = ((((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΉ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))) β (((πΌ eval π)β(((algScβπ) β (algScβπ)) β πΊ))β(π₯ β πΌ β¦ if(π₯ β π½, ((π½ mVar π)βπ₯), ((algScβπ)β(((πΌ β π½) mVar π
)βπ₯))))))) |
48 | 40, 44, 47 | 3eqtr4d 2783 |
1
β’ (π β (((πΌ selectVars π
)βπ½)β(πΉ + πΊ)) = ((((πΌ selectVars π
)βπ½)βπΉ) β (((πΌ selectVars π
)βπ½)βπΊ))) |