Step | Hyp | Ref
| Expression |
1 | | vtsval.n |
. . 3
⊢ (𝜑 → 𝑁 ∈
ℕ0) |
2 | | vtsprod.s |
. . 3
⊢ (𝜑 → 𝑆 ∈
ℕ0) |
3 | | ax-icn 10861 |
. . . . . . 7
⊢ i ∈
ℂ |
4 | 3 | a1i 11 |
. . . . . 6
⊢ (𝜑 → i ∈
ℂ) |
5 | | 2cnd 11981 |
. . . . . . 7
⊢ (𝜑 → 2 ∈
ℂ) |
6 | | picn 25521 |
. . . . . . . 8
⊢ π
∈ ℂ |
7 | 6 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → π ∈
ℂ) |
8 | 5, 7 | mulcld 10926 |
. . . . . 6
⊢ (𝜑 → (2 · π) ∈
ℂ) |
9 | 4, 8 | mulcld 10926 |
. . . . 5
⊢ (𝜑 → (i · (2 ·
π)) ∈ ℂ) |
10 | | vtsval.x |
. . . . 5
⊢ (𝜑 → 𝑋 ∈ ℂ) |
11 | 9, 10 | mulcld 10926 |
. . . 4
⊢ (𝜑 → ((i · (2 ·
π)) · 𝑋) ∈
ℂ) |
12 | 11 | efcld 32471 |
. . 3
⊢ (𝜑 → (exp‘((i · (2
· π)) · 𝑋)) ∈ ℂ) |
13 | | vtsprod.l |
. . 3
⊢ (𝜑 → 𝐿:(0..^𝑆)⟶(ℂ ↑m
ℕ)) |
14 | 1, 2, 12, 13 | breprexp 32513 |
. 2
⊢ (𝜑 → ∏𝑎 ∈ (0..^𝑆)Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏)) = Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
15 | 1 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑁 ∈
ℕ0) |
16 | 10 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → 𝑋 ∈ ℂ) |
17 | 13 | ffvelrnda 6943 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (𝐿‘𝑎) ∈ (ℂ ↑m
ℕ)) |
18 | | elmapi 8595 |
. . . . . 6
⊢ ((𝐿‘𝑎) ∈ (ℂ ↑m ℕ)
→ (𝐿‘𝑎):ℕ⟶ℂ) |
19 | 17, 18 | syl 17 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (𝐿‘𝑎):ℕ⟶ℂ) |
20 | 15, 16, 19 | vtsval 32517 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (((𝐿‘𝑎)vts𝑁)‘𝑋) = Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · (exp‘((i · (2
· π)) · (𝑏
· 𝑋))))) |
21 | | fzssz 13187 |
. . . . . . . . . . 11
⊢
(1...𝑁) ⊆
ℤ |
22 | | simpr 484 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ (1...𝑁)) |
23 | 21, 22 | sselid 3915 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ ℤ) |
24 | 23 | zcnd 12356 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ ℂ) |
25 | 9 | ad2antrr 722 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (i · (2 · π))
∈ ℂ) |
26 | 16 | adantr 480 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑋 ∈ ℂ) |
27 | 24, 25, 26 | mul12d 11114 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (𝑏 · ((i · (2 · π))
· 𝑋)) = ((i ·
(2 · π)) · (𝑏 · 𝑋))) |
28 | 27 | fveq2d 6760 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (exp‘(𝑏 · ((i · (2 · π))
· 𝑋))) =
(exp‘((i · (2 · π)) · (𝑏 · 𝑋)))) |
29 | 11 | ad2antrr 722 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → ((i · (2 · π))
· 𝑋) ∈
ℂ) |
30 | | efexp 15738 |
. . . . . . . 8
⊢ ((((i
· (2 · π)) · 𝑋) ∈ ℂ ∧ 𝑏 ∈ ℤ) → (exp‘(𝑏 · ((i · (2
· π)) · 𝑋))) = ((exp‘((i · (2 ·
π)) · 𝑋))↑𝑏)) |
31 | 29, 23, 30 | syl2anc 583 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (exp‘(𝑏 · ((i · (2 · π))
· 𝑋))) =
((exp‘((i · (2 · π)) · 𝑋))↑𝑏)) |
32 | 28, 31 | eqtr3d 2780 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (exp‘((i · (2
· π)) · (𝑏
· 𝑋))) =
((exp‘((i · (2 · π)) · 𝑋))↑𝑏)) |
33 | 32 | oveq2d 7271 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (((𝐿‘𝑎)‘𝑏) · (exp‘((i · (2
· π)) · (𝑏
· 𝑋)))) = (((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
34 | 33 | sumeq2dv 15343 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · (exp‘((i · (2
· π)) · (𝑏
· 𝑋)))) =
Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
35 | 20, 34 | eqtrd 2778 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (((𝐿‘𝑎)vts𝑁)‘𝑋) = Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
36 | 35 | prodeq2dv 15561 |
. 2
⊢ (𝜑 → ∏𝑎 ∈ (0..^𝑆)(((𝐿‘𝑎)vts𝑁)‘𝑋) = ∏𝑎 ∈ (0..^𝑆)Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
37 | | fzssz 13187 |
. . . . . . . . . . 11
⊢
(0...(𝑆 ·
𝑁)) ⊆
ℤ |
38 | | simpr 484 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) → 𝑚 ∈ (0...(𝑆 · 𝑁))) |
39 | 37, 38 | sselid 3915 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) → 𝑚 ∈ ℤ) |
40 | 39 | adantr 480 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → 𝑚 ∈ ℤ) |
41 | 40 | zcnd 12356 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → 𝑚 ∈ ℂ) |
42 | 9 | ad2antrr 722 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (i · (2 · π))
∈ ℂ) |
43 | 10 | ad2antrr 722 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → 𝑋 ∈ ℂ) |
44 | 41, 42, 43 | mul12d 11114 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (𝑚 · ((i · (2 · π))
· 𝑋)) = ((i ·
(2 · π)) · (𝑚 · 𝑋))) |
45 | 44 | fveq2d 6760 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (exp‘(𝑚 · ((i · (2 · π))
· 𝑋))) =
(exp‘((i · (2 · π)) · (𝑚 · 𝑋)))) |
46 | 11 | ad2antrr 722 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → ((i · (2 · π))
· 𝑋) ∈
ℂ) |
47 | | efexp 15738 |
. . . . . . 7
⊢ ((((i
· (2 · π)) · 𝑋) ∈ ℂ ∧ 𝑚 ∈ ℤ) → (exp‘(𝑚 · ((i · (2
· π)) · 𝑋))) = ((exp‘((i · (2 ·
π)) · 𝑋))↑𝑚)) |
48 | 46, 40, 47 | syl2anc 583 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (exp‘(𝑚 · ((i · (2 · π))
· 𝑋))) =
((exp‘((i · (2 · π)) · 𝑋))↑𝑚)) |
49 | 45, 48 | eqtr3d 2780 |
. . . . 5
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (exp‘((i · (2 ·
π)) · (𝑚 ·
𝑋))) = ((exp‘((i
· (2 · π)) · 𝑋))↑𝑚)) |
50 | 49 | oveq2d 7271 |
. . . 4
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋)))) =
(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
51 | 50 | sumeq2dv 15343 |
. . 3
⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) → Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋)))) =
Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
52 | 51 | sumeq2dv 15343 |
. 2
⊢ (𝜑 → Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋)))) =
Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
53 | 14, 36, 52 | 3eqtr4d 2788 |
1
⊢ (𝜑 → ∏𝑎 ∈ (0..^𝑆)(((𝐿‘𝑎)vts𝑁)‘𝑋) = Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋))))) |