Step | Hyp | Ref
| Expression |
1 | | nn0subm 20653 |
. . . 4
⊢
ℕ0 ∈
(SubMnd‘ℂfld) |
2 | | eqid 2738 |
. . . . 5
⊢
(ℂfld ↾s ℕ0) =
(ℂfld ↾s
ℕ0) |
3 | 2 | submbas 18453 |
. . . 4
⊢
(ℕ0 ∈ (SubMnd‘ℂfld) →
ℕ0 = (Base‘(ℂfld ↾s
ℕ0))) |
4 | 1, 3 | ax-mp 5 |
. . 3
⊢
ℕ0 = (Base‘(ℂfld
↾s ℕ0)) |
5 | | cnfld0 20622 |
. . . . 5
⊢ 0 =
(0g‘ℂfld) |
6 | 2, 5 | subm0 18454 |
. . . 4
⊢
(ℕ0 ∈ (SubMnd‘ℂfld) →
0 = (0g‘(ℂfld ↾s
ℕ0))) |
7 | 1, 6 | ax-mp 5 |
. . 3
⊢ 0 =
(0g‘(ℂfld ↾s
ℕ0)) |
8 | | cnring 20620 |
. . . . . 6
⊢
ℂfld ∈ Ring |
9 | | ringcmn 19820 |
. . . . . 6
⊢
(ℂfld ∈ Ring → ℂfld ∈
CMnd) |
10 | 8, 9 | ax-mp 5 |
. . . . 5
⊢
ℂfld ∈ CMnd |
11 | 2 | submcmn 19439 |
. . . . 5
⊢
((ℂfld ∈ CMnd ∧ ℕ0 ∈
(SubMnd‘ℂfld)) → (ℂfld
↾s ℕ0) ∈ CMnd) |
12 | 10, 1, 11 | mp2an 689 |
. . . 4
⊢
(ℂfld ↾s ℕ0) ∈
CMnd |
13 | 12 | a1i 11 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (ℂfld
↾s ℕ0) ∈ CMnd) |
14 | | mhphflem.g |
. . . 4
⊢ (𝜑 → 𝐺 ∈ Mnd) |
15 | 14 | adantr 481 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝐺 ∈ Mnd) |
16 | | mhphflem.i |
. . . 4
⊢ (𝜑 → 𝐼 ∈ 𝑉) |
17 | 16 | adantr 481 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝐼 ∈ 𝑉) |
18 | | mhphflem.k |
. . . 4
⊢ 𝐵 = (Base‘𝐺) |
19 | | cnfldadd 20602 |
. . . . . 6
⊢ + =
(+g‘ℂfld) |
20 | 2, 19 | ressplusg 17000 |
. . . . 5
⊢
(ℕ0 ∈ (SubMnd‘ℂfld) →
+ = (+g‘(ℂfld ↾s
ℕ0))) |
21 | 1, 20 | ax-mp 5 |
. . . 4
⊢ + =
(+g‘(ℂfld ↾s
ℕ0)) |
22 | | eqid 2738 |
. . . 4
⊢
(+g‘𝐺) = (+g‘𝐺) |
23 | | eqid 2738 |
. . . 4
⊢
(0g‘𝐺) = (0g‘𝐺) |
24 | 2 | submmnd 18452 |
. . . . 5
⊢
(ℕ0 ∈ (SubMnd‘ℂfld) →
(ℂfld ↾s ℕ0) ∈
Mnd) |
25 | 1, 24 | mp1i 13 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (ℂfld
↾s ℕ0) ∈ Mnd) |
26 | 14 | ad2antrr 723 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ 𝑛 ∈ ℕ0) → 𝐺 ∈ Mnd) |
27 | | simpr 485 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ 𝑛 ∈ ℕ0) → 𝑛 ∈
ℕ0) |
28 | | mhphflem.l |
. . . . . . 7
⊢ (𝜑 → 𝐿 ∈ 𝐵) |
29 | 28 | ad2antrr 723 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ 𝑛 ∈ ℕ0) → 𝐿 ∈ 𝐵) |
30 | | mhphflem.e |
. . . . . . 7
⊢ · =
(.g‘𝐺) |
31 | 18, 30 | mulgnn0cl 18720 |
. . . . . 6
⊢ ((𝐺 ∈ Mnd ∧ 𝑛 ∈ ℕ0
∧ 𝐿 ∈ 𝐵) → (𝑛 · 𝐿) ∈ 𝐵) |
32 | 26, 27, 29, 31 | syl3anc 1370 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ 𝑛 ∈ ℕ0) → (𝑛 · 𝐿) ∈ 𝐵) |
33 | 32 | fmpttd 6989 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿)):ℕ0⟶𝐵) |
34 | 14 | ad2antrr 723 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ 𝐺 ∈
Mnd) |
35 | | simprl 768 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ 𝑥 ∈
ℕ0) |
36 | | simprr 770 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ 𝑦 ∈
ℕ0) |
37 | 28 | ad2antrr 723 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ 𝐿 ∈ 𝐵) |
38 | 18, 30, 22 | mulgnn0dir 18733 |
. . . . . 6
⊢ ((𝐺 ∈ Mnd ∧ (𝑥 ∈ ℕ0
∧ 𝑦 ∈
ℕ0 ∧ 𝐿
∈ 𝐵)) → ((𝑥 + 𝑦) · 𝐿) = ((𝑥 · 𝐿)(+g‘𝐺)(𝑦 · 𝐿))) |
39 | 34, 35, 36, 37, 38 | syl13anc 1371 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ ((𝑥 + 𝑦) · 𝐿) = ((𝑥 · 𝐿)(+g‘𝐺)(𝑦 · 𝐿))) |
40 | | eqid 2738 |
. . . . . 6
⊢ (𝑛 ∈ ℕ0
↦ (𝑛 · 𝐿)) = (𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿)) |
41 | | oveq1 7282 |
. . . . . 6
⊢ (𝑛 = (𝑥 + 𝑦) → (𝑛 · 𝐿) = ((𝑥 + 𝑦) · 𝐿)) |
42 | | nn0addcl 12268 |
. . . . . . 7
⊢ ((𝑥 ∈ ℕ0
∧ 𝑦 ∈
ℕ0) → (𝑥 + 𝑦) ∈
ℕ0) |
43 | 42 | adantl 482 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ (𝑥 + 𝑦) ∈
ℕ0) |
44 | | ovexd 7310 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ ((𝑥 + 𝑦) · 𝐿) ∈ V) |
45 | 40, 41, 43, 44 | fvmptd3 6898 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ ((𝑛 ∈
ℕ0 ↦ (𝑛 · 𝐿))‘(𝑥 + 𝑦)) = ((𝑥 + 𝑦) · 𝐿)) |
46 | | oveq1 7282 |
. . . . . . 7
⊢ (𝑛 = 𝑥 → (𝑛 · 𝐿) = (𝑥 · 𝐿)) |
47 | | ovexd 7310 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ (𝑥 · 𝐿) ∈ V) |
48 | 40, 46, 35, 47 | fvmptd3 6898 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ ((𝑛 ∈
ℕ0 ↦ (𝑛 · 𝐿))‘𝑥) = (𝑥 · 𝐿)) |
49 | | oveq1 7282 |
. . . . . . 7
⊢ (𝑛 = 𝑦 → (𝑛 · 𝐿) = (𝑦 · 𝐿)) |
50 | | ovexd 7310 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ (𝑦 · 𝐿) ∈ V) |
51 | 40, 49, 36, 50 | fvmptd3 6898 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ ((𝑛 ∈
ℕ0 ↦ (𝑛 · 𝐿))‘𝑦) = (𝑦 · 𝐿)) |
52 | 48, 51 | oveq12d 7293 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ (((𝑛 ∈
ℕ0 ↦ (𝑛 · 𝐿))‘𝑥)(+g‘𝐺)((𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿))‘𝑦)) = ((𝑥 · 𝐿)(+g‘𝐺)(𝑦 · 𝐿))) |
53 | 39, 45, 52 | 3eqtr4d 2788 |
. . . 4
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ (𝑥 ∈ ℕ0 ∧ 𝑦 ∈ ℕ0))
→ ((𝑛 ∈
ℕ0 ↦ (𝑛 · 𝐿))‘(𝑥 + 𝑦)) = (((𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿))‘𝑥)(+g‘𝐺)((𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿))‘𝑦))) |
54 | | oveq1 7282 |
. . . . . 6
⊢ (𝑛 = 0 → (𝑛 · 𝐿) = (0 · 𝐿)) |
55 | | 0nn0 12248 |
. . . . . . 7
⊢ 0 ∈
ℕ0 |
56 | 55 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 0 ∈
ℕ0) |
57 | | ovexd 7310 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (0 · 𝐿) ∈ V) |
58 | 40, 54, 56, 57 | fvmptd3 6898 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → ((𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿))‘0) = (0 · 𝐿)) |
59 | 28 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝐿 ∈ 𝐵) |
60 | 18, 23, 30 | mulg0 18707 |
. . . . . 6
⊢ (𝐿 ∈ 𝐵 → (0 · 𝐿) = (0g‘𝐺)) |
61 | 59, 60 | syl 17 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (0 · 𝐿) = (0g‘𝐺)) |
62 | 58, 61 | eqtrd 2778 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → ((𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿))‘0) = (0g‘𝐺)) |
63 | 4, 18, 21, 22, 7, 23, 25, 15, 33, 53, 62 | ismhmd 40238 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (𝑛 ∈ ℕ0 ↦ (𝑛 · 𝐿)) ∈ ((ℂfld
↾s ℕ0) MndHom 𝐺)) |
64 | | elrabi 3618 |
. . . . . . 7
⊢ (𝑎 ∈ {𝑔 ∈ 𝐷 ∣ ((ℂfld
↾s ℕ0) Σg 𝑔) = 𝑁} → 𝑎 ∈ 𝐷) |
65 | | mhphflem.h |
. . . . . . 7
⊢ 𝐻 = {𝑔 ∈ 𝐷 ∣ ((ℂfld
↾s ℕ0) Σg 𝑔) = 𝑁} |
66 | 64, 65 | eleq2s 2857 |
. . . . . 6
⊢ (𝑎 ∈ 𝐻 → 𝑎 ∈ 𝐷) |
67 | 66 | adantl 482 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝑎 ∈ 𝐷) |
68 | | mhphflem.d |
. . . . . 6
⊢ 𝐷 = {ℎ ∈ (ℕ0
↑m 𝐼)
∣ (◡ℎ “ ℕ) ∈ Fin} |
69 | 68 | psrbagf 21121 |
. . . . 5
⊢ (𝑎 ∈ 𝐷 → 𝑎:𝐼⟶ℕ0) |
70 | 67, 69 | syl 17 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝑎:𝐼⟶ℕ0) |
71 | 70 | ffvelrnda 6961 |
. . 3
⊢ (((𝜑 ∧ 𝑎 ∈ 𝐻) ∧ 𝑣 ∈ 𝐼) → (𝑎‘𝑣) ∈
ℕ0) |
72 | 70 | feqmptd 6837 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝑎 = (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣))) |
73 | 68 | psrbagfsupp 21123 |
. . . . 5
⊢ (𝑎 ∈ 𝐷 → 𝑎 finSupp 0) |
74 | 67, 73 | syl 17 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → 𝑎 finSupp 0) |
75 | 72, 74 | eqbrtrrd 5098 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣)) finSupp 0) |
76 | | oveq1 7282 |
. . 3
⊢ (𝑛 = (𝑎‘𝑣) → (𝑛 · 𝐿) = ((𝑎‘𝑣) · 𝐿)) |
77 | | oveq1 7282 |
. . 3
⊢ (𝑛 = ((ℂfld
↾s ℕ0) Σg (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣))) → (𝑛 · 𝐿) = (((ℂfld
↾s ℕ0) Σg (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣))) · 𝐿)) |
78 | 4, 7, 13, 15, 17, 63, 71, 75, 76, 77 | gsummhm2 19540 |
. 2
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (𝐺 Σg (𝑣 ∈ 𝐼 ↦ ((𝑎‘𝑣) · 𝐿))) = (((ℂfld
↾s ℕ0) Σg (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣))) · 𝐿)) |
79 | 72 | oveq2d 7291 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → ((ℂfld
↾s ℕ0) Σg 𝑎) = ((ℂfld
↾s ℕ0) Σg (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣)))) |
80 | | oveq2 7283 |
. . . . . . . 8
⊢ (𝑔 = 𝑎 → ((ℂfld
↾s ℕ0) Σg 𝑔) = ((ℂfld
↾s ℕ0) Σg 𝑎)) |
81 | 80 | eqeq1d 2740 |
. . . . . . 7
⊢ (𝑔 = 𝑎 → (((ℂfld
↾s ℕ0) Σg 𝑔) = 𝑁 ↔ ((ℂfld
↾s ℕ0) Σg 𝑎) = 𝑁)) |
82 | 81, 65 | elrab2 3627 |
. . . . . 6
⊢ (𝑎 ∈ 𝐻 ↔ (𝑎 ∈ 𝐷 ∧ ((ℂfld
↾s ℕ0) Σg 𝑎) = 𝑁)) |
83 | 82 | simprbi 497 |
. . . . 5
⊢ (𝑎 ∈ 𝐻 → ((ℂfld
↾s ℕ0) Σg 𝑎) = 𝑁) |
84 | 83 | adantl 482 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → ((ℂfld
↾s ℕ0) Σg 𝑎) = 𝑁) |
85 | 79, 84 | eqtr3d 2780 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → ((ℂfld
↾s ℕ0) Σg (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣))) = 𝑁) |
86 | 85 | oveq1d 7290 |
. 2
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (((ℂfld
↾s ℕ0) Σg (𝑣 ∈ 𝐼 ↦ (𝑎‘𝑣))) · 𝐿) = (𝑁 · 𝐿)) |
87 | 78, 86 | eqtrd 2778 |
1
⊢ ((𝜑 ∧ 𝑎 ∈ 𝐻) → (𝐺 Σg (𝑣 ∈ 𝐼 ↦ ((𝑎‘𝑣) · 𝐿))) = (𝑁 · 𝐿)) |