Metamath Proof Explorer


Theorem dmatmul

Description: The product of two diagonal matrices. (Contributed by AV, 19-Aug-2019) (Revised by AV, 18-Dec-2019)

Ref Expression
Hypotheses dmatid.a A=NMatR
dmatid.b B=BaseA
dmatid.0 0˙=0R
dmatid.d D=NDMatR
Assertion dmatmul NFinRRingXDYDXAY=xN,yNifx=yxXyRxYy0˙

Proof

Step Hyp Ref Expression
1 dmatid.a A=NMatR
2 dmatid.b B=BaseA
3 dmatid.0 0˙=0R
4 dmatid.d D=NDMatR
5 eqid RmaMulNNN=RmaMulNNN
6 1 5 matmulr NFinRRingRmaMulNNN=A
7 6 adantr NFinRRingXDYDRmaMulNNN=A
8 7 eqcomd NFinRRingXDYDA=RmaMulNNN
9 8 oveqd NFinRRingXDYDXAY=XRmaMulNNNY
10 eqid BaseR=BaseR
11 eqid R=R
12 simplr NFinRRingXDYDRRing
13 simpll NFinRRingXDYDNFin
14 1 2 3 4 dmatmat NFinRRingXDXB
15 14 imp NFinRRingXDXB
16 1 10 2 matbas2i XBXBaseRN×N
17 15 16 syl NFinRRingXDXBaseRN×N
18 17 adantrr NFinRRingXDYDXBaseRN×N
19 1 2 3 4 dmatmat NFinRRingYDYB
20 19 imp NFinRRingYDYB
21 1 10 2 matbas2i YBYBaseRN×N
22 20 21 syl NFinRRingYDYBaseRN×N
23 22 adantrl NFinRRingXDYDYBaseRN×N
24 5 10 11 12 13 13 13 18 23 mamuval NFinRRingXDYDXRmaMulNNNY=xN,yNRkNxXkRkYy
25 eqid +R=+R
26 ringcmn RRingRCMnd
27 26 ad2antlr NFinRRingXDYDRCMnd
28 27 3ad2ant1 NFinRRingXDYDxNyNRCMnd
29 28 adantl x=yNFinRRingXDYDxNyNRCMnd
30 13 3ad2ant1 NFinRRingXDYDxNyNNFin
31 30 adantl x=yNFinRRingXDYDxNyNNFin
32 eqid kNxXkRkYy=kNxXkRkYy
33 ovexd x=yNFinRRingXDYDxNyNkNxXkRkYyV
34 fvexd x=yNFinRRingXDYDxNyN0RV
35 32 31 33 34 fsuppmptdm x=yNFinRRingXDYDxNyNfinSupp0RkNxXkRkYy
36 12 3ad2ant1 NFinRRingXDYDxNyNRRing
37 36 ad2antlr x=yNFinRRingXDYDxNyNkNRRing
38 simp2 NFinRRingXDYDxNyNxN
39 38 ad2antlr x=yNFinRRingXDYDxNyNkNxN
40 simpr x=yNFinRRingXDYDxNyNkNkN
41 eqid BaseA=BaseA
42 1 41 3 4 dmatmat NFinRRingXDXBaseA
43 42 imp NFinRRingXDXBaseA
44 43 adantrr NFinRRingXDYDXBaseA
45 44 3ad2ant1 NFinRRingXDYDxNyNXBaseA
46 45 ad2antlr x=yNFinRRingXDYDxNyNkNXBaseA
47 1 10 matecl xNkNXBaseAxXkBaseR
48 39 40 46 47 syl3anc x=yNFinRRingXDYDxNyNkNxXkBaseR
49 simplr3 x=yNFinRRingXDYDxNyNkNyN
50 1 41 3 4 dmatmat NFinRRingYDYBaseA
51 50 imp NFinRRingYDYBaseA
52 51 adantrl NFinRRingXDYDYBaseA
53 52 3ad2ant1 NFinRRingXDYDxNyNYBaseA
54 53 ad2antlr x=yNFinRRingXDYDxNyNkNYBaseA
55 1 10 matecl kNyNYBaseAkYyBaseR
56 40 49 54 55 syl3anc x=yNFinRRingXDYDxNyNkNkYyBaseR
57 10 11 ringcl RRingxXkBaseRkYyBaseRxXkRkYyBaseR
58 37 48 56 57 syl3anc x=yNFinRRingXDYDxNyNkNxXkRkYyBaseR
59 38 adantl x=yNFinRRingXDYDxNyNxN
60 simp3 NFinRRingXDYDxNyNyN
61 15 adantrr NFinRRingXDYDXB
62 61 2 eleqtrdi NFinRRingXDYDXBaseA
63 62 3ad2ant1 NFinRRingXDYDxNyNXBaseA
64 1 10 matecl xNyNXBaseAxXyBaseR
65 38 60 63 64 syl3anc NFinRRingXDYDxNyNxXyBaseR
66 50 a1d NFinRRingXDYDYBaseA
67 66 imp32 NFinRRingXDYDYBaseA
68 67 3ad2ant1 NFinRRingXDYDxNyNYBaseA
69 1 10 matecl xNyNYBaseAxYyBaseR
70 38 60 68 69 syl3anc NFinRRingXDYDxNyNxYyBaseR
71 10 11 ringcl RRingxXyBaseRxYyBaseRxXyRxYyBaseR
72 36 65 70 71 syl3anc NFinRRingXDYDxNyNxXyRxYyBaseR
73 72 adantl x=yNFinRRingXDYDxNyNxXyRxYyBaseR
74 eqtr k=xx=yk=y
75 74 ancoms x=yk=xk=y
76 75 oveq2d x=yk=xxXk=xXy
77 76 adantlr x=yNFinRRingXDYDxNyNk=xxXk=xXy
78 oveq1 k=xkYy=xYy
79 78 adantl x=yNFinRRingXDYDxNyNk=xkYy=xYy
80 77 79 oveq12d x=yNFinRRingXDYDxNyNk=xxXkRkYy=xXyRxYy
81 10 25 29 31 35 58 59 73 80 gsumdifsnd x=yNFinRRingXDYDxNyNRkNxXkRkYy=RkNxxXkRkYy+RxXyRxYy
82 simprl NFinRRingXDYDXD
83 13 12 82 3jca NFinRRingXDYDNFinRRingXD
84 83 3ad2ant1 NFinRRingXDYDxNyNNFinRRingXD
85 84 ad2antlr x=yNFinRRingXDYDxNyNkNxNFinRRingXD
86 38 ad2antlr x=yNFinRRingXDYDxNyNkNxxN
87 eldifi kNxkN
88 87 adantl x=yNFinRRingXDYDxNyNkNxkN
89 eldifsni kNxkx
90 89 necomd kNxxk
91 90 adantl x=yNFinRRingXDYDxNyNkNxxk
92 1 2 3 4 dmatelnd NFinRRingXDxNkNxkxXk=0˙
93 85 86 88 91 92 syl13anc x=yNFinRRingXDYDxNyNkNxxXk=0˙
94 93 oveq1d x=yNFinRRingXDYDxNyNkNxxXkRkYy=0˙RkYy
95 36 ad2antlr x=yNFinRRingXDYDxNyNkNxRRing
96 simplr3 x=yNFinRRingXDYDxNyNkNxyN
97 53 ad2antlr x=yNFinRRingXDYDxNyNkNxYBaseA
98 88 96 97 55 syl3anc x=yNFinRRingXDYDxNyNkNxkYyBaseR
99 10 11 3 ringlz RRingkYyBaseR0˙RkYy=0˙
100 95 98 99 syl2anc x=yNFinRRingXDYDxNyNkNx0˙RkYy=0˙
101 94 100 eqtrd x=yNFinRRingXDYDxNyNkNxxXkRkYy=0˙
102 101 mpteq2dva x=yNFinRRingXDYDxNyNkNxxXkRkYy=kNx0˙
103 102 oveq2d x=yNFinRRingXDYDxNyNRkNxxXkRkYy=RkNx0˙
104 diffi NFinNxFin
105 ringmnd RRingRMnd
106 104 105 anim12ci NFinRRingRMndNxFin
107 106 adantr NFinRRingXDYDRMndNxFin
108 107 3ad2ant1 NFinRRingXDYDxNyNRMndNxFin
109 108 adantl x=yNFinRRingXDYDxNyNRMndNxFin
110 3 gsumz RMndNxFinRkNx0˙=0˙
111 109 110 syl x=yNFinRRingXDYDxNyNRkNx0˙=0˙
112 103 111 eqtrd x=yNFinRRingXDYDxNyNRkNxxXkRkYy=0˙
113 112 oveq1d x=yNFinRRingXDYDxNyNRkNxxXkRkYy+RxXyRxYy=0˙+RxXyRxYy
114 105 ad2antlr NFinRRingXDYDRMnd
115 114 3ad2ant1 NFinRRingXDYDxNyNRMnd
116 38 60 53 69 syl3anc NFinRRingXDYDxNyNxYyBaseR
117 36 65 116 71 syl3anc NFinRRingXDYDxNyNxXyRxYyBaseR
118 115 117 jca NFinRRingXDYDxNyNRMndxXyRxYyBaseR
119 118 adantl x=yNFinRRingXDYDxNyNRMndxXyRxYyBaseR
120 10 25 3 mndlid RMndxXyRxYyBaseR0˙+RxXyRxYy=xXyRxYy
121 119 120 syl x=yNFinRRingXDYDxNyN0˙+RxXyRxYy=xXyRxYy
122 81 113 121 3eqtrd x=yNFinRRingXDYDxNyNRkNxXkRkYy=xXyRxYy
123 iftrue x=yifx=yxXyRxYy0˙=xXyRxYy
124 123 adantr x=yNFinRRingXDYDxNyNifx=yxXyRxYy0˙=xXyRxYy
125 122 124 eqtr4d x=yNFinRRingXDYDxNyNRkNxXkRkYy=ifx=yxXyRxYy0˙
126 simprr NFinRRingXDYDYD
127 13 12 126 3jca NFinRRingXDYDNFinRRingYD
128 127 3ad2ant1 NFinRRingXDYDxNyNNFinRRingYD
129 128 ad2antlr ¬x=yNFinRRingXDYDxNyNkNNFinRRingYD
130 129 adantl x=k¬x=yNFinRRingXDYDxNyNkNNFinRRingYD
131 simprr x=k¬x=yNFinRRingXDYDxNyNkNkN
132 simplr3 ¬x=yNFinRRingXDYDxNyNkNyN
133 132 adantl x=k¬x=yNFinRRingXDYDxNyNkNyN
134 df-ne xy¬x=y
135 neeq1 x=kxyky
136 135 biimpcd xyx=kky
137 134 136 sylbir ¬x=yx=kky
138 137 adantr ¬x=yNFinRRingXDYDxNyNx=kky
139 138 adantr ¬x=yNFinRRingXDYDxNyNkNx=kky
140 139 impcom x=k¬x=yNFinRRingXDYDxNyNkNky
141 1 2 3 4 dmatelnd NFinRRingYDkNyNkykYy=0˙
142 130 131 133 140 141 syl13anc x=k¬x=yNFinRRingXDYDxNyNkNkYy=0˙
143 142 oveq2d x=k¬x=yNFinRRingXDYDxNyNkNxXkRkYy=xXkR0˙
144 36 ad2antlr ¬x=yNFinRRingXDYDxNyNkNRRing
145 38 ad2antlr ¬x=yNFinRRingXDYDxNyNkNxN
146 simpr ¬x=yNFinRRingXDYDxNyNkNkN
147 63 ad2antlr ¬x=yNFinRRingXDYDxNyNkNXBaseA
148 145 146 147 47 syl3anc ¬x=yNFinRRingXDYDxNyNkNxXkBaseR
149 10 11 3 ringrz RRingxXkBaseRxXkR0˙=0˙
150 144 148 149 syl2anc ¬x=yNFinRRingXDYDxNyNkNxXkR0˙=0˙
151 150 adantl x=k¬x=yNFinRRingXDYDxNyNkNxXkR0˙=0˙
152 143 151 eqtrd x=k¬x=yNFinRRingXDYDxNyNkNxXkRkYy=0˙
153 84 ad2antlr ¬x=yNFinRRingXDYDxNyNkNNFinRRingXD
154 153 adantl ¬x=k¬x=yNFinRRingXDYDxNyNkNNFinRRingXD
155 145 adantl ¬x=k¬x=yNFinRRingXDYDxNyNkNxN
156 simprr ¬x=k¬x=yNFinRRingXDYDxNyNkNkN
157 neqne ¬x=kxk
158 157 adantr ¬x=k¬x=yNFinRRingXDYDxNyNkNxk
159 154 155 156 158 92 syl13anc ¬x=k¬x=yNFinRRingXDYDxNyNkNxXk=0˙
160 159 oveq1d ¬x=k¬x=yNFinRRingXDYDxNyNkNxXkRkYy=0˙RkYy
161 68 ad2antlr ¬x=yNFinRRingXDYDxNyNkNYBaseA
162 146 132 161 55 syl3anc ¬x=yNFinRRingXDYDxNyNkNkYyBaseR
163 144 162 99 syl2anc ¬x=yNFinRRingXDYDxNyNkN0˙RkYy=0˙
164 163 adantl ¬x=k¬x=yNFinRRingXDYDxNyNkN0˙RkYy=0˙
165 160 164 eqtrd ¬x=k¬x=yNFinRRingXDYDxNyNkNxXkRkYy=0˙
166 152 165 pm2.61ian ¬x=yNFinRRingXDYDxNyNkNxXkRkYy=0˙
167 166 mpteq2dva ¬x=yNFinRRingXDYDxNyNkNxXkRkYy=kN0˙
168 167 oveq2d ¬x=yNFinRRingXDYDxNyNRkNxXkRkYy=RkN0˙
169 105 anim2i NFinRRingNFinRMnd
170 169 ancomd NFinRRingRMndNFin
171 3 gsumz RMndNFinRkN0˙=0˙
172 170 171 syl NFinRRingRkN0˙=0˙
173 172 adantr NFinRRingXDYDRkN0˙=0˙
174 173 3ad2ant1 NFinRRingXDYDxNyNRkN0˙=0˙
175 174 adantl ¬x=yNFinRRingXDYDxNyNRkN0˙=0˙
176 iffalse ¬x=yifx=yxXyRxYy0˙=0˙
177 176 eqcomd ¬x=y0˙=ifx=yxXyRxYy0˙
178 177 adantr ¬x=yNFinRRingXDYDxNyN0˙=ifx=yxXyRxYy0˙
179 168 175 178 3eqtrd ¬x=yNFinRRingXDYDxNyNRkNxXkRkYy=ifx=yxXyRxYy0˙
180 125 179 pm2.61ian NFinRRingXDYDxNyNRkNxXkRkYy=ifx=yxXyRxYy0˙
181 180 mpoeq3dva NFinRRingXDYDxN,yNRkNxXkRkYy=xN,yNifx=yxXyRxYy0˙
182 9 24 181 3eqtrd NFinRRingXDYDXAY=xN,yNifx=yxXyRxYy0˙