Step | Hyp | Ref
| Expression |
1 | | 1cnd 10056 |
. . . . . . . . 9
|
2 | 1 | halfcld 11277 |
. . . . . . . 8
|
3 | | fzfid 12772 |
. . . . . . . . 9
|
4 | | elfzelz 12342 |
. . . . . . . . . . . . 13
|
5 | 4 | zcnd 11483 |
. . . . . . . . . . . 12
|
6 | 5 | adantl 482 |
. . . . . . . . . . 11
|
7 | | dirkertrigeqlem2.a |
. . . . . . . . . . . . 13
|
8 | 7 | recnd 10068 |
. . . . . . . . . . . 12
|
9 | 8 | adantr 481 |
. . . . . . . . . . 11
|
10 | 6, 9 | mulcld 10060 |
. . . . . . . . . 10
|
11 | 10 | coscld 14861 |
. . . . . . . . 9
|
12 | 3, 11 | fsumcl 14464 |
. . . . . . . 8
|
13 | 2, 12 | addcld 10059 |
. . . . . . 7
|
14 | 8 | sincld 14860 |
. . . . . . 7
|
15 | | dirkertrigeqlem2.sinne0 |
. . . . . . 7
|
16 | 13, 14, 15 | divcan4d 10807 |
. . . . . 6
|
17 | 16 | eqcomd 2628 |
. . . . 5
|
18 | 3, 14, 11 | fsummulc1 14517 |
. . . . . . . . 9
|
19 | 14 | adantr 481 |
. . . . . . . . . . . 12
|
20 | 11, 19 | mulcomd 10061 |
. . . . . . . . . . 11
|
21 | | sinmulcos 40076 |
. . . . . . . . . . . 12
|
22 | 9, 10, 21 | syl2anc 693 |
. . . . . . . . . . 11
|
23 | | 1cnd 10056 |
. . . . . . . . . . . . . . . . 17
|
24 | 6, 23, 9 | adddird 10065 |
. . . . . . . . . . . . . . . 16
|
25 | 23, 9 | mulcld 10060 |
. . . . . . . . . . . . . . . . 17
|
26 | 10, 25 | addcomd 10238 |
. . . . . . . . . . . . . . . 16
|
27 | 8 | mulid2d 10058 |
. . . . . . . . . . . . . . . . . 18
|
28 | 27 | oveq1d 6665 |
. . . . . . . . . . . . . . . . 17
|
29 | 28 | adantr 481 |
. . . . . . . . . . . . . . . 16
|
30 | 24, 26, 29 | 3eqtrrd 2661 |
. . . . . . . . . . . . . . 15
|
31 | 30 | fveq2d 6195 |
. . . . . . . . . . . . . 14
|
32 | 10, 9 | negsubdi2d 10408 |
. . . . . . . . . . . . . . . . 17
|
33 | 32 | eqcomd 2628 |
. . . . . . . . . . . . . . . 16
|
34 | 33 | fveq2d 6195 |
. . . . . . . . . . . . . . 15
|
35 | 10, 9 | subcld 10392 |
. . . . . . . . . . . . . . . 16
|
36 | | sinneg 14876 |
. . . . . . . . . . . . . . . 16
|
37 | 35, 36 | syl 17 |
. . . . . . . . . . . . . . 15
|
38 | 34, 37 | eqtrd 2656 |
. . . . . . . . . . . . . 14
|
39 | 31, 38 | oveq12d 6668 |
. . . . . . . . . . . . 13
|
40 | 9, 10 | addcld 10059 |
. . . . . . . . . . . . . . . 16
|
41 | 40 | sincld 14860 |
. . . . . . . . . . . . . . 15
|
42 | 31, 41 | eqeltrrd 2702 |
. . . . . . . . . . . . . 14
|
43 | 35 | sincld 14860 |
. . . . . . . . . . . . . 14
|
44 | 42, 43 | negsubd 10398 |
. . . . . . . . . . . . 13
|
45 | 6, 9 | mulsubfacd 10492 |
. . . . . . . . . . . . . . 15
|
46 | 45 | fveq2d 6195 |
. . . . . . . . . . . . . 14
|
47 | 46 | oveq2d 6666 |
. . . . . . . . . . . . 13
|
48 | 39, 44, 47 | 3eqtrd 2660 |
. . . . . . . . . . . 12
|
49 | 48 | oveq1d 6665 |
. . . . . . . . . . 11
|
50 | 20, 22, 49 | 3eqtrd 2660 |
. . . . . . . . . 10
|
51 | 50 | sumeq2dv 14433 |
. . . . . . . . 9
|
52 | | 2cnd 11093 |
. . . . . . . . . . 11
|
53 | | peano2cnm 10347 |
. . . . . . . . . . . . . . 15
|
54 | 6, 53 | syl 17 |
. . . . . . . . . . . . . 14
|
55 | 54, 9 | mulcld 10060 |
. . . . . . . . . . . . 13
|
56 | 55 | sincld 14860 |
. . . . . . . . . . . 12
|
57 | 42, 56 | subcld 10392 |
. . . . . . . . . . 11
|
58 | | 2ne0 11113 |
. . . . . . . . . . . 12
|
59 | 58 | a1i 11 |
. . . . . . . . . . 11
|
60 | 3, 52, 57, 59 | fsumdivc 14518 |
. . . . . . . . . 10
|
61 | 3, 57 | fsumcl 14464 |
. . . . . . . . . . 11
|
62 | 61, 52, 59 | divrec2d 10805 |
. . . . . . . . . 10
|
63 | 60, 62 | eqtr3d 2658 |
. . . . . . . . 9
|
64 | 18, 51, 63 | 3eqtrd 2660 |
. . . . . . . 8
|
65 | 64 | oveq2d 6666 |
. . . . . . 7
|
66 | 2, 12, 14 | adddird 10065 |
. . . . . . 7
|
67 | 2, 14, 61 | adddid 10064 |
. . . . . . 7
|
68 | 65, 66, 67 | 3eqtr4d 2666 |
. . . . . 6
|
69 | 68 | oveq1d 6665 |
. . . . 5
|
70 | 10 | sincld 14860 |
. . . . . . . . . . . . 13
|
71 | 42, 70, 56 | npncand 10416 |
. . . . . . . . . . . 12
|
72 | 71 | eqcomd 2628 |
. . . . . . . . . . 11
|
73 | 72 | sumeq2dv 14433 |
. . . . . . . . . 10
|
74 | 42, 70 | subcld 10392 |
. . . . . . . . . . 11
|
75 | 70, 56 | subcld 10392 |
. . . . . . . . . . 11
|
76 | 3, 74, 75 | fsumadd 14470 |
. . . . . . . . . 10
|
77 | | oveq1 6657 |
. . . . . . . . . . . . 13
|
78 | 77 | fveq2d 6195 |
. . . . . . . . . . . 12
|
79 | | oveq1 6657 |
. . . . . . . . . . . . 13
|
80 | 79 | fveq2d 6195 |
. . . . . . . . . . . 12
|
81 | | oveq1 6657 |
. . . . . . . . . . . . 13
|
82 | 81 | fveq2d 6195 |
. . . . . . . . . . . 12
|
83 | | oveq1 6657 |
. . . . . . . . . . . . 13
|
84 | 83 | fveq2d 6195 |
. . . . . . . . . . . 12
|
85 | | dirkertrigeqlem2.n |
. . . . . . . . . . . . 13
|
86 | 85 | nnzd 11481 |
. . . . . . . . . . . 12
|
87 | | nnuz 11723 |
. . . . . . . . . . . . . 14
|
88 | 85, 87 | syl6eleq 2711 |
. . . . . . . . . . . . 13
|
89 | | peano2uz 11741 |
. . . . . . . . . . . . 13
|
90 | 88, 89 | syl 17 |
. . . . . . . . . . . 12
|
91 | | elfzelz 12342 |
. . . . . . . . . . . . . . . 16
|
92 | 91 | zcnd 11483 |
. . . . . . . . . . . . . . 15
|
93 | 92 | adantl 482 |
. . . . . . . . . . . . . 14
|
94 | 8 | adantr 481 |
. . . . . . . . . . . . . 14
|
95 | 93, 94 | mulcld 10060 |
. . . . . . . . . . . . 13
|
96 | 95 | sincld 14860 |
. . . . . . . . . . . 12
|
97 | 78, 80, 82, 84, 86, 90, 96 | telfsum2 14537 |
. . . . . . . . . . 11
|
98 | | 1cnd 10056 |
. . . . . . . . . . . . . . . . . . 19
|
99 | 5, 98 | pncand 10393 |
. . . . . . . . . . . . . . . . . 18
|
100 | 99 | eqcomd 2628 |
. . . . . . . . . . . . . . . . 17
|
101 | 100 | adantl 482 |
. . . . . . . . . . . . . . . 16
|
102 | 101 | oveq1d 6665 |
. . . . . . . . . . . . . . 15
|
103 | 102 | fveq2d 6195 |
. . . . . . . . . . . . . 14
|
104 | 103 | oveq1d 6665 |
. . . . . . . . . . . . 13
|
105 | 104 | sumeq2dv 14433 |
. . . . . . . . . . . 12
|
106 | | oveq1 6657 |
. . . . . . . . . . . . . . 15
|
107 | 106 | oveq1d 6665 |
. . . . . . . . . . . . . 14
|
108 | 107 | fveq2d 6195 |
. . . . . . . . . . . . 13
|
109 | | oveq1 6657 |
. . . . . . . . . . . . . . 15
|
110 | 109 | oveq1d 6665 |
. . . . . . . . . . . . . 14
|
111 | 110 | fveq2d 6195 |
. . . . . . . . . . . . 13
|
112 | | oveq1 6657 |
. . . . . . . . . . . . . . 15
|
113 | 112 | oveq1d 6665 |
. . . . . . . . . . . . . 14
|
114 | 113 | fveq2d 6195 |
. . . . . . . . . . . . 13
|
115 | | oveq1 6657 |
. . . . . . . . . . . . . . 15
|
116 | 115 | oveq1d 6665 |
. . . . . . . . . . . . . 14
|
117 | 116 | fveq2d 6195 |
. . . . . . . . . . . . 13
|
118 | | 1cnd 10056 |
. . . . . . . . . . . . . . . 16
|
119 | 93, 118 | subcld 10392 |
. . . . . . . . . . . . . . 15
|
120 | 119, 94 | mulcld 10060 |
. . . . . . . . . . . . . 14
|
121 | 120 | sincld 14860 |
. . . . . . . . . . . . 13
|
122 | 108, 111,
114, 117, 86, 90, 121 | telfsum2 14537 |
. . . . . . . . . . . 12
|
123 | 85 | nnred 11035 |
. . . . . . . . . . . . . . . . 17
|
124 | 123 | recnd 10068 |
. . . . . . . . . . . . . . . 16
|
125 | 124, 1 | pncand 10393 |
. . . . . . . . . . . . . . 15
|
126 | 125 | oveq1d 6665 |
. . . . . . . . . . . . . 14
|
127 | 126 | fveq2d 6195 |
. . . . . . . . . . . . 13
|
128 | 1 | subidd 10380 |
. . . . . . . . . . . . . . . . 17
|
129 | 128 | oveq1d 6665 |
. . . . . . . . . . . . . . . 16
|
130 | 8 | mul02d 10234 |
. . . . . . . . . . . . . . . 16
|
131 | 129, 130 | eqtrd 2656 |
. . . . . . . . . . . . . . 15
|
132 | 131 | fveq2d 6195 |
. . . . . . . . . . . . . 14
|
133 | | sin0 14879 |
. . . . . . . . . . . . . . 15
|
134 | 133 | a1i 11 |
. . . . . . . . . . . . . 14
|
135 | 132, 134 | eqtrd 2656 |
. . . . . . . . . . . . 13
|
136 | 127, 135 | oveq12d 6668 |
. . . . . . . . . . . 12
|
137 | 105, 122,
136 | 3eqtrd 2660 |
. . . . . . . . . . 11
|
138 | 97, 137 | oveq12d 6668 |
. . . . . . . . . 10
|
139 | 73, 76, 138 | 3eqtrd 2660 |
. . . . . . . . 9
|
140 | 139 | oveq2d 6666 |
. . . . . . . 8
|
141 | 27 | fveq2d 6195 |
. . . . . . . . . . . 12
|
142 | 141 | oveq2d 6666 |
. . . . . . . . . . 11
|
143 | 142 | oveq1d 6665 |
. . . . . . . . . 10
|
144 | 143 | oveq2d 6666 |
. . . . . . . . 9
|
145 | 124, 1 | addcld 10059 |
. . . . . . . . . . . . . 14
|
146 | 145, 8 | mulcld 10060 |
. . . . . . . . . . . . 13
|
147 | 146 | sincld 14860 |
. . . . . . . . . . . 12
|
148 | 147, 14 | subcld 10392 |
. . . . . . . . . . 11
|
149 | 124, 8 | mulcld 10060 |
. . . . . . . . . . . . 13
|
150 | 149 | sincld 14860 |
. . . . . . . . . . . 12
|
151 | | 0cnd 10033 |
. . . . . . . . . . . 12
|
152 | 150, 151 | subcld 10392 |
. . . . . . . . . . 11
|
153 | 14, 148, 152 | addassd 10062 |
. . . . . . . . . 10
|
154 | 153 | eqcomd 2628 |
. . . . . . . . 9
|
155 | 14, 147 | pncan3d 10395 |
. . . . . . . . . . 11
|
156 | 150 | subid1d 10381 |
. . . . . . . . . . 11
|
157 | 155, 156 | oveq12d 6668 |
. . . . . . . . . 10
|
158 | 147, 150 | addcomd 10238 |
. . . . . . . . . 10
|
159 | 157, 158 | eqtrd 2656 |
. . . . . . . . 9
|
160 | 144, 154,
159 | 3eqtrd 2660 |
. . . . . . . 8
|
161 | 140, 160 | eqtrd 2656 |
. . . . . . 7
|
162 | 161 | oveq2d 6666 |
. . . . . 6
|
163 | 162 | oveq1d 6665 |
. . . . 5
|
164 | 17, 69, 163 | 3eqtrd 2660 |
. . . 4
|
165 | | halfre 11246 |
. . . . . . . . . . . 12
|
166 | 165 | a1i 11 |
. . . . . . . . . . 11
|
167 | 123, 166 | readdcld 10069 |
. . . . . . . . . 10
|
168 | 167, 7 | remulcld 10070 |
. . . . . . . . 9
|
169 | 168 | recnd 10068 |
. . . . . . . 8
|
170 | 2, 8 | mulcld 10060 |
. . . . . . . 8
|
171 | | sinmulcos 40076 |
. . . . . . . 8
|
172 | 169, 170,
171 | syl2anc 693 |
. . . . . . 7
|
173 | 124, 2, 8 | adddird 10065 |
. . . . . . . . . . . 12
|
174 | 173 | oveq1d 6665 |
. . . . . . . . . . 11
|
175 | 149, 170,
170 | addassd 10062 |
. . . . . . . . . . 11
|
176 | 2, 2, 8 | adddird 10065 |
. . . . . . . . . . . . . 14
|
177 | 1 | 2halvesd 11278 |
. . . . . . . . . . . . . . 15
|
178 | 177 | oveq1d 6665 |
. . . . . . . . . . . . . 14
|
179 | 176, 178 | eqtr3d 2658 |
. . . . . . . . . . . . 13
|
180 | 179 | oveq2d 6666 |
. . . . . . . . . . . 12
|
181 | 124, 1, 8 | adddird 10065 |
. . . . . . . . . . . 12
|
182 | 180, 181 | eqtr4d 2659 |
. . . . . . . . . . 11
|
183 | 174, 175,
182 | 3eqtrrd 2661 |
. . . . . . . . . 10
|
184 | 183 | fveq2d 6195 |
. . . . . . . . 9
|
185 | 173 | oveq1d 6665 |
. . . . . . . . . . 11
|
186 | 149, 170 | pncand 10393 |
. . . . . . . . . . 11
|
187 | 185, 186 | eqtr2d 2657 |
. . . . . . . . . 10
|
188 | 187 | fveq2d 6195 |
. . . . . . . . 9
|
189 | 184, 188 | oveq12d 6668 |
. . . . . . . 8
|
190 | 189 | oveq1d 6665 |
. . . . . . 7
|
191 | 172, 190 | eqtr4d 2659 |
. . . . . 6
|
192 | 158 | oveq1d 6665 |
. . . . . 6
|
193 | 150, 147 | addcld 10059 |
. . . . . . 7
|
194 | 193, 52, 59 | divrec2d 10805 |
. . . . . 6
|
195 | 191, 192,
194 | 3eqtrrd 2661 |
. . . . 5
|
196 | 195 | oveq1d 6665 |
. . . 4
|
197 | 8, 52, 59 | divcan2d 10803 |
. . . . . . . . 9
|
198 | 197 | eqcomd 2628 |
. . . . . . . 8
|
199 | 198 | fveq2d 6195 |
. . . . . . 7
|
200 | 8 | halfcld 11277 |
. . . . . . . 8
|
201 | | sin2t 14907 |
. . . . . . . 8
|
202 | 200, 201 | syl 17 |
. . . . . . 7
|
203 | 199, 202 | eqtrd 2656 |
. . . . . 6
|
204 | 203 | oveq2d 6666 |
. . . . 5
|
205 | 200 | sincld 14860 |
. . . . . . . 8
|
206 | 200 | coscld 14861 |
. . . . . . . 8
|
207 | 52, 205, 206 | mulassd 10063 |
. . . . . . 7
|
208 | 8, 52, 59 | divrec2d 10805 |
. . . . . . . . 9
|
209 | 208 | fveq2d 6195 |
. . . . . . . 8
|
210 | 209 | oveq2d 6666 |
. . . . . . 7
|
211 | 207, 210 | eqtr3d 2658 |
. . . . . 6
|
212 | 211 | oveq2d 6666 |
. . . . 5
|
213 | 169 | sincld 14860 |
. . . . . 6
|
214 | 52, 205 | mulcld 10060 |
. . . . . 6
|
215 | 170 | coscld 14861 |
. . . . . 6
|
216 | 205, 206 | mulcld 10060 |
. . . . . . . . 9
|
217 | 203, 15 | eqnetrrd 2862 |
. . . . . . . . 9
|
218 | 52, 216, 217 | mulne0bbd 10683 |
. . . . . . . 8
|
219 | 205, 206,
218 | mulne0bad 10682 |
. . . . . . 7
|
220 | 52, 205, 59, 219 | mulne0d 10679 |
. . . . . 6
|
221 | 205, 206,
218 | mulne0bbd 10683 |
. . . . . . 7
|
222 | 209, 221 | eqnetrrd 2862 |
. . . . . 6
|
223 | 213, 214,
215, 220, 222 | divcan5rd 10828 |
. . . . 5
|
224 | 204, 212,
223 | 3eqtrd 2660 |
. . . 4
|
225 | 164, 196,
224 | 3eqtrd 2660 |
. . 3
|
226 | 225 | oveq1d 6665 |
. 2
|
227 | | picn 24211 |
. . . 4
|
228 | 227 | a1i 11 |
. . 3
|
229 | | pire 24210 |
. . . . 5
|
230 | | pipos 24212 |
. . . . 5
|
231 | 229, 230 | gt0ne0ii 10564 |
. . . 4
|
232 | 231 | a1i 11 |
. . 3
|
233 | 213, 214,
228, 220, 232 | divdiv32d 10826 |
. 2
|
234 | 213, 228,
214, 232, 220 | divdiv1d 10832 |
. . 3
|
235 | 228, 52, 205 | mulassd 10063 |
. . . . 5
|
236 | 228, 52 | mulcomd 10061 |
. . . . . 6
|
237 | 236 | oveq1d 6665 |
. . . . 5
|
238 | 235, 237 | eqtr3d 2658 |
. . . 4
|
239 | 238 | oveq2d 6666 |
. . 3
|
240 | 234, 239 | eqtrd 2656 |
. 2
|
241 | 226, 233,
240 | 3eqtrd 2660 |
1
|