Step | Hyp | Ref
| Expression |
1 | | cpmidgsum.a |
. . . 4
β’ π΄ = (π Mat π
) |
2 | | cpmidgsum.b |
. . . 4
β’ π΅ = (Baseβπ΄) |
3 | | cpmidgsum.p |
. . . 4
β’ π = (Poly1βπ
) |
4 | | cpmidgsum.y |
. . . 4
β’ π = (π Mat π) |
5 | | cpmidgsum.x |
. . . 4
β’ π = (var1βπ
) |
6 | | cpmidgsum.e |
. . . 4
β’ β =
(.gβ(mulGrpβπ)) |
7 | | cpmidgsum.m |
. . . 4
β’ Β· = (
Β·π βπ) |
8 | | cpmidgsum.1 |
. . . 4
β’ 1 =
(1rβπ) |
9 | | cpmidgsum.u |
. . . 4
β’ π = (algScβπ) |
10 | | cpmidgsum.c |
. . . 4
β’ πΆ = (π CharPlyMat π
) |
11 | | cpmidgsum.k |
. . . 4
β’ πΎ = (πΆβπ) |
12 | | cpmidgsum.h |
. . . 4
β’ π» = (πΎ Β· 1 ) |
13 | | cpmidgsumm2pm.o |
. . . 4
β’ π = (1rβπ΄) |
14 | | cpmidgsumm2pm.m |
. . . 4
β’ β = (
Β·π βπ΄) |
15 | | cpmidgsumm2pm.t |
. . . 4
β’ π = (π matToPolyMat π
) |
16 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15 | cpmidgsumm2pm 22241 |
. . 3
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β π» = (π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π)))))) |
17 | 16 | fveq2d 6850 |
. 2
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (πΌβπ») = (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π))))))) |
18 | | eqid 2733 |
. . . . . . . . . . 11
β’ (π β β0
β¦ (((coe1βπΎ)βπ) β π)) = (π β β0 β¦
(((coe1βπΎ)βπ) β π)) |
19 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 18 | cpmidpmatlem1 22242 |
. . . . . . . . . 10
β’ (π β β0
β ((π β
β0 β¦ (((coe1βπΎ)βπ) β π))βπ) = (((coe1βπΎ)βπ) β π)) |
20 | 19 | eqcomd 2739 |
. . . . . . . . 9
β’ (π β β0
β (((coe1βπΎ)βπ) β π) = ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)) |
21 | 20 | adantl 483 |
. . . . . . . 8
β’ (((π β Fin β§ π
β CRing β§ π β π΅) β§ π β β0) β
(((coe1βπΎ)βπ) β π) = ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)) |
22 | 21 | fveq2d 6850 |
. . . . . . 7
β’ (((π β Fin β§ π
β CRing β§ π β π΅) β§ π β β0) β (πβ(((coe1βπΎ)βπ) β π)) = (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ))) |
23 | 22 | oveq2d 7377 |
. . . . . 6
β’ (((π β Fin β§ π
β CRing β§ π β π΅) β§ π β β0) β ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π))) = ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)))) |
24 | 23 | mpteq2dva 5209 |
. . . . 5
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π β β0 β¦ ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π)))) = (π β β0 β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ))))) |
25 | 24 | oveq2d 7377 |
. . . 4
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π))))) = (π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)))))) |
26 | 25 | fveq2d 6850 |
. . 3
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π)))))) = (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ))))))) |
27 | | 3simpa 1149 |
. . . . 5
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π β Fin β§ π
β CRing)) |
28 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 18 | cpmidpmatlem2 22243 |
. . . . 5
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π β β0 β¦
(((coe1βπΎ)βπ) β π)) β (π΅ βm
β0)) |
29 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 18 | cpmidpmatlem3 22244 |
. . . . 5
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π β β0 β¦
(((coe1βπΎ)βπ) β π)) finSupp (0gβπ΄)) |
30 | | fveq2 6846 |
. . . . . . . . . 10
β’ (π = π₯ β ((coe1βπΎ)βπ) = ((coe1βπΎ)βπ₯)) |
31 | 30 | oveq1d 7376 |
. . . . . . . . 9
β’ (π = π₯ β (((coe1βπΎ)βπ) β π) = (((coe1βπΎ)βπ₯) β π)) |
32 | 31 | cbvmptv 5222 |
. . . . . . . 8
β’ (π β β0
β¦ (((coe1βπΎ)βπ) β π)) = (π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π)) |
33 | 32 | eleq1i 2825 |
. . . . . . 7
β’ ((π β β0
β¦ (((coe1βπΎ)βπ) β π)) β (π΅ βm β0)
β (π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π)) β (π΅ βm
β0)) |
34 | 32 | breq1i 5116 |
. . . . . . 7
β’ ((π β β0
β¦ (((coe1βπΎ)βπ) β π)) finSupp (0gβπ΄) β (π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π)) finSupp (0gβπ΄)) |
35 | 33, 34 | anbi12i 628 |
. . . . . 6
β’ (((π β β0
β¦ (((coe1βπΎ)βπ) β π)) β (π΅ βm β0)
β§ (π β
β0 β¦ (((coe1βπΎ)βπ) β π)) finSupp (0gβπ΄)) β ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π)) β (π΅ βm β0)
β§ (π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π)) finSupp (0gβπ΄))) |
36 | | cpmidgsum.w |
. . . . . . 7
β’ π = (Baseβπ) |
37 | | cpmidpmat.m |
. . . . . . 7
β’ β = (
Β·π βπ) |
38 | | cpmidpmat.e |
. . . . . . 7
β’ πΈ =
(.gβ(mulGrpβπ)) |
39 | | cpmidpmat.z |
. . . . . . 7
β’ π = (var1βπ΄) |
40 | | cpmidpmat.p |
. . . . . . 7
β’ π = (Poly1βπ΄) |
41 | | cpmidpmat.i |
. . . . . . 7
β’ πΌ = (π pMatToMatPoly π
) |
42 | 3, 4, 36, 37, 38, 39, 1, 2, 40, 41, 6, 5, 7, 15 | pm2mp 22197 |
. . . . . 6
β’ (((π β Fin β§ π
β CRing) β§ ((π₯ β β0
β¦ (((coe1βπΎ)βπ₯) β π)) β (π΅ βm β0)
β§ (π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π)) finSupp (0gβπ΄))) β (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ)))))) = (π Ξ£g (π β β0
β¦ (((π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π))βπ) β (ππΈπ))))) |
43 | 35, 42 | sylan2b 595 |
. . . . 5
β’ (((π β Fin β§ π
β CRing) β§ ((π β β0
β¦ (((coe1βπΎ)βπ) β π)) β (π΅ βm β0)
β§ (π β
β0 β¦ (((coe1βπΎ)βπ) β π)) finSupp (0gβπ΄))) β (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ)))))) = (π Ξ£g (π β β0
β¦ (((π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π))βπ) β (ππΈπ))))) |
44 | 27, 28, 29, 43 | syl12anc 836 |
. . . 4
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ)))))) = (π Ξ£g (π β β0
β¦ (((π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π))βπ) β (ππΈπ))))) |
45 | 32 | fveq1i 6847 |
. . . . . . . . 9
β’ ((π β β0
β¦ (((coe1βπΎ)βπ) β π))βπ) = ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ) |
46 | 45 | fveq2i 6849 |
. . . . . . . 8
β’ (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)) = (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ)) |
47 | 46 | oveq2i 7372 |
. . . . . . 7
β’ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ))) = ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ))) |
48 | 47 | mpteq2i 5214 |
. . . . . 6
β’ (π β β0
β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)))) = (π β β0 β¦ ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ)))) |
49 | 48 | oveq2i 7372 |
. . . . 5
β’ (π Ξ£g
(π β
β0 β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ))))) = (π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ))))) |
50 | 49 | fveq2i 6849 |
. . . 4
β’ (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)))))) = (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ)))))) |
51 | 45 | oveq1i 7371 |
. . . . . 6
β’ (((π β β0
β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ)) = (((π₯ β β0 β¦
(((coe1βπΎ)βπ₯) β π))βπ) β (ππΈπ)) |
52 | 51 | mpteq2i 5214 |
. . . . 5
β’ (π β β0
β¦ (((π β
β0 β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ))) = (π β β0 β¦ (((π₯ β β0
β¦ (((coe1βπΎ)βπ₯) β π))βπ) β (ππΈπ))) |
53 | 52 | oveq2i 7372 |
. . . 4
β’ (π Ξ£g
(π β
β0 β¦ (((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ) β (ππΈπ)))) = (π Ξ£g (π β β0
β¦ (((π₯ β
β0 β¦ (((coe1βπΎ)βπ₯) β π))βπ) β (ππΈπ)))) |
54 | 44, 50, 53 | 3eqtr4g 2798 |
. . 3
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ((π β β0 β¦
(((coe1βπΎ)βπ) β π))βπ)))))) = (π Ξ£g (π β β0
β¦ (((π β
β0 β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ))))) |
55 | 26, 54 | eqtrd 2773 |
. 2
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (πΌβ(π Ξ£g (π β β0
β¦ ((π β π) Β· (πβ(((coe1βπΎ)βπ) β π)))))) = (π Ξ£g (π β β0
β¦ (((π β
β0 β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ))))) |
56 | 19 | adantl 483 |
. . . . 5
β’ (((π β Fin β§ π
β CRing β§ π β π΅) β§ π β β0) β ((π β β0
β¦ (((coe1βπΎ)βπ) β π))βπ) = (((coe1βπΎ)βπ) β π)) |
57 | 56 | oveq1d 7376 |
. . . 4
β’ (((π β Fin β§ π
β CRing β§ π β π΅) β§ π β β0) β (((π β β0
β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ)) = ((((coe1βπΎ)βπ) β π) β (ππΈπ))) |
58 | 57 | mpteq2dva 5209 |
. . 3
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π β β0 β¦ (((π β β0
β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ))) = (π β β0 β¦
((((coe1βπΎ)βπ) β π) β (ππΈπ)))) |
59 | 58 | oveq2d 7377 |
. 2
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (π Ξ£g (π β β0
β¦ (((π β
β0 β¦ (((coe1βπΎ)βπ) β π))βπ) β (ππΈπ)))) = (π Ξ£g (π β β0
β¦ ((((coe1βπΎ)βπ) β π) β (ππΈπ))))) |
60 | 17, 55, 59 | 3eqtrd 2777 |
1
β’ ((π β Fin β§ π
β CRing β§ π β π΅) β (πΌβπ») = (π Ξ£g (π β β0
β¦ ((((coe1βπΎ)βπ) β π) β (ππΈπ))))) |