Metamath Proof Explorer


Theorem mhphflem

Description: Lemma for mhphf . Add several multiples of L together, in a case where the total amount of multiplies is N . (Contributed by SN, 30-Jul-2024)

Ref Expression
Hypotheses mhphflem.d ⊢ D = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
mhphflem.h ⊢ H = g ∈ D | ∑ ℂ fld ↾ 𝑠 ℕ 0 g = N
mhphflem.k ⊢ B = Base G
mhphflem.e ⊢ · ˙ = ⋅ G
mhphflem.i ⊢ φ → I ∈ V
mhphflem.g ⊢ φ → G ∈ Mnd
mhphflem.l ⊢ φ → L ∈ B
mhphflem.n ⊢ φ → N ∈ ℕ 0
Assertion mhphflem ⊢ φ ∧ a ∈ H → ∑ G v ∈ I a ⁡ v · ˙ L = N · ˙ L

Proof

Step Hyp Ref Expression
1 mhphflem.d ⊢ D = h ∈ ℕ 0 I | h -1 ℕ ∈ Fin
2 mhphflem.h ⊢ H = g ∈ D | ∑ ℂ fld ↾ 𝑠 ℕ 0 g = N
3 mhphflem.k ⊢ B = Base G
4 mhphflem.e ⊢ · ˙ = ⋅ G
5 mhphflem.i ⊢ φ → I ∈ V
6 mhphflem.g ⊢ φ → G ∈ Mnd
7 mhphflem.l ⊢ φ → L ∈ B
8 mhphflem.n ⊢ φ → N ∈ ℕ 0
9 nn0subm ⊢ ℕ 0 ∈ SubMnd ⁡ ℂ fld
10 eqid ⊢ ℂ fld ↾ 𝑠 ℕ 0 = ℂ fld ↾ 𝑠 ℕ 0
11 10 submbas ⊢ ℕ 0 ∈ SubMnd ⁡ ℂ fld → ℕ 0 = Base ℂ fld ↾ 𝑠 ℕ 0
12 9 11 ax-mp ⊢ ℕ 0 = Base ℂ fld ↾ 𝑠 ℕ 0
13 cnfld0 ⊢ 0 = 0 ℂ fld
14 10 13 subm0 ⊢ ℕ 0 ∈ SubMnd ⁡ ℂ fld → 0 = 0 ℂ fld ↾ 𝑠 ℕ 0
15 9 14 ax-mp ⊢ 0 = 0 ℂ fld ↾ 𝑠 ℕ 0
16 cnring ⊢ ℂ fld ∈ Ring
17 ringcmn ⊢ ℂ fld ∈ Ring → ℂ fld ∈ CMnd
18 16 17 ax-mp ⊢ ℂ fld ∈ CMnd
19 10 submcmn ⊢ ℂ fld ∈ CMnd ∧ ℕ 0 ∈ SubMnd ⁡ ℂ fld → ℂ fld ↾ 𝑠 ℕ 0 ∈ CMnd
20 18 9 19 mp2an ⊢ ℂ fld ↾ 𝑠 ℕ 0 ∈ CMnd
21 20 a1i ⊢ φ ∧ a ∈ H → ℂ fld ↾ 𝑠 ℕ 0 ∈ CMnd
22 6 adantr ⊢ φ ∧ a ∈ H → G ∈ Mnd
23 5 adantr ⊢ φ ∧ a ∈ H → I ∈ V
24 cnfldadd ⊢ + = + ℂ fld
25 10 24 ressplusg ⊢ ℕ 0 ∈ SubMnd ⁡ ℂ fld → + = + ℂ fld ↾ 𝑠 ℕ 0
26 9 25 ax-mp ⊢ + = + ℂ fld ↾ 𝑠 ℕ 0
27 eqid ⊢ + G = + G
28 eqid ⊢ 0 G = 0 G
29 10 submmnd ⊢ ℕ 0 ∈ SubMnd ⁡ ℂ fld → ℂ fld ↾ 𝑠 ℕ 0 ∈ Mnd
30 9 29 mp1i ⊢ φ ∧ a ∈ H → ℂ fld ↾ 𝑠 ℕ 0 ∈ Mnd
31 6 ad2antrr ⊢ φ ∧ a ∈ H ∧ n ∈ ℕ 0 → G ∈ Mnd
32 simpr ⊢ φ ∧ a ∈ H ∧ n ∈ ℕ 0 → n ∈ ℕ 0
33 7 ad2antrr ⊢ φ ∧ a ∈ H ∧ n ∈ ℕ 0 → L ∈ B
34 3 4 31 32 33 mulgnn0cld ⊢ φ ∧ a ∈ H ∧ n ∈ ℕ 0 → n · ˙ L ∈ B
35 34 fmpttd ⊢ φ ∧ a ∈ H → n ∈ ℕ 0 ⟼ n · ˙ L : ℕ 0 ⟶ B
36 6 ad2antrr ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → G ∈ Mnd
37 simprl ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x ∈ ℕ 0
38 simprr ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → y ∈ ℕ 0
39 7 ad2antrr ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → L ∈ B
40 3 4 27 mulgnn0dir ⊢ G ∈ Mnd ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 ∧ L ∈ B → x + y · ˙ L = x · ˙ L + G y · ˙ L
41 36 37 38 39 40 syl13anc ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x + y · ˙ L = x · ˙ L + G y · ˙ L
42 eqid ⊢ n ∈ ℕ 0 ⟼ n · ˙ L = n ∈ ℕ 0 ⟼ n · ˙ L
43 oveq1 ⊢ n = x + y → n · ˙ L = x + y · ˙ L
44 nn0addcl ⊢ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x + y ∈ ℕ 0
45 44 adantl ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x + y ∈ ℕ 0
46 ovexd ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x + y · ˙ L ∈ V
47 42 43 45 46 fvmptd3 ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ x + y = x + y · ˙ L
48 oveq1 ⊢ n = x → n · ˙ L = x · ˙ L
49 ovexd ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → x · ˙ L ∈ V
50 42 48 37 49 fvmptd3 ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ x = x · ˙ L
51 oveq1 ⊢ n = y → n · ˙ L = y · ˙ L
52 ovexd ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → y · ˙ L ∈ V
53 42 51 38 52 fvmptd3 ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ y = y · ˙ L
54 50 53 oveq12d ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ x + G n ∈ ℕ 0 ⟼ n · ˙ L ⁡ y = x · ˙ L + G y · ˙ L
55 41 47 54 3eqtr4d ⊢ φ ∧ a ∈ H ∧ x ∈ ℕ 0 ∧ y ∈ ℕ 0 → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ x + y = n ∈ ℕ 0 ⟼ n · ˙ L ⁡ x + G n ∈ ℕ 0 ⟼ n · ˙ L ⁡ y
56 oveq1 ⊢ n = 0 → n · ˙ L = 0 · ˙ L
57 0nn0 ⊢ 0 ∈ ℕ 0
58 57 a1i ⊢ φ ∧ a ∈ H → 0 ∈ ℕ 0
59 ovexd ⊢ φ ∧ a ∈ H → 0 · ˙ L ∈ V
60 42 56 58 59 fvmptd3 ⊢ φ ∧ a ∈ H → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ 0 = 0 · ˙ L
61 7 adantr ⊢ φ ∧ a ∈ H → L ∈ B
62 3 28 4 mulg0 ⊢ L ∈ B → 0 · ˙ L = 0 G
63 61 62 syl ⊢ φ ∧ a ∈ H → 0 · ˙ L = 0 G
64 60 63 eqtrd ⊢ φ ∧ a ∈ H → n ∈ ℕ 0 ⟼ n · ˙ L ⁡ 0 = 0 G
65 12 3 26 27 15 28 30 22 35 55 64 ismhmd ⊢ φ ∧ a ∈ H → n ∈ ℕ 0 ⟼ n · ˙ L ∈ ℂ fld ↾ 𝑠 ℕ 0 MndHom G
66 elrabi ⊢ a ∈ g ∈ D | ∑ ℂ fld ↾ 𝑠 ℕ 0 g = N → a ∈ D
67 66 2 eleq2s ⊢ a ∈ H → a ∈ D
68 67 adantl ⊢ φ ∧ a ∈ H → a ∈ D
69 1 psrbagf ⊢ a ∈ D → a : I ⟶ ℕ 0
70 68 69 syl ⊢ φ ∧ a ∈ H → a : I ⟶ ℕ 0
71 70 ffvelcdmda ⊢ φ ∧ a ∈ H ∧ v ∈ I → a ⁡ v ∈ ℕ 0
72 70 feqmptd ⊢ φ ∧ a ∈ H → a = v ∈ I ⟼ a ⁡ v
73 1 psrbagfsupp ⊢ a ∈ D → finSupp 0 ⁡ a
74 68 73 syl ⊢ φ ∧ a ∈ H → finSupp 0 ⁡ a
75 72 74 eqbrtrrd ⊢ φ ∧ a ∈ H → finSupp 0 ⁡ v ∈ I ⟼ a ⁡ v
76 oveq1 ⊢ n = a ⁡ v → n · ˙ L = a ⁡ v · ˙ L
77 oveq1 ⊢ n = ∑ ℂ fld ↾ 𝑠 ℕ 0 v ∈ I a ⁡ v → n · ˙ L = ∑ ℂ fld ↾ 𝑠 ℕ 0 v ∈ I a ⁡ v · ˙ L
78 12 15 21 22 23 65 71 75 76 77 gsummhm2 ⊢ φ ∧ a ∈ H → ∑ G v ∈ I a ⁡ v · ˙ L = ∑ ℂ fld ↾ 𝑠 ℕ 0 v ∈ I a ⁡ v · ˙ L
79 72 oveq2d ⊢ φ ∧ a ∈ H → ∑ ℂ fld ↾ 𝑠 ℕ 0 a = ∑ ℂ fld ↾ 𝑠 ℕ 0 v ∈ I a ⁡ v
80 oveq2 ⊢ g = a → ∑ ℂ fld ↾ 𝑠 ℕ 0 g = ∑ ℂ fld ↾ 𝑠 ℕ 0 a
81 80 eqeq1d ⊢ g = a → ∑ ℂ fld ↾ 𝑠 ℕ 0 g = N ↔ ∑ ℂ fld ↾ 𝑠 ℕ 0 a = N
82 81 2 elrab2 ⊢ a ∈ H ↔ a ∈ D ∧ ∑ ℂ fld ↾ 𝑠 ℕ 0 a = N
83 82 simprbi ⊢ a ∈ H → ∑ ℂ fld ↾ 𝑠 ℕ 0 a = N
84 83 adantl ⊢ φ ∧ a ∈ H → ∑ ℂ fld ↾ 𝑠 ℕ 0 a = N
85 79 84 eqtr3d ⊢ φ ∧ a ∈ H → ∑ ℂ fld ↾ 𝑠 ℕ 0 v ∈ I a ⁡ v = N
86 85 oveq1d ⊢ φ ∧ a ∈ H → ∑ ℂ fld ↾ 𝑠 ℕ 0 v ∈ I a ⁡ v · ˙ L = N · ˙ L
87 78 86 eqtrd ⊢ φ ∧ a ∈ H → ∑ G v ∈ I a ⁡ v · ˙ L = N · ˙ L