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

Theorem pmatcollpwscmatlem2 21541
Description: Lemma 2 for pmatcollpwscmat 21542. (Contributed by AV, 2-Nov-2019.) (Revised by AV, 4-Dec-2019.)
Hypotheses
Ref Expression
pmatcollpwscmat.p 𝑃 = (Poly1𝑅)
pmatcollpwscmat.c 𝐶 = (𝑁 Mat 𝑃)
pmatcollpwscmat.b 𝐵 = (Base‘𝐶)
pmatcollpwscmat.m1 = ( ·𝑠𝐶)
pmatcollpwscmat.e1 = (.g‘(mulGrp‘𝑃))
pmatcollpwscmat.x 𝑋 = (var1𝑅)
pmatcollpwscmat.t 𝑇 = (𝑁 matToPolyMat 𝑅)
pmatcollpwscmat.a 𝐴 = (𝑁 Mat 𝑅)
pmatcollpwscmat.d 𝐷 = (Base‘𝐴)
pmatcollpwscmat.u 𝑈 = (algSc‘𝑃)
pmatcollpwscmat.k 𝐾 = (Base‘𝑅)
pmatcollpwscmat.e2 𝐸 = (Base‘𝑃)
pmatcollpwscmat.s 𝑆 = (algSc‘𝑃)
pmatcollpwscmat.1 1 = (1r𝐶)
pmatcollpwscmat.m2 𝑀 = (𝑄 1 )
Assertion
Ref Expression
pmatcollpwscmatlem2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑇‘(𝑀 decompPMat 𝐿)) = ((𝑈‘((coe1𝑄)‘𝐿)) 1 ))

