Metamath Proof Explorer


Theorem mply1topmatcllem

Description: Lemma for mply1topmatcl . (Contributed by AV, 6-Oct-2019)

Ref Expression
Hypotheses mply1topmat.a A=NMatR
mply1topmat.q Q=Poly1A
mply1topmat.l L=BaseQ
mply1topmat.p P=Poly1R
mply1topmat.m ·˙=P
mply1topmat.e E=mulGrpP
mply1topmat.y Y=var1R
Assertion mply1topmatcllem NFinRRingOLINJNfinSupp0Pk0Icoe1OkJ·˙kEY

Proof

Step Hyp Ref Expression
1 mply1topmat.a A=NMatR
2 mply1topmat.q Q=Poly1A
3 mply1topmat.l L=BaseQ
4 mply1topmat.p P=Poly1R
5 mply1topmat.m ·˙=P
6 mply1topmat.e E=mulGrpP
7 mply1topmat.y Y=var1R
8 nn0ex 0V
9 8 a1i NFinRRingOLINJN0V
10 4 ply1lmod RRingPLMod
11 10 3ad2ant2 NFinRRingOLPLMod
12 11 3ad2ant1 NFinRRingOLINJNPLMod
13 simp12 NFinRRingOLINJNRRing
14 4 ply1sca RRingR=ScalarP
15 13 14 syl NFinRRingOLINJNR=ScalarP
16 eqid BaseP=BaseP
17 ovexd NFinRRingOLINJNk0Icoe1OkJV
18 eqid mulGrpP=mulGrpP
19 18 16 mgpbas BaseP=BasemulGrpP
20 4 ply1ring RRingPRing
21 18 ringmgp PRingmulGrpPMnd
22 20 21 syl RRingmulGrpPMnd
23 22 3ad2ant2 NFinRRingOLmulGrpPMnd
24 23 3ad2ant1 NFinRRingOLINJNmulGrpPMnd
25 24 adantr NFinRRingOLINJNk0mulGrpPMnd
26 simpr NFinRRingOLINJNk0k0
27 7 4 16 vr1cl RRingYBaseP
28 27 3ad2ant2 NFinRRingOLYBaseP
29 28 3ad2ant1 NFinRRingOLINJNYBaseP
30 29 adantr NFinRRingOLINJNk0YBaseP
31 19 6 25 26 30 mulgnn0cld NFinRRingOLINJNk0kEYBaseP
32 eqid 0P=0P
33 eqid 0R=0R
34 1 2 3 mptcoe1matfsupp NFinRRingOLINJNfinSupp0Rk0Icoe1OkJ
35 9 12 15 16 17 31 32 33 5 34 mptscmfsupp0 NFinRRingOLINJNfinSupp0Pk0Icoe1OkJ·˙kEY