Metamath Proof Explorer


Theorem pm2mpmhmlem2

Description: Lemma 2 for pm2mpmhm . (Contributed by AV, 22-Oct-2019) (Revised by AV, 6-Dec-2019)

Ref Expression
Hypotheses pm2mpmhm.p P = Poly 1 R
pm2mpmhm.c C = N Mat P
pm2mpmhm.a A = N Mat R
pm2mpmhm.q Q = Poly 1 A
pm2mpmhm.t T = N pMatToMatPoly R
pm2mpmhm.b B = Base C
Assertion pm2mpmhmlem2 N Fin R Ring x B y B T x C y = T x Q T y

Proof

Step Hyp Ref Expression
1 pm2mpmhm.p P = Poly 1 R
2 pm2mpmhm.c C = N Mat P
3 pm2mpmhm.a A = N Mat R
4 pm2mpmhm.q Q = Poly 1 A
5 pm2mpmhm.t T = N pMatToMatPoly R
6 pm2mpmhm.b B = Base C
7 simpll N Fin R Ring x B y B N Fin
8 simplr N Fin R Ring x B y B R Ring
9 1 2 pmatring N Fin R Ring C Ring
10 9 adantr N Fin R Ring x B y B C Ring
11 simpl x B y B x B
12 11 adantl N Fin R Ring x B y B x B
13 simpr x B y B y B
14 13 adantl N Fin R Ring x B y B y B
15 eqid C = C
16 6 15 ringcl C Ring x B y B x C y B
17 10 12 14 16 syl3anc N Fin R Ring x B y B x C y B
18 eqid Q = Q
19 eqid mulGrp Q = mulGrp Q
20 eqid var 1 A = var 1 A
21 1 2 6 18 19 20 3 4 5 pm2mpfval N Fin R Ring x C y B T x C y = Q k 0 x C y decompPMat k Q k mulGrp Q var 1 A
22 7 8 17 21 syl3anc N Fin R Ring x B y B T x C y = Q k 0 x C y decompPMat k Q k mulGrp Q var 1 A
23 1 2 6 3 decpmatmul R Ring x B y B k 0 x C y decompPMat k = A z = 0 k x decompPMat z A y decompPMat k z
24 23 ad4ant234 N Fin R Ring x B y B k 0 x C y decompPMat k = A z = 0 k x decompPMat z A y decompPMat k z
25 24 oveq1d N Fin R Ring x B y B k 0 x C y decompPMat k Q k mulGrp Q var 1 A = A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A
26 25 mpteq2dva N Fin R Ring x B y B k 0 x C y decompPMat k Q k mulGrp Q var 1 A = k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A
27 26 oveq2d N Fin R Ring x B y B Q k 0 x C y decompPMat k Q k mulGrp Q var 1 A = Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A
28 eqid Base Q = Base Q
29 3 matring N Fin R Ring A Ring
30 29 ad2antrr N Fin R Ring x B y B n 0 A Ring
31 eqid Base A = Base A
32 eqid 0 A = 0 A
33 ringcmn A Ring A CMnd
34 29 33 syl N Fin R Ring A CMnd
35 34 ad3antrrr N Fin R Ring x B y B n 0 k 0 A CMnd
36 fzfid N Fin R Ring x B y B n 0 k 0 0 k Fin
37 30 ad2antrr N Fin R Ring x B y B n 0 k 0 z 0 k A Ring
38 simp-5r N Fin R Ring x B y B n 0 k 0 z 0 k R Ring
39 12 ad3antrrr N Fin R Ring x B y B n 0 k 0 z 0 k x B
40 elfznn0 z 0 k z 0
41 40 adantl N Fin R Ring x B y B n 0 k 0 z 0 k z 0
42 1 2 6 3 31 decpmatcl R Ring x B z 0 x decompPMat z Base A
43 38 39 41 42 syl3anc N Fin R Ring x B y B n 0 k 0 z 0 k x decompPMat z Base A
44 14 ad3antrrr N Fin R Ring x B y B n 0 k 0 z 0 k y B
45 fznn0sub z 0 k k z 0
46 45 adantl N Fin R Ring x B y B n 0 k 0 z 0 k k z 0
47 1 2 6 3 31 decpmatcl R Ring y B k z 0 y decompPMat k z Base A
48 38 44 46 47 syl3anc N Fin R Ring x B y B n 0 k 0 z 0 k y decompPMat k z Base A
49 eqid A = A
50 31 49 ringcl A Ring x decompPMat z Base A y decompPMat k z Base A x decompPMat z A y decompPMat k z Base A
51 37 43 48 50 syl3anc N Fin R Ring x B y B n 0 k 0 z 0 k x decompPMat z A y decompPMat k z Base A
52 51 ralrimiva N Fin R Ring x B y B n 0 k 0 z 0 k x decompPMat z A y decompPMat k z Base A
53 31 35 36 52 gsummptcl N Fin R Ring x B y B n 0 k 0 A z = 0 k x decompPMat z A y decompPMat k z Base A
54 53 ralrimiva N Fin R Ring x B y B n 0 k 0 A z = 0 k x decompPMat z A y decompPMat k z Base A
55 1 2 6 3 49 32 decpmatmulsumfsupp N Fin R Ring x B y B finSupp 0 A k 0 A z = 0 k x decompPMat z A y decompPMat k z
56 55 adantr N Fin R Ring x B y B n 0 finSupp 0 A k 0 A z = 0 k x decompPMat z A y decompPMat k z
57 simpr N Fin R Ring x B y B n 0 n 0
58 4 28 20 19 30 31 18 32 54 56 57 gsummoncoe1 N Fin R Ring x B y B n 0 coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A n = n / k A z = 0 k x decompPMat z A y decompPMat k z
59 csbov2g n 0 n / k A z = 0 k x decompPMat z A y decompPMat k z = A n / k z 0 k x decompPMat z A y decompPMat k z
60 id n 0 n 0
61 oveq2 k = n 0 k = 0 n
62 oveq1 k = n k z = n z
63 62 oveq2d k = n y decompPMat k z = y decompPMat n z
64 63 oveq2d k = n x decompPMat z A y decompPMat k z = x decompPMat z A y decompPMat n z
65 61 64 mpteq12dv k = n z 0 k x decompPMat z A y decompPMat k z = z 0 n x decompPMat z A y decompPMat n z
66 65 adantl n 0 k = n z 0 k x decompPMat z A y decompPMat k z = z 0 n x decompPMat z A y decompPMat n z
67 60 66 csbied n 0 n / k z 0 k x decompPMat z A y decompPMat k z = z 0 n x decompPMat z A y decompPMat n z
68 67 oveq2d n 0 A n / k z 0 k x decompPMat z A y decompPMat k z = A z = 0 n x decompPMat z A y decompPMat n z
69 59 68 eqtrd n 0 n / k A z = 0 k x decompPMat z A y decompPMat k z = A z = 0 n x decompPMat z A y decompPMat n z
70 69 adantl N Fin R Ring x B y B n 0 n / k A z = 0 k x decompPMat z A y decompPMat k z = A z = 0 n x decompPMat z A y decompPMat n z
71 eqidd N Fin R Ring x B y B n 0 r 0 A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l = r 0 A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l
72 oveq2 r = n 0 r = 0 n
73 fvoveq1 r = n coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l = coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
74 73 oveq2d r = n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
75 72 74 mpteq12dv r = n l 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l = l 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
76 75 oveq2d r = n A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l = A l = 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
77 76 adantl N Fin R Ring x B y B n 0 r = n A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l = A l = 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
78 ovexd N Fin R Ring x B y B n 0 A l = 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l V
79 71 77 57 78 fvmptd N Fin R Ring x B y B n 0 r 0 A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l n = A l = 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
80 eqid 0 Q = 0 Q
81 4 ply1ring A Ring Q Ring
82 29 81 syl N Fin R Ring Q Ring
83 ringcmn Q Ring Q CMnd
84 82 83 syl N Fin R Ring Q CMnd
85 84 ad2antrr N Fin R Ring x B y B n 0 Q CMnd
86 nn0ex 0 V
87 86 a1i N Fin R Ring x B y B n 0 0 V
88 11 anim2i N Fin R Ring x B y B N Fin R Ring x B
89 df-3an N Fin R Ring x B N Fin R Ring x B
90 88 89 sylibr N Fin R Ring x B y B N Fin R Ring x B
91 90 adantr N Fin R Ring x B y B n 0 N Fin R Ring x B
92 1 2 6 18 19 20 3 4 28 pm2mpghmlem1 N Fin R Ring x B k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q
93 91 92 sylan N Fin R Ring x B y B n 0 k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q
94 93 fmpttd N Fin R Ring x B y B n 0 k 0 x decompPMat k Q k mulGrp Q var 1 A : 0 Base Q
95 1 2 6 18 19 20 3 4 pm2mpghmlem2 N Fin R Ring x B finSupp 0 Q k 0 x decompPMat k Q k mulGrp Q var 1 A
96 91 95 syl N Fin R Ring x B y B n 0 finSupp 0 Q k 0 x decompPMat k Q k mulGrp Q var 1 A
97 28 80 85 87 94 96 gsumcl N Fin R Ring x B y B n 0 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q
98 13 anim2i N Fin R Ring x B y B N Fin R Ring y B
99 df-3an N Fin R Ring y B N Fin R Ring y B
100 98 99 sylibr N Fin R Ring x B y B N Fin R Ring y B
101 100 adantr N Fin R Ring x B y B n 0 N Fin R Ring y B
102 1 2 6 18 19 20 3 4 28 pm2mpghmlem1 N Fin R Ring y B k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
103 101 102 sylan N Fin R Ring x B y B n 0 k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
104 103 fmpttd N Fin R Ring x B y B n 0 k 0 y decompPMat k Q k mulGrp Q var 1 A : 0 Base Q
105 7 8 14 3jca N Fin R Ring x B y B N Fin R Ring y B
106 105 adantr N Fin R Ring x B y B n 0 N Fin R Ring y B
107 1 2 6 18 19 20 3 4 pm2mpghmlem2 N Fin R Ring y B finSupp 0 Q k 0 y decompPMat k Q k mulGrp Q var 1 A
108 106 107 syl N Fin R Ring x B y B n 0 finSupp 0 Q k 0 y decompPMat k Q k mulGrp Q var 1 A
109 28 80 85 87 104 108 gsumcl N Fin R Ring x B y B n 0 Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
110 eqid Q = Q
111 4 110 49 28 coe1mul A Ring Q k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A = r 0 A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l
112 111 fveq1d A Ring Q k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n = r 0 A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l n
113 30 97 109 112 syl3anc N Fin R Ring x B y B n 0 coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n = r 0 A l = 0 r coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A r l n
114 oveq2 z = l x decompPMat z = x decompPMat l
115 oveq2 z = l n z = n l
116 115 oveq2d z = l y decompPMat n z = y decompPMat n l
117 114 116 oveq12d z = l x decompPMat z A y decompPMat n z = x decompPMat l A y decompPMat n l
118 117 cbvmptv z 0 n x decompPMat z A y decompPMat n z = l 0 n x decompPMat l A y decompPMat n l
119 29 ad3antrrr N Fin R Ring x B y B n 0 l 0 n A Ring
120 simp-5r N Fin R Ring x B y B n 0 l 0 n k 0 R Ring
121 12 ad3antrrr N Fin R Ring x B y B n 0 l 0 n k 0 x B
122 simpr N Fin R Ring x B y B n 0 l 0 n k 0 k 0
123 1 2 6 3 31 decpmatcl R Ring x B k 0 x decompPMat k Base A
124 120 121 122 123 syl3anc N Fin R Ring x B y B n 0 l 0 n k 0 x decompPMat k Base A
125 124 ralrimiva N Fin R Ring x B y B n 0 l 0 n k 0 x decompPMat k Base A
126 8 12 jca N Fin R Ring x B y B R Ring x B
127 126 ad2antrr N Fin R Ring x B y B n 0 l 0 n R Ring x B
128 1 2 6 3 32 decpmatfsupp R Ring x B finSupp 0 A k 0 x decompPMat k
129 127 128 syl N Fin R Ring x B y B n 0 l 0 n finSupp 0 A k 0 x decompPMat k
130 elfznn0 l 0 n l 0
131 130 adantl N Fin R Ring x B y B n 0 l 0 n l 0
132 4 28 20 19 119 31 18 32 125 129 131 gsummoncoe1 N Fin R Ring x B y B n 0 l 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l = l / k x decompPMat k
133 csbov2g l 0 n l / k x decompPMat k = x decompPMat l / k k
134 csbvarg l 0 n l / k k = l
135 134 oveq2d l 0 n x decompPMat l / k k = x decompPMat l
136 133 135 eqtrd l 0 n l / k x decompPMat k = x decompPMat l
137 136 adantl N Fin R Ring x B y B n 0 l 0 n l / k x decompPMat k = x decompPMat l
138 132 137 eqtr2d N Fin R Ring x B y B n 0 l 0 n x decompPMat l = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l
139 14 ad3antrrr N Fin R Ring x B y B n 0 l 0 n k 0 y B
140 1 2 6 3 31 decpmatcl R Ring y B k 0 y decompPMat k Base A
141 120 139 122 140 syl3anc N Fin R Ring x B y B n 0 l 0 n k 0 y decompPMat k Base A
142 141 ralrimiva N Fin R Ring x B y B n 0 l 0 n k 0 y decompPMat k Base A
143 8 14 jca N Fin R Ring x B y B R Ring y B
144 143 ad2antrr N Fin R Ring x B y B n 0 l 0 n R Ring y B
145 1 2 6 3 32 decpmatfsupp R Ring y B finSupp 0 A k 0 y decompPMat k
146 144 145 syl N Fin R Ring x B y B n 0 l 0 n finSupp 0 A k 0 y decompPMat k
147 fznn0sub l 0 n n l 0
148 147 adantl N Fin R Ring x B y B n 0 l 0 n n l 0
149 4 28 20 19 119 31 18 32 142 146 148 gsummoncoe1 N Fin R Ring x B y B n 0 l 0 n coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l = n l / k y decompPMat k
150 ovex n l V
151 csbov2g n l V n l / k y decompPMat k = y decompPMat n l / k k
152 150 151 mp1i N Fin R Ring x B y B n 0 l 0 n n l / k y decompPMat k = y decompPMat n l / k k
153 csbvarg n l V n l / k k = n l
154 150 153 mp1i N Fin R Ring x B y B n 0 l 0 n n l / k k = n l
155 154 oveq2d N Fin R Ring x B y B n 0 l 0 n y decompPMat n l / k k = y decompPMat n l
156 149 152 155 3eqtrrd N Fin R Ring x B y B n 0 l 0 n y decompPMat n l = coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
157 138 156 oveq12d N Fin R Ring x B y B n 0 l 0 n x decompPMat l A y decompPMat n l = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
158 157 mpteq2dva N Fin R Ring x B y B n 0 l 0 n x decompPMat l A y decompPMat n l = l 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
159 118 158 syl5eq N Fin R Ring x B y B n 0 z 0 n x decompPMat z A y decompPMat n z = l 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
160 159 oveq2d N Fin R Ring x B y B n 0 A z = 0 n x decompPMat z A y decompPMat n z = A l = 0 n coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A l A coe 1 Q k 0 y decompPMat k Q k mulGrp Q var 1 A n l
161 79 113 160 3eqtr4rd N Fin R Ring x B y B n 0 A z = 0 n x decompPMat z A y decompPMat n z = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n
162 58 70 161 3eqtrd N Fin R Ring x B y B n 0 coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A n = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n
163 162 ralrimiva N Fin R Ring x B y B n 0 coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A n = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n
164 29 adantr N Fin R Ring x B y B A Ring
165 84 adantr N Fin R Ring x B y B Q CMnd
166 86 a1i N Fin R Ring x B y B 0 V
167 4 ply1lmod A Ring Q LMod
168 29 167 syl N Fin R Ring Q LMod
169 168 ad2antrr N Fin R Ring x B y B k 0 Q LMod
170 34 ad2antrr N Fin R Ring x B y B k 0 A CMnd
171 fzfid N Fin R Ring x B y B k 0 0 k Fin
172 29 ad3antrrr N Fin R Ring x B y B k 0 z 0 k A Ring
173 simp-4r N Fin R Ring x B y B k 0 z 0 k R Ring
174 simplrl N Fin R Ring x B y B k 0 x B
175 174 adantr N Fin R Ring x B y B k 0 z 0 k x B
176 40 adantl N Fin R Ring x B y B k 0 z 0 k z 0
177 173 175 176 42 syl3anc N Fin R Ring x B y B k 0 z 0 k x decompPMat z Base A
178 simplrr N Fin R Ring x B y B k 0 y B
179 178 adantr N Fin R Ring x B y B k 0 z 0 k y B
180 45 adantl N Fin R Ring x B y B k 0 z 0 k k z 0
181 173 179 180 47 syl3anc N Fin R Ring x B y B k 0 z 0 k y decompPMat k z Base A
182 172 177 181 50 syl3anc N Fin R Ring x B y B k 0 z 0 k x decompPMat z A y decompPMat k z Base A
183 182 ralrimiva N Fin R Ring x B y B k 0 z 0 k x decompPMat z A y decompPMat k z Base A
184 31 170 171 183 gsummptcl N Fin R Ring x B y B k 0 A z = 0 k x decompPMat z A y decompPMat k z Base A
185 29 ad2antrr N Fin R Ring x B y B k 0 A Ring
186 4 ply1sca A Ring A = Scalar Q
187 185 186 syl N Fin R Ring x B y B k 0 A = Scalar Q
188 187 eqcomd N Fin R Ring x B y B k 0 Scalar Q = A
189 188 fveq2d N Fin R Ring x B y B k 0 Base Scalar Q = Base A
190 184 189 eleqtrrd N Fin R Ring x B y B k 0 A z = 0 k x decompPMat z A y decompPMat k z Base Scalar Q
191 eqid mulGrp Q = mulGrp Q
192 4 20 191 19 28 ply1moncl A Ring k 0 k mulGrp Q var 1 A Base Q
193 185 192 sylancom N Fin R Ring x B y B k 0 k mulGrp Q var 1 A Base Q
194 eqid Scalar Q = Scalar Q
195 eqid Base Scalar Q = Base Scalar Q
196 28 194 18 195 lmodvscl Q LMod A z = 0 k x decompPMat z A y decompPMat k z Base Scalar Q k mulGrp Q var 1 A Base Q A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A Base Q
197 169 190 193 196 syl3anc N Fin R Ring x B y B k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A Base Q
198 197 fmpttd N Fin R Ring x B y B k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A : 0 Base Q
199 1 2 6 18 19 20 3 4 28 5 pm2mpmhmlem1 N Fin R Ring x B y B finSupp 0 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A
200 28 80 165 166 198 199 gsumcl N Fin R Ring x B y B Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A Base Q
201 82 adantr N Fin R Ring x B y B Q Ring
202 90 92 sylan N Fin R Ring x B y B k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q
203 202 fmpttd N Fin R Ring x B y B k 0 x decompPMat k Q k mulGrp Q var 1 A : 0 Base Q
204 90 95 syl N Fin R Ring x B y B finSupp 0 Q k 0 x decompPMat k Q k mulGrp Q var 1 A
205 28 80 165 166 203 204 gsumcl N Fin R Ring x B y B Q k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q
206 100 102 sylan N Fin R Ring x B y B k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
207 206 fmpttd N Fin R Ring x B y B k 0 y decompPMat k Q k mulGrp Q var 1 A : 0 Base Q
208 7 8 14 107 syl3anc N Fin R Ring x B y B finSupp 0 Q k 0 y decompPMat k Q k mulGrp Q var 1 A
209 28 80 165 166 207 208 gsumcl N Fin R Ring x B y B Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
210 28 110 ringcl Q Ring Q k 0 x decompPMat k Q k mulGrp Q var 1 A Base Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
211 201 205 209 210 syl3anc N Fin R Ring x B y B Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q
212 eqid coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A = coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A
213 eqid coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A
214 4 28 212 213 ply1coe1eq A Ring Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A Base Q Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A Base Q n 0 coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A n = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A = Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A
215 164 200 211 214 syl3anc N Fin R Ring x B y B n 0 coe 1 Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A n = coe 1 Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A n Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A = Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A
216 163 215 mpbid N Fin R Ring x B y B Q k 0 A z = 0 k x decompPMat z A y decompPMat k z Q k mulGrp Q var 1 A = Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A
217 22 27 216 3eqtrd N Fin R Ring x B y B T x C y = Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A
218 1 2 6 18 19 20 3 4 5 pm2mpfval N Fin R Ring x B T x = Q k 0 x decompPMat k Q k mulGrp Q var 1 A
219 7 8 12 218 syl3anc N Fin R Ring x B y B T x = Q k 0 x decompPMat k Q k mulGrp Q var 1 A
220 1 2 6 18 19 20 3 4 5 pm2mpfval N Fin R Ring y B T y = Q k 0 y decompPMat k Q k mulGrp Q var 1 A
221 7 8 14 220 syl3anc N Fin R Ring x B y B T y = Q k 0 y decompPMat k Q k mulGrp Q var 1 A
222 219 221 oveq12d N Fin R Ring x B y B T x Q T y = Q k 0 x decompPMat k Q k mulGrp Q var 1 A Q Q k 0 y decompPMat k Q k mulGrp Q var 1 A
223 217 222 eqtr4d N Fin R Ring x B y B T x C y = T x Q T y
224 223 ralrimivva N Fin R Ring x B y B T x C y = T x Q T y