Proof of Theorem pmatcollpwscmatlem2
Dummy variables 𝑎 𝑏 𝑖 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 486 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
2 simpr 488 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑅 ∈ Ring)
32adantr 484 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝑅 ∈ Ring)
4 simpr 488 . . . . . . . 8 ((𝐿 ∈ ℕ0𝑄𝐸) → 𝑄𝐸)
54anim2i 620 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑄𝐸))
6 df-3an 1090 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑄𝐸) ↔ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ 𝑄𝐸))
75, 6sylibr 237 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑄𝐸))
8 pmatcollpwscmat.m2 . . . . . . 7 𝑀 = (𝑄 1 )
9 pmatcollpwscmat.p . . . . . . . 8 𝑃 = (Poly1𝑅)
10 pmatcollpwscmat.c . . . . . . . 8 𝐶 = (𝑁 Mat 𝑃)
11 pmatcollpwscmat.b . . . . . . . 8 𝐵 = (Base‘𝐶)
12 pmatcollpwscmat.e2 . . . . . . . 8 𝐸 = (Base‘𝑃)
13 pmatcollpwscmat.m1 . . . . . . . 8 = ( ·𝑠𝐶)
14 pmatcollpwscmat.1 . . . . . . . 8 1 = (1r𝐶)
159, 10, 11, 12, 13, 141pmatscmul 21453 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑄𝐸) → (𝑄 1 ) ∈ 𝐵)
168, 15eqeltrid 2837 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑄𝐸) → 𝑀𝐵)
177, 16syl 17 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝑀𝐵)
18 simprl 771 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝐿 ∈ ℕ0)
19 pmatcollpwscmat.a . . . . . 6 𝐴 = (𝑁 Mat 𝑅)
20 pmatcollpwscmat.d . . . . . 6 𝐷 = (Base‘𝐴)
219, 10, 11, 19, 20decpmatcl 21518 . . . . 5 ((𝑅 ∈ Ring ∧ 𝑀𝐵𝐿 ∈ ℕ0) → (𝑀 decompPMat 𝐿) ∈ 𝐷)
223, 17, 18, 21syl3anc 1372 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑀 decompPMat 𝐿) ∈ 𝐷)
23 df-3an 1090 . . . 4 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑀 decompPMat 𝐿) ∈ 𝐷) ↔ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝑀 decompPMat 𝐿) ∈ 𝐷))
241, 22, 23sylanbrc 586 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑀 decompPMat 𝐿) ∈ 𝐷))
25 pmatcollpwscmat.t . . . 4 𝑇 = (𝑁 matToPolyMat 𝑅)
26 eqid 2738 . . . 4 (algSc‘𝑃) = (algSc‘𝑃)
2725, 19, 20, 9, 26mat2pmatval 21475 . . 3 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑀 decompPMat 𝐿) ∈ 𝐷) → (𝑇‘(𝑀 decompPMat 𝐿)) = (𝑖𝑁, 𝑗𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝐿)𝑗))))
2824, 27syl 17 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑇‘(𝑀 decompPMat 𝐿)) = (𝑖𝑁, 𝑗𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝐿)𝑗))))
293, 17, 183jca 1129 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑅 ∈ Ring ∧ 𝑀𝐵𝐿 ∈ ℕ0))
30293ad2ant1 1134 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → (𝑅 ∈ Ring ∧ 𝑀𝐵𝐿 ∈ ℕ0))
31 3simpc 1151 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → (𝑖𝑁𝑗𝑁))
329, 10, 11decpmate 21517 . . . . 5 (((𝑅 ∈ Ring ∧ 𝑀𝐵𝐿 ∈ ℕ0) ∧ (𝑖𝑁𝑗𝑁)) → (𝑖(𝑀 decompPMat 𝐿)𝑗) = ((coe1‘(𝑖𝑀𝑗))‘𝐿))
3330, 31, 32syl2anc 587 . . . 4 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → (𝑖(𝑀 decompPMat 𝐿)𝑗) = ((coe1‘(𝑖𝑀𝑗))‘𝐿))
3433fveq2d 6678 . . 3 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝐿)𝑗)) = ((algSc‘𝑃)‘((coe1‘(𝑖𝑀𝑗))‘𝐿)))
3534mpoeq3dva 7245 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑖𝑁, 𝑗𝑁 ↦ ((algSc‘𝑃)‘(𝑖(𝑀 decompPMat 𝐿)𝑗))) = (𝑖𝑁, 𝑗𝑁 ↦ ((algSc‘𝑃)‘((coe1‘(𝑖𝑀𝑗))‘𝐿))))
36 simp1lr 1238 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → 𝑅 ∈ Ring)
37 simp2 1138 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → 𝑖𝑁)
38 simp3 1139 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → 𝑗𝑁)
39173ad2ant1 1134 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → 𝑀𝐵)
4010, 12, 11, 37, 38, 39matecld 21177 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → (𝑖𝑀𝑗) ∈ 𝐸)
41183ad2ant1 1134 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → 𝐿 ∈ ℕ0)
42 eqid 2738 . . . . . . 7 (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑖𝑀𝑗))
43 pmatcollpwscmat.k . . . . . . 7 𝐾 = (Base‘𝑅)
4442, 12, 9, 43coe1fvalcl 20987 . . . . . 6 (((𝑖𝑀𝑗) ∈ 𝐸𝐿 ∈ ℕ0) → ((coe1‘(𝑖𝑀𝑗))‘𝐿) ∈ 𝐾)
4540, 41, 44syl2anc 587 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → ((coe1‘(𝑖𝑀𝑗))‘𝐿) ∈ 𝐾)
46 eqid 2738 . . . . . 6 (var1𝑅) = (var1𝑅)
47 eqid 2738 . . . . . 6 ( ·𝑠𝑃) = ( ·𝑠𝑃)
48 eqid 2738 . . . . . 6 (mulGrp‘𝑃) = (mulGrp‘𝑃)
49 eqid 2738 . . . . . 6 (.g‘(mulGrp‘𝑃)) = (.g‘(mulGrp‘𝑃))
5043, 9, 46, 47, 48, 49, 26ply1scltm 21056 . . . . 5 ((𝑅 ∈ Ring ∧ ((coe1‘(𝑖𝑀𝑗))‘𝐿) ∈ 𝐾) → ((algSc‘𝑃)‘((coe1‘(𝑖𝑀𝑗))‘𝐿)) = (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
5136, 45, 50syl2anc 587 . . . 4 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → ((algSc‘𝑃)‘((coe1‘(𝑖𝑀𝑗))‘𝐿)) = (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
5251mpoeq3dva 7245 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑖𝑁, 𝑗𝑁 ↦ ((algSc‘𝑃)‘((coe1‘(𝑖𝑀𝑗))‘𝐿))) = (𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))))
53 pmatcollpwscmat.e1 . . . . . . 7 = (.g‘(mulGrp‘𝑃))
54 pmatcollpwscmat.x . . . . . . 7 𝑋 = (var1𝑅)
55 pmatcollpwscmat.u . . . . . . 7 𝑈 = (algSc‘𝑃)
56 pmatcollpwscmat.s . . . . . . 7 𝑆 = (algSc‘𝑃)
579, 10, 11, 13, 53, 54, 25, 19, 20, 55, 43, 12, 56, 14, 8pmatcollpwscmatlem1 21540 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
58 eqidd 2739 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = (𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))))
59 oveq12 7179 . . . . . . . . . . 11 ((𝑖 = 𝑎𝑗 = 𝑏) → (𝑖𝑀𝑗) = (𝑎𝑀𝑏))
6059fveq2d 6678 . . . . . . . . . 10 ((𝑖 = 𝑎𝑗 = 𝑏) → (coe1‘(𝑖𝑀𝑗)) = (coe1‘(𝑎𝑀𝑏)))
6160fveq1d 6676 . . . . . . . . 9 ((𝑖 = 𝑎𝑗 = 𝑏) → ((coe1‘(𝑖𝑀𝑗))‘𝐿) = ((coe1‘(𝑎𝑀𝑏))‘𝐿))
6261oveq1d 7185 . . . . . . . 8 ((𝑖 = 𝑎𝑗 = 𝑏) → (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
6362adantl 485 . . . . . . 7 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) ∧ (𝑖 = 𝑎𝑗 = 𝑏)) → (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
64 simprl 771 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑎𝑁)
65 simprr 773 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → 𝑏𝑁)
66 ovexd 7205 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) ∈ V)
6758, 63, 64, 65, 66ovmpod 7317 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))𝑏) = (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
68 simpll 767 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝑁 ∈ Fin)
699ply1ring 21023 . . . . . . . . . 10 (𝑅 ∈ Ring → 𝑃 ∈ Ring)
7069adantl 485 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑃 ∈ Ring)
7170adantr 484 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝑃 ∈ Ring)
72 pm3.22 463 . . . . . . . . . . 11 ((𝐿 ∈ ℕ0𝑄𝐸) → (𝑄𝐸𝐿 ∈ ℕ0))
7372adantl 485 . . . . . . . . . 10 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑄𝐸𝐿 ∈ ℕ0))
74 eqid 2738 . . . . . . . . . . 11 (coe1𝑄) = (coe1𝑄)
7574, 12, 9, 43coe1fvalcl 20987 . . . . . . . . . 10 ((𝑄𝐸𝐿 ∈ ℕ0) → ((coe1𝑄)‘𝐿) ∈ 𝐾)
7673, 75syl 17 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1𝑄)‘𝐿) ∈ 𝐾)
779, 55, 43, 12ply1sclcl 21061 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ ((coe1𝑄)‘𝐿) ∈ 𝐾) → (𝑈‘((coe1𝑄)‘𝐿)) ∈ 𝐸)
783, 76, 77syl2anc 587 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑈‘((coe1𝑄)‘𝐿)) ∈ 𝐸)
7968, 71, 783jca 1129 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ (𝑈‘((coe1𝑄)‘𝐿)) ∈ 𝐸))
80 eqid 2738 . . . . . . . 8 (0g𝑃) = (0g𝑃)
8110, 12, 80, 14, 13scmatscmide 21258 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ (𝑈‘((coe1𝑄)‘𝐿)) ∈ 𝐸) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎((𝑈‘((coe1𝑄)‘𝐿)) 1 )𝑏) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
8279, 81sylan 583 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎((𝑈‘((coe1𝑄)‘𝐿)) 1 )𝑏) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
8357, 67, 823eqtr4d 2783 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎(𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))𝑏) = (𝑎((𝑈‘((coe1𝑄)‘𝐿)) 1 )𝑏))
8483ralrimivva 3103 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ∀𝑎𝑁𝑏𝑁 (𝑎(𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))𝑏) = (𝑎((𝑈‘((coe1𝑄)‘𝐿)) 1 )𝑏))
85 0nn0 11991 . . . . . . . 8 0 ∈ ℕ0
8685a1i 11 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → 0 ∈ ℕ0)
8743, 9, 46, 47, 48, 49, 12ply1tmcl 21047 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((coe1‘(𝑖𝑀𝑗))‘𝐿) ∈ 𝐾 ∧ 0 ∈ ℕ0) → (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) ∈ 𝐸)
8836, 45, 86, 87syl3anc 1372 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ 𝑖𝑁𝑗𝑁) → (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) ∈ 𝐸)
8910, 12, 11, 68, 71, 88matbas2d 21174 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) ∈ 𝐵)
909, 10, 11, 12, 13, 141pmatscmul 21453 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑈‘((coe1𝑄)‘𝐿)) ∈ 𝐸) → ((𝑈‘((coe1𝑄)‘𝐿)) 1 ) ∈ 𝐵)
9168, 3, 78, 90syl3anc 1372 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((𝑈‘((coe1𝑄)‘𝐿)) 1 ) ∈ 𝐵)
9210, 11eqmat 21175 . . . . 5 (((𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) ∈ 𝐵 ∧ ((𝑈‘((coe1𝑄)‘𝐿)) 1 ) ∈ 𝐵) → ((𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = ((𝑈‘((coe1𝑄)‘𝐿)) 1 ) ↔ ∀𝑎𝑁𝑏𝑁 (𝑎(𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))𝑏) = (𝑎((𝑈‘((coe1𝑄)‘𝐿)) 1 )𝑏)))
9389, 91, 92syl2anc 587 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = ((𝑈‘((coe1𝑄)‘𝐿)) 1 ) ↔ ∀𝑎𝑁𝑏𝑁 (𝑎(𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))𝑏) = (𝑎((𝑈‘((coe1𝑄)‘𝐿)) 1 )𝑏)))
9484, 93mpbird 260 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑖𝑁, 𝑗𝑁 ↦ (((coe1‘(𝑖𝑀𝑗))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = ((𝑈‘((coe1𝑄)‘𝐿)) 1 ))
9552, 94eqtrd 2773 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑖𝑁, 𝑗𝑁 ↦ ((algSc‘𝑃)‘((coe1‘(𝑖𝑀𝑗))‘𝐿))) = ((𝑈‘((coe1𝑄)‘𝐿)) 1 ))
9628, 35, 953eqtrd 2777 1 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑇‘(𝑀 decompPMat 𝐿)) = ((𝑈‘((coe1𝑄)‘𝐿)) 1 ))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  w3a 1088   = wceq 1542  wcel 2114  wral 3053  Vcvv 3398  ifcif 4414  cfv 6339  (class class class)co 7170  cmpo 7172  Fincfn 8555  0cc0 10615  0cn0 11976  Basecbs 16586   ·𝑠 cvsca 16672  0gc0g 16816  .gcmg 18342  mulGrpcmgp 19358  1rcur 19370  Ringcrg 19416  algSccascl 20668  var1cv1 20951  Poly1cpl1 20952  coe1cco1 20953   Mat cmat 21158   matToPolyMat cmat2pmat 21455   decompPMat cdecpmat 21513
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7479  ax-cnex 10671  ax-resscn 10672  ax-1cn 10673  ax-icn 10674  ax-addcl 10675  ax-addrcl 10676  ax-mulcl 10677  ax-mulrcl 10678  ax-mulcom 10679  ax-addass 10680  ax-mulass 10681  ax-distr 10682  ax-i2m1 10683  ax-1ne0 10684  ax-1rid 10685  ax-rnegex 10686  ax-rrecex 10687  ax-cnre 10688  ax-pre-lttri 10689  ax-pre-lttrn 10690  ax-pre-ltadd 10691  ax-pre-mulgt0 10692
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-nel 3039  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3400  df-sbc 3681  df-csb 3791  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-pss 3862  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-tp 4521  df-op 4523  df-ot 4525  df-uni 4797  df-int 4837  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5429  df-eprel 5434  df-po 5442  df-so 5443  df-fr 5483  df-se 5484  df-we 5485  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-pred 6129  df-ord 6175  df-on 6176  df-lim 6177  df-suc 6178  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-isom 6348  df-riota 7127  df-ov 7173  df-oprab 7174  df-mpo 7175  df-of 7425  df-ofr 7426  df-om 7600  df-1st 7714  df-2nd 7715  df-supp 7857  df-wrecs 7976  df-recs 8037  df-rdg 8075  df-1o 8131  df-er 8320  df-map 8439  df-pm 8440  df-ixp 8508  df-en 8556  df-dom 8557  df-sdom 8558  df-fin 8559  df-fsupp 8907  df-sup 8979  df-oi 9047  df-card 9441  df-pnf 10755  df-mnf 10756  df-xr 10757  df-ltxr 10758  df-le 10759  df-sub 10950  df-neg 10951  df-nn 11717  df-2 11779  df-3 11780  df-4 11781  df-5 11782  df-6 11783  df-7 11784  df-8 11785  df-9 11786  df-n0 11977  df-z 12063  df-dec 12180  df-uz 12325  df-fz 12982  df-fzo 13125  df-seq 13461  df-hash 13783  df-struct 16588  df-ndx 16589  df-slot 16590  df-base 16592  df-sets 16593  df-ress 16594  df-plusg 16681  df-mulr 16682  df-sca 16684  df-vsca 16685  df-ip 16686  df-tset 16687  df-ple 16688  df-ds 16690  df-hom 16692  df-cco 16693  df-0g 16818  df-gsum 16819  df-prds 16824  df-pws 16826  df-mre 16960  df-mrc 16961  df-acs 16963  df-mgm 17968  df-sgrp 18017  df-mnd 18028  df-mhm 18072  df-submnd 18073  df-grp 18222  df-minusg 18223  df-sbg 18224  df-mulg 18343  df-subg 18394  df-ghm 18474  df-cntz 18565  df-cmn 19026  df-abl 19027  df-mgp 19359  df-ur 19371  df-ring 19418  df-subrg 19652  df-lmod 19755  df-lss 19823  df-sra 20063  df-rgmod 20064  df-dsmm 20548  df-frlm 20563  df-ascl 20671  df-psr 20722  df-mvr 20723  df-mpl 20724  df-opsr 20726  df-psr1 20955  df-vr1 20956  df-ply1 20957  df-coe1 20958  df-mamu 21137  df-mat 21159  df-mat2pmat 21458  df-decpmat 21514
This theorem is referenced by:  pmatcollpwscmat  21542
  Copyright terms: Public domain W3C validator