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 = Base R
mamucl.r φ R Ring
mamudi.f F = R maMul M N O
mamudi.m φ M Fin
mamudi.n φ N Fin
mamudi.o φ O Fin
mamuvs1.t · ˙ = R
mamuvs1.x φ X B
mamuvs1.y φ Y B M × N
mamuvs1.z φ Z B N × O
Assertion mamuvs1 φ M × N × X · ˙ f Y F Z = M × O × X · ˙ f Y F Z

Proof

Step Hyp Ref Expression
1 mamucl.b B = Base R
2 mamucl.r φ R Ring
3 mamudi.f F = R maMul M N O
4 mamudi.m φ M Fin
5 mamudi.n φ N Fin
6 mamudi.o φ O Fin
7 mamuvs1.t · ˙ = R
8 mamuvs1.x φ X B
9 mamuvs1.y φ Y B M × N
10 mamuvs1.z φ Z B N × O
11 eqid 0 R = 0 R
12 eqid + R = + R
13 2 adantr φ i M k O R Ring
14 5 adantr φ i M k O N Fin
15 8 adantr φ i M k O X B
16 2 ad2antrr φ i M k O j N R Ring
17 elmapi Y B M × N Y : M × N B
18 9 17 syl φ Y : M × N B
19 18 ad2antrr φ i M k O j N Y : M × N B
20 simplrl φ i M k O j N i M
21 simpr φ i M k O j N j N
22 19 20 21 fovrnd φ i M k O j N i Y j B
23 elmapi Z B N × O Z : N × O B
24 10 23 syl φ Z : N × O B
25 24 ad2antrr φ i M k O j N Z : N × O B
26 simplrr φ i M k O j N k O
27 25 21 26 fovrnd φ i M k O j N j Z k B
28 1 7 ringcl R Ring i Y j B j Z k B i Y j · ˙ j Z k B
29 16 22 27 28 syl3anc φ i M k O j N i Y j · ˙ j Z k B
30 eqid j N i Y j · ˙ j Z k = j N i Y j · ˙ j Z k
31 ovexd φ i M k O j N i Y j · ˙ j Z k V
32 fvexd φ i M k O 0 R V
33 30 14 31 32 fsuppmptdm φ i M k O finSupp 0 R j N i Y j · ˙ j Z k
34 1 11 12 7 13 14 15 29 33 gsummulc2 φ i M k O R j N X · ˙ i Y j · ˙ j Z k = X · ˙ R j N i Y j · ˙ j Z k
35 df-ov i M × N × X · ˙ f Y j = M × N × X · ˙ f Y i j
36 simprl φ i M k O i M
37 opelxpi i M j N i j M × N
38 36 37 sylan φ i M k O j N i j M × N
39 xpfi M Fin N Fin M × N Fin
40 4 5 39 syl2anc φ M × N Fin
41 40 ad2antrr φ i M k O j N M × N Fin
42 8 ad2antrr φ i M k O j N X B
43 ffn Y : M × N B Y Fn M × N
44 9 17 43 3syl φ Y Fn M × N
45 44 ad2antrr φ i M k O j N Y Fn M × N
46 df-ov i Y j = Y i j
47 46 eqcomi Y i j = i Y j
48 47 a1i φ i M k O j N i j M × N Y i j = i Y j
49 41 42 45 48 ofc1 φ i M k O j N i j M × N M × N × X · ˙ f Y i j = X · ˙ i Y j
50 38 49 mpdan φ i M k O j N M × N × X · ˙ f Y i j = X · ˙ i Y j
51 35 50 eqtrid φ i M k O j N i M × N × X · ˙ f Y j = X · ˙ i Y j
52 51 oveq1d φ i M k O j N i M × N × X · ˙ f Y j · ˙ j Z k = X · ˙ i Y j · ˙ j Z k
53 1 7 ringass R Ring X B i Y j B j Z k B X · ˙ i Y j · ˙ j Z k = X · ˙ i Y j · ˙ j Z k
54 16 42 22 27 53 syl13anc φ i M k O j N X · ˙ i Y j · ˙ j Z k = X · ˙ i Y j · ˙ j Z k
55 52 54 eqtrd φ i M k O j N i M × N × X · ˙ f Y j · ˙ j Z k = X · ˙ i Y j · ˙ j Z k
56 55 mpteq2dva φ i M k O j N i M × N × X · ˙ f Y j · ˙ j Z k = j N X · ˙ i Y j · ˙ j Z k
57 56 oveq2d φ i M k O R j N i M × N × X · ˙ f Y j · ˙ j Z k = R j N X · ˙ i Y j · ˙ j Z k
58 4 adantr φ i M k O M Fin
59 6 adantr φ i M k O O Fin
60 9 adantr φ i M k O Y B M × N
61 10 adantr φ i M k O Z B N × O
62 simprr φ i M k O k O
63 3 1 7 13 58 14 59 60 61 36 62 mamufv φ i M k O i Y F Z k = R j N i Y j · ˙ j Z k
64 63 oveq2d φ i M k O X · ˙ i Y F Z k = X · ˙ R j N i Y j · ˙ j Z k
65 34 57 64 3eqtr4d φ i M k O R j N i M × N × X · ˙ f Y j · ˙ j Z k = X · ˙ i Y F Z k
66 fconst6g X B M × N × X : M × N B
67 8 66 syl φ M × N × X : M × N B
68 1 fvexi B V
69 elmapg B V M × N Fin M × N × X B M × N M × N × X : M × N B
70 68 40 69 sylancr φ M × N × X B M × N M × N × X : M × N B
71 67 70 mpbird φ M × N × X B M × N
72 1 7 ringvcl R Ring M × N × X B M × N Y B M × N M × N × X · ˙ f Y B M × N
73 2 71 9 72 syl3anc φ M × N × X · ˙ f Y B M × N
74 73 adantr φ i M k O M × N × X · ˙ f Y B M × N
75 3 1 7 13 58 14 59 74 61 36 62 mamufv φ i M k O i M × N × X · ˙ f Y F Z k = R j N i M × N × X · ˙ f Y j · ˙ j Z k
76 df-ov i M × O × X · ˙ f Y F Z k = M × O × X · ˙ f Y F Z i k
77 opelxpi i M k O i k M × O
78 77 adantl φ i M k O i k M × O
79 xpfi M Fin O Fin M × O Fin
80 4 6 79 syl2anc φ M × O Fin
81 80 adantr φ i M k O M × O Fin
82 1 2 3 4 5 6 9 10 mamucl φ Y F Z B M × O
83 elmapi Y F Z B M × O Y F Z : M × O B
84 ffn Y F Z : M × O B Y F Z Fn M × O
85 82 83 84 3syl φ Y F Z Fn M × O
86 85 adantr φ i M k O Y F Z Fn M × O
87 df-ov i Y F Z k = Y F Z i k
88 87 eqcomi Y F Z i k = i Y F Z k
89 88 a1i φ i M k O i k M × O Y F Z i k = i Y F Z k
90 81 15 86 89 ofc1 φ i M k O i k M × O M × O × X · ˙ f Y F Z i k = X · ˙ i Y F Z k
91 78 90 mpdan φ i M k O M × O × X · ˙ f Y F Z i k = X · ˙ i Y F Z k
92 76 91 eqtrid φ i M k O i M × O × X · ˙ f Y F Z k = X · ˙ i Y F Z k
93 65 75 92 3eqtr4d φ i M k O i M × N × X · ˙ f Y F Z k = i M × O × X · ˙ f Y F Z k
94 93 ralrimivva φ i M k O i M × N × X · ˙ f Y F Z k = i M × O × X · ˙ f Y F Z k
95 1 2 3 4 5 6 73 10 mamucl φ M × N × X · ˙ f Y F Z B M × O
96 elmapi M × N × X · ˙ f Y F Z B M × O M × N × X · ˙ f Y F Z : M × O B
97 ffn M × N × X · ˙ f Y F Z : M × O B M × N × X · ˙ f Y F Z Fn M × O
98 95 96 97 3syl φ M × N × X · ˙ f Y F Z Fn M × O
99 fconst6g X B M × O × X : M × O B
100 8 99 syl φ M × O × X : M × O B
101 elmapg B V M × O Fin M × O × X B M × O M × O × X : M × O B
102 68 80 101 sylancr φ M × O × X B M × O M × O × X : M × O B
103 100 102 mpbird φ M × O × X B M × O
104 1 7 ringvcl R Ring M × O × X B M × O Y F Z B M × O M × O × X · ˙ f Y F Z B M × O
105 2 103 82 104 syl3anc φ M × O × X · ˙ f Y F Z B M × O
106 elmapi M × O × X · ˙ f Y F Z B M × O M × O × X · ˙ f Y F Z : M × O B
107 ffn M × O × X · ˙ f Y F Z : M × O B M × O × X · ˙ f Y F Z Fn M × O
108 105 106 107 3syl φ M × O × X · ˙ f Y F Z Fn M × O
109 eqfnov2 M × N × X · ˙ f Y F Z Fn M × O M × O × X · ˙ f Y F Z Fn M × O M × N × X · ˙ f Y F Z = M × O × X · ˙ f Y F Z i M k O i M × N × X · ˙ f Y F Z k = i M × O × X · ˙ f Y F Z k
110 98 108 109 syl2anc φ M × N × X · ˙ f Y F Z = M × O × X · ˙ f Y F Z i M k O i M × N × X · ˙ f Y F Z k = i M × O × X · ˙ f Y F Z k
111 94 110 mpbird φ M × N × X · ˙ f Y F Z = M × O × X · ˙ f Y F Z