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

Theorem pmatcollpwscmatlem1 21404
 Description: Lemma 1 for pmatcollpwscmat 21406. (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 7149 . . . . . . 7 (𝑎𝑀𝑏) = (𝑎(𝑄 1 )𝑏)
3 pmatcollpwscmat.p . . . . . . . . . . . 12 𝑃 = (Poly1𝑅)
43ply1ring 20887 . . . . . . . . . . 11 (𝑅 ∈ Ring → 𝑃 ∈ Ring)
54anim2i 619 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring))
6 simpr 488 . . . . . . . . . 10 ((𝐿 ∈ ℕ0𝑄𝐸) → 𝑄𝐸)
75, 6anim12i 615 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring) ∧ 𝑄𝐸))
8 df-3an 1086 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ 𝑄𝐸) ↔ ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring) ∧ 𝑄𝐸))
97, 8sylibr 237 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ 𝑄𝐸))
10 pmatcollpwscmat.c . . . . . . . . 9 𝐶 = (𝑁 Mat 𝑃)
11 pmatcollpwscmat.e2 . . . . . . . . 9 𝐸 = (Base‘𝑃)
12 eqid 2798 . . . . . . . . 9 (0g𝑃) = (0g𝑃)
13 pmatcollpwscmat.1 . . . . . . . . 9 1 = (1r𝐶)
14 pmatcollpwscmat.m1 . . . . . . . . 9 = ( ·𝑠𝐶)
1510, 11, 12, 13, 14scmatscmide 21122 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring ∧ 𝑄𝐸) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎(𝑄 1 )𝑏) = if(𝑎 = 𝑏, 𝑄, (0g𝑃)))
169, 15sylan 583 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎(𝑄 1 )𝑏) = if(𝑎 = 𝑏, 𝑄, (0g𝑃)))
172, 16syl5eq 2845 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (𝑎𝑀𝑏) = if(𝑎 = 𝑏, 𝑄, (0g𝑃)))
1817fveq2d 6650 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (coe1‘(𝑎𝑀𝑏)) = (coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃))))
1918fveq1d 6648 . . . 4 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → ((coe1‘(𝑎𝑀𝑏))‘𝐿) = ((coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃)))‘𝐿))
20 fvif 6662 . . . . . 6 (coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃))) = if(𝑎 = 𝑏, (coe1𝑄), (coe1‘(0g𝑃)))
2120fveq1i 6647 . . . . 5 ((coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃)))‘𝐿) = (if(𝑎 = 𝑏, (coe1𝑄), (coe1‘(0g𝑃)))‘𝐿)
22 iffv 6663 . . . . 5 (if(𝑎 = 𝑏, (coe1𝑄), (coe1‘(0g𝑃)))‘𝐿) = if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))
2321, 22eqtri 2821 . . . 4 ((coe1‘if(𝑎 = 𝑏, 𝑄, (0g𝑃)))‘𝐿) = if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))
2419, 23eqtrdi 2849 . . 3 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → ((coe1‘(𝑎𝑀𝑏))‘𝐿) = if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿)))
2524oveq1d 7151 . 2 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) ∧ (𝑎𝑁𝑏𝑁)) → (((coe1‘(𝑎𝑀𝑏))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
26 ovif 7231 . . 3 (if(𝑎 = 𝑏, ((coe1𝑄)‘𝐿), ((coe1‘(0g𝑃))‘𝐿))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
27 eqid 2798 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
283, 12, 27coe1z 20902 . . . . . . . . . 10 (𝑅 ∈ Ring → (coe1‘(0g𝑃)) = (ℕ0 × {(0g𝑅)}))
2928ad2antlr 726 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (coe1‘(0g𝑃)) = (ℕ0 × {(0g𝑅)}))
3029fveq1d 6648 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1‘(0g𝑃))‘𝐿) = ((ℕ0 × {(0g𝑅)})‘𝐿))
31 fvexd 6661 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (0g𝑅) ∈ V)
32 simpl 486 . . . . . . . . . 10 ((𝐿 ∈ ℕ0𝑄𝐸) → 𝐿 ∈ ℕ0)
3331, 32anim12i 615 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((0g𝑅) ∈ V ∧ 𝐿 ∈ ℕ0))
34 fvconst2g 6942 . . . . . . . . 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 7151 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = ((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
383ply1lmod 20891 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑃 ∈ LMod)
3938ad2antlr 726 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → 𝑃 ∈ LMod)
40 eqid 2798 . . . . . . . . . . . 12 (mulGrp‘𝑃) = (mulGrp‘𝑃)
4140ringmgp 19300 . . . . . . . . . . 11 (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
424, 41syl 17 . . . . . . . . . 10 (𝑅 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
43 0nn0 11903 . . . . . . . . . . 11 0 ∈ ℕ0
4443a1i 11 . . . . . . . . . 10 (𝑅 ∈ Ring → 0 ∈ ℕ0)
45 eqid 2798 . . . . . . . . . . 11 (var1𝑅) = (var1𝑅)
4645, 3, 11vr1cl 20856 . . . . . . . . . 10 (𝑅 ∈ Ring → (var1𝑅) ∈ 𝐸)
4740, 11mgpbas 19242 . . . . . . . . . . 11 𝐸 = (Base‘(mulGrp‘𝑃))
48 eqid 2798 . . . . . . . . . . 11 (.g‘(mulGrp‘𝑃)) = (.g‘(mulGrp‘𝑃))
4947, 48mulgnn0cl 18240 . . . . . . . . . 10 (((mulGrp‘𝑃) ∈ Mnd ∧ 0 ∈ ℕ0 ∧ (var1𝑅) ∈ 𝐸) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸)
5042, 44, 46, 49syl3anc 1368 . . . . . . . . 9 (𝑅 ∈ Ring → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸)
5150ad2antlr 726 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸)
52 eqid 2798 . . . . . . . . 9 (Scalar‘𝑃) = (Scalar‘𝑃)
53 eqid 2798 . . . . . . . . 9 ( ·𝑠𝑃) = ( ·𝑠𝑃)
54 eqid 2798 . . . . . . . . 9 (0g‘(Scalar‘𝑃)) = (0g‘(Scalar‘𝑃))
5511, 52, 53, 54, 12lmod0vs 19664 . . . . . . . 8 ((𝑃 ∈ LMod ∧ (0(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ 𝐸) → ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃))
5639, 51, 55syl2anc 587 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃))
573ply1sca 20892 . . . . . . . . . . . 12 (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
5857adantl 485 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑅 = (Scalar‘𝑃))
5958fveq2d 6650 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (0g𝑅) = (0g‘(Scalar‘𝑃)))
6059oveq1d 7151 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))))
6160eqeq1d 2800 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃) ↔ ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃)))
6261adantr 484 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((0g𝑅)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃) ↔ ((0g‘(Scalar‘𝑃))( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))) = (0g𝑃)))
6356, 62mpbird 260 . . . . . 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 4444 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (((coe1‘(0g𝑃))‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅)))) = if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)))
6665adantr 484 . . 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 488 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝐿 ∈ ℕ0𝑄𝐸))
6968ancomd 465 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑄𝐸𝐿 ∈ ℕ0))
70 eqid 2798 . . . . . . . . 9 (coe1𝑄) = (coe1𝑄)
71 pmatcollpwscmat.k . . . . . . . . 9 𝐾 = (Base‘𝑅)
7270, 11, 3, 71coe1fvalcl 20851 . . . . . . . 8 ((𝑄𝐸𝐿 ∈ ℕ0) → ((coe1𝑄)‘𝐿) ∈ 𝐾)
7369, 72syl 17 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1𝑄)‘𝐿) ∈ 𝐾)
7457eqcomd 2804 . . . . . . . . . . . 12 (𝑅 ∈ Ring → (Scalar‘𝑃) = 𝑅)
7574adantl 485 . . . . . . . . . . 11 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (Scalar‘𝑃) = 𝑅)
7675fveq2d 6650 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
7776, 71eqtr4di 2851 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (Base‘(Scalar‘𝑃)) = 𝐾)
7877eleq2d 2875 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)) ↔ ((coe1𝑄)‘𝐿) ∈ 𝐾))
7978adantr 484 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)) ↔ ((coe1𝑄)‘𝐿) ∈ 𝐾))
8073, 79mpbird 260 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → ((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)))
81 pmatcollpwscmat.u . . . . . . 7 𝑈 = (algSc‘𝑃)
82 eqid 2798 . . . . . . 7 (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
83 eqid 2798 . . . . . . 7 (1r𝑃) = (1r𝑃)
8481, 52, 82, 53, 83asclval 20571 . . . . . 6 (((coe1𝑄)‘𝐿) ∈ (Base‘(Scalar‘𝑃)) → (𝑈‘((coe1𝑄)‘𝐿)) = (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(1r𝑃)))
8580, 84syl 17 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (𝑈‘((coe1𝑄)‘𝐿)) = (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(1r𝑃)))
863, 45, 40, 48ply1idvr1 20932 . . . . . . . 8 (𝑅 ∈ Ring → (0(.g‘(mulGrp‘𝑃))(var1𝑅)) = (1r𝑃))
8786eqcomd 2804 . . . . . . 7 (𝑅 ∈ Ring → (1r𝑃) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
8887ad2antlr 726 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → (1r𝑃) = (0(.g‘(mulGrp‘𝑃))(var1𝑅)))
8988oveq2d 7152 . . . . 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 4443 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (𝐿 ∈ ℕ0𝑄𝐸)) → if(𝑎 = 𝑏, (((coe1𝑄)‘𝐿)( ·𝑠𝑃)(0(.g‘(mulGrp‘𝑃))(var1𝑅))), (0g𝑃)) = if(𝑎 = 𝑏, (𝑈‘((coe1𝑄)‘𝐿)), (0g𝑃)))
9291adantr 484 . 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 209   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111  Vcvv 3441  ifcif 4425  {csn 4525   × cxp 5518  ‘cfv 6325  (class class class)co 7136  Fincfn 8495  0cc0 10529  ℕ0cn0 11888  Basecbs 16478  Scalarcsca 16563   ·𝑠 cvsca 16564  0gc0g 16708  Mndcmnd 17906  .gcmg 18220  mulGrpcmgp 19236  1rcur 19248  Ringcrg 19294  LModclmod 19631  algSccascl 20546  var1cv1 20815  Poly1cpl1 20816  coe1cco1 20817   Mat cmat 21022   matToPolyMat cmat2pmat 21319 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5232  ax-pr 5296  ax-un 7444  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-ot 4534  df-uni 4802  df-int 4840  df-iun 4884  df-iin 4885  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5426  df-eprel 5431  df-po 5439  df-so 5440  df-fr 5479  df-se 5480  df-we 5481  df-xp 5526  df-rel 5527  df-cnv 5528  df-co 5529  df-dm 5530  df-rn 5531  df-res 5532  df-ima 5533  df-pred 6117  df-ord 6163  df-on 6164  df-lim 6165  df-suc 6166  df-iota 6284  df-fun 6327  df-fn 6328  df-f 6329  df-f1 6330  df-fo 6331  df-f1o 6332  df-fv 6333  df-isom 6334  df-riota 7094  df-ov 7139  df-oprab 7140  df-mpo 7141  df-of 7391  df-ofr 7392  df-om 7564  df-1st 7674  df-2nd 7675  df-supp 7817  df-wrecs 7933  df-recs 7994  df-rdg 8032  df-1o 8088  df-2o 8089  df-oadd 8092  df-er 8275  df-map 8394  df-pm 8395  df-ixp 8448  df-en 8496  df-dom 8497  df-sdom 8498  df-fin 8499  df-fsupp 8821  df-sup 8893  df-oi 8961  df-card 9355  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-nn 11629  df-2 11691  df-3 11692  df-4 11693  df-5 11694  df-6 11695  df-7 11696  df-8 11697  df-9 11698  df-n0 11889  df-z 11973  df-dec 12090  df-uz 12235  df-fz 12889  df-fzo 13032  df-seq 13368  df-hash 13690  df-struct 16480  df-ndx 16481  df-slot 16482  df-base 16484  df-sets 16485  df-ress 16486  df-plusg 16573  df-mulr 16574  df-sca 16576  df-vsca 16577  df-ip 16578  df-tset 16579  df-ple 16580  df-ds 16582  df-hom 16584  df-cco 16585  df-0g 16710  df-gsum 16711  df-prds 16716  df-pws 16718  df-mre 16852  df-mrc 16853  df-acs 16855  df-mgm 17847  df-sgrp 17896  df-mnd 17907  df-mhm 17951  df-submnd 17952  df-grp 18101  df-minusg 18102  df-sbg 18103  df-mulg 18221  df-subg 18272  df-ghm 18352  df-cntz 18443  df-cmn 18904  df-abl 18905  df-mgp 19237  df-ur 19249  df-ring 19296  df-subrg 19530  df-lmod 19633  df-lss 19701  df-sra 19941  df-rgmod 19942  df-dsmm 20426  df-frlm 20441  df-ascl 20549  df-psr 20600  df-mvr 20601  df-mpl 20602  df-opsr 20604  df-psr1 20819  df-vr1 20820  df-ply1 20821  df-coe1 20822  df-mamu 21001  df-mat 21023 This theorem is referenced by:  pmatcollpwscmatlem2  21405
 Copyright terms: Public domain W3C validator