Metamath Proof Explorer


Theorem chfacfpmmulcl

Description: Closure of the value of the "characteristic factor function" multiplied with a constant polynomial matrix. (Contributed by AV, 23-Nov-2019)

Ref Expression
Hypotheses cayhamlem1.a A=NMatR
cayhamlem1.b B=BaseA
cayhamlem1.p P=Poly1R
cayhamlem1.y Y=NMatP
cayhamlem1.r ×˙=Y
cayhamlem1.s -˙=-Y
cayhamlem1.0 0˙=0Y
cayhamlem1.t T=NmatToPolyMatR
cayhamlem1.g G=n0ifn=00˙-˙TM×˙Tb0ifn=s+1Tbsifs+1<n0˙Tbn1-˙TM×˙Tbn
cayhamlem1.e ×˙=mulGrpY
Assertion chfacfpmmulcl NFinRCRingMBsbB0sK0K×˙TM×˙GKBaseY

Proof

Step Hyp Ref Expression
1 cayhamlem1.a A=NMatR
2 cayhamlem1.b B=BaseA
3 cayhamlem1.p P=Poly1R
4 cayhamlem1.y Y=NMatP
5 cayhamlem1.r ×˙=Y
6 cayhamlem1.s -˙=-Y
7 cayhamlem1.0 0˙=0Y
8 cayhamlem1.t T=NmatToPolyMatR
9 cayhamlem1.g G=n0ifn=00˙-˙TM×˙Tb0ifn=s+1Tbsifs+1<n0˙Tbn1-˙TM×˙Tbn
10 cayhamlem1.e ×˙=mulGrpY
11 crngring RCRingRRing
12 3 4 pmatring NFinRRingYRing
13 11 12 sylan2 NFinRCRingYRing
14 13 3adant3 NFinRCRingMBYRing
15 14 3ad2ant1 NFinRCRingMBsbB0sK0YRing
16 eqid mulGrpY=mulGrpY
17 16 ringmgp YRingmulGrpYMnd
18 14 17 syl NFinRCRingMBmulGrpYMnd
19 18 3ad2ant1 NFinRCRingMBsbB0sK0mulGrpYMnd
20 simp3 NFinRCRingMBsbB0sK0K0
21 8 1 2 3 4 mat2pmatbas NFinRRingMBTMBaseY
22 11 21 syl3an2 NFinRCRingMBTMBaseY
23 22 3ad2ant1 NFinRCRingMBsbB0sK0TMBaseY
24 eqid BaseY=BaseY
25 16 24 mgpbas BaseY=BasemulGrpY
26 25 10 mulgnn0cl mulGrpYMndK0TMBaseYK×˙TMBaseY
27 19 20 23 26 syl3anc NFinRCRingMBsbB0sK0K×˙TMBaseY
28 1 2 3 4 5 6 7 8 9 chfacfisf NFinRRingMBsbB0sG:0BaseY
29 11 28 syl3anl2 NFinRCRingMBsbB0sG:0BaseY
30 29 3adant3 NFinRCRingMBsbB0sK0G:0BaseY
31 30 20 ffvelrnd NFinRCRingMBsbB0sK0GKBaseY
32 24 5 ringcl YRingK×˙TMBaseYGKBaseYK×˙TM×˙GKBaseY
33 15 27 31 32 syl3anc NFinRCRingMBsbB0sK0K×˙TM×˙GKBaseY