Metamath Proof Explorer


Theorem cpmadugsumlemB

Description: Lemma B for cpmadugsum . (Contributed by AV, 2-Nov-2019)

Ref Expression
Hypotheses cpmadugsum.a A = N Mat R
cpmadugsum.b B = Base A
cpmadugsum.p P = Poly 1 R
cpmadugsum.y Y = N Mat P
cpmadugsum.t T = N matToPolyMat R
cpmadugsum.x X = var 1 R
cpmadugsum.e × ˙ = mulGrp P
cpmadugsum.m · ˙ = Y
cpmadugsum.r × ˙ = Y
cpmadugsum.1 1 ˙ = 1 Y
Assertion cpmadugsumlemB N Fin R CRing M B s 0 b B 0 s X · ˙ 1 ˙ × ˙ Y i = 0 s i × ˙ X · ˙ T b i = Y i = 0 s i + 1 × ˙ X · ˙ T b i

Proof

Step Hyp Ref Expression
1 cpmadugsum.a A = N Mat R
2 cpmadugsum.b B = Base A
3 cpmadugsum.p P = Poly 1 R
4 cpmadugsum.y Y = N Mat P
5 cpmadugsum.t T = N matToPolyMat R
6 cpmadugsum.x X = var 1 R
7 cpmadugsum.e × ˙ = mulGrp P
8 cpmadugsum.m · ˙ = Y
9 cpmadugsum.r × ˙ = Y
10 cpmadugsum.1 1 ˙ = 1 Y
11 crngring R CRing R Ring
12 3 ply1ring R Ring P Ring
13 11 12 syl R CRing P Ring
14 13 3ad2ant2 N Fin R CRing M B P Ring
15 eqid mulGrp P = mulGrp P
16 15 ringmgp P Ring mulGrp P Mnd
17 14 16 syl N Fin R CRing M B mulGrp P Mnd
18 17 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s mulGrp P Mnd
19 elfznn0 i 0 s i 0
20 19 adantl N Fin R CRing M B s 0 b B 0 s i 0 s i 0
21 1nn0 1 0
22 21 a1i N Fin R CRing M B s 0 b B 0 s i 0 s 1 0
23 11 3ad2ant2 N Fin R CRing M B R Ring
24 eqid Base P = Base P
25 6 3 24 vr1cl R Ring X Base P
26 23 25 syl N Fin R CRing M B X Base P
27 26 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s X Base P
28 15 24 mgpbas Base P = Base mulGrp P
29 eqid P = P
30 15 29 mgpplusg P = + mulGrp P
31 28 7 30 mulgnn0dir mulGrp P Mnd i 0 1 0 X Base P i + 1 × ˙ X = i × ˙ X P 1 × ˙ X
32 18 20 22 27 31 syl13anc N Fin R CRing M B s 0 b B 0 s i 0 s i + 1 × ˙ X = i × ˙ X P 1 × ˙ X
33 3 ply1crng R CRing P CRing
34 33 anim2i N Fin R CRing N Fin P CRing
35 34 3adant3 N Fin R CRing M B N Fin P CRing
36 4 matsca2 N Fin P CRing P = Scalar Y
37 35 36 syl N Fin R CRing M B P = Scalar Y
38 37 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s P = Scalar Y
39 38 fveq2d N Fin R CRing M B s 0 b B 0 s i 0 s P = Scalar Y
40 eqidd N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X = i × ˙ X
41 28 7 mulg1 X Base P 1 × ˙ X = X
42 26 41 syl N Fin R CRing M B 1 × ˙ X = X
43 42 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s 1 × ˙ X = X
44 39 40 43 oveq123d N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X P 1 × ˙ X = i × ˙ X Scalar Y X
45 32 44 eqtrd N Fin R CRing M B s 0 b B 0 s i 0 s i + 1 × ˙ X = i × ˙ X Scalar Y X
46 13 anim2i N Fin R CRing N Fin P Ring
47 46 3adant3 N Fin R CRing M B N Fin P Ring
48 4 matring N Fin P Ring Y Ring
49 47 48 syl N Fin R CRing M B Y Ring
50 49 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s Y Ring
51 simpll1 N Fin R CRing M B s 0 b B 0 s i 0 s N Fin
52 23 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s R Ring
53 simplrl N Fin R CRing M B s 0 b B 0 s i 0 s s 0
54 simprr N Fin R CRing M B s 0 b B 0 s b B 0 s
55 54 anim1i N Fin R CRing M B s 0 b B 0 s i 0 s b B 0 s i 0 s
56 1 2 3 4 5 m2pmfzmap N Fin R Ring s 0 b B 0 s i 0 s T b i Base Y
57 51 52 53 55 56 syl31anc N Fin R CRing M B s 0 b B 0 s i 0 s T b i Base Y
58 eqid Base Y = Base Y
59 58 9 10 ringlidm Y Ring T b i Base Y 1 ˙ × ˙ T b i = T b i
60 50 57 59 syl2anc N Fin R CRing M B s 0 b B 0 s i 0 s 1 ˙ × ˙ T b i = T b i
61 60 eqcomd N Fin R CRing M B s 0 b B 0 s i 0 s T b i = 1 ˙ × ˙ T b i
62 45 61 oveq12d N Fin R CRing M B s 0 b B 0 s i 0 s i + 1 × ˙ X · ˙ T b i = i × ˙ X Scalar Y X · ˙ 1 ˙ × ˙ T b i
63 4 matassa N Fin P CRing Y AssAlg
64 34 63 syl N Fin R CRing Y AssAlg
65 64 3adant3 N Fin R CRing M B Y AssAlg
66 65 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s Y AssAlg
67 37 eqcomd N Fin R CRing M B Scalar Y = P
68 67 fveq2d N Fin R CRing M B Base Scalar Y = Base P
69 26 68 eleqtrrd N Fin R CRing M B X Base Scalar Y
70 69 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s X Base Scalar Y
71 28 7 mulgnn0cl mulGrp P Mnd i 0 X Base P i × ˙ X Base P
72 18 20 27 71 syl3anc N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X Base P
73 68 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s Base Scalar Y = Base P
74 72 73 eleqtrrd N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X Base Scalar Y
75 46 48 syl N Fin R CRing Y Ring
76 75 3adant3 N Fin R CRing M B Y Ring
77 58 10 ringidcl Y Ring 1 ˙ Base Y
78 76 77 syl N Fin R CRing M B 1 ˙ Base Y
79 78 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s 1 ˙ Base Y
80 eqid Scalar Y = Scalar Y
81 eqid Base Scalar Y = Base Scalar Y
82 eqid Scalar Y = Scalar Y
83 58 80 81 82 8 9 assa2ass Y AssAlg X Base Scalar Y i × ˙ X Base Scalar Y 1 ˙ Base Y T b i Base Y X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i = i × ˙ X Scalar Y X · ˙ 1 ˙ × ˙ T b i
84 66 70 74 79 57 83 syl122anc N Fin R CRing M B s 0 b B 0 s i 0 s X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i = i × ˙ X Scalar Y X · ˙ 1 ˙ × ˙ T b i
85 84 eqcomd N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X Scalar Y X · ˙ 1 ˙ × ˙ T b i = X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i
86 62 85 eqtrd N Fin R CRing M B s 0 b B 0 s i 0 s i + 1 × ˙ X · ˙ T b i = X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i
87 86 mpteq2dva N Fin R CRing M B s 0 b B 0 s i 0 s i + 1 × ˙ X · ˙ T b i = i 0 s X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i
88 87 oveq2d N Fin R CRing M B s 0 b B 0 s Y i = 0 s i + 1 × ˙ X · ˙ T b i = Y i = 0 s X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i
89 eqid 0 Y = 0 Y
90 eqid + Y = + Y
91 76 adantr N Fin R CRing M B s 0 b B 0 s Y Ring
92 ovexd N Fin R CRing M B s 0 b B 0 s 0 s V
93 4 matlmod N Fin P Ring Y LMod
94 46 93 syl N Fin R CRing Y LMod
95 94 3adant3 N Fin R CRing M B Y LMod
96 11 adantl N Fin R CRing R Ring
97 96 25 syl N Fin R CRing X Base P
98 34 36 syl N Fin R CRing P = Scalar Y
99 98 eqcomd N Fin R CRing Scalar Y = P
100 99 fveq2d N Fin R CRing Base Scalar Y = Base P
101 97 100 eleqtrrd N Fin R CRing X Base Scalar Y
102 101 3adant3 N Fin R CRing M B X Base Scalar Y
103 49 77 syl N Fin R CRing M B 1 ˙ Base Y
104 58 80 8 81 lmodvscl Y LMod X Base Scalar Y 1 ˙ Base Y X · ˙ 1 ˙ Base Y
105 95 102 103 104 syl3anc N Fin R CRing M B X · ˙ 1 ˙ Base Y
106 105 adantr N Fin R CRing M B s 0 b B 0 s X · ˙ 1 ˙ Base Y
107 95 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s Y LMod
108 36 eqcomd N Fin P CRing Scalar Y = P
109 108 fveq2d N Fin P CRing Base Scalar Y = Base P
110 35 109 syl N Fin R CRing M B Base Scalar Y = Base P
111 110 eleq2d N Fin R CRing M B i × ˙ X Base Scalar Y i × ˙ X Base P
112 111 ad2antrr N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X Base Scalar Y i × ˙ X Base P
113 72 112 mpbird N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X Base Scalar Y
114 58 80 8 81 lmodvscl Y LMod i × ˙ X Base Scalar Y T b i Base Y i × ˙ X · ˙ T b i Base Y
115 107 113 57 114 syl3anc N Fin R CRing M B s 0 b B 0 s i 0 s i × ˙ X · ˙ T b i Base Y
116 simpl1 N Fin R CRing M B s 0 b B 0 s N Fin
117 23 adantr N Fin R CRing M B s 0 b B 0 s R Ring
118 simprl N Fin R CRing M B s 0 b B 0 s s 0
119 eqid i 0 s i × ˙ X · ˙ T b i = i 0 s i × ˙ X · ˙ T b i
120 fzfid N Fin R Ring s 0 b B 0 s 0 s Fin
121 ovexd N Fin R Ring s 0 b B 0 s i 0 s i × ˙ X · ˙ T b i V
122 fvexd N Fin R Ring s 0 b B 0 s 0 Y V
123 119 120 121 122 fsuppmptdm N Fin R Ring s 0 b B 0 s finSupp 0 Y i 0 s i × ˙ X · ˙ T b i
124 116 117 118 54 123 syl31anc N Fin R CRing M B s 0 b B 0 s finSupp 0 Y i 0 s i × ˙ X · ˙ T b i
125 58 89 90 9 91 92 106 115 124 gsummulc2 N Fin R CRing M B s 0 b B 0 s Y i = 0 s X · ˙ 1 ˙ × ˙ i × ˙ X · ˙ T b i = X · ˙ 1 ˙ × ˙ Y i = 0 s i × ˙ X · ˙ T b i
126 88 125 eqtr2d N Fin R CRing M B s 0 b B 0 s X · ˙ 1 ˙ × ˙ Y i = 0 s i × ˙ X · ˙ T b i = Y i = 0 s i + 1 × ˙ X · ˙ T b i