Metamath Proof Explorer


Theorem scmatscm

Description: The multiplication of a matrix with a scalar matrix corresponds to a scalar multiplication. (Contributed by AV, 28-Dec-2019)

Ref Expression
Hypotheses scmatscm.k ⊢ K = Base R
scmatscm.a ⊢ A = N Mat R
scmatscm.b ⊢ B = Base A
scmatscm.t ⊢ ∗ ˙ = ⋅ A
scmatscm.m ⊢ × ˙ = ⋅ A
scmatscm.c ⊢ S = N ScMat R
Assertion scmatscm ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → ∃ c ∈ K ∀ m ∈ B C × ˙ m = c ∗ ˙ m

Proof

Step Hyp Ref Expression
1 scmatscm.k ⊢ K = Base R
2 scmatscm.a ⊢ A = N Mat R
3 scmatscm.b ⊢ B = Base A
4 scmatscm.t ⊢ ∗ ˙ = ⋅ A
5 scmatscm.m ⊢ × ˙ = ⋅ A
6 scmatscm.c ⊢ S = N ScMat R
7 eqid ⊢ 1 A = 1 A
8 1 2 3 7 4 6 scmatscmid ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → ∃ c ∈ K C = c ∗ ˙ 1 A
9 8 3expa ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → ∃ c ∈ K C = c ∗ ˙ 1 A
10 oveq1 ⊢ C = c ∗ ˙ 1 A → C × ˙ m = c ∗ ˙ 1 A × ˙ m
11 simpr ⊢ N ∈ Fin ∧ R ∈ Ring → R ∈ Ring
12 11 ad4antr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → R ∈ Ring
13 simpl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → N ∈ Fin ∧ R ∈ Ring
14 13 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → N ∈ Fin ∧ R ∈ Ring
15 2 matring ⊢ N ∈ Fin ∧ R ∈ Ring → A ∈ Ring
16 3 7 ringidcl ⊢ A ∈ Ring → 1 A ∈ B
17 15 16 syl ⊢ N ∈ Fin ∧ R ∈ Ring → 1 A ∈ B
18 17 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → 1 A ∈ B
19 18 anim1ci ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → c ∈ K ∧ 1 A ∈ B
20 1 2 3 4 matvscl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K ∧ 1 A ∈ B → c ∗ ˙ 1 A ∈ B
21 14 19 20 syl2anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → c ∗ ˙ 1 A ∈ B
22 21 anim1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ 1 A ∈ B ∧ m ∈ B
23 22 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → c ∗ ˙ 1 A ∈ B ∧ m ∈ B
24 simpr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i ∈ N ∧ j ∈ N
25 2 3 5 matmulcell ⊢ R ∈ Ring ∧ c ∗ ˙ 1 A ∈ B ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i c ∗ ˙ 1 A × ˙ m j = ∑ R k ∈ N i c ∗ ˙ 1 A k ⋅ R k m j
26 12 23 24 25 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i c ∗ ˙ 1 A × ˙ m j = ∑ R k ∈ N i c ∗ ˙ 1 A k ⋅ R k m j
27 13 anim1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K
28 df-3an ⊢ N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K ↔ N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K
29 27 28 sylibr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K
30 29 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K
31 eqid ⊢ 0 R = 0 R
32 2 1 4 31 matsc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K → c ∗ ˙ 1 A = x ∈ N , y ∈ N ⟼ if x = y c 0 R
33 30 32 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → c ∗ ˙ 1 A = x ∈ N , y ∈ N ⟼ if x = y c 0 R
34 eqeq12 ⊢ x = i ∧ y = k → x = y ↔ i = k
35 34 ifbid ⊢ x = i ∧ y = k → if x = y c 0 R = if i = k c 0 R
36 35 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N ∧ x = i ∧ y = k → if x = y c 0 R = if i = k c 0 R
37 simpl ⊢ i ∈ N ∧ j ∈ N → i ∈ N
38 37 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i ∈ N
39 38 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → i ∈ N
40 simpr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → k ∈ N
41 vex ⊢ c ∈ V
42 fvex ⊢ 0 R ∈ V
43 41 42 ifex ⊢ if i = k c 0 R ∈ V
44 43 a1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → if i = k c 0 R ∈ V
45 33 36 39 40 44 ovmpod ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → i c ∗ ˙ 1 A k = if i = k c 0 R
46 45 oveq1d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → i c ∗ ˙ 1 A k ⋅ R k m j = if i = k c 0 R ⋅ R k m j
47 46 mpteq2dva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → k ∈ N ⟼ i c ∗ ˙ 1 A k ⋅ R k m j = k ∈ N ⟼ if i = k c 0 R ⋅ R k m j
48 47 oveq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → ∑ R k ∈ N i c ∗ ˙ 1 A k ⋅ R k m j = ∑ R k ∈ N if i = k c 0 R ⋅ R k m j
49 ovif ⊢ if i = k c 0 R ⋅ R k m j = if i = k c ⋅ R k m j 0 R ⋅ R k m j
50 simp-6r ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → R ∈ Ring
51 simplrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → j ∈ N
52 simpr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → m ∈ B
53 52 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → m ∈ B
54 2 1 3 40 51 53 matecld ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → k m j ∈ K
55 eqid ⊢ ⋅ R = ⋅ R
56 1 55 31 ringlz ⊢ R ∈ Ring ∧ k m j ∈ K → 0 R ⋅ R k m j = 0 R
57 50 54 56 syl2anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → 0 R ⋅ R k m j = 0 R
58 57 ifeq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → if i = k c ⋅ R k m j 0 R ⋅ R k m j = if i = k c ⋅ R k m j 0 R
59 49 58 eqtrid ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → if i = k c 0 R ⋅ R k m j = if i = k c ⋅ R k m j 0 R
60 59 mpteq2dva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → k ∈ N ⟼ if i = k c 0 R ⋅ R k m j = k ∈ N ⟼ if i = k c ⋅ R k m j 0 R
61 60 oveq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → ∑ R k ∈ N if i = k c 0 R ⋅ R k m j = ∑ R k ∈ N if i = k c ⋅ R k m j 0 R
62 ringmnd ⊢ R ∈ Ring → R ∈ Mnd
63 62 adantl ⊢ N ∈ Fin ∧ R ∈ Ring → R ∈ Mnd
64 63 ad4antr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → R ∈ Mnd
65 simpl ⊢ N ∈ Fin ∧ R ∈ Ring → N ∈ Fin
66 65 ad4antr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → N ∈ Fin
67 equcom ⊢ i = k ↔ k = i
68 ifbi ⊢ i = k ↔ k = i → if i = k c ⋅ R k m j 0 R = if k = i c ⋅ R k m j 0 R
69 67 68 ax-mp ⊢ if i = k c ⋅ R k m j 0 R = if k = i c ⋅ R k m j 0 R
70 69 mpteq2i ⊢ k ∈ N ⟼ if i = k c ⋅ R k m j 0 R = k ∈ N ⟼ if k = i c ⋅ R k m j 0 R
71 1 eleq2i ⊢ c ∈ K ↔ c ∈ Base R
72 71 bilani ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → c ∈ Base R
73 72 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → c ∈ Base R
74 eqid ⊢ Base R = Base R
75 2 74 3 40 51 53 matecld ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → k m j ∈ Base R
76 74 55 ringcl ⊢ R ∈ Ring ∧ c ∈ Base R ∧ k m j ∈ Base R → c ⋅ R k m j ∈ Base R
77 50 73 75 76 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N ∧ k ∈ N → c ⋅ R k m j ∈ Base R
78 77 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → ∀ k ∈ N c ⋅ R k m j ∈ Base R
79 31 64 66 38 70 78 gsummpt1n0 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → ∑ R k ∈ N if i = k c ⋅ R k m j 0 R = ⦋ i / k⦌ c ⋅ R k m j
80 48 61 79 3eqtrd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → ∑ R k ∈ N i c ∗ ˙ 1 A k ⋅ R k m j = ⦋ i / k⦌ c ⋅ R k m j
81 csbov2g ⊢ i ∈ N → ⦋ i / k⦌ c ⋅ R k m j = c ⋅ R ⦋ i / k⦌ k m j
82 csbov1g ⊢ i ∈ N → ⦋ i / k⦌ k m j = ⦋ i / k⦌ k m j
83 csbvarg ⊢ i ∈ N → ⦋ i / k⦌ k = i
84 83 oveq1d ⊢ i ∈ N → ⦋ i / k⦌ k m j = i m j
85 82 84 eqtrd ⊢ i ∈ N → ⦋ i / k⦌ k m j = i m j
86 85 oveq2d ⊢ i ∈ N → c ⋅ R ⦋ i / k⦌ k m j = c ⋅ R i m j
87 81 86 eqtrd ⊢ i ∈ N → ⦋ i / k⦌ c ⋅ R k m j = c ⋅ R i m j
88 87 adantr ⊢ i ∈ N ∧ j ∈ N → ⦋ i / k⦌ c ⋅ R k m j = c ⋅ R i m j
89 88 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → ⦋ i / k⦌ c ⋅ R k m j = c ⋅ R i m j
90 26 80 89 3eqtrd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i c ∗ ˙ 1 A × ˙ m j = c ⋅ R i m j
91 simpr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → c ∈ K
92 91 anim1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∈ K ∧ m ∈ B
93 92 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → c ∈ K ∧ m ∈ B
94 2 3 1 4 55 matvscacell ⊢ R ∈ Ring ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i c ∗ ˙ m j = c ⋅ R i m j
95 12 93 24 94 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i c ∗ ˙ m j = c ⋅ R i m j
96 90 95 eqtr4d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ i ∈ N ∧ j ∈ N → i c ∗ ˙ 1 A × ˙ m j = i c ∗ ˙ m j
97 96 ralrimivva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → ∀ i ∈ N ∀ j ∈ N i c ∗ ˙ 1 A × ˙ m j = i c ∗ ˙ m j
98 15 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → A ∈ Ring
99 21 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ 1 A ∈ B
100 3 5 ringcl ⊢ A ∈ Ring ∧ c ∗ ˙ 1 A ∈ B ∧ m ∈ B → c ∗ ˙ 1 A × ˙ m ∈ B
101 98 99 52 100 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ 1 A × ˙ m ∈ B
102 13 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → N ∈ Fin ∧ R ∈ Ring
103 1 2 3 4 matvscl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ m ∈ B
104 102 92 103 syl2anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ m ∈ B
105 2 3 eqmat ⊢ c ∗ ˙ 1 A × ˙ m ∈ B ∧ c ∗ ˙ m ∈ B → c ∗ ˙ 1 A × ˙ m = c ∗ ˙ m ↔ ∀ i ∈ N ∀ j ∈ N i c ∗ ˙ 1 A × ˙ m j = i c ∗ ˙ m j
106 101 104 105 syl2anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ 1 A × ˙ m = c ∗ ˙ m ↔ ∀ i ∈ N ∀ j ∈ N i c ∗ ˙ 1 A × ˙ m j = i c ∗ ˙ m j
107 97 106 mpbird ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → c ∗ ˙ 1 A × ˙ m = c ∗ ˙ m
108 10 107 sylan9eqr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B ∧ C = c ∗ ˙ 1 A → C × ˙ m = c ∗ ˙ m
109 108 ex ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K ∧ m ∈ B → C = c ∗ ˙ 1 A → C × ˙ m = c ∗ ˙ m
110 109 ralrimdva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S ∧ c ∈ K → C = c ∗ ˙ 1 A → ∀ m ∈ B C × ˙ m = c ∗ ˙ m
111 110 reximdva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → ∃ c ∈ K C = c ∗ ˙ 1 A → ∃ c ∈ K ∀ m ∈ B C × ˙ m = c ∗ ˙ m
112 9 111 mpd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ C ∈ S → ∃ c ∈ K ∀ m ∈ B C × ˙ m = c ∗ ˙ m