Metamath Proof Explorer


Theorem mamufval

Description: Functional value of the matrix multiplication operator. (Contributed by Stefan O'Rear, 2-Sep-2015)

Ref Expression
Hypotheses mamufval.f ⊢ F = R maMul M N P
mamufval.b ⊢ B = Base R
mamufval.t ⊢ · ˙ = ⋅ R
mamufval.r ⊢ φ → R ∈ V
mamufval.m ⊢ φ → M ∈ Fin
mamufval.n ⊢ φ → N ∈ Fin
mamufval.p ⊢ φ → P ∈ Fin
Assertion mamufval ⊢ φ → F = x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k

Proof

Step Hyp Ref Expression
1 mamufval.f ⊢ F = R maMul M N P
2 mamufval.b ⊢ B = Base R
3 mamufval.t ⊢ · ˙ = ⋅ R
4 mamufval.r ⊢ φ → R ∈ V
5 mamufval.m ⊢ φ → M ∈ Fin
6 mamufval.n ⊢ φ → N ∈ Fin
7 mamufval.p ⊢ φ → P ∈ Fin
8 df-mamu ⊢ maMul = r ∈ V , o ∈ V ⟼ ⦋ 1 st ⁡ 1 st ⁡ o / m⦌ ⦋ 2 nd ⁡ 1 st ⁡ o / n⦌ ⦋ 2 nd ⁡ o / p⦌ x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k
9 8 a1i ⊢ φ → maMul = r ∈ V , o ∈ V ⟼ ⦋ 1 st ⁡ 1 st ⁡ o / m⦌ ⦋ 2 nd ⁡ 1 st ⁡ o / n⦌ ⦋ 2 nd ⁡ o / p⦌ x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k
10 fvex ⊢ 1 st ⁡ 1 st ⁡ o ∈ V
11 fvex ⊢ 2 nd ⁡ 1 st ⁡ o ∈ V
12 fvex ⊢ 2 nd ⁡ o ∈ V
13 eqidd ⊢ p = 2 nd ⁡ o → Base r m × n = Base r m × n
14 xpeq2 ⊢ p = 2 nd ⁡ o → n × p = n × 2 nd ⁡ o
15 14 oveq2d ⊢ p = 2 nd ⁡ o → Base r n × p = Base r n × 2 nd ⁡ o
16 eqidd ⊢ p = 2 nd ⁡ o → m = m
17 id ⊢ p = 2 nd ⁡ o → p = 2 nd ⁡ o
18 eqidd ⊢ p = 2 nd ⁡ o → ∑ r j ∈ n i x j ⋅ r j y k = ∑ r j ∈ n i x j ⋅ r j y k
19 16 17 18 mpoeq123dv ⊢ p = 2 nd ⁡ o → i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k = i ∈ m , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ n i x j ⋅ r j y k
20 13 15 19 mpoeq123dv ⊢ p = 2 nd ⁡ o → x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k = x ∈ Base r m × n , y ∈ Base r n × 2 nd ⁡ o ⟼ i ∈ m , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ n i x j ⋅ r j y k
21 12 20 csbie ⊢ ⦋ 2 nd ⁡ o / p⦌ x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k = x ∈ Base r m × n , y ∈ Base r n × 2 nd ⁡ o ⟼ i ∈ m , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ n i x j ⋅ r j y k
22 xpeq12 ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → m × n = 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o
23 22 oveq2d ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → Base r m × n = Base r 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o
24 simpr ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → n = 2 nd ⁡ 1 st ⁡ o
25 24 xpeq1d ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → n × 2 nd ⁡ o = 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o
26 25 oveq2d ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → Base r n × 2 nd ⁡ o = Base r 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o
27 id ⊢ m = 1 st ⁡ 1 st ⁡ o → m = 1 st ⁡ 1 st ⁡ o
28 27 adantr ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → m = 1 st ⁡ 1 st ⁡ o
29 eqidd ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → 2 nd ⁡ o = 2 nd ⁡ o
30 eqidd ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → i x j ⋅ r j y k = i x j ⋅ r j y k
31 24 30 mpteq12dv ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → j ∈ n ⟼ i x j ⋅ r j y k = j ∈ 2 nd ⁡ 1 st ⁡ o ⟼ i x j ⋅ r j y k
32 31 oveq2d ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → ∑ r j ∈ n i x j ⋅ r j y k = ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k
33 28 29 32 mpoeq123dv ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → i ∈ m , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ n i x j ⋅ r j y k = i ∈ 1 st ⁡ 1 st ⁡ o , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k
34 23 26 33 mpoeq123dv ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → x ∈ Base r m × n , y ∈ Base r n × 2 nd ⁡ o ⟼ i ∈ m , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ n i x j ⋅ r j y k = x ∈ Base r 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o , y ∈ Base r 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o ⟼ i ∈ 1 st ⁡ 1 st ⁡ o , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k
35 21 34 eqtrid ⊢ m = 1 st ⁡ 1 st ⁡ o ∧ n = 2 nd ⁡ 1 st ⁡ o → ⦋ 2 nd ⁡ o / p⦌ x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k = x ∈ Base r 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o , y ∈ Base r 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o ⟼ i ∈ 1 st ⁡ 1 st ⁡ o , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k
36 10 11 35 csbie2 ⊢ ⦋ 1 st ⁡ 1 st ⁡ o / m⦌ ⦋ 2 nd ⁡ 1 st ⁡ o / n⦌ ⦋ 2 nd ⁡ o / p⦌ x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k = x ∈ Base r 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o , y ∈ Base r 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o ⟼ i ∈ 1 st ⁡ 1 st ⁡ o , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k
37 simprl ⊢ φ ∧ r = R ∧ o = M N P → r = R
38 37 fveq2d ⊢ φ ∧ r = R ∧ o = M N P → Base r = Base R
39 38 2 eqtr4di ⊢ φ ∧ r = R ∧ o = M N P → Base r = B
40 fveq2 ⊢ o = M N P → 1 st ⁡ o = 1 st ⁡ M N P
41 40 fveq2d ⊢ o = M N P → 1 st ⁡ 1 st ⁡ o = 1 st ⁡ 1 st ⁡ M N P
42 41 ad2antll ⊢ φ ∧ r = R ∧ o = M N P → 1 st ⁡ 1 st ⁡ o = 1 st ⁡ 1 st ⁡ M N P
43 ot1stg ⊢ M ∈ Fin ∧ N ∈ Fin ∧ P ∈ Fin → 1 st ⁡ 1 st ⁡ M N P = M
44 5 6 7 43 syl3anc ⊢ φ → 1 st ⁡ 1 st ⁡ M N P = M
45 44 adantr ⊢ φ ∧ r = R ∧ o = M N P → 1 st ⁡ 1 st ⁡ M N P = M
46 42 45 eqtrd ⊢ φ ∧ r = R ∧ o = M N P → 1 st ⁡ 1 st ⁡ o = M
47 40 fveq2d ⊢ o = M N P → 2 nd ⁡ 1 st ⁡ o = 2 nd ⁡ 1 st ⁡ M N P
48 47 ad2antll ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ 1 st ⁡ o = 2 nd ⁡ 1 st ⁡ M N P
49 ot2ndg ⊢ M ∈ Fin ∧ N ∈ Fin ∧ P ∈ Fin → 2 nd ⁡ 1 st ⁡ M N P = N
50 5 6 7 49 syl3anc ⊢ φ → 2 nd ⁡ 1 st ⁡ M N P = N
51 50 adantr ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ 1 st ⁡ M N P = N
52 48 51 eqtrd ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ 1 st ⁡ o = N
53 46 52 xpeq12d ⊢ φ ∧ r = R ∧ o = M N P → 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o = M × N
54 39 53 oveq12d ⊢ φ ∧ r = R ∧ o = M N P → Base r 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o = B M × N
55 fveq2 ⊢ o = M N P → 2 nd ⁡ o = 2 nd ⁡ M N P
56 55 ad2antll ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ o = 2 nd ⁡ M N P
57 ot3rdg ⊢ P ∈ Fin → 2 nd ⁡ M N P = P
58 7 57 syl ⊢ φ → 2 nd ⁡ M N P = P
59 58 adantr ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ M N P = P
60 56 59 eqtrd ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ o = P
61 52 60 xpeq12d ⊢ φ ∧ r = R ∧ o = M N P → 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o = N × P
62 39 61 oveq12d ⊢ φ ∧ r = R ∧ o = M N P → Base r 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o = B N × P
63 37 fveq2d ⊢ φ ∧ r = R ∧ o = M N P → ⋅ r = ⋅ R
64 63 3 eqtr4di ⊢ φ ∧ r = R ∧ o = M N P → ⋅ r = · ˙
65 64 oveqd ⊢ φ ∧ r = R ∧ o = M N P → i x j ⋅ r j y k = i x j · ˙ j y k
66 52 65 mpteq12dv ⊢ φ ∧ r = R ∧ o = M N P → j ∈ 2 nd ⁡ 1 st ⁡ o ⟼ i x j ⋅ r j y k = j ∈ N ⟼ i x j · ˙ j y k
67 37 66 oveq12d ⊢ φ ∧ r = R ∧ o = M N P → ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k = ∑ R j ∈ N i x j · ˙ j y k
68 46 60 67 mpoeq123dv ⊢ φ ∧ r = R ∧ o = M N P → i ∈ 1 st ⁡ 1 st ⁡ o , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k = i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k
69 54 62 68 mpoeq123dv ⊢ φ ∧ r = R ∧ o = M N P → x ∈ Base r 1 st ⁡ 1 st ⁡ o × 2 nd ⁡ 1 st ⁡ o , y ∈ Base r 2 nd ⁡ 1 st ⁡ o × 2 nd ⁡ o ⟼ i ∈ 1 st ⁡ 1 st ⁡ o , k ∈ 2 nd ⁡ o ⟼ ∑ r j ∈ 2 nd ⁡ 1 st ⁡ o i x j ⋅ r j y k = x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k
70 36 69 eqtrid ⊢ φ ∧ r = R ∧ o = M N P → ⦋ 1 st ⁡ 1 st ⁡ o / m⦌ ⦋ 2 nd ⁡ 1 st ⁡ o / n⦌ ⦋ 2 nd ⁡ o / p⦌ x ∈ Base r m × n , y ∈ Base r n × p ⟼ i ∈ m , k ∈ p ⟼ ∑ r j ∈ n i x j ⋅ r j y k = x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k
71 4 elexd ⊢ φ → R ∈ V
72 otex ⊢ M N P ∈ V
73 72 a1i ⊢ φ → M N P ∈ V
74 ovex ⊢ B M × N ∈ V
75 ovex ⊢ B N × P ∈ V
76 74 75 mpoex ⊢ x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k ∈ V
77 76 a1i ⊢ φ → x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k ∈ V
78 9 70 71 73 77 ovmpod ⊢ φ → R maMul M N P = x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k
79 1 78 eqtrid ⊢ φ → F = x ∈ B M × N , y ∈ B N × P ⟼ i ∈ M , k ∈ P ⟼ ∑ R j ∈ N i x j · ˙ j y k