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
     
                          
          |