Metamath Proof Explorer


Theorem cpmadumatpolylem2

Description: Lemma 2 for cpmadumatpoly . (Contributed by AV, 20-Nov-2019) (Revised by AV, 15-Dec-2019)

Ref Expression
Hypotheses cpmadumatpoly.a A=NMatR
cpmadumatpoly.b B=BaseA
cpmadumatpoly.p P=Poly1R
cpmadumatpoly.y Y=NMatP
cpmadumatpoly.t T=NmatToPolyMatR
cpmadumatpoly.r ×˙=Y
cpmadumatpoly.m0 -˙=-Y
cpmadumatpoly.0 0˙=0Y
cpmadumatpoly.g G=n0ifn=00˙-˙TM×˙Tb0ifn=s+1Tbsifs+1<n0˙Tbn1-˙TM×˙Tbn
cpmadumatpoly.s S=NConstPolyMatR
cpmadumatpoly.m1 ·˙=Y
cpmadumatpoly.1 1˙=1Y
cpmadumatpoly.z Z=var1R
cpmadumatpoly.d D=Z·˙1˙-˙TM
cpmadumatpoly.j J=NmaAdjuP
cpmadumatpoly.w W=BaseY
cpmadumatpoly.q Q=Poly1A
cpmadumatpoly.x X=var1A
cpmadumatpoly.m2 ˙=Q
cpmadumatpoly.e ×˙=mulGrpQ
cpmadumatpoly.u U=NcPolyMatToMatR
Assertion cpmadumatpolylem2 NFinRCRingMBsbB0sfinSupp0AUG

Proof

Step Hyp Ref Expression
1 cpmadumatpoly.a A=NMatR
2 cpmadumatpoly.b B=BaseA
3 cpmadumatpoly.p P=Poly1R
4 cpmadumatpoly.y Y=NMatP
5 cpmadumatpoly.t T=NmatToPolyMatR
6 cpmadumatpoly.r ×˙=Y
7 cpmadumatpoly.m0 -˙=-Y
8 cpmadumatpoly.0 0˙=0Y
9 cpmadumatpoly.g G=n0ifn=00˙-˙TM×˙Tb0ifn=s+1Tbsifs+1<n0˙Tbn1-˙TM×˙Tbn
10 cpmadumatpoly.s S=NConstPolyMatR
11 cpmadumatpoly.m1 ·˙=Y
12 cpmadumatpoly.1 1˙=1Y
13 cpmadumatpoly.z Z=var1R
14 cpmadumatpoly.d D=Z·˙1˙-˙TM
15 cpmadumatpoly.j J=NmaAdjuP
16 cpmadumatpoly.w W=BaseY
17 cpmadumatpoly.q Q=Poly1A
18 cpmadumatpoly.x X=var1A
19 cpmadumatpoly.m2 ˙=Q
20 cpmadumatpoly.e ×˙=mulGrpQ
21 cpmadumatpoly.u U=NcPolyMatToMatR
22 fvexd NFinRCRingMBsbB0s0AV
23 crngring RCRingRRing
24 23 anim2i NFinRCRingNFinRRing
25 24 3adant3 NFinRCRingMBNFinRRing
26 25 ad2antrr NFinRCRingMBsbB0sNFinRRing
27 10 3 4 0elcpmat NFinRRing0YS
28 26 27 syl NFinRCRingMBsbB0s0YS
29 1 2 3 4 6 7 8 5 9 10 chfacfisfcpmat NFinRRingMBsbB0sG:0S
30 23 29 syl3anl2 NFinRCRingMBsbB0sG:0S
31 30 anassrs NFinRCRingMBsbB0sG:0S
32 1 2 10 21 cpm2mf NFinRRingU:SB
33 26 32 syl NFinRCRingMBsbB0sU:SB
34 ssidd NFinRCRingMBsbB0sSS
35 nn0ex 0V
36 35 a1i NFinRCRingMBsbB0s0V
37 10 ovexi SV
38 37 a1i NFinRCRingMBsbB0sSV
39 1 2 3 4 6 7 8 5 9 chfacffsupp NFinRCRingMBsbB0sfinSupp0YG
40 39 anassrs NFinRCRingMBsbB0sfinSupp0YG
41 eqid 0A=0A
42 eqid 0Y=0Y
43 1 21 3 4 41 42 m2cpminv0 NFinRRingU0Y=0A
44 23 43 sylan2 NFinRCRingU0Y=0A
45 44 3adant3 NFinRCRingMBU0Y=0A
46 45 ad2antrr NFinRCRingMBsbB0sU0Y=0A
47 22 28 31 33 34 36 38 40 46 fsuppcor NFinRCRingMBsbB0sfinSupp0AUG