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