MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  scmatscm Structured version   Visualization version   GIF version

Theorem scmatscm 21124
Description: The multiplication of a matrix with a scalar matrix corresponds to a scalar multiplication. (Contributed by AV, 28-Dec-2019.)
Hypotheses
Ref Expression
scmatscm.k 𝐾 = (Base‘𝑅)
scmatscm.a 𝐴 = (𝑁 Mat 𝑅)
scmatscm.b 𝐵 = (Base‘𝐴)
scmatscm.t = ( ·𝑠𝐴)
scmatscm.m × = (.r𝐴)
scmatscm.c 𝑆 = (𝑁 ScMat 𝑅)
Assertion
Ref Expression
scmatscm (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) → ∃𝑐𝐾𝑚𝐵 (𝐶 × 𝑚) = (𝑐 𝑚))
Distinct variable groups:   𝐴,𝑚   𝐶,𝑐,𝑚   𝐾,𝑐,𝑚   𝑁,𝑐,𝑚   𝑅,𝑐,𝑚   𝑆,𝑐,𝑚   ,𝑚
Allowed substitution hints:   𝐴(𝑐)   𝐵(𝑚,𝑐)   × (𝑚,𝑐)   (𝑐)

Proof of Theorem scmatscm
Dummy variables 𝑖 𝑗 𝑘 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 scmatscm.k . . . 4 𝐾 = (Base‘𝑅)
2 scmatscm.a . . . 4 𝐴 = (𝑁 Mat 𝑅)
3 scmatscm.b . . . 4 𝐵 = (Base‘𝐴)
4 eqid 2823 . . . 4 (1r𝐴) = (1r𝐴)
5 scmatscm.t . . . 4 = ( ·𝑠𝐴)
6 scmatscm.c . . . 4 𝑆 = (𝑁 ScMat 𝑅)
71, 2, 3, 4, 5, 6scmatscmid 21117 . . 3 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝐶𝑆) → ∃𝑐𝐾 𝐶 = (𝑐 (1r𝐴)))
873expa 1114 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) → ∃𝑐𝐾 𝐶 = (𝑐 (1r𝐴)))
9 oveq1 7165 . . . . . 6 (𝐶 = (𝑐 (1r𝐴)) → (𝐶 × 𝑚) = ((𝑐 (1r𝐴)) × 𝑚))
10 simpr 487 . . . . . . . . . . . 12 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑅 ∈ Ring)
1110ad4antr 730 . . . . . . . . . . 11 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → 𝑅 ∈ Ring)
12 simpl 485 . . . . . . . . . . . . . . 15 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
1312adantr 483 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
142matring 21054 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)
153, 4ringidcl 19320 . . . . . . . . . . . . . . . . 17 (𝐴 ∈ Ring → (1r𝐴) ∈ 𝐵)
1614, 15syl 17 . . . . . . . . . . . . . . . 16 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (1r𝐴) ∈ 𝐵)
1716adantr 483 . . . . . . . . . . . . . . 15 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) → (1r𝐴) ∈ 𝐵)
1817anim1ci 617 . . . . . . . . . . . . . 14 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → (𝑐𝐾 ∧ (1r𝐴) ∈ 𝐵))
191, 2, 3, 5matvscl 21042 . . . . . . . . . . . . . 14 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑐𝐾 ∧ (1r𝐴) ∈ 𝐵)) → (𝑐 (1r𝐴)) ∈ 𝐵)
2013, 18, 19syl2anc 586 . . . . . . . . . . . . 13 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → (𝑐 (1r𝐴)) ∈ 𝐵)
2120anim1i 616 . . . . . . . . . . . 12 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → ((𝑐 (1r𝐴)) ∈ 𝐵𝑚𝐵))
2221adantr 483 . . . . . . . . . . 11 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → ((𝑐 (1r𝐴)) ∈ 𝐵𝑚𝐵))
23 simpr 487 . . . . . . . . . . 11 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖𝑁𝑗𝑁))
24 scmatscm.m . . . . . . . . . . . 12 × = (.r𝐴)
252, 3, 24matmulcell 21056 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ ((𝑐 (1r𝐴)) ∈ 𝐵𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑅 Σg (𝑘𝑁 ↦ ((𝑖(𝑐 (1r𝐴))𝑘)(.r𝑅)(𝑘𝑚𝑗)))))
2611, 22, 23, 25syl3anc 1367 . . . . . . . . . 10 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑅 Σg (𝑘𝑁 ↦ ((𝑖(𝑐 (1r𝐴))𝑘)(.r𝑅)(𝑘𝑚𝑗)))))
2712anim1i 616 . . . . . . . . . . . . . . . . . 18 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑐𝐾))
28 df-3an 1085 . . . . . . . . . . . . . . . . . 18 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑐𝐾) ↔ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑐𝐾))
2927, 28sylibr 236 . . . . . . . . . . . . . . . . 17 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑐𝐾))
3029ad3antrrr 728 . . . . . . . . . . . . . . . 16 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑐𝐾))
31 eqid 2823 . . . . . . . . . . . . . . . . 17 (0g𝑅) = (0g𝑅)
322, 1, 5, 31matsc 21061 . . . . . . . . . . . . . . . 16 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑐𝐾) → (𝑐 (1r𝐴)) = (𝑥𝑁, 𝑦𝑁 ↦ if(𝑥 = 𝑦, 𝑐, (0g𝑅))))
3330, 32syl 17 . . . . . . . . . . . . . . 15 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (𝑐 (1r𝐴)) = (𝑥𝑁, 𝑦𝑁 ↦ if(𝑥 = 𝑦, 𝑐, (0g𝑅))))
34 eqeq12 2837 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑖𝑦 = 𝑘) → (𝑥 = 𝑦𝑖 = 𝑘))
3534ifbid 4491 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑖𝑦 = 𝑘) → if(𝑥 = 𝑦, 𝑐, (0g𝑅)) = if(𝑖 = 𝑘, 𝑐, (0g𝑅)))
3635adantl 484 . . . . . . . . . . . . . . 15 ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) ∧ (𝑥 = 𝑖𝑦 = 𝑘)) → if(𝑥 = 𝑦, 𝑐, (0g𝑅)) = if(𝑖 = 𝑘, 𝑐, (0g𝑅)))
37 simpl 485 . . . . . . . . . . . . . . . . 17 ((𝑖𝑁𝑗𝑁) → 𝑖𝑁)
3837adantl 484 . . . . . . . . . . . . . . . 16 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → 𝑖𝑁)
3938adantr 483 . . . . . . . . . . . . . . 15 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → 𝑖𝑁)
40 simpr 487 . . . . . . . . . . . . . . 15 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → 𝑘𝑁)
41 vex 3499 . . . . . . . . . . . . . . . . 17 𝑐 ∈ V
42 fvex 6685 . . . . . . . . . . . . . . . . 17 (0g𝑅) ∈ V
4341, 42ifex 4517 . . . . . . . . . . . . . . . 16 if(𝑖 = 𝑘, 𝑐, (0g𝑅)) ∈ V
4443a1i 11 . . . . . . . . . . . . . . 15 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → if(𝑖 = 𝑘, 𝑐, (0g𝑅)) ∈ V)
4533, 36, 39, 40, 44ovmpod 7304 . . . . . . . . . . . . . 14 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (𝑖(𝑐 (1r𝐴))𝑘) = if(𝑖 = 𝑘, 𝑐, (0g𝑅)))
4645oveq1d 7173 . . . . . . . . . . . . 13 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → ((𝑖(𝑐 (1r𝐴))𝑘)(.r𝑅)(𝑘𝑚𝑗)) = (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗)))
4746mpteq2dva 5163 . . . . . . . . . . . 12 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑘𝑁 ↦ ((𝑖(𝑐 (1r𝐴))𝑘)(.r𝑅)(𝑘𝑚𝑗))) = (𝑘𝑁 ↦ (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗))))
4847oveq2d 7174 . . . . . . . . . . 11 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑅 Σg (𝑘𝑁 ↦ ((𝑖(𝑐 (1r𝐴))𝑘)(.r𝑅)(𝑘𝑚𝑗)))) = (𝑅 Σg (𝑘𝑁 ↦ (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗)))))
49 ovif 7253 . . . . . . . . . . . . . 14 (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗)) = if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), ((0g𝑅)(.r𝑅)(𝑘𝑚𝑗)))
50 simp-6r 786 . . . . . . . . . . . . . . . 16 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → 𝑅 ∈ Ring)
51 simplrr 776 . . . . . . . . . . . . . . . . 17 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → 𝑗𝑁)
52 simpr 487 . . . . . . . . . . . . . . . . . 18 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → 𝑚𝐵)
5352ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → 𝑚𝐵)
542, 1, 3, 40, 51, 53matecld 21037 . . . . . . . . . . . . . . . 16 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (𝑘𝑚𝑗) ∈ 𝐾)
55 eqid 2823 . . . . . . . . . . . . . . . . 17 (.r𝑅) = (.r𝑅)
561, 55, 31ringlz 19339 . . . . . . . . . . . . . . . 16 ((𝑅 ∈ Ring ∧ (𝑘𝑚𝑗) ∈ 𝐾) → ((0g𝑅)(.r𝑅)(𝑘𝑚𝑗)) = (0g𝑅))
5750, 54, 56syl2anc 586 . . . . . . . . . . . . . . 15 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → ((0g𝑅)(.r𝑅)(𝑘𝑚𝑗)) = (0g𝑅))
5857ifeq2d 4488 . . . . . . . . . . . . . 14 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), ((0g𝑅)(.r𝑅)(𝑘𝑚𝑗))) = if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)))
5949, 58syl5eq 2870 . . . . . . . . . . . . 13 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗)) = if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)))
6059mpteq2dva 5163 . . . . . . . . . . . 12 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑘𝑁 ↦ (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗))) = (𝑘𝑁 ↦ if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅))))
6160oveq2d 7174 . . . . . . . . . . 11 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑅 Σg (𝑘𝑁 ↦ (if(𝑖 = 𝑘, 𝑐, (0g𝑅))(.r𝑅)(𝑘𝑚𝑗)))) = (𝑅 Σg (𝑘𝑁 ↦ if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)))))
62 ringmnd 19308 . . . . . . . . . . . . . 14 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
6362adantl 484 . . . . . . . . . . . . 13 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑅 ∈ Mnd)
6463ad4antr 730 . . . . . . . . . . . 12 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → 𝑅 ∈ Mnd)
65 simpl 485 . . . . . . . . . . . . 13 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑁 ∈ Fin)
6665ad4antr 730 . . . . . . . . . . . 12 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → 𝑁 ∈ Fin)
67 equcom 2025 . . . . . . . . . . . . . 14 (𝑖 = 𝑘𝑘 = 𝑖)
68 ifbi 4490 . . . . . . . . . . . . . 14 ((𝑖 = 𝑘𝑘 = 𝑖) → if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)) = if(𝑘 = 𝑖, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)))
6967, 68ax-mp 5 . . . . . . . . . . . . 13 if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)) = if(𝑘 = 𝑖, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅))
7069mpteq2i 5160 . . . . . . . . . . . 12 (𝑘𝑁 ↦ if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅))) = (𝑘𝑁 ↦ if(𝑘 = 𝑖, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)))
711eleq2i 2906 . . . . . . . . . . . . . . . . 17 (𝑐𝐾𝑐 ∈ (Base‘𝑅))
7271biimpi 218 . . . . . . . . . . . . . . . 16 (𝑐𝐾𝑐 ∈ (Base‘𝑅))
7372adantl 484 . . . . . . . . . . . . . . 15 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → 𝑐 ∈ (Base‘𝑅))
7473ad3antrrr 728 . . . . . . . . . . . . . 14 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → 𝑐 ∈ (Base‘𝑅))
75 eqid 2823 . . . . . . . . . . . . . . 15 (Base‘𝑅) = (Base‘𝑅)
762, 75, 3, 40, 51, 53matecld 21037 . . . . . . . . . . . . . 14 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (𝑘𝑚𝑗) ∈ (Base‘𝑅))
7775, 55ringcl 19313 . . . . . . . . . . . . . 14 ((𝑅 ∈ Ring ∧ 𝑐 ∈ (Base‘𝑅) ∧ (𝑘𝑚𝑗) ∈ (Base‘𝑅)) → (𝑐(.r𝑅)(𝑘𝑚𝑗)) ∈ (Base‘𝑅))
7850, 74, 76, 77syl3anc 1367 . . . . . . . . . . . . 13 (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) ∧ 𝑘𝑁) → (𝑐(.r𝑅)(𝑘𝑚𝑗)) ∈ (Base‘𝑅))
7978ralrimiva 3184 . . . . . . . . . . . 12 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → ∀𝑘𝑁 (𝑐(.r𝑅)(𝑘𝑚𝑗)) ∈ (Base‘𝑅))
8031, 64, 66, 38, 70, 79gsummpt1n0 19087 . . . . . . . . . . 11 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑅 Σg (𝑘𝑁 ↦ if(𝑖 = 𝑘, (𝑐(.r𝑅)(𝑘𝑚𝑗)), (0g𝑅)))) = 𝑖 / 𝑘(𝑐(.r𝑅)(𝑘𝑚𝑗)))
8148, 61, 803eqtrd 2862 . . . . . . . . . 10 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑅 Σg (𝑘𝑁 ↦ ((𝑖(𝑐 (1r𝐴))𝑘)(.r𝑅)(𝑘𝑚𝑗)))) = 𝑖 / 𝑘(𝑐(.r𝑅)(𝑘𝑚𝑗)))
82 csbov2g 7204 . . . . . . . . . . . . 13 (𝑖𝑁𝑖 / 𝑘(𝑐(.r𝑅)(𝑘𝑚𝑗)) = (𝑐(.r𝑅)𝑖 / 𝑘(𝑘𝑚𝑗)))
83 csbov1g 7203 . . . . . . . . . . . . . . 15 (𝑖𝑁𝑖 / 𝑘(𝑘𝑚𝑗) = (𝑖 / 𝑘𝑘𝑚𝑗))
84 csbvarg 4385 . . . . . . . . . . . . . . . 16 (𝑖𝑁𝑖 / 𝑘𝑘 = 𝑖)
8584oveq1d 7173 . . . . . . . . . . . . . . 15 (𝑖𝑁 → (𝑖 / 𝑘𝑘𝑚𝑗) = (𝑖𝑚𝑗))
8683, 85eqtrd 2858 . . . . . . . . . . . . . 14 (𝑖𝑁𝑖 / 𝑘(𝑘𝑚𝑗) = (𝑖𝑚𝑗))
8786oveq2d 7174 . . . . . . . . . . . . 13 (𝑖𝑁 → (𝑐(.r𝑅)𝑖 / 𝑘(𝑘𝑚𝑗)) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
8882, 87eqtrd 2858 . . . . . . . . . . . 12 (𝑖𝑁𝑖 / 𝑘(𝑐(.r𝑅)(𝑘𝑚𝑗)) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
8988adantr 483 . . . . . . . . . . 11 ((𝑖𝑁𝑗𝑁) → 𝑖 / 𝑘(𝑐(.r𝑅)(𝑘𝑚𝑗)) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
9089adantl 484 . . . . . . . . . 10 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → 𝑖 / 𝑘(𝑐(.r𝑅)(𝑘𝑚𝑗)) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
9126, 81, 903eqtrd 2862 . . . . . . . . 9 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
92 simpr 487 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → 𝑐𝐾)
9392anim1i 616 . . . . . . . . . . 11 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → (𝑐𝐾𝑚𝐵))
9493adantr 483 . . . . . . . . . 10 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑐𝐾𝑚𝐵))
952, 3, 1, 5, 55matvscacell 21047 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ (𝑐𝐾𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖(𝑐 𝑚)𝑗) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
9611, 94, 23, 95syl3anc 1367 . . . . . . . . 9 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖(𝑐 𝑚)𝑗) = (𝑐(.r𝑅)(𝑖𝑚𝑗)))
9791, 96eqtr4d 2861 . . . . . . . 8 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑖(𝑐 𝑚)𝑗))
9897ralrimivva 3193 . . . . . . 7 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → ∀𝑖𝑁𝑗𝑁 (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑖(𝑐 𝑚)𝑗))
9914ad3antrrr 728 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → 𝐴 ∈ Ring)
10020adantr 483 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → (𝑐 (1r𝐴)) ∈ 𝐵)
1013, 24ringcl 19313 . . . . . . . . 9 ((𝐴 ∈ Ring ∧ (𝑐 (1r𝐴)) ∈ 𝐵𝑚𝐵) → ((𝑐 (1r𝐴)) × 𝑚) ∈ 𝐵)
10299, 100, 52, 101syl3anc 1367 . . . . . . . 8 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → ((𝑐 (1r𝐴)) × 𝑚) ∈ 𝐵)
10312ad2antrr 724 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
1041, 2, 3, 5matvscl 21042 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑐𝐾𝑚𝐵)) → (𝑐 𝑚) ∈ 𝐵)
105103, 93, 104syl2anc 586 . . . . . . . 8 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → (𝑐 𝑚) ∈ 𝐵)
1062, 3eqmat 21035 . . . . . . . 8 ((((𝑐 (1r𝐴)) × 𝑚) ∈ 𝐵 ∧ (𝑐 𝑚) ∈ 𝐵) → (((𝑐 (1r𝐴)) × 𝑚) = (𝑐 𝑚) ↔ ∀𝑖𝑁𝑗𝑁 (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑖(𝑐 𝑚)𝑗)))
107102, 105, 106syl2anc 586 . . . . . . 7 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → (((𝑐 (1r𝐴)) × 𝑚) = (𝑐 𝑚) ↔ ∀𝑖𝑁𝑗𝑁 (𝑖((𝑐 (1r𝐴)) × 𝑚)𝑗) = (𝑖(𝑐 𝑚)𝑗)))
10898, 107mpbird 259 . . . . . 6 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → ((𝑐 (1r𝐴)) × 𝑚) = (𝑐 𝑚))
1099, 108sylan9eqr 2880 . . . . 5 ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) ∧ 𝐶 = (𝑐 (1r𝐴))) → (𝐶 × 𝑚) = (𝑐 𝑚))
110109ex 415 . . . 4 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) ∧ 𝑚𝐵) → (𝐶 = (𝑐 (1r𝐴)) → (𝐶 × 𝑚) = (𝑐 𝑚)))
111110ralrimdva 3191 . . 3 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) ∧ 𝑐𝐾) → (𝐶 = (𝑐 (1r𝐴)) → ∀𝑚𝐵 (𝐶 × 𝑚) = (𝑐 𝑚)))
112111reximdva 3276 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) → (∃𝑐𝐾 𝐶 = (𝑐 (1r𝐴)) → ∃𝑐𝐾𝑚𝐵 (𝐶 × 𝑚) = (𝑐 𝑚)))
1138, 112mpd 15 1 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝐶𝑆) → ∃𝑐𝐾𝑚𝐵 (𝐶 × 𝑚) = (𝑐 𝑚))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 398  w3a 1083   = wceq 1537  wcel 2114  wral 3140  wrex 3141  Vcvv 3496  csb 3885  ifcif 4469  cmpt 5148  cfv 6357  (class class class)co 7158  cmpo 7160  Fincfn 8511  Basecbs 16485  .rcmulr 16568   ·𝑠 cvsca 16571  0gc0g 16715   Σg cgsu 16716  Mndcmnd 17913  1rcur 19253  Ringcrg 19299   Mat cmat 21018   ScMat cscmat 21100
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-ot 4578  df-uni 4841  df-int 4879  df-iun 4923  df-iin 4924  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-se 5517  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-isom 6366  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-om 7583  df-1st 7691  df-2nd 7692  df-supp 7833  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-oadd 8108  df-er 8291  df-map 8410  df-ixp 8464  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-fsupp 8836  df-sup 8908  df-oi 8976  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-fz 12896  df-fzo 13037  df-seq 13373  df-hash 13694  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-ress 16493  df-plusg 16580  df-mulr 16581  df-sca 16583  df-vsca 16584  df-ip 16585  df-tset 16586  df-ple 16587  df-ds 16589  df-hom 16591  df-cco 16592  df-0g 16717  df-gsum 16718  df-prds 16723  df-pws 16725  df-mre 16859  df-mrc 16860  df-acs 16862  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-mhm 17958  df-submnd 17959  df-grp 18108  df-minusg 18109  df-sbg 18110  df-mulg 18227  df-subg 18278  df-ghm 18358  df-cntz 18449  df-cmn 18910  df-abl 18911  df-mgp 19242  df-ur 19254  df-ring 19301  df-subrg 19535  df-lmod 19638  df-lss 19706  df-sra 19946  df-rgmod 19947  df-dsmm 20878  df-frlm 20893  df-mamu 20997  df-mat 21019  df-scmat 21102
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator