Step | Hyp | Ref
| Expression |
1 | | circlemethnat.r |
. . . 4
β’ π
= (β―β(π΄(reprβπ)π)) |
2 | | nnex 12214 |
. . . . . . . . . . . . . 14
β’ β
β V |
3 | | circlemethnat.a |
. . . . . . . . . . . . . 14
β’ π΄ β
β |
4 | | indf 32951 |
. . . . . . . . . . . . . 14
β’ ((β
β V β§ π΄ β
β) β ((πββ)βπ΄):ββΆ{0, 1}) |
5 | 2, 3, 4 | mp2an 691 |
. . . . . . . . . . . . 13
β’
((πββ)βπ΄):ββΆ{0, 1} |
6 | | pr01ssre 32008 |
. . . . . . . . . . . . . 14
β’ {0, 1}
β β |
7 | | ax-resscn 11163 |
. . . . . . . . . . . . . 14
β’ β
β β |
8 | 6, 7 | sstri 3990 |
. . . . . . . . . . . . 13
β’ {0, 1}
β β |
9 | | fss 6731 |
. . . . . . . . . . . . 13
β’
((((πββ)βπ΄):ββΆ{0, 1} β§ {0, 1} β
β) β ((πββ)βπ΄):ββΆβ) |
10 | 5, 8, 9 | mp2an 691 |
. . . . . . . . . . . 12
β’
((πββ)βπ΄):ββΆβ |
11 | | cnex 11187 |
. . . . . . . . . . . . 13
β’ β
β V |
12 | 11, 2 | elmap 8861 |
. . . . . . . . . . . 12
β’
(((πββ)βπ΄) β (β βm
β) β ((πββ)βπ΄):ββΆβ) |
13 | 10, 12 | mpbir 230 |
. . . . . . . . . . 11
β’
((πββ)βπ΄) β (β βm
β) |
14 | 13 | elexi 3494 |
. . . . . . . . . 10
β’
((πββ)βπ΄) β V |
15 | 14 | fvconst2 7200 |
. . . . . . . . 9
β’ (π β (0..^π) β (((0..^π) Γ
{((πββ)βπ΄)})βπ) = ((πββ)βπ΄)) |
16 | 15 | adantl 483 |
. . . . . . . 8
β’
(((β€ β§ π
β (β(reprβπ)π)) β§ π β (0..^π)) β (((0..^π) Γ
{((πββ)βπ΄)})βπ) = ((πββ)βπ΄)) |
17 | 16 | fveq1d 6890 |
. . . . . . 7
β’
(((β€ β§ π
β (β(reprβπ)π)) β§ π β (0..^π)) β ((((0..^π) Γ
{((πββ)βπ΄)})βπ)β(πβπ)) = (((πββ)βπ΄)β(πβπ))) |
18 | 17 | prodeq2dv 15863 |
. . . . . 6
β’
((β€ β§ π
β (β(reprβπ)π)) β βπ β (0..^π)((((0..^π) Γ
{((πββ)βπ΄)})βπ)β(πβπ)) = βπ β (0..^π)(((πββ)βπ΄)β(πβπ))) |
19 | 18 | sumeq2dv 15645 |
. . . . 5
β’ (β€
β Ξ£π β
(β(reprβπ)π)βπ β (0..^π)((((0..^π) Γ
{((πββ)βπ΄)})βπ)β(πβπ)) = Ξ£π β (β(reprβπ)π)βπ β (0..^π)(((πββ)βπ΄)β(πβπ))) |
20 | 3 | a1i 11 |
. . . . . 6
β’ (β€
β π΄ β
β) |
21 | | circlemethnat.n |
. . . . . . 7
β’ π β
β0 |
22 | 21 | a1i 11 |
. . . . . 6
β’ (β€
β π β
β0) |
23 | | circlemethnat.s |
. . . . . . . 8
β’ π β β |
24 | 23 | a1i 11 |
. . . . . . 7
β’ (β€
β π β
β) |
25 | 24 | nnnn0d 12528 |
. . . . . 6
β’ (β€
β π β
β0) |
26 | 20, 22, 25 | hashrepr 33575 |
. . . . 5
β’ (β€
β (β―β(π΄(reprβπ)π)) = Ξ£π β (β(reprβπ)π)βπ β (0..^π)(((πββ)βπ΄)β(πβπ))) |
27 | 19, 26 | eqtr4d 2776 |
. . . 4
β’ (β€
β Ξ£π β
(β(reprβπ)π)βπ β (0..^π)((((0..^π) Γ
{((πββ)βπ΄)})βπ)β(πβπ)) = (β―β(π΄(reprβπ)π))) |
28 | 1, 27 | eqtr4id 2792 |
. . 3
β’ (β€
β π
= Ξ£π β
(β(reprβπ)π)βπ β (0..^π)((((0..^π) Γ
{((πββ)βπ΄)})βπ)β(πβπ))) |
29 | 13 | fconst6 6778 |
. . . . 5
β’
((0..^π) Γ
{((πββ)βπ΄)}):(0..^π)βΆ(β βm
β) |
30 | 29 | a1i 11 |
. . . 4
β’ (β€
β ((0..^π) Γ
{((πββ)βπ΄)}):(0..^π)βΆ(β βm
β)) |
31 | 22, 24, 30 | circlemeth 33590 |
. . 3
β’ (β€
β Ξ£π β
(β(reprβπ)π)βπ β (0..^π)((((0..^π) Γ
{((πββ)βπ΄)})βπ)β(πβπ)) = β«(0(,)1)(βπ β (0..^π)(((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯) Β· (expβ((i Β· (2
Β· Ο)) Β· (-π Β· π₯)))) dπ₯) |
32 | | fzofi 13935 |
. . . . . . . 8
β’
(0..^π) β
Fin |
33 | 32 | a1i 11 |
. . . . . . 7
β’
((β€ β§ π₯
β (0(,)1)) β (0..^π) β Fin) |
34 | | circlemethnat.f |
. . . . . . . 8
β’ πΉ =
((((πββ)βπ΄)vtsπ)βπ₯) |
35 | 21 | a1i 11 |
. . . . . . . . 9
β’
((β€ β§ π₯
β (0(,)1)) β π
β β0) |
36 | | ioossre 13381 |
. . . . . . . . . . . 12
β’ (0(,)1)
β β |
37 | 36, 7 | sstri 3990 |
. . . . . . . . . . 11
β’ (0(,)1)
β β |
38 | 37 | a1i 11 |
. . . . . . . . . 10
β’ (β€
β (0(,)1) β β) |
39 | 38 | sselda 3981 |
. . . . . . . . 9
β’
((β€ β§ π₯
β (0(,)1)) β π₯
β β) |
40 | 10 | a1i 11 |
. . . . . . . . 9
β’
((β€ β§ π₯
β (0(,)1)) β ((πββ)βπ΄):ββΆβ) |
41 | 35, 39, 40 | vtscl 33588 |
. . . . . . . 8
β’
((β€ β§ π₯
β (0(,)1)) β ((((πββ)βπ΄)vtsπ)βπ₯) β β) |
42 | 34, 41 | eqeltrid 2838 |
. . . . . . 7
β’
((β€ β§ π₯
β (0(,)1)) β πΉ
β β) |
43 | | fprodconst 15918 |
. . . . . . 7
β’
(((0..^π) β Fin
β§ πΉ β β)
β βπ β
(0..^π)πΉ = (πΉβ(β―β(0..^π)))) |
44 | 33, 42, 43 | syl2anc 585 |
. . . . . 6
β’
((β€ β§ π₯
β (0(,)1)) β βπ β (0..^π)πΉ = (πΉβ(β―β(0..^π)))) |
45 | 15 | adantl 483 |
. . . . . . . . . 10
β’
(((β€ β§ π₯
β (0(,)1)) β§ π
β (0..^π)) β
(((0..^π) Γ
{((πββ)βπ΄)})βπ) = ((πββ)βπ΄)) |
46 | 45 | oveq1d 7419 |
. . . . . . . . 9
β’
(((β€ β§ π₯
β (0(,)1)) β§ π
β (0..^π)) β
((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ) = (((πββ)βπ΄)vtsπ)) |
47 | 46 | fveq1d 6890 |
. . . . . . . 8
β’
(((β€ β§ π₯
β (0(,)1)) β§ π
β (0..^π)) β
(((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯) = ((((πββ)βπ΄)vtsπ)βπ₯)) |
48 | 34, 47 | eqtr4id 2792 |
. . . . . . 7
β’
(((β€ β§ π₯
β (0(,)1)) β§ π
β (0..^π)) β
πΉ = (((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯)) |
49 | 48 | prodeq2dv 15863 |
. . . . . 6
β’
((β€ β§ π₯
β (0(,)1)) β βπ β (0..^π)πΉ = βπ β (0..^π)(((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯)) |
50 | 25 | adantr 482 |
. . . . . . . 8
β’
((β€ β§ π₯
β (0(,)1)) β π
β β0) |
51 | | hashfzo0 14386 |
. . . . . . . 8
β’ (π β β0
β (β―β(0..^π)) = π) |
52 | 50, 51 | syl 17 |
. . . . . . 7
β’
((β€ β§ π₯
β (0(,)1)) β (β―β(0..^π)) = π) |
53 | 52 | oveq2d 7420 |
. . . . . 6
β’
((β€ β§ π₯
β (0(,)1)) β (πΉβ(β―β(0..^π))) = (πΉβπ)) |
54 | 44, 49, 53 | 3eqtr3d 2781 |
. . . . 5
β’
((β€ β§ π₯
β (0(,)1)) β βπ β (0..^π)(((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯) = (πΉβπ)) |
55 | 54 | oveq1d 7419 |
. . . 4
β’
((β€ β§ π₯
β (0(,)1)) β (βπ β (0..^π)(((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯) Β· (expβ((i Β· (2
Β· Ο)) Β· (-π Β· π₯)))) = ((πΉβπ) Β· (expβ((i Β· (2
Β· Ο)) Β· (-π Β· π₯))))) |
56 | 55 | itgeq2dv 25281 |
. . 3
β’ (β€
β β«(0(,)1)(βπ β (0..^π)(((((0..^π) Γ
{((πββ)βπ΄)})βπ)vtsπ)βπ₯) Β· (expβ((i Β· (2
Β· Ο)) Β· (-π Β· π₯)))) dπ₯ = β«(0(,)1)((πΉβπ) Β· (expβ((i Β· (2
Β· Ο)) Β· (-π Β· π₯)))) dπ₯) |
57 | 28, 31, 56 | 3eqtrd 2777 |
. 2
β’ (β€
β π
=
β«(0(,)1)((πΉβπ) Β· (expβ((i
Β· (2 Β· Ο)) Β· (-π Β· π₯)))) dπ₯) |
58 | 57 | mptru 1549 |
1
β’ π
= β«(0(,)1)((πΉβπ) Β· (expβ((i Β· (2
Β· Ο)) Β· (-π Β· π₯)))) dπ₯ |