Step | Hyp | Ref
| Expression |
1 | | fourierdlem56.a |
. . . . . . . 8
β’ (π β (π΄(,)π΅) β ((-Ο[,]Ο) β
{0})) |
2 | 1 | difss2d 4134 |
. . . . . . 7
β’ (π β (π΄(,)π΅) β (-Ο[,]Ο)) |
3 | 2 | sselda 3982 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β π β (-Ο[,]Ο)) |
4 | | 1ex 11207 |
. . . . . . . 8
β’ 1 β
V |
5 | | ovex 7439 |
. . . . . . . 8
β’ (π / (2 Β· (sinβ(π / 2)))) β
V |
6 | 4, 5 | ifex 4578 |
. . . . . . 7
β’ if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) β V |
7 | 6 | a1i 11 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) β V) |
8 | | fourierdlem56.k |
. . . . . . 7
β’ πΎ = (π β (-Ο[,]Ο) β¦ if(π = 0, 1, (π / (2 Β· (sinβ(π / 2)))))) |
9 | 8 | fvmpt2 7007 |
. . . . . 6
β’ ((π β (-Ο[,]Ο) β§
if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) β V) β
(πΎβπ ) = if(π = 0, 1, (π / (2 Β· (sinβ(π / 2)))))) |
10 | 3, 7, 9 | syl2anc 585 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β (πΎβπ ) = if(π = 0, 1, (π / (2 Β· (sinβ(π / 2)))))) |
11 | | fourierdlem56.r4 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β π β 0) |
12 | 11 | neneqd 2946 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β Β¬ π = 0) |
13 | 12 | iffalsed 4539 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β if(π = 0, 1, (π / (2 Β· (sinβ(π / 2))))) = (π / (2 Β· (sinβ(π / 2))))) |
14 | | elioore 13351 |
. . . . . . . . 9
β’ (π β (π΄(,)π΅) β π β β) |
15 | 14 | adantl 483 |
. . . . . . . 8
β’ ((π β§ π β (π΄(,)π΅)) β π β β) |
16 | 15 | recnd 11239 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β π β β) |
17 | 16 | halfcld 12454 |
. . . . . . . 8
β’ ((π β§ π β (π΄(,)π΅)) β (π / 2) β β) |
18 | 17 | sincld 16070 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β (sinβ(π / 2)) β β) |
19 | | 2cnd 12287 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β 2 β β) |
20 | | fourierdlem44 44854 |
. . . . . . . 8
β’ ((π β (-Ο[,]Ο) β§
π β 0) β
(sinβ(π / 2)) β
0) |
21 | 3, 11, 20 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β (sinβ(π / 2)) β 0) |
22 | | 2ne0 12313 |
. . . . . . . 8
β’ 2 β
0 |
23 | 22 | a1i 11 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β 2 β 0) |
24 | 16, 18, 19, 21, 23 | divdiv1d 12018 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β ((π / (sinβ(π / 2))) / 2) = (π / ((sinβ(π / 2)) Β· 2))) |
25 | 18, 19 | mulcomd 11232 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β ((sinβ(π / 2)) Β· 2) = (2 Β·
(sinβ(π /
2)))) |
26 | 25 | oveq2d 7422 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β (π / ((sinβ(π / 2)) Β· 2)) = (π / (2 Β· (sinβ(π / 2))))) |
27 | 24, 26 | eqtr2d 2774 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β (π / (2 Β· (sinβ(π / 2)))) = ((π / (sinβ(π / 2))) / 2)) |
28 | 10, 13, 27 | 3eqtrd 2777 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β (πΎβπ ) = ((π / (sinβ(π / 2))) / 2)) |
29 | 28 | mpteq2dva 5248 |
. . 3
β’ (π β (π β (π΄(,)π΅) β¦ (πΎβπ )) = (π β (π΄(,)π΅) β¦ ((π / (sinβ(π / 2))) / 2))) |
30 | 29 | oveq2d 7422 |
. 2
β’ (π β (β D (π β (π΄(,)π΅) β¦ (πΎβπ ))) = (β D (π β (π΄(,)π΅) β¦ ((π / (sinβ(π / 2))) / 2)))) |
31 | | reelprrecn 11199 |
. . . 4
β’ β
β {β, β} |
32 | 31 | a1i 11 |
. . 3
β’ (π β β β {β,
β}) |
33 | 16, 18, 21 | divcld 11987 |
. . 3
β’ ((π β§ π β (π΄(,)π΅)) β (π / (sinβ(π / 2))) β β) |
34 | | 1red 11212 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β 1 β β) |
35 | 15 | rehalfcld 12456 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β (π / 2) β β) |
36 | 35 | resincld 16083 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β (sinβ(π / 2)) β β) |
37 | 34, 36 | remulcld 11241 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β (1 Β· (sinβ(π / 2))) β
β) |
38 | 35 | recoscld 16084 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β (cosβ(π / 2)) β β) |
39 | 34 | rehalfcld 12456 |
. . . . . . 7
β’ ((π β§ π β (π΄(,)π΅)) β (1 / 2) β
β) |
40 | 38, 39 | remulcld 11241 |
. . . . . 6
β’ ((π β§ π β (π΄(,)π΅)) β ((cosβ(π / 2)) Β· (1 / 2)) β
β) |
41 | 40, 15 | remulcld 11241 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β (((cosβ(π / 2)) Β· (1 / 2)) Β· π ) β
β) |
42 | 37, 41 | resubcld 11639 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β ((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) β β) |
43 | 36 | resqcld 14087 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β ((sinβ(π / 2))β2) β
β) |
44 | | 2z 12591 |
. . . . . 6
β’ 2 β
β€ |
45 | 44 | a1i 11 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β 2 β β€) |
46 | 18, 21, 45 | expne0d 14114 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β ((sinβ(π / 2))β2) β 0) |
47 | 42, 43, 46 | redivcld 12039 |
. . 3
β’ ((π β§ π β (π΄(,)π΅)) β (((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)) β
β) |
48 | | 1cnd 11206 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β 1 β β) |
49 | | recn 11197 |
. . . . . 6
β’ (π β β β π β
β) |
50 | 49 | adantl 483 |
. . . . 5
β’ ((π β§ π β β) β π β β) |
51 | | 1red 11212 |
. . . . 5
β’ ((π β§ π β β) β 1 β
β) |
52 | 32 | dvmptid 25466 |
. . . . 5
β’ (π β (β D (π β β β¦ π )) = (π β β β¦ 1)) |
53 | | ioossre 13382 |
. . . . . 6
β’ (π΄(,)π΅) β β |
54 | 53 | a1i 11 |
. . . . 5
β’ (π β (π΄(,)π΅) β β) |
55 | | eqid 2733 |
. . . . . 6
β’
(TopOpenββfld) =
(TopOpenββfld) |
56 | 55 | tgioo2 24311 |
. . . . 5
β’
(topGenβran (,)) = ((TopOpenββfld)
βΎt β) |
57 | | iooretop 24274 |
. . . . . 6
β’ (π΄(,)π΅) β (topGenβran
(,)) |
58 | 57 | a1i 11 |
. . . . 5
β’ (π β (π΄(,)π΅) β (topGenβran
(,))) |
59 | 32, 50, 51, 52, 54, 56, 55, 58 | dvmptres 25472 |
. . . 4
β’ (π β (β D (π β (π΄(,)π΅) β¦ π )) = (π β (π΄(,)π΅) β¦ 1)) |
60 | | elsni 4645 |
. . . . . . 7
β’
((sinβ(π / 2))
β {0} β (sinβ(π / 2)) = 0) |
61 | 60 | necon3ai 2966 |
. . . . . 6
β’
((sinβ(π / 2))
β 0 β Β¬ (sinβ(π / 2)) β {0}) |
62 | 21, 61 | syl 17 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β Β¬ (sinβ(π / 2)) β
{0}) |
63 | 18, 62 | eldifd 3959 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β (sinβ(π / 2)) β (β β
{0})) |
64 | 17 | coscld 16071 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β (cosβ(π / 2)) β β) |
65 | 48 | halfcld 12454 |
. . . . 5
β’ ((π β§ π β (π΄(,)π΅)) β (1 / 2) β
β) |
66 | 64, 65 | mulcld 11231 |
. . . 4
β’ ((π β§ π β (π΄(,)π΅)) β ((cosβ(π / 2)) Β· (1 / 2)) β
β) |
67 | | cnelprrecn 11200 |
. . . . . 6
β’ β
β {β, β} |
68 | 67 | a1i 11 |
. . . . 5
β’ (π β β β {β,
β}) |
69 | | sinf 16064 |
. . . . . . 7
β’
sin:ββΆβ |
70 | 69 | a1i 11 |
. . . . . 6
β’ (π β
sin:ββΆβ) |
71 | 70 | ffvelcdmda 7084 |
. . . . 5
β’ ((π β§ π₯ β β) β (sinβπ₯) β
β) |
72 | | cosf 16065 |
. . . . . . 7
β’
cos:ββΆβ |
73 | 72 | a1i 11 |
. . . . . 6
β’ (π β
cos:ββΆβ) |
74 | 73 | ffvelcdmda 7084 |
. . . . 5
β’ ((π β§ π₯ β β) β (cosβπ₯) β
β) |
75 | | 2cnd 12287 |
. . . . . 6
β’ (π β 2 β
β) |
76 | 22 | a1i 11 |
. . . . . 6
β’ (π β 2 β 0) |
77 | 32, 16, 34, 59, 75, 76 | dvmptdivc 25474 |
. . . . 5
β’ (π β (β D (π β (π΄(,)π΅) β¦ (π / 2))) = (π β (π΄(,)π΅) β¦ (1 / 2))) |
78 | | ffn 6715 |
. . . . . . . . . . 11
β’
(sin:ββΆβ β sin Fn β) |
79 | 69, 78 | ax-mp 5 |
. . . . . . . . . 10
β’ sin Fn
β |
80 | | dffn5 6948 |
. . . . . . . . . 10
β’ (sin Fn
β β sin = (π₯
β β β¦ (sinβπ₯))) |
81 | 79, 80 | mpbi 229 |
. . . . . . . . 9
β’ sin =
(π₯ β β β¦
(sinβπ₯)) |
82 | 81 | eqcomi 2742 |
. . . . . . . 8
β’ (π₯ β β β¦
(sinβπ₯)) =
sin |
83 | 82 | oveq2i 7417 |
. . . . . . 7
β’ (β
D (π₯ β β β¦
(sinβπ₯))) = (β
D sin) |
84 | | dvsin 25491 |
. . . . . . 7
β’ (β
D sin) = cos |
85 | | ffn 6715 |
. . . . . . . . 9
β’
(cos:ββΆβ β cos Fn β) |
86 | 72, 85 | ax-mp 5 |
. . . . . . . 8
β’ cos Fn
β |
87 | | dffn5 6948 |
. . . . . . . 8
β’ (cos Fn
β β cos = (π₯
β β β¦ (cosβπ₯))) |
88 | 86, 87 | mpbi 229 |
. . . . . . 7
β’ cos =
(π₯ β β β¦
(cosβπ₯)) |
89 | 83, 84, 88 | 3eqtri 2765 |
. . . . . 6
β’ (β
D (π₯ β β β¦
(sinβπ₯))) = (π₯ β β β¦
(cosβπ₯)) |
90 | 89 | a1i 11 |
. . . . 5
β’ (π β (β D (π₯ β β β¦
(sinβπ₯))) = (π₯ β β β¦
(cosβπ₯))) |
91 | | fveq2 6889 |
. . . . 5
β’ (π₯ = (π / 2) β (sinβπ₯) = (sinβ(π / 2))) |
92 | | fveq2 6889 |
. . . . 5
β’ (π₯ = (π / 2) β (cosβπ₯) = (cosβ(π / 2))) |
93 | 32, 68, 17, 39, 71, 74, 77, 90, 91, 92 | dvmptco 25481 |
. . . 4
β’ (π β (β D (π β (π΄(,)π΅) β¦ (sinβ(π / 2)))) = (π β (π΄(,)π΅) β¦ ((cosβ(π / 2)) Β· (1 / 2)))) |
94 | 32, 16, 48, 59, 63, 66, 93 | dvmptdiv 25483 |
. . 3
β’ (π β (β D (π β (π΄(,)π΅) β¦ (π / (sinβ(π / 2))))) = (π β (π΄(,)π΅) β¦ (((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)))) |
95 | 32, 33, 47, 94, 75, 76 | dvmptdivc 25474 |
. 2
β’ (π β (β D (π β (π΄(,)π΅) β¦ ((π / (sinβ(π / 2))) / 2))) = (π β (π΄(,)π΅) β¦ ((((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)) / 2))) |
96 | 14 | recnd 11239 |
. . . . . . . . . 10
β’ (π β (π΄(,)π΅) β π β β) |
97 | 96 | halfcld 12454 |
. . . . . . . . 9
β’ (π β (π΄(,)π΅) β (π / 2) β β) |
98 | 97 | sincld 16070 |
. . . . . . . 8
β’ (π β (π΄(,)π΅) β (sinβ(π / 2)) β β) |
99 | 98 | mullidd 11229 |
. . . . . . 7
β’ (π β (π΄(,)π΅) β (1 Β· (sinβ(π / 2))) = (sinβ(π / 2))) |
100 | 97 | coscld 16071 |
. . . . . . . . . 10
β’ (π β (π΄(,)π΅) β (cosβ(π / 2)) β β) |
101 | | 2cnd 12287 |
. . . . . . . . . 10
β’ (π β (π΄(,)π΅) β 2 β β) |
102 | 22 | a1i 11 |
. . . . . . . . . 10
β’ (π β (π΄(,)π΅) β 2 β 0) |
103 | 100, 101,
102 | divrecd 11990 |
. . . . . . . . 9
β’ (π β (π΄(,)π΅) β ((cosβ(π / 2)) / 2) = ((cosβ(π / 2)) Β· (1 / 2))) |
104 | 103 | eqcomd 2739 |
. . . . . . . 8
β’ (π β (π΄(,)π΅) β ((cosβ(π / 2)) Β· (1 / 2)) = ((cosβ(π / 2)) / 2)) |
105 | 104 | oveq1d 7421 |
. . . . . . 7
β’ (π β (π΄(,)π΅) β (((cosβ(π / 2)) Β· (1 / 2)) Β· π ) = (((cosβ(π / 2)) / 2) Β· π )) |
106 | 99, 105 | oveq12d 7424 |
. . . . . 6
β’ (π β (π΄(,)π΅) β ((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) = ((sinβ(π / 2)) β (((cosβ(π / 2)) / 2) Β· π ))) |
107 | 106 | oveq1d 7421 |
. . . . 5
β’ (π β (π΄(,)π΅) β (((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)) = (((sinβ(π / 2)) β
(((cosβ(π / 2)) / 2)
Β· π )) /
((sinβ(π /
2))β2))) |
108 | 107 | oveq1d 7421 |
. . . 4
β’ (π β (π΄(,)π΅) β ((((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)) / 2) = ((((sinβ(π / 2)) β
(((cosβ(π / 2)) / 2)
Β· π )) /
((sinβ(π /
2))β2)) / 2)) |
109 | 108 | mpteq2ia 5251 |
. . 3
β’ (π β (π΄(,)π΅) β¦ ((((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)) / 2)) = (π β (π΄(,)π΅) β¦ ((((sinβ(π / 2)) β (((cosβ(π / 2)) / 2) Β· π )) / ((sinβ(π / 2))β2)) /
2)) |
110 | 109 | a1i 11 |
. 2
β’ (π β (π β (π΄(,)π΅) β¦ ((((1 Β· (sinβ(π / 2))) β
(((cosβ(π / 2))
Β· (1 / 2)) Β· π )) / ((sinβ(π / 2))β2)) / 2)) = (π β (π΄(,)π΅) β¦ ((((sinβ(π / 2)) β (((cosβ(π / 2)) / 2) Β· π )) / ((sinβ(π / 2))β2)) /
2))) |
111 | 30, 95, 110 | 3eqtrd 2777 |
1
β’ (π β (β D (π β (π΄(,)π΅) β¦ (πΎβπ ))) = (π β (π΄(,)π΅) β¦ ((((sinβ(π / 2)) β (((cosβ(π / 2)) / 2) Β· π )) / ((sinβ(π / 2))β2)) /
2))) |