Metamath Proof Explorer


Theorem chpmatfval

Description: Value of the characteristic polynomial function. (Contributed by AV, 2-Aug-2019)

Ref Expression
Hypotheses chpmatfval.c C = N CharPlyMat R
chpmatfval.a A = N Mat R
chpmatfval.b B = Base A
chpmatfval.p P = Poly 1 R
chpmatfval.y Y = N Mat P
chpmatfval.d D = N maDet P
chpmatfval.s - ˙ = - Y
chpmatfval.x X = var 1 R
chpmatfval.m · ˙ = Y
chpmatfval.t T = N matToPolyMat R
chpmatfval.i 1 ˙ = 1 Y
Assertion chpmatfval N Fin R V C = m B D X · ˙ 1 ˙ - ˙ T m

Proof

Step Hyp Ref Expression
1 chpmatfval.c C = N CharPlyMat R
2 chpmatfval.a A = N Mat R
3 chpmatfval.b B = Base A
4 chpmatfval.p P = Poly 1 R
5 chpmatfval.y Y = N Mat P
6 chpmatfval.d D = N maDet P
7 chpmatfval.s - ˙ = - Y
8 chpmatfval.x X = var 1 R
9 chpmatfval.m · ˙ = Y
10 chpmatfval.t T = N matToPolyMat R
11 chpmatfval.i 1 ˙ = 1 Y
12 df-chpmat CharPlyMat = n Fin , r V m Base n Mat r n maDet Poly 1 r var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r - n Mat Poly 1 r n matToPolyMat r m
13 12 a1i N Fin R V CharPlyMat = n Fin , r V m Base n Mat r n maDet Poly 1 r var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r - n Mat Poly 1 r n matToPolyMat r m
14 oveq12 n = N r = R n Mat r = N Mat R
15 14 2 eqtr4di n = N r = R n Mat r = A
16 15 fveq2d n = N r = R Base n Mat r = Base A
17 16 3 eqtr4di n = N r = R Base n Mat r = B
18 simpl n = N r = R n = N
19 simpr n = N r = R r = R
20 19 fveq2d n = N r = R Poly 1 r = Poly 1 R
21 20 4 eqtr4di n = N r = R Poly 1 r = P
22 18 21 oveq12d n = N r = R n maDet Poly 1 r = N maDet P
23 22 6 eqtr4di n = N r = R n maDet Poly 1 r = D
24 fveq2 r = R Poly 1 r = Poly 1 R
25 24 adantl n = N r = R Poly 1 r = Poly 1 R
26 25 4 eqtr4di n = N r = R Poly 1 r = P
27 18 26 oveq12d n = N r = R n Mat Poly 1 r = N Mat P
28 27 5 eqtr4di n = N r = R n Mat Poly 1 r = Y
29 28 fveq2d n = N r = R - n Mat Poly 1 r = - Y
30 29 7 eqtr4di n = N r = R - n Mat Poly 1 r = - ˙
31 28 fveq2d n = N r = R n Mat Poly 1 r = Y
32 31 9 eqtr4di n = N r = R n Mat Poly 1 r = · ˙
33 fveq2 r = R var 1 r = var 1 R
34 33 8 eqtr4di r = R var 1 r = X
35 34 adantl n = N r = R var 1 r = X
36 28 fveq2d n = N r = R 1 n Mat Poly 1 r = 1 Y
37 36 11 eqtr4di n = N r = R 1 n Mat Poly 1 r = 1 ˙
38 32 35 37 oveq123d n = N r = R var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r = X · ˙ 1 ˙
39 oveq12 n = N r = R n matToPolyMat r = N matToPolyMat R
40 39 10 eqtr4di n = N r = R n matToPolyMat r = T
41 40 fveq1d n = N r = R n matToPolyMat r m = T m
42 30 38 41 oveq123d n = N r = R var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r - n Mat Poly 1 r n matToPolyMat r m = X · ˙ 1 ˙ - ˙ T m
43 23 42 fveq12d n = N r = R n maDet Poly 1 r var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r - n Mat Poly 1 r n matToPolyMat r m = D X · ˙ 1 ˙ - ˙ T m
44 17 43 mpteq12dv n = N r = R m Base n Mat r n maDet Poly 1 r var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r - n Mat Poly 1 r n matToPolyMat r m = m B D X · ˙ 1 ˙ - ˙ T m
45 44 adantl N Fin R V n = N r = R m Base n Mat r n maDet Poly 1 r var 1 r n Mat Poly 1 r 1 n Mat Poly 1 r - n Mat Poly 1 r n matToPolyMat r m = m B D X · ˙ 1 ˙ - ˙ T m
46 simpl N Fin R V N Fin
47 elex R V R V
48 47 adantl N Fin R V R V
49 3 fvexi B V
50 mptexg B V m B D X · ˙ 1 ˙ - ˙ T m V
51 49 50 mp1i N Fin R V m B D X · ˙ 1 ˙ - ˙ T m V
52 13 45 46 48 51 ovmpod N Fin R V N CharPlyMat R = m B D X · ˙ 1 ˙ - ˙ T m
53 1 52 eqtrid N Fin R V C = m B D X · ˙ 1 ˙ - ˙ T m