Step | Hyp | Ref
| Expression |
1 | | fourierdlem66.a |
. . . . . . . 8
β’ π΄ = ((-Ο[,]Ο) β
{0}) |
2 | 1 | eqimssi 4042 |
. . . . . . 7
β’ π΄ β ((-Ο[,]Ο) β
{0}) |
3 | | difss 4131 |
. . . . . . 7
β’
((-Ο[,]Ο) β {0}) β (-Ο[,]Ο) |
4 | 2, 3 | sstri 3991 |
. . . . . 6
β’ π΄ β
(-Ο[,]Ο) |
5 | 4 | a1i 11 |
. . . . 5
β’ (π β π΄ β (-Ο[,]Ο)) |
6 | 5 | sselda 3982 |
. . . 4
β’ ((π β§ π β π΄) β π β (-Ο[,]Ο)) |
7 | 6 | adantlr 714 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β π β (-Ο[,]Ο)) |
8 | | fourierdlem66.f |
. . . . . . . 8
β’ (π β πΉ:ββΆβ) |
9 | 8 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β) β πΉ:ββΆβ) |
10 | | fourierdlem66.x |
. . . . . . . 8
β’ (π β π β β) |
11 | 10 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β) β π β β) |
12 | | fourierdlem66.y |
. . . . . . . 8
β’ (π β π β β) |
13 | 12 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β) β π β β) |
14 | | fourierdlem66.w |
. . . . . . . 8
β’ (π β π β β) |
15 | 14 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β β) β π β β) |
16 | | fourierdlem66.h |
. . . . . . 7
β’ π» = (π β (-Ο[,]Ο) β¦ if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
17 | | fourierdlem66.k |
. . . . . . 7
β’ πΎ = (π β (-Ο[,]Ο) β¦ if(π = 0, 1, (π / (2 Β· (sinβ(π / 2)))))) |
18 | | fourierdlem66.u |
. . . . . . 7
β’ π = (π β (-Ο[,]Ο) β¦ ((π»βπ ) Β· (πΎβπ ))) |
19 | 9, 11, 13, 15, 16, 17, 18 | fourierdlem55 44864 |
. . . . . 6
β’ ((π β§ π β β) β π:(-Ο[,]Ο)βΆβ) |
20 | 19 | adantr 482 |
. . . . 5
β’ (((π β§ π β β) β§ π β π΄) β π:(-Ο[,]Ο)βΆβ) |
21 | 20, 7 | ffvelcdmd 7085 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β (πβπ ) β β) |
22 | | nnre 12216 |
. . . . . . 7
β’ (π β β β π β
β) |
23 | | fourierdlem66.s |
. . . . . . . 8
β’ π = (π β (-Ο[,]Ο) β¦
(sinβ((π + (1 / 2))
Β· π ))) |
24 | 23 | fourierdlem5 44815 |
. . . . . . 7
β’ (π β β β π:(-Ο[,]Ο)βΆβ) |
25 | 22, 24 | syl 17 |
. . . . . 6
β’ (π β β β π:(-Ο[,]Ο)βΆβ) |
26 | 25 | ad2antlr 726 |
. . . . 5
β’ (((π β§ π β β) β§ π β π΄) β π:(-Ο[,]Ο)βΆβ) |
27 | 26, 7 | ffvelcdmd 7085 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β (πβπ ) β β) |
28 | 21, 27 | remulcld 11241 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β ((πβπ ) Β· (πβπ )) β β) |
29 | | fourierdlem66.g |
. . . 4
β’ πΊ = (π β (-Ο[,]Ο) β¦ ((πβπ ) Β· (πβπ ))) |
30 | 29 | fvmpt2 7007 |
. . 3
β’ ((π β (-Ο[,]Ο) β§
((πβπ ) Β· (πβπ )) β β) β (πΊβπ ) = ((πβπ ) Β· (πβπ ))) |
31 | 7, 28, 30 | syl2anc 585 |
. 2
β’ (((π β§ π β β) β§ π β π΄) β (πΊβπ ) = ((πβπ ) Β· (πβπ ))) |
32 | 8, 10, 12, 14, 16 | fourierdlem9 44819 |
. . . . . . . . 9
β’ (π β π»:(-Ο[,]Ο)βΆβ) |
33 | 32 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β π΄) β π»:(-Ο[,]Ο)βΆβ) |
34 | 33, 6 | ffvelcdmd 7085 |
. . . . . . 7
β’ ((π β§ π β π΄) β (π»βπ ) β β) |
35 | 17 | fourierdlem43 44853 |
. . . . . . . . 9
β’ πΎ:(-Ο[,]Ο)βΆβ |
36 | 35 | a1i 11 |
. . . . . . . 8
β’ ((π β§ π β π΄) β πΎ:(-Ο[,]Ο)βΆβ) |
37 | 36, 6 | ffvelcdmd 7085 |
. . . . . . 7
β’ ((π β§ π β π΄) β (πΎβπ ) β β) |
38 | 34, 37 | remulcld 11241 |
. . . . . 6
β’ ((π β§ π β π΄) β ((π»βπ ) Β· (πΎβπ )) β β) |
39 | 18 | fvmpt2 7007 |
. . . . . 6
β’ ((π β (-Ο[,]Ο) β§
((π»βπ ) Β· (πΎβπ )) β β) β (πβπ ) = ((π»βπ ) Β· (πΎβπ ))) |
40 | 6, 38, 39 | syl2anc 585 |
. . . . 5
β’ ((π β§ π β π΄) β (πβπ ) = ((π»βπ ) Β· (πΎβπ ))) |
41 | | 0red 11214 |
. . . . . . . . 9
β’ ((π β§ π β π΄) β 0 β β) |
42 | 8 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β πΉ:ββΆβ) |
43 | 10 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β π β β) |
44 | | pire 25960 |
. . . . . . . . . . . . . . . . 17
β’ Ο
β β |
45 | 44 | renegcli 11518 |
. . . . . . . . . . . . . . . 16
β’ -Ο
β β |
46 | | iccssre 13403 |
. . . . . . . . . . . . . . . 16
β’ ((-Ο
β β β§ Ο β β) β (-Ο[,]Ο) β
β) |
47 | 45, 44, 46 | mp2an 691 |
. . . . . . . . . . . . . . 15
β’
(-Ο[,]Ο) β β |
48 | 4 | sseli 3978 |
. . . . . . . . . . . . . . 15
β’ (π β π΄ β π β (-Ο[,]Ο)) |
49 | 47, 48 | sselid 3980 |
. . . . . . . . . . . . . 14
β’ (π β π΄ β π β β) |
50 | 49 | adantl 483 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β π β β) |
51 | 43, 50 | readdcld 11240 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β (π + π ) β β) |
52 | 42, 51 | ffvelcdmd 7085 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β (πΉβ(π + π )) β β) |
53 | 12, 14 | ifcld 4574 |
. . . . . . . . . . . 12
β’ (π β if(0 < π , π, π) β β) |
54 | 53 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β if(0 < π , π, π) β β) |
55 | 52, 54 | resubcld 11639 |
. . . . . . . . . 10
β’ ((π β§ π β π΄) β ((πΉβ(π + π )) β if(0 < π , π, π)) β β) |
56 | | simpr 486 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΄) β π β π΄) |
57 | 2, 56 | sselid 3980 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π΄) β π β ((-Ο[,]Ο) β
{0})) |
58 | 57 | eldifbd 3961 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β Β¬ π β {0}) |
59 | | velsn 4644 |
. . . . . . . . . . . 12
β’ (π β {0} β π = 0) |
60 | 58, 59 | sylnib 328 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β Β¬ π = 0) |
61 | 60 | neqned 2948 |
. . . . . . . . . 10
β’ ((π β§ π β π΄) β π β 0) |
62 | 55, 50, 61 | redivcld 12039 |
. . . . . . . . 9
β’ ((π β§ π β π΄) β (((πΉβ(π + π )) β if(0 < π , π, π)) / π ) β β) |
63 | 41, 62 | ifcld 4574 |
. . . . . . . 8
β’ ((π β§ π β π΄) β if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) β β) |
64 | 16 | fvmpt2 7007 |
. . . . . . . 8
β’ ((π β (-Ο[,]Ο) β§
if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) β β) β (π»βπ ) = if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
65 | 6, 63, 64 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β π΄) β (π»βπ ) = if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π ))) |
66 | 60 | iffalsed 4539 |
. . . . . . 7
β’ ((π β§ π β π΄) β if(π = 0, 0, (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) = (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) |
67 | 65, 66 | eqtrd 2773 |
. . . . . 6
β’ ((π β§ π β π΄) β (π»βπ ) = (((πΉβ(π + π )) β if(0 < π , π, π)) / π )) |
68 | | 1red 11212 |
. . . . . . . . 9
β’ ((π β§ π β π΄) β 1 β β) |
69 | | 2re 12283 |
. . . . . . . . . . . 12
β’ 2 β
β |
70 | 69 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β 2 β β) |
71 | 50 | rehalfcld 12456 |
. . . . . . . . . . . 12
β’ ((π β§ π β π΄) β (π / 2) β β) |
72 | 71 | resincld 16083 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β (sinβ(π / 2)) β β) |
73 | 70, 72 | remulcld 11241 |
. . . . . . . . . 10
β’ ((π β§ π β π΄) β (2 Β· (sinβ(π / 2))) β
β) |
74 | | 2cnd 12287 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β 2 β β) |
75 | 72 | recnd 11239 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β (sinβ(π / 2)) β β) |
76 | | 2ne0 12313 |
. . . . . . . . . . . 12
β’ 2 β
0 |
77 | 76 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β 2 β 0) |
78 | | fourierdlem44 44854 |
. . . . . . . . . . . 12
β’ ((π β (-Ο[,]Ο) β§
π β 0) β
(sinβ(π / 2)) β
0) |
79 | 6, 61, 78 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄) β (sinβ(π / 2)) β 0) |
80 | 74, 75, 77, 79 | mulne0d 11863 |
. . . . . . . . . 10
β’ ((π β§ π β π΄) β (2 Β· (sinβ(π / 2))) β 0) |
81 | 50, 73, 80 | redivcld 12039 |
. . . . . . . . 9
β’ ((π β§ π β π΄) β (π / (2 Β· (sinβ(π / 2)))) β β) |
82 | 68, 81 | ifcld 4574 |
. . . . . . . 8
β’ ((π β§ π β π΄) β if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) β β) |
83 | 17 | fvmpt2 7007 |
. . . . . . . 8
β’ ((π β (-Ο[,]Ο) β§
if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) β β) β
(πΎβπ ) = if(π = 0, 1, (π / (2 Β· (sinβ(π / 2)))))) |
84 | 6, 82, 83 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β π΄) β (πΎβπ ) = if(π = 0, 1, (π / (2 Β· (sinβ(π / 2)))))) |
85 | 60 | iffalsed 4539 |
. . . . . . 7
β’ ((π β§ π β π΄) β if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) = (π / (2 Β· (sinβ(π / 2))))) |
86 | 84, 85 | eqtrd 2773 |
. . . . . 6
β’ ((π β§ π β π΄) β (πΎβπ ) = (π / (2 Β· (sinβ(π / 2))))) |
87 | 67, 86 | oveq12d 7424 |
. . . . 5
β’ ((π β§ π β π΄) β ((π»βπ ) Β· (πΎβπ )) = ((((πΉβ(π + π )) β if(0 < π , π, π)) / π ) Β· (π / (2 Β· (sinβ(π / 2)))))) |
88 | 55 | recnd 11239 |
. . . . . 6
β’ ((π β§ π β π΄) β ((πΉβ(π + π )) β if(0 < π , π, π)) β β) |
89 | 50 | recnd 11239 |
. . . . . 6
β’ ((π β§ π β π΄) β π β β) |
90 | 74, 75 | mulcld 11231 |
. . . . . 6
β’ ((π β§ π β π΄) β (2 Β· (sinβ(π / 2))) β
β) |
91 | 88, 89, 90, 61, 80 | dmdcan2d 12017 |
. . . . 5
β’ ((π β§ π β π΄) β ((((πΉβ(π + π )) β if(0 < π , π, π)) / π ) Β· (π / (2 Β· (sinβ(π / 2))))) = (((πΉβ(π + π )) β if(0 < π , π, π)) / (2 Β· (sinβ(π / 2))))) |
92 | 40, 87, 91 | 3eqtrd 2777 |
. . . 4
β’ ((π β§ π β π΄) β (πβπ ) = (((πΉβ(π + π )) β if(0 < π , π, π)) / (2 Β· (sinβ(π / 2))))) |
93 | 92 | adantlr 714 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β (πβπ ) = (((πΉβ(π + π )) β if(0 < π , π, π)) / (2 Β· (sinβ(π / 2))))) |
94 | 22 | ad2antlr 726 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π΄) β π β β) |
95 | | 1red 11212 |
. . . . . . . 8
β’ (((π β§ π β β) β§ π β π΄) β 1 β β) |
96 | 95 | rehalfcld 12456 |
. . . . . . 7
β’ (((π β§ π β β) β§ π β π΄) β (1 / 2) β
β) |
97 | 94, 96 | readdcld 11240 |
. . . . . 6
β’ (((π β§ π β β) β§ π β π΄) β (π + (1 / 2)) β β) |
98 | 49 | adantl 483 |
. . . . . 6
β’ (((π β§ π β β) β§ π β π΄) β π β β) |
99 | 97, 98 | remulcld 11241 |
. . . . 5
β’ (((π β§ π β β) β§ π β π΄) β ((π + (1 / 2)) Β· π ) β β) |
100 | 99 | resincld 16083 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β (sinβ((π + (1 / 2)) Β· π )) β β) |
101 | 23 | fvmpt2 7007 |
. . . 4
β’ ((π β (-Ο[,]Ο) β§
(sinβ((π + (1 / 2))
Β· π )) β
β) β (πβπ ) = (sinβ((π + (1 / 2)) Β· π ))) |
102 | 7, 100, 101 | syl2anc 585 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β (πβπ ) = (sinβ((π + (1 / 2)) Β· π ))) |
103 | 93, 102 | oveq12d 7424 |
. 2
β’ (((π β§ π β β) β§ π β π΄) β ((πβπ ) Β· (πβπ )) = ((((πΉβ(π + π )) β if(0 < π , π, π)) / (2 Β· (sinβ(π / 2)))) Β·
(sinβ((π + (1 / 2))
Β· π )))) |
104 | 88 | adantlr 714 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β ((πΉβ(π + π )) β if(0 < π , π, π)) β β) |
105 | 90 | adantlr 714 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β (2 Β· (sinβ(π / 2))) β
β) |
106 | 100 | recnd 11239 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β (sinβ((π + (1 / 2)) Β· π )) β β) |
107 | 80 | adantlr 714 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β (2 Β· (sinβ(π / 2))) β 0) |
108 | 104, 105,
106, 107 | div32d 12010 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β ((((πΉβ(π + π )) β if(0 < π , π, π)) / (2 Β· (sinβ(π / 2)))) Β·
(sinβ((π + (1 / 2))
Β· π ))) = (((πΉβ(π + π )) β if(0 < π , π, π)) Β· ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2)))))) |
109 | 22 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β β β§ π β π΄) β π β β) |
110 | | halfre 12423 |
. . . . . . . . . . . . . 14
β’ (1 / 2)
β β |
111 | 110 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β β β§ π β π΄) β (1 / 2) β
β) |
112 | 109, 111 | readdcld 11240 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π΄) β (π + (1 / 2)) β β) |
113 | 49 | adantl 483 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π΄) β π β β) |
114 | 112, 113 | remulcld 11241 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π΄) β ((π + (1 / 2)) Β· π ) β β) |
115 | 114 | resincld 16083 |
. . . . . . . . . 10
β’ ((π β β β§ π β π΄) β (sinβ((π + (1 / 2)) Β· π )) β β) |
116 | 115 | recnd 11239 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β (sinβ((π + (1 / 2)) Β· π )) β β) |
117 | 69 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π΄) β 2 β β) |
118 | 113 | rehalfcld 12456 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π΄) β (π / 2) β β) |
119 | 118 | resincld 16083 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π΄) β (sinβ(π / 2)) β β) |
120 | 117, 119 | remulcld 11241 |
. . . . . . . . . 10
β’ ((π β β β§ π β π΄) β (2 Β· (sinβ(π / 2))) β
β) |
121 | 120 | recnd 11239 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β (2 Β· (sinβ(π / 2))) β
β) |
122 | | picn 25961 |
. . . . . . . . . 10
β’ Ο
β β |
123 | 122 | a1i 11 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β Ο β
β) |
124 | | 2cnd 12287 |
. . . . . . . . . . 11
β’ (π β π΄ β 2 β β) |
125 | | rehalfcl 12435 |
. . . . . . . . . . . . 13
β’ (π β β β (π / 2) β
β) |
126 | | resincl 16080 |
. . . . . . . . . . . . 13
β’ ((π / 2) β β β
(sinβ(π / 2)) β
β) |
127 | 49, 125, 126 | 3syl 18 |
. . . . . . . . . . . 12
β’ (π β π΄ β (sinβ(π / 2)) β β) |
128 | 127 | recnd 11239 |
. . . . . . . . . . 11
β’ (π β π΄ β (sinβ(π / 2)) β β) |
129 | 76 | a1i 11 |
. . . . . . . . . . 11
β’ (π β π΄ β 2 β 0) |
130 | | eldifsni 4793 |
. . . . . . . . . . . . 13
β’ (π β ((-Ο[,]Ο) β
{0}) β π β
0) |
131 | 130, 1 | eleq2s 2852 |
. . . . . . . . . . . 12
β’ (π β π΄ β π β 0) |
132 | 48, 131, 78 | syl2anc 585 |
. . . . . . . . . . 11
β’ (π β π΄ β (sinβ(π / 2)) β 0) |
133 | 124, 128,
129, 132 | mulne0d 11863 |
. . . . . . . . . 10
β’ (π β π΄ β (2 Β· (sinβ(π / 2))) β 0) |
134 | 133 | adantl 483 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β (2 Β· (sinβ(π / 2))) β 0) |
135 | | 0re 11213 |
. . . . . . . . . . 11
β’ 0 β
β |
136 | | pipos 25962 |
. . . . . . . . . . 11
β’ 0 <
Ο |
137 | 135, 136 | gtneii 11323 |
. . . . . . . . . 10
β’ Ο β
0 |
138 | 137 | a1i 11 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β Ο β 0) |
139 | 116, 121,
123, 134, 138 | divdiv1d 12018 |
. . . . . . . 8
β’ ((π β β β§ π β π΄) β (((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2)))) / Ο) =
((sinβ((π + (1 / 2))
Β· π )) / ((2 Β·
(sinβ(π / 2)))
Β· Ο))) |
140 | | 2cnd 12287 |
. . . . . . . . . 10
β’ ((π β β β§ π β π΄) β 2 β β) |
141 | 128 | adantl 483 |
. . . . . . . . . 10
β’ ((π β β β§ π β π΄) β (sinβ(π / 2)) β β) |
142 | 140, 141,
123 | mulassd 11234 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β ((2 Β· (sinβ(π / 2))) Β· Ο) = (2
Β· ((sinβ(π /
2)) Β· Ο))) |
143 | 142 | oveq2d 7422 |
. . . . . . . 8
β’ ((π β β β§ π β π΄) β ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· (sinβ(π / 2))) Β· Ο)) =
((sinβ((π + (1 / 2))
Β· π )) / (2 Β·
((sinβ(π / 2))
Β· Ο)))) |
144 | 141, 123 | mulcomd 11232 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π΄) β ((sinβ(π / 2)) Β· Ο) = (Ο Β·
(sinβ(π /
2)))) |
145 | 144 | oveq2d 7422 |
. . . . . . . . . 10
β’ ((π β β β§ π β π΄) β (2 Β· ((sinβ(π / 2)) Β· Ο)) = (2
Β· (Ο Β· (sinβ(π / 2))))) |
146 | 140, 123,
141 | mulassd 11234 |
. . . . . . . . . 10
β’ ((π β β β§ π β π΄) β ((2 Β· Ο) Β·
(sinβ(π / 2))) = (2
Β· (Ο Β· (sinβ(π / 2))))) |
147 | 145, 146 | eqtr4d 2776 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β (2 Β· ((sinβ(π / 2)) Β· Ο)) = ((2
Β· Ο) Β· (sinβ(π / 2)))) |
148 | 147 | oveq2d 7422 |
. . . . . . . 8
β’ ((π β β β§ π β π΄) β ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· ((sinβ(π / 2)) Β· Ο))) =
((sinβ((π + (1 / 2))
Β· π )) / ((2 Β·
Ο) Β· (sinβ(π / 2))))) |
149 | 139, 143,
148 | 3eqtrd 2777 |
. . . . . . 7
β’ ((π β β β§ π β π΄) β (((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2)))) / Ο) =
((sinβ((π + (1 / 2))
Β· π )) / ((2 Β·
Ο) Β· (sinβ(π / 2))))) |
150 | 149 | oveq2d 7422 |
. . . . . 6
β’ ((π β β β§ π β π΄) β (Ο Β· (((sinβ((π + (1 / 2)) Β· π )) / (2 Β·
(sinβ(π / 2)))) /
Ο)) = (Ο Β· ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· Ο) Β·
(sinβ(π /
2)))))) |
151 | 115, 120,
134 | redivcld 12039 |
. . . . . . . 8
β’ ((π β β β§ π β π΄) β ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2)))) β
β) |
152 | 151 | recnd 11239 |
. . . . . . 7
β’ ((π β β β§ π β π΄) β ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2)))) β
β) |
153 | 152, 123,
138 | divcan2d 11989 |
. . . . . 6
β’ ((π β β β§ π β π΄) β (Ο Β· (((sinβ((π + (1 / 2)) Β· π )) / (2 Β·
(sinβ(π / 2)))) /
Ο)) = ((sinβ((π +
(1 / 2)) Β· π )) / (2
Β· (sinβ(π /
2))))) |
154 | | fourierdlem66.d |
. . . . . . . . . 10
β’ π· = (π β β β¦ (π β β β¦ if((π mod (2 Β· Ο)) = 0,
(((2 Β· π) + 1) / (2
Β· Ο)), ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· Ο) Β·
(sinβ(π /
2))))))) |
155 | 154 | dirkerval2 44797 |
. . . . . . . . 9
β’ ((π β β β§ π β β) β ((π·βπ)βπ ) = if((π mod (2 Β· Ο)) = 0, (((2 Β·
π) + 1) / (2 Β·
Ο)), ((sinβ((π +
(1 / 2)) Β· π )) / ((2
Β· Ο) Β· (sinβ(π / 2)))))) |
156 | 49, 155 | sylan2 594 |
. . . . . . . 8
β’ ((π β β β§ π β π΄) β ((π·βπ)βπ ) = if((π mod (2 Β· Ο)) = 0, (((2 Β·
π) + 1) / (2 Β·
Ο)), ((sinβ((π +
(1 / 2)) Β· π )) / ((2
Β· Ο) Β· (sinβ(π / 2)))))) |
157 | | fourierdlem24 44834 |
. . . . . . . . . . . 12
β’ (π β ((-Ο[,]Ο) β
{0}) β (π mod (2
Β· Ο)) β 0) |
158 | 157, 1 | eleq2s 2852 |
. . . . . . . . . . 11
β’ (π β π΄ β (π mod (2 Β· Ο)) β
0) |
159 | 158 | neneqd 2946 |
. . . . . . . . . 10
β’ (π β π΄ β Β¬ (π mod (2 Β· Ο)) = 0) |
160 | 159 | adantl 483 |
. . . . . . . . 9
β’ ((π β β β§ π β π΄) β Β¬ (π mod (2 Β· Ο)) = 0) |
161 | 160 | iffalsed 4539 |
. . . . . . . 8
β’ ((π β β β§ π β π΄) β if((π mod (2 Β· Ο)) = 0, (((2 Β·
π) + 1) / (2 Β·
Ο)), ((sinβ((π +
(1 / 2)) Β· π )) / ((2
Β· Ο) Β· (sinβ(π / 2))))) = ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· Ο) Β·
(sinβ(π /
2))))) |
162 | 156, 161 | eqtr2d 2774 |
. . . . . . 7
β’ ((π β β β§ π β π΄) β ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· Ο) Β·
(sinβ(π / 2)))) =
((π·βπ)βπ )) |
163 | 162 | oveq2d 7422 |
. . . . . 6
β’ ((π β β β§ π β π΄) β (Ο Β· ((sinβ((π + (1 / 2)) Β· π )) / ((2 Β· Ο) Β·
(sinβ(π / 2))))) =
(Ο Β· ((π·βπ)βπ ))) |
164 | 150, 153,
163 | 3eqtr3d 2781 |
. . . . 5
β’ ((π β β β§ π β π΄) β ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2)))) = (Ο Β·
((π·βπ)βπ ))) |
165 | 164 | oveq2d 7422 |
. . . 4
β’ ((π β β β§ π β π΄) β (((πΉβ(π + π )) β if(0 < π , π, π)) Β· ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2))))) = (((πΉβ(π + π )) β if(0 < π , π, π)) Β· (Ο Β· ((π·βπ)βπ )))) |
166 | 165 | adantll 713 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β (((πΉβ(π + π )) β if(0 < π , π, π)) Β· ((sinβ((π + (1 / 2)) Β· π )) / (2 Β· (sinβ(π / 2))))) = (((πΉβ(π + π )) β if(0 < π , π, π)) Β· (Ο Β· ((π·βπ)βπ )))) |
167 | 122 | a1i 11 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β Ο β
β) |
168 | 154 | dirkerre 44798 |
. . . . . . 7
β’ ((π β β β§ π β β) β ((π·βπ)βπ ) β β) |
169 | 49, 168 | sylan2 594 |
. . . . . 6
β’ ((π β β β§ π β π΄) β ((π·βπ)βπ ) β β) |
170 | 169 | recnd 11239 |
. . . . 5
β’ ((π β β β§ π β π΄) β ((π·βπ)βπ ) β β) |
171 | 170 | adantll 713 |
. . . 4
β’ (((π β§ π β β) β§ π β π΄) β ((π·βπ)βπ ) β β) |
172 | 104, 167,
171 | mul12d 11420 |
. . 3
β’ (((π β§ π β β) β§ π β π΄) β (((πΉβ(π + π )) β if(0 < π , π, π)) Β· (Ο Β· ((π·βπ)βπ ))) = (Ο Β· (((πΉβ(π + π )) β if(0 < π , π, π)) Β· ((π·βπ)βπ )))) |
173 | 108, 166,
172 | 3eqtrd 2777 |
. 2
β’ (((π β§ π β β) β§ π β π΄) β ((((πΉβ(π + π )) β if(0 < π , π, π)) / (2 Β· (sinβ(π / 2)))) Β·
(sinβ((π + (1 / 2))
Β· π ))) = (Ο
Β· (((πΉβ(π + π )) β if(0 < π , π, π)) Β· ((π·βπ)βπ )))) |
174 | 31, 103, 173 | 3eqtrd 2777 |
1
β’ (((π β§ π β β) β§ π β π΄) β (πΊβπ ) = (Ο Β· (((πΉβ(π + π )) β if(0 < π , π, π)) Β· ((π·βπ)βπ )))) |