Step | Hyp | Ref
| Expression |
1 | | pmatcollpw.p |
. . . . . . . 8
⊢ 𝑃 = (Poly1‘𝑅) |
2 | 1 | ply1assa 19390 |
. . . . . . 7
⊢ (𝑅 ∈ CRing → 𝑃 ∈ AssAlg) |
3 | 2 | 3ad2ant2 1076 |
. . . . . 6
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ AssAlg) |
4 | 3 | adantr 480 |
. . . . 5
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑃 ∈ AssAlg) |
5 | 4 | 3ad2ant1 1075 |
. . . 4
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑃 ∈ AssAlg) |
6 | | eqid 2610 |
. . . . . 6
⊢ (𝑁 Mat 𝑅) = (𝑁 Mat 𝑅) |
7 | | eqid 2610 |
. . . . . 6
⊢
(Base‘𝑅) =
(Base‘𝑅) |
8 | | eqid 2610 |
. . . . . 6
⊢
(Base‘(𝑁 Mat
𝑅)) = (Base‘(𝑁 Mat 𝑅)) |
9 | | simp2 1055 |
. . . . . 6
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑎 ∈ 𝑁) |
10 | | simp3 1056 |
. . . . . 6
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑏 ∈ 𝑁) |
11 | | simp2 1055 |
. . . . . . . . 9
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ CRing) |
12 | 11 | adantr 480 |
. . . . . . . 8
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ CRing) |
13 | | simp3 1056 |
. . . . . . . . 9
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑀 ∈ 𝐵) |
14 | 13 | adantr 480 |
. . . . . . . 8
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑀 ∈ 𝐵) |
15 | | simpr 476 |
. . . . . . . 8
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑛 ∈
ℕ0) |
16 | | pmatcollpw.c |
. . . . . . . . 9
⊢ 𝐶 = (𝑁 Mat 𝑃) |
17 | | pmatcollpw.b |
. . . . . . . . 9
⊢ 𝐵 = (Base‘𝐶) |
18 | 1, 16, 17, 6, 8 | decpmatcl 20391 |
. . . . . . . 8
⊢ ((𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵 ∧ 𝑛 ∈ ℕ0) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅))) |
19 | 12, 14, 15, 18 | syl3anc 1318 |
. . . . . . 7
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅))) |
20 | 19 | 3ad2ant1 1075 |
. . . . . 6
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅))) |
21 | 6, 7, 8, 9, 10, 20 | matecld 20051 |
. . . . 5
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅)) |
22 | | crngring 18381 |
. . . . . . . . . . . 12
⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring) |
23 | 22 | 3ad2ant2 1076 |
. . . . . . . . . . 11
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring) |
24 | 1 | ply1sca 19444 |
. . . . . . . . . . 11
⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃)) |
25 | 23, 24 | syl 17 |
. . . . . . . . . 10
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 = (Scalar‘𝑃)) |
26 | 25 | eqcomd 2616 |
. . . . . . . . 9
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝑃) = 𝑅) |
27 | 26 | fveq2d 6107 |
. . . . . . . 8
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅)) |
28 | 27 | eleq2d 2673 |
. . . . . . 7
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ↔ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅))) |
29 | 28 | adantr 480 |
. . . . . 6
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ↔ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅))) |
30 | 29 | 3ad2ant1 1075 |
. . . . 5
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ↔ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘𝑅))) |
31 | 21, 30 | mpbird 246 |
. . . 4
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃))) |
32 | | pmatcollpw.x |
. . . . . . 7
⊢ 𝑋 = (var1‘𝑅) |
33 | | eqid 2610 |
. . . . . . 7
⊢
(mulGrp‘𝑃) =
(mulGrp‘𝑃) |
34 | | pmatcollpw.e |
. . . . . . 7
⊢ ↑ =
(.g‘(mulGrp‘𝑃)) |
35 | | eqid 2610 |
. . . . . . 7
⊢
(Base‘𝑃) =
(Base‘𝑃) |
36 | 1, 32, 33, 34, 35 | ply1moncl 19462 |
. . . . . 6
⊢ ((𝑅 ∈ Ring ∧ 𝑛 ∈ ℕ0)
→ (𝑛 ↑ 𝑋) ∈ (Base‘𝑃)) |
37 | 23, 36 | sylan 487 |
. . . . 5
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑛 ↑ 𝑋) ∈ (Base‘𝑃)) |
38 | 37 | 3ad2ant1 1075 |
. . . 4
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑛 ↑ 𝑋) ∈ (Base‘𝑃)) |
39 | | eqid 2610 |
. . . . 5
⊢
(algSc‘𝑃) =
(algSc‘𝑃) |
40 | | eqid 2610 |
. . . . 5
⊢
(Scalar‘𝑃) =
(Scalar‘𝑃) |
41 | | eqid 2610 |
. . . . 5
⊢
(Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃)) |
42 | | eqid 2610 |
. . . . 5
⊢
(.r‘𝑃) = (.r‘𝑃) |
43 | | eqid 2610 |
. . . . 5
⊢ (
·𝑠 ‘𝑃) = ( ·𝑠
‘𝑃) |
44 | 39, 40, 41, 35, 42, 43 | asclmul2 19161 |
. . . 4
⊢ ((𝑃 ∈ AssAlg ∧ (𝑎(𝑀 decompPMat 𝑛)𝑏) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑛 ↑ 𝑋) ∈ (Base‘𝑃)) → ((𝑛 ↑ 𝑋)(.r‘𝑃)((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) = ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠
‘𝑃)(𝑛 ↑ 𝑋))) |
45 | 5, 31, 38, 44 | syl3anc 1318 |
. . 3
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑛 ↑ 𝑋)(.r‘𝑃)((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) = ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠
‘𝑃)(𝑛 ↑ 𝑋))) |
46 | | eqidd 2611 |
. . . . . 6
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))) |
47 | | oveq12 6558 |
. . . . . . . 8
⊢ ((𝑖 = 𝑎 ∧ 𝑗 = 𝑏) → (𝑖(𝑀 decompPMat 𝑛)𝑗) = (𝑎(𝑀 decompPMat 𝑛)𝑏)) |
48 | 47 | fveq2d 6107 |
. . . . . . 7
⊢ ((𝑖 = 𝑎 ∧ 𝑗 = 𝑏) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) = ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) |
49 | 48 | adantl 481 |
. . . . . 6
⊢
(((((𝑁 ∈ Fin
∧ 𝑅 ∈ CRing ∧
𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) ∧ (𝑖 = 𝑎 ∧ 𝑗 = 𝑏)) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) = ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) |
50 | | fvex 6113 |
. . . . . . 7
⊢
((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)) ∈ V |
51 | 50 | a1i 11 |
. . . . . 6
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)) ∈ V) |
52 | 46, 49, 9, 10, 51 | ovmpt2d 6686 |
. . . . 5
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏) = ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) |
53 | 52 | eqcomd 2616 |
. . . 4
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏)) = (𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏)) |
54 | 53 | oveq2d 6565 |
. . 3
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑛 ↑ 𝑋)(.r‘𝑃)((algSc‘𝑃)‘(𝑎(𝑀 decompPMat 𝑛)𝑏))) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏))) |
55 | 45, 54 | eqtr3d 2646 |
. 2
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠
‘𝑃)(𝑛 ↑ 𝑋)) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏))) |
56 | 1 | ply1ring 19439 |
. . . . . . 7
⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring) |
57 | 22, 56 | syl 17 |
. . . . . 6
⊢ (𝑅 ∈ CRing → 𝑃 ∈ Ring) |
58 | 57 | 3ad2ant2 1076 |
. . . . 5
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ Ring) |
59 | 58 | adantr 480 |
. . . 4
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑃 ∈ Ring) |
60 | 59 | 3ad2ant1 1075 |
. . 3
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → 𝑃 ∈ Ring) |
61 | | simpl1 1057 |
. . . . . 6
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑁 ∈ Fin) |
62 | 12, 22 | syl 17 |
. . . . . . . 8
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ Ring) |
63 | 62 | 3ad2ant1 1075 |
. . . . . . 7
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑅 ∈ Ring) |
64 | | simp2 1055 |
. . . . . . . 8
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑖 ∈ 𝑁) |
65 | | simp3 1056 |
. . . . . . . 8
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → 𝑗 ∈ 𝑁) |
66 | 19 | 3ad2ant1 1075 |
. . . . . . . 8
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅))) |
67 | 6, 7, 8, 64, 65, 66 | matecld 20051 |
. . . . . . 7
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → (𝑖(𝑀 decompPMat 𝑛)𝑗) ∈ (Base‘𝑅)) |
68 | 1, 39, 7, 35 | ply1sclcl 19477 |
. . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑖(𝑀 decompPMat 𝑛)𝑗) ∈ (Base‘𝑅)) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) ∈ (Base‘𝑃)) |
69 | 63, 67, 68 | syl2anc 691 |
. . . . . 6
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑖 ∈ 𝑁 ∧ 𝑗 ∈ 𝑁) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)) ∈ (Base‘𝑃)) |
70 | 16, 35, 17, 61, 59, 69 | matbas2d 20048 |
. . . . 5
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵) |
71 | 37, 70 | jca 553 |
. . . 4
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑛 ↑ 𝑋) ∈ (Base‘𝑃) ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵)) |
72 | 71 | 3ad2ant1 1075 |
. . 3
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑛 ↑ 𝑋) ∈ (Base‘𝑃) ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵)) |
73 | 9, 10 | jca 553 |
. . 3
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁)) |
74 | | pmatcollpw.m |
. . . 4
⊢ ∗ = (
·𝑠 ‘𝐶) |
75 | 16, 17, 35, 74, 42 | matvscacell 20061 |
. . 3
⊢ ((𝑃 ∈ Ring ∧ ((𝑛 ↑ 𝑋) ∈ (Base‘𝑃) ∧ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) ∈ 𝐵) ∧ (𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁)) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏))) |
76 | 60, 72, 73, 75 | syl3anc 1318 |
. 2
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = ((𝑛 ↑ 𝑋)(.r‘𝑃)(𝑎(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))𝑏))) |
77 | 23 | adantr 480 |
. . . . . . 7
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → 𝑅 ∈ Ring) |
78 | | pmatcollpw.t |
. . . . . . . 8
⊢ 𝑇 = (𝑁 matToPolyMat 𝑅) |
79 | 78, 6, 8, 1, 39 | mat2pmatval 20348 |
. . . . . . 7
⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑀 decompPMat 𝑛) ∈ (Base‘(𝑁 Mat 𝑅))) → (𝑇‘(𝑀 decompPMat 𝑛)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))) |
80 | 61, 77, 19, 79 | syl3anc 1318 |
. . . . . 6
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑇‘(𝑀 decompPMat 𝑛)) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))) |
81 | 80 | eqcomd 2616 |
. . . . 5
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))) = (𝑇‘(𝑀 decompPMat 𝑛))) |
82 | 81 | oveq2d 6565 |
. . . 4
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → ((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗)))) = ((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))) |
83 | 82 | oveqd 6566 |
. . 3
⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏)) |
84 | 83 | 3ad2ant1 1075 |
. 2
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → (𝑎((𝑛 ↑ 𝑋) ∗ (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝑛)𝑗))))𝑏) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏)) |
85 | 55, 76, 84 | 3eqtr2d 2650 |
1
⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑛 ∈ ℕ0) ∧ 𝑎 ∈ 𝑁 ∧ 𝑏 ∈ 𝑁) → ((𝑎(𝑀 decompPMat 𝑛)𝑏)( ·𝑠
‘𝑃)(𝑛 ↑ 𝑋)) = (𝑎((𝑛 ↑ 𝑋) ∗ (𝑇‘(𝑀 decompPMat 𝑛)))𝑏)) |