Metamath Proof Explorer


Theorem chpmat1d

Description: The characteristic polynomial of a matrix with dimension 1. (Contributed by AV, 7-Aug-2019)

Ref Expression
Hypotheses chpmat1d.c C=NCharPlyMatR
chpmat1d.p P=Poly1R
chpmat1d.a A=NMatR
chpmat1d.b B=BaseA
chpmat1d.x X=var1R
chpmat1d.z -˙=-P
chpmat1d.s S=algScP
Assertion chpmat1d RCRingN=IIVMBCM=X-˙SIMI

Proof

Step Hyp Ref Expression
1 chpmat1d.c C=NCharPlyMatR
2 chpmat1d.p P=Poly1R
3 chpmat1d.a A=NMatR
4 chpmat1d.b B=BaseA
5 chpmat1d.x X=var1R
6 chpmat1d.z -˙=-P
7 chpmat1d.s S=algScP
8 snfi IFin
9 eleq1 N=INFinIFin
10 8 9 mpbiri N=INFin
11 10 adantr N=IIVNFin
12 11 3ad2ant2 RCRingN=IIVMBNFin
13 simp1 RCRingN=IIVMBRCRing
14 simp3 RCRingN=IIVMBMB
15 eqid NMatP=NMatP
16 eqid NmaDetP=NmaDetP
17 eqid -NMatP=-NMatP
18 eqid var1R=var1R
19 eqid NMatP=NMatP
20 eqid NmatToPolyMatR=NmatToPolyMatR
21 eqid 1NMatP=1NMatP
22 1 3 4 2 15 16 17 18 19 20 21 chpmatval NFinRCRingMBCM=NmaDetPvar1RNMatP1NMatP-NMatPNmatToPolyMatRM
23 12 13 14 22 syl3anc RCRingN=IIVMBCM=NmaDetPvar1RNMatP1NMatP-NMatPNmatToPolyMatRM
24 2 ply1crng RCRingPCRing
25 24 3ad2ant1 RCRingN=IIVMBPCRing
26 simp2 RCRingN=IIVMBN=IIV
27 crngring RCRingRRing
28 2 ply1ring RRingPRing
29 27 28 syl RCRingPRing
30 29 3ad2ant1 RCRingN=IIVMBPRing
31 15 matring NFinPRingNMatPRing
32 12 30 31 syl2anc RCRingN=IIVMBNMatPRing
33 ringgrp NMatPRingNMatPGrp
34 32 33 syl RCRingN=IIVMBNMatPGrp
35 15 matlmod NFinPRingNMatPLMod
36 12 30 35 syl2anc RCRingN=IIVMBNMatPLMod
37 27 3ad2ant1 RCRingN=IIVMBRRing
38 eqid Poly1R=Poly1R
39 eqid BasePoly1R=BasePoly1R
40 18 38 39 vr1cl RRingvar1RBasePoly1R
41 37 40 syl RCRingN=IIVMBvar1RBasePoly1R
42 38 ply1crng RCRingPoly1RCRing
43 42 3ad2ant1 RCRingN=IIVMBPoly1RCRing
44 2 oveq2i NMatP=NMatPoly1R
45 44 matsca2 NFinPoly1RCRingPoly1R=ScalarNMatP
46 12 43 45 syl2anc RCRingN=IIVMBPoly1R=ScalarNMatP
47 46 eqcomd RCRingN=IIVMBScalarNMatP=Poly1R
48 47 fveq2d RCRingN=IIVMBBaseScalarNMatP=BasePoly1R
49 41 48 eleqtrrd RCRingN=IIVMBvar1RBaseScalarNMatP
50 eqid BaseNMatP=BaseNMatP
51 50 21 ringidcl NMatPRing1NMatPBaseNMatP
52 32 51 syl RCRingN=IIVMB1NMatPBaseNMatP
53 eqid ScalarNMatP=ScalarNMatP
54 eqid BaseScalarNMatP=BaseScalarNMatP
55 50 53 19 54 lmodvscl NMatPLModvar1RBaseScalarNMatP1NMatPBaseNMatPvar1RNMatP1NMatPBaseNMatP
56 36 49 52 55 syl3anc RCRingN=IIVMBvar1RNMatP1NMatPBaseNMatP
57 20 3 4 2 15 mat2pmatbas NFinRRingMBNmatToPolyMatRMBaseNMatP
58 12 37 14 57 syl3anc RCRingN=IIVMBNmatToPolyMatRMBaseNMatP
59 50 17 grpsubcl NMatPGrpvar1RNMatP1NMatPBaseNMatPNmatToPolyMatRMBaseNMatPvar1RNMatP1NMatP-NMatPNmatToPolyMatRMBaseNMatP
60 34 56 58 59 syl3anc RCRingN=IIVMBvar1RNMatP1NMatP-NMatPNmatToPolyMatRMBaseNMatP
61 16 15 50 m1detdiag PCRingN=IIVvar1RNMatP1NMatP-NMatPNmatToPolyMatRMBaseNMatPNmaDetPvar1RNMatP1NMatP-NMatPNmatToPolyMatRM=Ivar1RNMatP1NMatP-NMatPNmatToPolyMatRMI
62 25 26 60 61 syl3anc RCRingN=IIVMBNmaDetPvar1RNMatP1NMatP-NMatPNmatToPolyMatRM=Ivar1RNMatP1NMatP-NMatPNmatToPolyMatRMI
63 5 eqcomi var1R=X
64 63 a1i RCRingN=IIVMBvar1R=X
65 64 oveq1d RCRingN=IIVMBvar1RNMatP1NMatP=XNMatP1NMatP
66 65 oveq1d RCRingN=IIVMBvar1RNMatP1NMatP-NMatPNmatToPolyMatRM=XNMatP1NMatP-NMatPNmatToPolyMatRM
67 66 oveqd RCRingN=IIVMBIvar1RNMatP1NMatP-NMatPNmatToPolyMatRMI=IXNMatP1NMatP-NMatPNmatToPolyMatRMI
68 1 2 3 4 5 6 7 15 20 chpmat1dlem RRingN=IIVMBIXNMatP1NMatP-NMatPNmatToPolyMatRMI=X-˙SIMI
69 27 68 syl3an1 RCRingN=IIVMBIXNMatP1NMatP-NMatPNmatToPolyMatRMI=X-˙SIMI
70 67 69 eqtrd RCRingN=IIVMBIvar1RNMatP1NMatP-NMatPNmatToPolyMatRMI=X-˙SIMI
71 62 70 eqtrd RCRingN=IIVMBNmaDetPvar1RNMatP1NMatP-NMatPNmatToPolyMatRM=X-˙SIMI
72 23 71 eqtrd RCRingN=IIVMBCM=X-˙SIMI