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

Theorem pmatcollpwscmatlem1 20922
Description: Lemma 1 for pmatcollpwscmat 20924. (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
pmatcollpwscmatlem1 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))

Proof of Theorem pmatcollpwscmatlem1
StepHypRef Expression
1 pmatcollpwscmat.m2 . . . . . . . 8 𝑀 = (𝑄 1 )
21oveqi 6891 . . . . . . 7 (𝑎𝑀𝑏) = (𝑎(𝑄 1 )𝑏)
3 pmatcollpwscmat.p . . . . . . . . . . . 12 𝑃 = (Poly1𝑅)
43ply1ring 19940 . . . . . . . . . . 11 (𝑅 ∈ Ring → 𝑃 ∈ Ring)
54anim2i 611 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring))
6 simpr 478 . . . . . . . . . 10 ((𝐿 ∈ ℕ0𝑄𝐸) → 𝑄𝐸)
75, 6anim12i 607 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring) ∧ 𝑄𝐸))
8 df-3an 1110 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ 𝑄𝐸) ↔ ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring) ∧ 𝑄𝐸))
97, 8sylibr 226 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ 𝑄𝐸))
10 pmatcollpwscmat.c . . . . . . . . 9 𝐶 = (𝑁 Mat 𝑃)
11 pmatcollpwscmat.e2 . . . . . . . . 9 𝐸 = (Base‘𝑃)
12 eqid 2799 . . . . . . . . 9 (0g𝑃) = (0g𝑃)
13 pmatcollpwscmat.1 . . . . . . . . 9 1 = (1r𝐶)
14 pmatcollpwscmat.m1 . . . . . . . . 9 = ( ·𝑠𝐶)
1510, 11, 12, 13, 14scmatscmide 20639 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ 𝑄𝐸) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎(𝑄 1 )𝑏) = if(𝑎 = 𝑏, 𝑄, (0g𝑃)))
169, 15sylan 576 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎(𝑄 1 )𝑏) = if(𝑎 = 𝑏, 𝑄, (0g𝑃)))
172, 16syl5eq 2845 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎𝑀𝑏) = if(𝑎 = 𝑏, 𝑄, (0g𝑃)))
1817fveq2d 6415 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (coe1‘(𝑎𝑀𝑏)) = (coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃))))
1918fveq1d 6413 . . . 4 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → ((coe1‘(𝑎𝑀𝑏))‘𝐿) = ((coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃)))‘𝐿))
20 fvif 6427 . . . . . 6 (coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃))) = if(𝑎 = 𝑏, (coe1𝑄), (coe1‘(0g𝑃)))
2120fveq1i 6412 . . . . 5 ((coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃)))‘𝐿) = (if(𝑎 = 𝑏, (coe1𝑄), (coe1‘(0g𝑃)))‘𝐿)
22 iffv 6428 . . . . 5 (if(𝑎 = 𝑏, (coe1𝑄), (coe1‘(0g𝑃)))‘𝐿) = if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))
2321, 22eqtri 2821 . . . 4 ((coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃)))‘𝐿) = if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))
2419, 23syl6eq 2849 . . 3 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → ((coe1‘(𝑎𝑀𝑏))‘𝐿) = if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿)))
2524oveq1d 6893 . 2 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
26 ovif 6971 . . 3 (if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
27 eqid 2799 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
283, 12, 27coe1z 19955 . . . . . . . . . 10 (𝑅 ∈ Ring → (coe1‘(0g𝑃)) = (ℕ0 × {(0g𝑅)}))
2928ad2antlr 719 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (coe1‘(0g𝑃)) = (ℕ0 × {(0g𝑅)}))
3029fveq1d 6413 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1‘(0g𝑃))‘𝐿) = ((ℕ0 × {(0g𝑅)})‘𝐿))
31 fvexd 6426 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (0g𝑅) ∈ V)
32 simpl 475 . . . . . . . . . 10 ((𝐿 ∈ ℕ0𝑄𝐸) → 𝐿 ∈ ℕ0)
3331, 32anim12i 607 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((0g𝑅) ∈ V ∧ 𝐿 ∈ ℕ0))
34 fvconst2g 6696 . . . . . . . . 9 (((0g𝑅) ∈ V ∧ 𝐿 ∈ ℕ0) → ((ℕ0 × {(0g𝑅)})‘𝐿) = (0g𝑅))
3533, 34syl 17 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((ℕ0 × {(0g𝑅)})‘𝐿) = (0g𝑅))
3630, 35eqtrd 2833 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1‘(0g𝑃))‘𝐿) = (0g𝑅))
3736oveq1d 6893 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = ((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
383ply1lmod 19944 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑃 ∈ LMod)
3938ad2antlr 719 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝑃 ∈ LMod)
40 eqid 2799 . . . . . . . . . . . 12 (mulGrp‘𝑃) = (mulGrp‘𝑃)
4140ringmgp 18869 . . . . . . . . . . 11 (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
424, 41syl 17 . . . . . . . . . 10 (𝑅 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
43 0nn0 11597 . . . . . . . . . . 11 0 ∈ ℕ0
4443a1i 11 . . . . . . . . . 10 (𝑅 ∈ Ring → 0 ∈ ℕ0)
45 eqid 2799 . . . . . . . . . . 11 (var1𝑅) = (var1𝑅)
4645, 3, 11vr1cl 19909 . . . . . . . . . 10 (𝑅 ∈ Ring → (var1𝑅) ∈ 𝐸)
4740, 11mgpbas 18811 . . . . . . . . . . 11 𝐸 = (Base‘(mulGrp‘𝑃))
48 eqid 2799 . . . . . . . . . . 11 (.g‘(mulGrp‘𝑃)) = (.g‘(mulGrp‘𝑃))
4947, 48mulgnn0cl 17873 . . . . . . . . . 10 (((mulGrp‘𝑃) ∈ Mnd ∧ 0 ∈ ℕ0 ∧ (var1𝑅) ∈ 𝐸) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸)
5042, 44, 46, 49syl3anc 1491 . . . . . . . . 9 (𝑅 ∈ Ring → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸)
5150ad2antlr 719 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸)
52 eqid 2799 . . . . . . . . 9 (Scalar‘𝑃) = (Scalar‘𝑃)
53 eqid 2799 . . . . . . . . 9 ( ·𝑠𝑃) = ( ·𝑠𝑃)
54 eqid 2799 . . . . . . . . 9 (0g‘(Scalar‘𝑃)) = (0g‘(Scalar‘𝑃))
5511, 52, 53, 54, 12lmod0vs 19214 . . . . . . . 8 ((𝑃 ∈ LMod ∧ (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸) → ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃))
5639, 51, 55syl2anc 580 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃))
573ply1sca 19945 . . . . . . . . . . . 12 (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
5857adantl 474 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑅 = (Scalar‘𝑃))
5958fveq2d 6415 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (0g𝑅) = (0g‘(Scalar‘𝑃)))
6059oveq1d 6893 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
6160eqeq1d 2801 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃) ↔ ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃)))
6261adantr 473 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃) ↔ ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃)))
6356, 62mpbird 249 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃))
6437, 63eqtrd 2833 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃))
6564ifeq2d 4296 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)))
6665adantr 473 . . 3 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)))
6726, 66syl5eq 2845 . 2 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)))
68 simpr 478 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝐿 ∈ ℕ0𝑄𝐸))
6968ancomd 454 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑄𝐸𝐿 ∈ ℕ0))
70 eqid 2799 . . . . . . . . 9 (coe1𝑄) = (coe1𝑄)
71 pmatcollpwscmat.k . . . . . . . . 9 𝐾 = (Base‘𝑅)
7270, 11, 3, 71coe1fvalcl 19904 . . . . . . . 8 ((𝑄𝐸𝐿 ∈ ℕ0) → ((coe1𝑄)‘𝐿) ∈ 𝐾)
7369, 72syl 17 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1𝑄)‘𝐿) ∈ 𝐾)
7457eqcomd 2805 . . . . . . . . . . . 12 (𝑅 ∈ Ring → (Scalar‘𝑃) = 𝑅)
7574adantl 474 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (Scalar‘𝑃) = 𝑅)
7675fveq2d 6415 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
7776, 71syl6eqr 2851 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (Base‘(Scalar‘𝑃)) = 𝐾)
7877eleq2d 2864 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)) ↔ ((coe1𝑄)‘𝐿) ∈ 𝐾))
7978adantr 473 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)) ↔ ((coe1𝑄)‘𝐿) ∈ 𝐾))
8073, 79mpbird 249 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)))
81 pmatcollpwscmat.u . . . . . . 7 𝑈 = (algSc‘𝑃)
82 eqid 2799 . . . . . . 7 (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
83 eqid 2799 . . . . . . 7 (1r𝑃) = (1r𝑃)
8481, 52, 82, 53, 83asclval 19658 . . . . . 6 (((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)) → (𝑈‘((coe1𝑄)‘𝐿)) = (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(1r𝑃)))
8580, 84syl 17 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑈‘((coe1𝑄)‘𝐿)) = (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(1r𝑃)))
863, 45, 40, 48ply1idvr1 19985 . . . . . . . 8 (𝑅 ∈ Ring → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) = (1r𝑃))
8786eqcomd 2805 . . . . . . 7 (𝑅 ∈ Ring → (1r𝑃) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
8887ad2antlr 719 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (1r𝑃) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
8988oveq2d 6894 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(1r𝑃)) = (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
9085, 89eqtr2d 2834 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (𝑈‘((coe1𝑄)‘𝐿)))
9190ifeq1d 4295 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
9291adantr 473 . 2 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
9325, 67, 923eqtrd 2837 1 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 198  wa 385  w3a 1108   = wceq 1653  wcel 2157  Vcvv 3385  ifcif 4277  {csn 4368   × cxp 5310  cfv 6101  (class class class)co 6878  Fincfn 8195  0cc0 10224  0cn0 11580  Basecbs 16184  Scalarcsca 16270   ·𝑠 cvsca 16271  0gc0g 16415  Mndcmnd 17609  .gcmg 17856  mulGrpcmgp 18805  1rcur 18817  Ringcrg 18863  LModclmod 19181  algSccascl 19634  var1cv1 19868  Poly1cpl1 19869  coe1cco1 19870   Mat cmat 20538   matToPolyMat cmat2pmat 20837
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2377  ax-ext 2777  ax-rep 4964  ax-sep 4975  ax-nul 4983  ax-pow 5035  ax-pr 5097  ax-un 7183  ax-inf2 8788  ax-cnex 10280  ax-resscn 10281  ax-1cn 10282  ax-icn 10283  ax-addcl 10284  ax-addrcl 10285  ax-mulcl 10286  ax-mulrcl 10287  ax-mulcom 10288  ax-addass 10289  ax-mulass 10290  ax-distr 10291  ax-i2m1 10292  ax-1ne0 10293  ax-1rid 10294  ax-rnegex 10295  ax-rrecex 10296  ax-cnre 10297  ax-pre-lttri 10298  ax-pre-lttrn 10299  ax-pre-ltadd 10300  ax-pre-mulgt0 10301
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3or 1109  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2591  df-eu 2609  df-clab 2786  df-cleq 2792  df-clel 2795  df-nfc 2930  df-ne 2972  df-nel 3075  df-ral 3094  df-rex 3095  df-reu 3096  df-rmo 3097  df-rab 3098  df-v 3387  df-sbc 3634  df-csb 3729  df-dif 3772  df-un 3774  df-in 3776  df-ss 3783  df-pss 3785  df-nul 4116  df-if 4278  df-pw 4351  df-sn 4369  df-pr 4371  df-tp 4373  df-op 4375  df-ot 4377  df-uni 4629  df-int 4668  df-iun 4712  df-iin 4713  df-br 4844  df-opab 4906  df-mpt 4923  df-tr 4946  df-id 5220  df-eprel 5225  df-po 5233  df-so 5234  df-fr 5271  df-se 5272  df-we 5273  df-xp 5318  df-rel 5319  df-cnv 5320  df-co 5321  df-dm 5322  df-rn 5323  df-res 5324  df-ima 5325  df-pred 5898  df-ord 5944  df-on 5945  df-lim 5946  df-suc 5947  df-iota 6064  df-fun 6103  df-fn 6104  df-f 6105  df-f1 6106  df-fo 6107  df-f1o 6108  df-fv 6109  df-isom 6110  df-riota 6839  df-ov 6881  df-oprab 6882  df-mpt2 6883  df-of 7131  df-ofr 7132  df-om 7300  df-1st 7401  df-2nd 7402  df-supp 7533  df-wrecs 7645  df-recs 7707  df-rdg 7745  df-1o 7799  df-2o 7800  df-oadd 7803  df-er 7982  df-map 8097  df-pm 8098  df-ixp 8149  df-en 8196  df-dom 8197  df-sdom 8198  df-fin 8199  df-fsupp 8518  df-sup 8590  df-oi 8657  df-card 9051  df-pnf 10365  df-mnf 10366  df-xr 10367  df-ltxr 10368  df-le 10369  df-sub 10558  df-neg 10559  df-nn 11313  df-2 11376  df-3 11377  df-4 11378  df-5 11379  df-6 11380  df-7 11381  df-8 11382  df-9 11383  df-n0 11581  df-z 11667  df-dec 11784  df-uz 11931  df-fz 12581  df-fzo 12721  df-seq 13056  df-hash 13371  df-struct 16186  df-ndx 16187  df-slot 16188  df-base 16190  df-sets 16191  df-ress 16192  df-plusg 16280  df-mulr 16281  df-sca 16283  df-vsca 16284  df-ip 16285  df-tset 16286  df-ple 16287  df-ds 16289  df-hom 16291  df-cco 16292  df-0g 16417  df-gsum 16418  df-prds 16423  df-pws 16425  df-mre 16561  df-mrc 16562  df-acs 16564  df-mgm 17557  df-sgrp 17599  df-mnd 17610  df-mhm 17650  df-submnd 17651  df-grp 17741  df-minusg 17742  df-sbg 17743  df-mulg 17857  df-subg 17904  df-ghm 17971  df-cntz 18062  df-cmn 18510  df-abl 18511  df-mgp 18806  df-ur 18818  df-ring 18865  df-subrg 19096  df-lmod 19183  df-lss 19251  df-sra 19495  df-rgmod 19496  df-ascl 19637  df-psr 19679  df-mvr 19680  df-mpl 19681  df-opsr 19683  df-psr1 19872  df-vr1 19873  df-ply1 19874  df-coe1 19875  df-dsmm 20401  df-frlm 20416  df-mamu 20515  df-mat 20539
This theorem is referenced by:  pmatcollpwscmatlem2  20923
  Copyright terms: Public domain W3C validator