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