| 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
     
                          
          |