Metamath Proof Explorer


Theorem mat2pmatlin

Description: The transformation of matrices into polynomial matrices is "linear", analogous to lmhmlin . Since A and C have different scalar rings, T cannot be a left module homomorphism as defined in df-lmhm , see lmhmsca . (Contributed by AV, 13-Nov-2019) (Proof shortened by AV, 28-Nov-2019)

Ref Expression
Hypotheses mat2pmatbas.t T = N matToPolyMat R
mat2pmatbas.a A = N Mat R
mat2pmatbas.b B = Base A
mat2pmatbas.p P = Poly 1 R
mat2pmatbas.c C = N Mat P
mat2pmatbas0.h H = Base C
mat2pmatlin.k K = Base R
mat2pmatlin.s S = algSc P
mat2pmatlin.m · ˙ = A
mat2pmatlin.n × ˙ = C
Assertion mat2pmatlin N Fin R CRing X K Y B T X · ˙ Y = S X × ˙ T Y

Proof

Step Hyp Ref Expression
1 mat2pmatbas.t T = N matToPolyMat R
2 mat2pmatbas.a A = N Mat R
3 mat2pmatbas.b B = Base A
4 mat2pmatbas.p P = Poly 1 R
5 mat2pmatbas.c C = N Mat P
6 mat2pmatbas0.h H = Base C
7 mat2pmatlin.k K = Base R
8 mat2pmatlin.s S = algSc P
9 mat2pmatlin.m · ˙ = A
10 mat2pmatlin.n × ˙ = C
11 simpr N Fin R CRing R CRing
12 4 ply1assa R CRing P AssAlg
13 eqid Scalar P = Scalar P
14 8 13 asclrhm P AssAlg S Scalar P RingHom P
15 11 12 14 3syl N Fin R CRing S Scalar P RingHom P
16 4 ply1sca R CRing R = Scalar P
17 16 adantl N Fin R CRing R = Scalar P
18 17 oveq1d N Fin R CRing R RingHom P = Scalar P RingHom P
19 15 18 eleqtrrd N Fin R CRing S R RingHom P
20 19 adantr N Fin R CRing X K Y B S R RingHom P
21 20 adantr N Fin R CRing X K Y B i N j N S R RingHom P
22 7 eleq2i X K X Base R
23 22 biimpi X K X Base R
24 23 adantr X K Y B X Base R
25 24 ad2antlr N Fin R CRing X K Y B i N j N X Base R
26 eqid Base R = Base R
27 simprl N Fin R CRing X K Y B i N j N i N
28 simpr i N j N j N
29 28 adantl N Fin R CRing X K Y B i N j N j N
30 simplrr N Fin R CRing X K Y B i N j N Y B
31 2 26 3 27 29 30 matecld N Fin R CRing X K Y B i N j N i Y j Base R
32 eqid R = R
33 eqid P = P
34 26 32 33 rhmmul S R RingHom P X Base R i Y j Base R S X R i Y j = S X P S i Y j
35 21 25 31 34 syl3anc N Fin R CRing X K Y B i N j N S X R i Y j = S X P S i Y j
36 crngring R CRing R Ring
37 36 ad2antlr N Fin R CRing X K Y B R Ring
38 37 adantr N Fin R CRing X K Y B i N j N R Ring
39 simpr N Fin R CRing X K Y B X K Y B
40 39 adantr N Fin R CRing X K Y B i N j N X K Y B
41 simpr N Fin R CRing X K Y B i N j N i N j N
42 2 3 7 9 32 matvscacell R Ring X K Y B i N j N i X · ˙ Y j = X R i Y j
43 38 40 41 42 syl3anc N Fin R CRing X K Y B i N j N i X · ˙ Y j = X R i Y j
44 43 fveq2d N Fin R CRing X K Y B i N j N S i X · ˙ Y j = S X R i Y j
45 36 anim2i N Fin R CRing N Fin R Ring
46 simpr X K Y B Y B
47 45 46 anim12i N Fin R CRing X K Y B N Fin R Ring Y B
48 df-3an N Fin R Ring Y B N Fin R Ring Y B
49 47 48 sylibr N Fin R CRing X K Y B N Fin R Ring Y B
50 1 2 3 4 8 mat2pmatvalel N Fin R Ring Y B i N j N i T Y j = S i Y j
51 49 50 sylan N Fin R CRing X K Y B i N j N i T Y j = S i Y j
52 51 oveq2d N Fin R CRing X K Y B i N j N S X P i T Y j = S X P S i Y j
53 35 44 52 3eqtr4d N Fin R CRing X K Y B i N j N S i X · ˙ Y j = S X P i T Y j
54 simpll N Fin R CRing X K Y B N Fin
55 54 adantr N Fin R CRing X K Y B i N j N N Fin
56 7 2 3 9 matvscl N Fin R Ring X K Y B X · ˙ Y B
57 45 56 sylan N Fin R CRing X K Y B X · ˙ Y B
58 57 adantr N Fin R CRing X K Y B i N j N X · ˙ Y B
59 1 2 3 4 8 mat2pmatvalel N Fin R Ring X · ˙ Y B i N j N i T X · ˙ Y j = S i X · ˙ Y j
60 55 38 58 41 59 syl31anc N Fin R CRing X K Y B i N j N i T X · ˙ Y j = S i X · ˙ Y j
61 4 ply1ring R Ring P Ring
62 36 61 syl R CRing P Ring
63 62 ad2antlr N Fin R CRing X K Y B P Ring
64 63 adantr N Fin R CRing X K Y B i N j N P Ring
65 36 adantl N Fin R CRing R Ring
66 simpl X K Y B X K
67 eqid Base P = Base P
68 4 8 7 67 ply1sclcl R Ring X K S X Base P
69 65 66 68 syl2an N Fin R CRing X K Y B S X Base P
70 1 2 3 4 5 6 mat2pmatbas0 N Fin R Ring Y B T Y H
71 49 70 syl N Fin R CRing X K Y B T Y H
72 69 71 jca N Fin R CRing X K Y B S X Base P T Y H
73 72 adantr N Fin R CRing X K Y B i N j N S X Base P T Y H
74 5 6 67 10 33 matvscacell P Ring S X Base P T Y H i N j N i S X × ˙ T Y j = S X P i T Y j
75 64 73 41 74 syl3anc N Fin R CRing X K Y B i N j N i S X × ˙ T Y j = S X P i T Y j
76 53 60 75 3eqtr4d N Fin R CRing X K Y B i N j N i T X · ˙ Y j = i S X × ˙ T Y j
77 76 ralrimivva N Fin R CRing X K Y B i N j N i T X · ˙ Y j = i S X × ˙ T Y j
78 1 2 3 4 5 6 mat2pmatbas0 N Fin R Ring X · ˙ Y B T X · ˙ Y H
79 54 37 57 78 syl3anc N Fin R CRing X K Y B T X · ˙ Y H
80 67 5 6 10 matvscl N Fin P Ring S X Base P T Y H S X × ˙ T Y H
81 54 63 72 80 syl21anc N Fin R CRing X K Y B S X × ˙ T Y H
82 5 6 eqmat T X · ˙ Y H S X × ˙ T Y H T X · ˙ Y = S X × ˙ T Y i N j N i T X · ˙ Y j = i S X × ˙ T Y j
83 79 81 82 syl2anc N Fin R CRing X K Y B T X · ˙ Y = S X × ˙ T Y i N j N i T X · ˙ Y j = i S X × ˙ T Y j
84 77 83 mpbird N Fin R CRing X K Y B T X · ˙ Y = S X × ˙ T Y