Metamath Proof Explorer


Theorem mamuvs1

Description: Matrix multiplication distributes over scalar multiplication on the left. (Contributed by Stefan O'Rear, 5-Sep-2015)

Ref Expression
Hypotheses mamucl.b B=BaseR
mamucl.r φRRing
mamudi.f F=RmaMulMNO
mamudi.m φMFin
mamudi.n φNFin
mamudi.o φOFin
mamuvs1.t ·˙=R
mamuvs1.x φXB
mamuvs1.y φYBM×N
mamuvs1.z φZBN×O
Assertion mamuvs1 φM×N×X·˙fYFZ=M×O×X·˙fYFZ

Proof

Step Hyp Ref Expression
1 mamucl.b B=BaseR
2 mamucl.r φRRing
3 mamudi.f F=RmaMulMNO
4 mamudi.m φMFin
5 mamudi.n φNFin
6 mamudi.o φOFin
7 mamuvs1.t ·˙=R
8 mamuvs1.x φXB
9 mamuvs1.y φYBM×N
10 mamuvs1.z φZBN×O
11 eqid 0R=0R
12 2 adantr φiMkORRing
13 5 adantr φiMkONFin
14 8 adantr φiMkOXB
15 2 ad2antrr φiMkOjNRRing
16 elmapi YBM×NY:M×NB
17 9 16 syl φY:M×NB
18 17 ad2antrr φiMkOjNY:M×NB
19 simplrl φiMkOjNiM
20 simpr φiMkOjNjN
21 18 19 20 fovcdmd φiMkOjNiYjB
22 elmapi ZBN×OZ:N×OB
23 10 22 syl φZ:N×OB
24 23 ad2antrr φiMkOjNZ:N×OB
25 simplrr φiMkOjNkO
26 24 20 25 fovcdmd φiMkOjNjZkB
27 1 7 15 21 26 ringcld φiMkOjNiYj·˙jZkB
28 eqid jNiYj·˙jZk=jNiYj·˙jZk
29 ovexd φiMkOjNiYj·˙jZkV
30 fvexd φiMkO0RV
31 28 13 29 30 fsuppmptdm φiMkOfinSupp0RjNiYj·˙jZk
32 1 11 7 12 13 14 27 31 gsummulc2 φiMkORjNX·˙iYj·˙jZk=X·˙RjNiYj·˙jZk
33 df-ov iM×N×X·˙fYj=M×N×X·˙fYij
34 simprl φiMkOiM
35 opelxpi iMjNijM×N
36 34 35 sylan φiMkOjNijM×N
37 xpfi MFinNFinM×NFin
38 4 5 37 syl2anc φM×NFin
39 38 ad2antrr φiMkOjNM×NFin
40 8 ad2antrr φiMkOjNXB
41 ffn Y:M×NBYFnM×N
42 9 16 41 3syl φYFnM×N
43 42 ad2antrr φiMkOjNYFnM×N
44 df-ov iYj=Yij
45 44 eqcomi Yij=iYj
46 45 a1i φiMkOjNijM×NYij=iYj
47 39 40 43 46 ofc1 φiMkOjNijM×NM×N×X·˙fYij=X·˙iYj
48 36 47 mpdan φiMkOjNM×N×X·˙fYij=X·˙iYj
49 33 48 eqtrid φiMkOjNiM×N×X·˙fYj=X·˙iYj
50 49 oveq1d φiMkOjNiM×N×X·˙fYj·˙jZk=X·˙iYj·˙jZk
51 1 7 ringass RRingXBiYjBjZkBX·˙iYj·˙jZk=X·˙iYj·˙jZk
52 15 40 21 26 51 syl13anc φiMkOjNX·˙iYj·˙jZk=X·˙iYj·˙jZk
53 50 52 eqtrd φiMkOjNiM×N×X·˙fYj·˙jZk=X·˙iYj·˙jZk
54 53 mpteq2dva φiMkOjNiM×N×X·˙fYj·˙jZk=jNX·˙iYj·˙jZk
55 54 oveq2d φiMkORjNiM×N×X·˙fYj·˙jZk=RjNX·˙iYj·˙jZk
56 4 adantr φiMkOMFin
57 6 adantr φiMkOOFin
58 9 adantr φiMkOYBM×N
59 10 adantr φiMkOZBN×O
60 simprr φiMkOkO
61 3 1 7 12 56 13 57 58 59 34 60 mamufv φiMkOiYFZk=RjNiYj·˙jZk
62 61 oveq2d φiMkOX·˙iYFZk=X·˙RjNiYj·˙jZk
63 32 55 62 3eqtr4d φiMkORjNiM×N×X·˙fYj·˙jZk=X·˙iYFZk
64 fconst6g XBM×N×X:M×NB
65 8 64 syl φM×N×X:M×NB
66 1 fvexi BV
67 elmapg BVM×NFinM×N×XBM×NM×N×X:M×NB
68 66 38 67 sylancr φM×N×XBM×NM×N×X:M×NB
69 65 68 mpbird φM×N×XBM×N
70 1 7 ringvcl RRingM×N×XBM×NYBM×NM×N×X·˙fYBM×N
71 2 69 9 70 syl3anc φM×N×X·˙fYBM×N
72 71 adantr φiMkOM×N×X·˙fYBM×N
73 3 1 7 12 56 13 57 72 59 34 60 mamufv φiMkOiM×N×X·˙fYFZk=RjNiM×N×X·˙fYj·˙jZk
74 df-ov iM×O×X·˙fYFZk=M×O×X·˙fYFZik
75 opelxpi iMkOikM×O
76 75 adantl φiMkOikM×O
77 xpfi MFinOFinM×OFin
78 4 6 77 syl2anc φM×OFin
79 78 adantr φiMkOM×OFin
80 1 2 3 4 5 6 9 10 mamucl φYFZBM×O
81 elmapi YFZBM×OYFZ:M×OB
82 ffn YFZ:M×OBYFZFnM×O
83 80 81 82 3syl φYFZFnM×O
84 83 adantr φiMkOYFZFnM×O
85 df-ov iYFZk=YFZik
86 85 eqcomi YFZik=iYFZk
87 86 a1i φiMkOikM×OYFZik=iYFZk
88 79 14 84 87 ofc1 φiMkOikM×OM×O×X·˙fYFZik=X·˙iYFZk
89 76 88 mpdan φiMkOM×O×X·˙fYFZik=X·˙iYFZk
90 74 89 eqtrid φiMkOiM×O×X·˙fYFZk=X·˙iYFZk
91 63 73 90 3eqtr4d φiMkOiM×N×X·˙fYFZk=iM×O×X·˙fYFZk
92 91 ralrimivva φiMkOiM×N×X·˙fYFZk=iM×O×X·˙fYFZk
93 1 2 3 4 5 6 71 10 mamucl φM×N×X·˙fYFZBM×O
94 elmapi M×N×X·˙fYFZBM×OM×N×X·˙fYFZ:M×OB
95 ffn M×N×X·˙fYFZ:M×OBM×N×X·˙fYFZFnM×O
96 93 94 95 3syl φM×N×X·˙fYFZFnM×O
97 fconst6g XBM×O×X:M×OB
98 8 97 syl φM×O×X:M×OB
99 elmapg BVM×OFinM×O×XBM×OM×O×X:M×OB
100 66 78 99 sylancr φM×O×XBM×OM×O×X:M×OB
101 98 100 mpbird φM×O×XBM×O
102 1 7 ringvcl RRingM×O×XBM×OYFZBM×OM×O×X·˙fYFZBM×O
103 2 101 80 102 syl3anc φM×O×X·˙fYFZBM×O
104 elmapi M×O×X·˙fYFZBM×OM×O×X·˙fYFZ:M×OB
105 ffn M×O×X·˙fYFZ:M×OBM×O×X·˙fYFZFnM×O
106 103 104 105 3syl φM×O×X·˙fYFZFnM×O
107 eqfnov2 M×N×X·˙fYFZFnM×OM×O×X·˙fYFZFnM×OM×N×X·˙fYFZ=M×O×X·˙fYFZiMkOiM×N×X·˙fYFZk=iM×O×X·˙fYFZk
108 96 106 107 syl2anc φM×N×X·˙fYFZ=M×O×X·˙fYFZiMkOiM×N×X·˙fYFZk=iM×O×X·˙fYFZk
109 92 108 mpbird φM×N×X·˙fYFZ=M×O×X·˙fYFZ