Metamath Proof Explorer


Theorem cpmadumatpolylem1

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

Ref Expression
Hypotheses cpmadumatpoly.a A = N Mat R
cpmadumatpoly.b B = Base A
cpmadumatpoly.p P = Poly 1 R
cpmadumatpoly.y Y = N Mat P
cpmadumatpoly.t T = N matToPolyMat R
cpmadumatpoly.r × ˙ = Y
cpmadumatpoly.m0 - ˙ = - Y
cpmadumatpoly.0 0 ˙ = 0 Y
cpmadumatpoly.g G = n 0 if n = 0 0 ˙ - ˙ T M × ˙ T b 0 if n = s + 1 T b s if s + 1 < n 0 ˙ T b n 1 - ˙ T M × ˙ T b n
cpmadumatpoly.s S = N ConstPolyMat R
cpmadumatpoly.m1 · ˙ = Y
cpmadumatpoly.1 1 ˙ = 1 Y
cpmadumatpoly.z Z = var 1 R
cpmadumatpoly.d D = Z · ˙ 1 ˙ - ˙ T M
cpmadumatpoly.j J = N maAdju P
cpmadumatpoly.w W = Base Y
cpmadumatpoly.q Q = Poly 1 A
cpmadumatpoly.x X = var 1 A
cpmadumatpoly.m2 ˙ = Q
cpmadumatpoly.e × ˙ = mulGrp Q
cpmadumatpoly.u U = N cPolyMatToMat R
Assertion cpmadumatpolylem1 N Fin R CRing M B s b B 0 s U G B 0

Proof

Step Hyp Ref Expression
1 cpmadumatpoly.a A = N Mat R
2 cpmadumatpoly.b B = Base A
3 cpmadumatpoly.p P = Poly 1 R
4 cpmadumatpoly.y Y = N Mat P
5 cpmadumatpoly.t T = N matToPolyMat R
6 cpmadumatpoly.r × ˙ = Y
7 cpmadumatpoly.m0 - ˙ = - Y
8 cpmadumatpoly.0 0 ˙ = 0 Y
9 cpmadumatpoly.g G = n 0 if n = 0 0 ˙ - ˙ T M × ˙ T b 0 if n = s + 1 T b s if s + 1 < n 0 ˙ T b n 1 - ˙ T M × ˙ T b n
10 cpmadumatpoly.s S = N ConstPolyMat R
11 cpmadumatpoly.m1 · ˙ = Y
12 cpmadumatpoly.1 1 ˙ = 1 Y
13 cpmadumatpoly.z Z = var 1 R
14 cpmadumatpoly.d D = Z · ˙ 1 ˙ - ˙ T M
15 cpmadumatpoly.j J = N maAdju P
16 cpmadumatpoly.w W = Base Y
17 cpmadumatpoly.q Q = Poly 1 A
18 cpmadumatpoly.x X = var 1 A
19 cpmadumatpoly.m2 ˙ = Q
20 cpmadumatpoly.e × ˙ = mulGrp Q
21 cpmadumatpoly.u U = N cPolyMatToMat R
22 simp1 N Fin R CRing M B N Fin
23 crngring R CRing R Ring
24 23 3ad2ant2 N Fin R CRing M B R Ring
25 22 24 jca N Fin R CRing M B N Fin R Ring
26 25 ad2antrr N Fin R CRing M B s b B 0 s N Fin R Ring
27 1 2 10 21 cpm2mf N Fin R Ring U : S B
28 26 27 syl N Fin R CRing M B s b B 0 s U : S B
29 1 2 3 4 6 7 8 5 9 10 chfacfisfcpmat N Fin R Ring M B s b B 0 s G : 0 S
30 23 29 syl3anl2 N Fin R CRing M B s b B 0 s G : 0 S
31 30 anassrs N Fin R CRing M B s b B 0 s G : 0 S
32 fco U : S B G : 0 S U G : 0 B
33 28 31 32 syl2anc N Fin R CRing M B s b B 0 s U G : 0 B
34 2 fvexi B V
35 nn0ex 0 V
36 34 35 pm3.2i B V 0 V
37 elmapg B V 0 V U G B 0 U G : 0 B
38 36 37 mp1i N Fin R CRing M B s b B 0 s U G B 0 U G : 0 B
39 33 38 mpbird N Fin R CRing M B s b B 0 s U G B 0