| Step | Hyp | Ref
| Expression |
| 1 | | vtsval.n |
. . 3
⊢ (𝜑 → 𝑁 ∈
ℕ0) |
| 2 | | vtsprod.s |
. . 3
⊢ (𝜑 → 𝑆 ∈
ℕ0) |
| 3 | | ax-icn 11195 |
. . . . . . 7
⊢ i ∈
ℂ |
| 4 | 3 | a1i 11 |
. . . . . 6
⊢ (𝜑 → i ∈
ℂ) |
| 5 | | 2cnd 12325 |
. . . . . . 7
⊢ (𝜑 → 2 ∈
ℂ) |
| 6 | | picn 26436 |
. . . . . . . 8
⊢ π
∈ ℂ |
| 7 | 6 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → π ∈
ℂ) |
| 8 | 5, 7 | mulcld 11262 |
. . . . . 6
⊢ (𝜑 → (2 · π) ∈
ℂ) |
| 9 | 4, 8 | mulcld 11262 |
. . . . 5
⊢ (𝜑 → (i · (2 ·
π)) ∈ ℂ) |
| 10 | | vtsval.x |
. . . . 5
⊢ (𝜑 → 𝑋 ∈ ℂ) |
| 11 | 9, 10 | mulcld 11262 |
. . . 4
⊢ (𝜑 → ((i · (2 ·
π)) · 𝑋) ∈
ℂ) |
| 12 | 11 | efcld 16100 |
. . 3
⊢ (𝜑 → (exp‘((i · (2
· π)) · 𝑋)) ∈ ℂ) |
| 13 | | vtsprod.l |
. . 3
⊢ (𝜑 → 𝐿:(0..^𝑆)⟶(ℂ ↑m
ℕ)) |
| 14 | 1, 2, 12, 13 | breprexp 34582 |
. 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 | ffvelcdmda 7083 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (𝐿‘𝑎) ∈ (ℂ ↑m
ℕ)) |
| 18 | | elmapi 8870 |
. . . . . 6
⊢ ((𝐿‘𝑎) ∈ (ℂ ↑m ℕ)
→ (𝐿‘𝑎):ℕ⟶ℂ) |
| 19 | 17, 18 | syl 17 |
. . . . 5
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (𝐿‘𝑎):ℕ⟶ℂ) |
| 20 | 15, 16, 19 | vtsval 34586 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (((𝐿‘𝑎)vts𝑁)‘𝑋) = Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · (exp‘((i · (2
· π)) · (𝑏
· 𝑋))))) |
| 21 | | fzssz 13547 |
. . . . . . . . . . 11
⊢
(1...𝑁) ⊆
ℤ |
| 22 | | simpr 484 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ (1...𝑁)) |
| 23 | 21, 22 | sselid 3961 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ ℤ) |
| 24 | 23 | zcnd 12705 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑏 ∈ ℂ) |
| 25 | 9 | ad2antrr 726 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (i · (2 · π))
∈ ℂ) |
| 26 | 16 | adantr 480 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → 𝑋 ∈ ℂ) |
| 27 | 24, 25, 26 | mul12d 11451 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (𝑏 · ((i · (2 · π))
· 𝑋)) = ((i ·
(2 · π)) · (𝑏 · 𝑋))) |
| 28 | 27 | fveq2d 6889 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (exp‘(𝑏 · ((i · (2 · π))
· 𝑋))) =
(exp‘((i · (2 · π)) · (𝑏 · 𝑋)))) |
| 29 | 11 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → ((i · (2 · π))
· 𝑋) ∈
ℂ) |
| 30 | | efexp 16118 |
. . . . . . . 8
⊢ ((((i
· (2 · π)) · 𝑋) ∈ ℂ ∧ 𝑏 ∈ ℤ) → (exp‘(𝑏 · ((i · (2
· π)) · 𝑋))) = ((exp‘((i · (2 ·
π)) · 𝑋))↑𝑏)) |
| 31 | 29, 23, 30 | syl2anc 584 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (exp‘(𝑏 · ((i · (2 · π))
· 𝑋))) =
((exp‘((i · (2 · π)) · 𝑋))↑𝑏)) |
| 32 | 28, 31 | eqtr3d 2771 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (exp‘((i · (2
· π)) · (𝑏
· 𝑋))) =
((exp‘((i · (2 · π)) · 𝑋))↑𝑏)) |
| 33 | 32 | oveq2d 7428 |
. . . . 5
⊢ (((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) ∧ 𝑏 ∈ (1...𝑁)) → (((𝐿‘𝑎)‘𝑏) · (exp‘((i · (2
· π)) · (𝑏
· 𝑋)))) = (((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
| 34 | 33 | sumeq2dv 15719 |
. . . 4
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · (exp‘((i · (2
· π)) · (𝑏
· 𝑋)))) =
Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
| 35 | 20, 34 | eqtrd 2769 |
. . 3
⊢ ((𝜑 ∧ 𝑎 ∈ (0..^𝑆)) → (((𝐿‘𝑎)vts𝑁)‘𝑋) = Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
| 36 | 35 | prodeq2dv 15939 |
. 2
⊢ (𝜑 → ∏𝑎 ∈ (0..^𝑆)(((𝐿‘𝑎)vts𝑁)‘𝑋) = ∏𝑎 ∈ (0..^𝑆)Σ𝑏 ∈ (1...𝑁)(((𝐿‘𝑎)‘𝑏) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑏))) |
| 37 | | fzssz 13547 |
. . . . . . . . . . 11
⊢
(0...(𝑆 ·
𝑁)) ⊆
ℤ |
| 38 | | simpr 484 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) → 𝑚 ∈ (0...(𝑆 · 𝑁))) |
| 39 | 37, 38 | sselid 3961 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) → 𝑚 ∈ ℤ) |
| 40 | 39 | adantr 480 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → 𝑚 ∈ ℤ) |
| 41 | 40 | zcnd 12705 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → 𝑚 ∈ ℂ) |
| 42 | 9 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (i · (2 · π))
∈ ℂ) |
| 43 | 10 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → 𝑋 ∈ ℂ) |
| 44 | 41, 42, 43 | mul12d 11451 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (𝑚 · ((i · (2 · π))
· 𝑋)) = ((i ·
(2 · π)) · (𝑚 · 𝑋))) |
| 45 | 44 | fveq2d 6889 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (exp‘(𝑚 · ((i · (2 · π))
· 𝑋))) =
(exp‘((i · (2 · π)) · (𝑚 · 𝑋)))) |
| 46 | 11 | ad2antrr 726 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → ((i · (2 · π))
· 𝑋) ∈
ℂ) |
| 47 | | efexp 16118 |
. . . . . . 7
⊢ ((((i
· (2 · π)) · 𝑋) ∈ ℂ ∧ 𝑚 ∈ ℤ) → (exp‘(𝑚 · ((i · (2
· π)) · 𝑋))) = ((exp‘((i · (2 ·
π)) · 𝑋))↑𝑚)) |
| 48 | 46, 40, 47 | syl2anc 584 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (exp‘(𝑚 · ((i · (2 · π))
· 𝑋))) =
((exp‘((i · (2 · π)) · 𝑋))↑𝑚)) |
| 49 | 45, 48 | eqtr3d 2771 |
. . . . 5
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (exp‘((i · (2 ·
π)) · (𝑚 ·
𝑋))) = ((exp‘((i
· (2 · π)) · 𝑋))↑𝑚)) |
| 50 | 49 | oveq2d 7428 |
. . . 4
⊢ (((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) ∧ 𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)) → (∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋)))) =
(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
| 51 | 50 | sumeq2dv 15719 |
. . 3
⊢ ((𝜑 ∧ 𝑚 ∈ (0...(𝑆 · 𝑁))) → Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋)))) =
Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
| 52 | 51 | sumeq2dv 15719 |
. 2
⊢ (𝜑 → Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋)))) =
Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · ((exp‘((i · (2
· π)) · 𝑋))↑𝑚))) |
| 53 | 14, 36, 52 | 3eqtr4d 2779 |
1
⊢ (𝜑 → ∏𝑎 ∈ (0..^𝑆)(((𝐿‘𝑎)vts𝑁)‘𝑋) = Σ𝑚 ∈ (0...(𝑆 · 𝑁))Σ𝑐 ∈ ((1...𝑁)(repr‘𝑆)𝑚)(∏𝑎 ∈ (0..^𝑆)((𝐿‘𝑎)‘(𝑐‘𝑎)) · (exp‘((i · (2
· π)) · (𝑚
· 𝑋))))) |