Metamath Proof Explorer


Theorem cayhamlem3

Description: Lemma for cayhamlem4 . (Contributed by AV, 24-Nov-2019) (Revised by AV, 15-Dec-2019)

Ref Expression
Hypotheses chcoeffeq.a A=NMatR
chcoeffeq.b B=BaseA
chcoeffeq.p P=Poly1R
chcoeffeq.y Y=NMatP
chcoeffeq.r ×˙=Y
chcoeffeq.s -˙=-Y
chcoeffeq.0 0˙=0Y
chcoeffeq.t T=NmatToPolyMatR
chcoeffeq.c C=NCharPlyMatR
chcoeffeq.k K=CM
chcoeffeq.g G=n0ifn=00˙-˙TM×˙Tb0ifn=s+1Tbsifs+1<n0˙Tbn1-˙TM×˙Tbn
chcoeffeq.w W=BaseY
chcoeffeq.1 1˙=1A
chcoeffeq.m ˙=A
chcoeffeq.u U=NcPolyMatToMatR
cayhamlem.e1 ×˙=mulGrpA
cayhamlem.r ·˙=A
Assertion cayhamlem3 NFinRCRingMBsbB0sAn0coe1Kn˙n×˙M=An0n×˙M·˙UGn

Proof

Step Hyp Ref Expression
1 chcoeffeq.a A=NMatR
2 chcoeffeq.b B=BaseA
3 chcoeffeq.p P=Poly1R
4 chcoeffeq.y Y=NMatP
5 chcoeffeq.r ×˙=Y
6 chcoeffeq.s -˙=-Y
7 chcoeffeq.0 0˙=0Y
8 chcoeffeq.t T=NmatToPolyMatR
9 chcoeffeq.c C=NCharPlyMatR
10 chcoeffeq.k K=CM
11 chcoeffeq.g G=n0ifn=00˙-˙TM×˙Tb0ifn=s+1Tbsifs+1<n0˙Tbn1-˙TM×˙Tbn
12 chcoeffeq.w W=BaseY
13 chcoeffeq.1 1˙=1A
14 chcoeffeq.m ˙=A
15 chcoeffeq.u U=NcPolyMatToMatR
16 cayhamlem.e1 ×˙=mulGrpA
17 cayhamlem.r ·˙=A
18 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 chcoeffeq NFinRCRingMBsbB0sn0UGn=coe1Kn˙1˙
19 2fveq3 n=lUGn=UGl
20 fveq2 n=lcoe1Kn=coe1Kl
21 20 oveq1d n=lcoe1Kn˙1˙=coe1Kl˙1˙
22 19 21 eqeq12d n=lUGn=coe1Kn˙1˙UGl=coe1Kl˙1˙
23 22 cbvralvw n0UGn=coe1Kn˙1˙l0UGl=coe1Kl˙1˙
24 2fveq3 l=nUGl=UGn
25 fveq2 l=ncoe1Kl=coe1Kn
26 25 oveq1d l=ncoe1Kl˙1˙=coe1Kn˙1˙
27 24 26 eqeq12d l=nUGl=coe1Kl˙1˙UGn=coe1Kn˙1˙
28 27 rspccva l0UGl=coe1Kl˙1˙n0UGn=coe1Kn˙1˙
29 simprll n0NFinRCRingMBsbB0sNFinRCRingMB
30 eqid BaseP=BaseP
31 9 1 2 3 30 chpmatply1 NFinRCRingMBCMBaseP
32 29 31 syl n0NFinRCRingMBsbB0sCMBaseP
33 10 32 eqeltrid n0NFinRCRingMBsbB0sKBaseP
34 eqid coe1K=coe1K
35 eqid BaseR=BaseR
36 34 30 3 35 coe1f KBasePcoe1K:0BaseR
37 33 36 syl n0NFinRCRingMBsbB0scoe1K:0BaseR
38 fvex BaseRV
39 nn0ex 0V
40 38 39 pm3.2i BaseRV0V
41 elmapg BaseRV0Vcoe1KBaseR0coe1K:0BaseR
42 40 41 mp1i n0NFinRCRingMBsbB0scoe1KBaseR0coe1K:0BaseR
43 37 42 mpbird n0NFinRCRingMBsbB0scoe1KBaseR0
44 simpl n0NFinRCRingMBsbB0sn0
45 35 1 2 13 14 16 17 cayhamlem2 NFinRCRingMBcoe1KBaseR0n0coe1Kn˙n×˙M=n×˙M·˙coe1Kn˙1˙
46 29 43 44 45 syl12anc n0NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙coe1Kn˙1˙
47 46 adantl UGn=coe1Kn˙1˙n0NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙coe1Kn˙1˙
48 oveq2 UGn=coe1Kn˙1˙n×˙M·˙UGn=n×˙M·˙coe1Kn˙1˙
49 48 adantr UGn=coe1Kn˙1˙n0NFinRCRingMBsbB0sn×˙M·˙UGn=n×˙M·˙coe1Kn˙1˙
50 47 49 eqtr4d UGn=coe1Kn˙1˙n0NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙UGn
51 50 exp32 UGn=coe1Kn˙1˙n0NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙UGn
52 51 com12 n0UGn=coe1Kn˙1˙NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙UGn
53 52 adantl l0UGl=coe1Kl˙1˙n0UGn=coe1Kn˙1˙NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙UGn
54 28 53 mpd l0UGl=coe1Kl˙1˙n0NFinRCRingMBsbB0scoe1Kn˙n×˙M=n×˙M·˙UGn
55 54 com12 NFinRCRingMBsbB0sl0UGl=coe1Kl˙1˙n0coe1Kn˙n×˙M=n×˙M·˙UGn
56 55 impl NFinRCRingMBsbB0sl0UGl=coe1Kl˙1˙n0coe1Kn˙n×˙M=n×˙M·˙UGn
57 56 mpteq2dva NFinRCRingMBsbB0sl0UGl=coe1Kl˙1˙n0coe1Kn˙n×˙M=n0n×˙M·˙UGn
58 57 oveq2d NFinRCRingMBsbB0sl0UGl=coe1Kl˙1˙An0coe1Kn˙n×˙M=An0n×˙M·˙UGn
59 58 ex NFinRCRingMBsbB0sl0UGl=coe1Kl˙1˙An0coe1Kn˙n×˙M=An0n×˙M·˙UGn
60 23 59 syl5bi NFinRCRingMBsbB0sn0UGn=coe1Kn˙1˙An0coe1Kn˙n×˙M=An0n×˙M·˙UGn
61 60 reximdva NFinRCRingMBsbB0sn0UGn=coe1Kn˙1˙bB0sAn0coe1Kn˙n×˙M=An0n×˙M·˙UGn
62 61 reximdva NFinRCRingMBsbB0sn0UGn=coe1Kn˙1˙sbB0sAn0coe1Kn˙n×˙M=An0n×˙M·˙UGn
63 18 62 mpd NFinRCRingMBsbB0sAn0coe1Kn˙n×˙M=An0n×˙M·˙UGn