Metamath Proof Explorer


Theorem pm2mpmhmlem2

Description: Lemma 2 for pm2mpmhm . (Contributed by AV, 22-Oct-2019) (Revised by AV, 6-Dec-2019)

Ref Expression
Hypotheses pm2mpmhm.p ⊢ P = Poly 1 ⁡ R
pm2mpmhm.c ⊢ C = N Mat P
pm2mpmhm.a ⊢ A = N Mat R
pm2mpmhm.q ⊢ Q = Poly 1 ⁡ A
pm2mpmhm.t ⊢ T = N pMatToMatPoly R
pm2mpmhm.b ⊢ B = Base C
Assertion pm2mpmhmlem2 ⊢ N ∈ Fin ∧ R ∈ Ring → ∀ x ∈ B ∀ y ∈ B T ⁡ x ⋅ C y = T ⁡ x ⋅ Q T ⁡ y

Proof

Step Hyp Ref Expression
1 pm2mpmhm.p ⊢ P = Poly 1 ⁡ R
2 pm2mpmhm.c ⊢ C = N Mat P
3 pm2mpmhm.a ⊢ A = N Mat R
4 pm2mpmhm.q ⊢ Q = Poly 1 ⁡ A
5 pm2mpmhm.t ⊢ T = N pMatToMatPoly R
6 pm2mpmhm.b ⊢ B = Base C
7 simpll ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → N ∈ Fin
8 simplr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → R ∈ Ring
9 1 2 pmatring ⊢ N ∈ Fin ∧ R ∈ Ring → C ∈ Ring
10 9 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → C ∈ Ring
11 simpl ⊢ x ∈ B ∧ y ∈ B → x ∈ B
12 11 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → x ∈ B
13 simpr ⊢ x ∈ B ∧ y ∈ B → y ∈ B
14 13 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → y ∈ B
15 eqid ⊢ ⋅ C = ⋅ C
16 6 15 ringcl ⊢ C ∈ Ring ∧ x ∈ B ∧ y ∈ B → x ⋅ C y ∈ B
17 10 12 14 16 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → x ⋅ C y ∈ B
18 eqid ⊢ ⋅ Q = ⋅ Q
19 eqid ⊢ ⋅ mulGrp Q = ⋅ mulGrp Q
20 eqid ⊢ var 1 ⁡ A = var 1 ⁡ A
21 1 2 6 18 19 20 3 4 5 pm2mpfval ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ⋅ C y ∈ B → T ⁡ x ⋅ C y = ∑ Q k ∈ ℕ 0 x ⋅ C y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
22 7 8 17 21 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → T ⁡ x ⋅ C y = ∑ Q k ∈ ℕ 0 x ⋅ C y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
23 1 2 6 3 decpmatmul ⊢ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → x ⋅ C y decompPMat k = ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z
24 23 ad4ant234 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → x ⋅ C y decompPMat k = ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z
25 24 oveq1d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → x ⋅ C y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
26 25 mpteq2dva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → k ∈ ℕ 0 ⟼ x ⋅ C y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = k ∈ ℕ 0 ⟼ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
27 26 oveq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∑ Q k ∈ ℕ 0 x ⋅ C y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
28 eqid ⊢ Base Q = Base Q
29 3 matring ⊢ N ∈ Fin ∧ R ∈ Ring → A ∈ Ring
30 29 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → A ∈ Ring
31 eqid ⊢ Base A = Base A
32 eqid ⊢ 0 A = 0 A
33 ringcmn ⊢ A ∈ Ring → A ∈ CMnd
34 29 33 syl ⊢ N ∈ Fin ∧ R ∈ Ring → A ∈ CMnd
35 34 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 → A ∈ CMnd
36 fzfid ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 → 0 … k ∈ Fin
37 30 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → A ∈ Ring
38 simp-5r ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → R ∈ Ring
39 12 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → x ∈ B
40 elfznn0 ⊢ z ∈ 0 … k → z ∈ ℕ 0
41 40 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → z ∈ ℕ 0
42 1 2 6 3 31 decpmatcl ⊢ R ∈ Ring ∧ x ∈ B ∧ z ∈ ℕ 0 → x decompPMat z ∈ Base A
43 38 39 41 42 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → x decompPMat z ∈ Base A
44 14 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → y ∈ B
45 fznn0sub ⊢ z ∈ 0 … k → k − z ∈ ℕ 0
46 45 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → k − z ∈ ℕ 0
47 1 2 6 3 31 decpmatcl ⊢ R ∈ Ring ∧ y ∈ B ∧ k − z ∈ ℕ 0 → y decompPMat k − z ∈ Base A
48 38 44 46 47 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → y decompPMat k − z ∈ Base A
49 eqid ⊢ ⋅ A = ⋅ A
50 31 49 ringcl ⊢ A ∈ Ring ∧ x decompPMat z ∈ Base A ∧ y decompPMat k − z ∈ Base A → x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
51 37 43 48 50 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
52 51 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 → ∀ z ∈ 0 … k x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
53 31 35 36 52 gsummptcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 → ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
54 53 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ∀ k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
55 1 2 6 3 49 32 decpmatmulsumfsupp ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → finSupp 0 A⁡ k ∈ ℕ 0 ⟼ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z
56 55 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → finSupp 0 A⁡ k ∈ ℕ 0 ⟼ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z
57 simpr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → n ∈ ℕ 0
58 4 28 20 19 30 31 18 32 54 56 57 gsummoncoe1 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = ⦋ n / k⦌ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z
59 csbov2g ⊢ n ∈ ℕ 0 → ⦋ n / k⦌ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z = ∑ A ⦋ n / k⦌ z ∈ 0 … k ⟼ x decompPMat z ⋅ A y decompPMat k − z
60 id ⊢ n ∈ ℕ 0 → n ∈ ℕ 0
61 oveq2 ⊢ k = n → 0 … k = 0 … n
62 oveq1 ⊢ k = n → k − z = n − z
63 62 oveq2d ⊢ k = n → y decompPMat k − z = y decompPMat n − z
64 63 oveq2d ⊢ k = n → x decompPMat z ⋅ A y decompPMat k − z = x decompPMat z ⋅ A y decompPMat n − z
65 61 64 mpteq12dv ⊢ k = n → z ∈ 0 … k ⟼ x decompPMat z ⋅ A y decompPMat k − z = z ∈ 0 … n ⟼ x decompPMat z ⋅ A y decompPMat n − z
66 65 adantl ⊢ n ∈ ℕ 0 ∧ k = n → z ∈ 0 … k ⟼ x decompPMat z ⋅ A y decompPMat k − z = z ∈ 0 … n ⟼ x decompPMat z ⋅ A y decompPMat n − z
67 60 66 csbied ⊢ n ∈ ℕ 0 → ⦋ n / k⦌ z ∈ 0 … k ⟼ x decompPMat z ⋅ A y decompPMat k − z = z ∈ 0 … n ⟼ x decompPMat z ⋅ A y decompPMat n − z
68 67 oveq2d ⊢ n ∈ ℕ 0 → ∑ A ⦋ n / k⦌ z ∈ 0 … k ⟼ x decompPMat z ⋅ A y decompPMat k − z = ∑ A z = 0 n x decompPMat z ⋅ A y decompPMat n − z
69 59 68 eqtrd ⊢ n ∈ ℕ 0 → ⦋ n / k⦌ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z = ∑ A z = 0 n x decompPMat z ⋅ A y decompPMat n − z
70 69 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ⦋ n / k⦌ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z = ∑ A z = 0 n x decompPMat z ⋅ A y decompPMat n − z
71 eqidd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → r ∈ ℕ 0 ⟼ ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l = r ∈ ℕ 0 ⟼ ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l
72 oveq2 ⊢ r = n → 0 … r = 0 … n
73 fvoveq1 ⊢ r = n → coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l = coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
74 73 oveq2d ⊢ r = n → coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
75 72 74 mpteq12dv ⊢ r = n → l ∈ 0 … r ⟼ coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l = l ∈ 0 … n ⟼ coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
76 75 oveq2d ⊢ r = n → ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l = ∑ A l = 0 n coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
77 76 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ r = n → ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l = ∑ A l = 0 n coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
78 ovexd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ∑ A l = 0 n coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l ∈ V
79 71 77 57 78 fvmptd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → r ∈ ℕ 0 ⟼ ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l ⁡ n = ∑ A l = 0 n coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
80 eqid ⊢ 0 Q = 0 Q
81 4 ply1ring ⊢ A ∈ Ring → Q ∈ Ring
82 29 81 syl ⊢ N ∈ Fin ∧ R ∈ Ring → Q ∈ Ring
83 ringcmn ⊢ Q ∈ Ring → Q ∈ CMnd
84 82 83 syl ⊢ N ∈ Fin ∧ R ∈ Ring → Q ∈ CMnd
85 84 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → Q ∈ CMnd
86 nn0ex ⊢ ℕ 0 ∈ V
87 86 a1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ℕ 0 ∈ V
88 11 anim2i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B
89 df-3an ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ↔ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B
90 88 89 sylibr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B
91 90 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B
92 1 2 6 18 19 20 3 4 28 pm2mpghmlem1 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ k ∈ ℕ 0 → x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
93 91 92 sylan ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 → x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
94 93 fmpttd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → k ∈ ℕ 0 ⟼ x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A : ℕ 0 ⟶ Base Q
95 1 2 6 18 19 20 3 4 pm2mpghmlem2 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
96 91 95 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
97 28 80 85 87 94 96 gsumcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
98 13 anim2i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B
99 df-3an ⊢ N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B ↔ N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B
100 98 99 sylibr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B
101 100 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B
102 1 2 6 18 19 20 3 4 28 pm2mpghmlem1 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B ∧ k ∈ ℕ 0 → y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
103 101 102 sylan ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ k ∈ ℕ 0 → y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
104 103 fmpttd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → k ∈ ℕ 0 ⟼ y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A : ℕ 0 ⟶ Base Q
105 7 8 14 3jca ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B
106 105 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B
107 1 2 6 18 19 20 3 4 pm2mpghmlem2 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
108 106 107 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
109 28 80 85 87 104 108 gsumcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
110 eqid ⊢ ⋅ Q = ⋅ Q
111 4 110 49 28 coe1mul ⊢ A ∈ Ring ∧ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q ∧ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q → coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = r ∈ ℕ 0 ⟼ ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l
112 111 fveq1d ⊢ A ∈ Ring ∧ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q ∧ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q → coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = r ∈ ℕ 0 ⟼ ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l ⁡ n
113 30 97 109 112 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = r ∈ ℕ 0 ⟼ ∑ A l = 0 r coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ r − l ⁡ n
114 oveq2 ⊢ z = l → x decompPMat z = x decompPMat l
115 oveq2 ⊢ z = l → n − z = n − l
116 115 oveq2d ⊢ z = l → y decompPMat n − z = y decompPMat n − l
117 114 116 oveq12d ⊢ z = l → x decompPMat z ⋅ A y decompPMat n − z = x decompPMat l ⋅ A y decompPMat n − l
118 117 cbvmptv ⊢ z ∈ 0 … n ⟼ x decompPMat z ⋅ A y decompPMat n − z = l ∈ 0 … n ⟼ x decompPMat l ⋅ A y decompPMat n − l
119 29 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → A ∈ Ring
120 simp-5r ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n ∧ k ∈ ℕ 0 → R ∈ Ring
121 12 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n ∧ k ∈ ℕ 0 → x ∈ B
122 simpr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n ∧ k ∈ ℕ 0 → k ∈ ℕ 0
123 1 2 6 3 31 decpmatcl ⊢ R ∈ Ring ∧ x ∈ B ∧ k ∈ ℕ 0 → x decompPMat k ∈ Base A
124 120 121 122 123 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n ∧ k ∈ ℕ 0 → x decompPMat k ∈ Base A
125 124 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → ∀ k ∈ ℕ 0 x decompPMat k ∈ Base A
126 8 12 jca ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → R ∈ Ring ∧ x ∈ B
127 126 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → R ∈ Ring ∧ x ∈ B
128 1 2 6 3 32 decpmatfsupp ⊢ R ∈ Ring ∧ x ∈ B → finSupp 0 A⁡ k ∈ ℕ 0 ⟼ x decompPMat k
129 127 128 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → finSupp 0 A⁡ k ∈ ℕ 0 ⟼ x decompPMat k
130 elfznn0 ⊢ l ∈ 0 … n → l ∈ ℕ 0
131 130 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → l ∈ ℕ 0
132 4 28 20 19 119 31 18 32 125 129 131 gsummoncoe1 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l = ⦋ l / k⦌ x decompPMat k
133 csbov2g ⊢ l ∈ 0 … n → ⦋ l / k⦌ x decompPMat k = x decompPMat ⦋ l / k⦌ k
134 csbvarg ⊢ l ∈ 0 … n → ⦋ l / k⦌ k = l
135 134 oveq2d ⊢ l ∈ 0 … n → x decompPMat ⦋ l / k⦌ k = x decompPMat l
136 133 135 eqtrd ⊢ l ∈ 0 … n → ⦋ l / k⦌ x decompPMat k = x decompPMat l
137 136 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → ⦋ l / k⦌ x decompPMat k = x decompPMat l
138 132 137 eqtr2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → x decompPMat l = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l
139 14 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n ∧ k ∈ ℕ 0 → y ∈ B
140 1 2 6 3 31 decpmatcl ⊢ R ∈ Ring ∧ y ∈ B ∧ k ∈ ℕ 0 → y decompPMat k ∈ Base A
141 120 139 122 140 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n ∧ k ∈ ℕ 0 → y decompPMat k ∈ Base A
142 141 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → ∀ k ∈ ℕ 0 y decompPMat k ∈ Base A
143 8 14 jca ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → R ∈ Ring ∧ y ∈ B
144 143 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → R ∈ Ring ∧ y ∈ B
145 1 2 6 3 32 decpmatfsupp ⊢ R ∈ Ring ∧ y ∈ B → finSupp 0 A⁡ k ∈ ℕ 0 ⟼ y decompPMat k
146 144 145 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → finSupp 0 A⁡ k ∈ ℕ 0 ⟼ y decompPMat k
147 fznn0sub ⊢ l ∈ 0 … n → n − l ∈ ℕ 0
148 147 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → n − l ∈ ℕ 0
149 4 28 20 19 119 31 18 32 142 146 148 gsummoncoe1 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l = ⦋ n − l / k⦌ y decompPMat k
150 ovex ⊢ n − l ∈ V
151 csbov2g ⊢ n − l ∈ V → ⦋ n − l / k⦌ y decompPMat k = y decompPMat ⦋ n − l / k⦌ k
152 150 151 mp1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → ⦋ n − l / k⦌ y decompPMat k = y decompPMat ⦋ n − l / k⦌ k
153 csbvarg ⊢ n − l ∈ V → ⦋ n − l / k⦌ k = n − l
154 150 153 mp1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → ⦋ n − l / k⦌ k = n − l
155 154 oveq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → y decompPMat ⦋ n − l / k⦌ k = y decompPMat n − l
156 149 152 155 3eqtrrd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → y decompPMat n − l = coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
157 138 156 oveq12d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 ∧ l ∈ 0 … n → x decompPMat l ⋅ A y decompPMat n − l = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
158 157 mpteq2dva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → l ∈ 0 … n ⟼ x decompPMat l ⋅ A y decompPMat n − l = l ∈ 0 … n ⟼ coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
159 118 158 eqtrid ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → z ∈ 0 … n ⟼ x decompPMat z ⋅ A y decompPMat n − z = l ∈ 0 … n ⟼ coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
160 159 oveq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ∑ A z = 0 n x decompPMat z ⋅ A y decompPMat n − z = ∑ A l = 0 n coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ l ⋅ A coe 1 ⁡ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n − l
161 79 113 160 3eqtr4rd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → ∑ A z = 0 n x decompPMat z ⋅ A y decompPMat n − z = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n
162 58 70 161 3eqtrd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ n ∈ ℕ 0 → coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n
163 162 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∀ n ∈ ℕ 0 coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n
164 29 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → A ∈ Ring
165 84 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → Q ∈ CMnd
166 86 a1i ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ℕ 0 ∈ V
167 4 ply1lmod ⊢ A ∈ Ring → Q ∈ LMod
168 29 167 syl ⊢ N ∈ Fin ∧ R ∈ Ring → Q ∈ LMod
169 168 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → Q ∈ LMod
170 34 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → A ∈ CMnd
171 fzfid ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → 0 … k ∈ Fin
172 29 ad3antrrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → A ∈ Ring
173 simp-4r ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → R ∈ Ring
174 simplrl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → x ∈ B
175 174 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → x ∈ B
176 40 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → z ∈ ℕ 0
177 173 175 176 42 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → x decompPMat z ∈ Base A
178 simplrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → y ∈ B
179 178 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → y ∈ B
180 45 adantl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → k − z ∈ ℕ 0
181 173 179 180 47 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → y decompPMat k − z ∈ Base A
182 172 177 181 50 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 ∧ z ∈ 0 … k → x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
183 182 ralrimiva ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → ∀ z ∈ 0 … k x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
184 31 170 171 183 gsummptcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ∈ Base A
185 29 ad2antrr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → A ∈ Ring
186 4 ply1sca ⊢ A ∈ Ring → A = Scalar ⁡ Q
187 185 186 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → A = Scalar ⁡ Q
188 187 eqcomd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → Scalar ⁡ Q = A
189 188 fveq2d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → Base Scalar ⁡ Q = Base A
190 184 189 eleqtrrd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ∈ Base Scalar ⁡ Q
191 eqid ⊢ mulGrp Q = mulGrp Q
192 4 20 191 19 28 ply1moncl ⊢ A ∈ Ring ∧ k ∈ ℕ 0 → k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
193 185 192 sylancom ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
194 eqid ⊢ Scalar ⁡ Q = Scalar ⁡ Q
195 eqid ⊢ Base Scalar ⁡ Q = Base Scalar ⁡ Q
196 28 194 18 195 lmodvscl ⊢ Q ∈ LMod ∧ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ∈ Base Scalar ⁡ Q ∧ k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q → ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
197 169 190 193 196 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
198 197 fmpttd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → k ∈ ℕ 0 ⟼ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A : ℕ 0 ⟶ Base Q
199 1 2 6 18 19 20 3 4 28 5 pm2mpmhmlem1 ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
200 28 80 165 166 198 199 gsumcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
201 82 adantr ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → Q ∈ Ring
202 90 92 sylan ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
203 202 fmpttd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → k ∈ ℕ 0 ⟼ x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A : ℕ 0 ⟶ Base Q
204 90 95 syl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
205 28 80 165 166 203 204 gsumcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
206 100 102 sylan ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B ∧ k ∈ ℕ 0 → y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
207 206 fmpttd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → k ∈ ℕ 0 ⟼ y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A : ℕ 0 ⟶ Base Q
208 7 8 14 107 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → finSupp 0 Q⁡ k ∈ ℕ 0 ⟼ y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
209 28 80 165 166 207 208 gsumcl ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
210 28 110 ringcl ⊢ Q ∈ Ring ∧ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q ∧ ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q → ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
211 201 205 209 210 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q
212 eqid ⊢ coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
213 eqid ⊢ coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
214 4 28 212 213 ply1coe1eq ⊢ A ∈ Ring ∧ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q ∧ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ∈ Base Q → ∀ n ∈ ℕ 0 coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n ↔ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
215 164 200 211 214 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∀ n ∈ ℕ 0 coe 1 ⁡ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n = coe 1 ⁡ ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⁡ n ↔ ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
216 163 215 mpbid ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → ∑ Q k ∈ ℕ 0 ∑ A z = 0 k x decompPMat z ⋅ A y decompPMat k − z ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
217 22 27 216 3eqtrd ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → T ⁡ x ⋅ C y = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
218 1 2 6 18 19 20 3 4 5 pm2mpfval ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B → T ⁡ x = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
219 7 8 12 218 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → T ⁡ x = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
220 1 2 6 18 19 20 3 4 5 pm2mpfval ⊢ N ∈ Fin ∧ R ∈ Ring ∧ y ∈ B → T ⁡ y = ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
221 7 8 14 220 syl3anc ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → T ⁡ y = ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
222 219 221 oveq12d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → T ⁡ x ⋅ Q T ⁡ y = ∑ Q k ∈ ℕ 0 x decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A ⋅ Q ∑ Q k ∈ ℕ 0 y decompPMat k ⋅ Q k ⋅ mulGrp Q var 1 ⁡ A
223 217 222 eqtr4d ⊢ N ∈ Fin ∧ R ∈ Ring ∧ x ∈ B ∧ y ∈ B → T ⁡ x ⋅ C y = T ⁡ x ⋅ Q T ⁡ y
224 223 ralrimivva ⊢ N ∈ Fin ∧ R ∈ Ring → ∀ x ∈ B ∀ y ∈ B T ⁡ x ⋅ C y = T ⁡ x ⋅ Q T ⁡ y