Proof of Theorem selberg4r
| Step | Hyp | Ref
| Expression |
| 1 | | elioore 12205 |
. . . . . . . . . . . . 13
   
  |
| 2 | 1 | adantl 482 |
. . . . . . . . . . . 12
       |
| 3 | | 1rp 11836 |
. . . . . . . . . . . . 13
 |
| 4 | 3 | a1i 11 |
. . . . . . . . . . . 12
       |
| 5 | | 1red 10055 |
. . . . . . . . . . . . 13
       |
| 6 | | eliooord 12233 |
. . . . . . . . . . . . . . 15
   
    |
| 7 | 6 | adantl 482 |
. . . . . . . . . . . . . 14
     
   |
| 8 | 7 | simpld 475 |
. . . . . . . . . . . . 13
       |
| 9 | 5, 2, 8 | ltled 10185 |
. . . . . . . . . . . 12
       |
| 10 | 2, 4, 9 | rpgecld 11911 |
. . . . . . . . . . 11
       |
| 11 | | pntrval.r |
. . . . . . . . . . . 12
  ψ     |
| 12 | 11 | pntrval 25251 |
. . . . . . . . . . 11

     ψ     |
| 13 | 10, 12 | syl 17 |
. . . . . . . . . 10
          ψ     |
| 14 | 13 | oveq1d 6665 |
. . . . . . . . 9
                 ψ          |
| 15 | | chpcl 24850 |
. . . . . . . . . . . 12
 ψ    |
| 16 | 2, 15 | syl 17 |
. . . . . . . . . . 11
     ψ    |
| 17 | 16 | recnd 10068 |
. . . . . . . . . 10
     ψ    |
| 18 | 2 | recnd 10068 |
. . . . . . . . . 10
       |
| 19 | 10 | relogcld 24369 |
. . . . . . . . . . 11
           |
| 20 | 19 | recnd 10068 |
. . . . . . . . . 10
           |
| 21 | 17, 18, 20 | subdird 10487 |
. . . . . . . . 9
       ψ          ψ       
        |
| 22 | 14, 21 | eqtrd 2656 |
. . . . . . . 8
                 ψ                |
| 23 | 10 | ad2antrr 762 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
  |
| 24 | | elfznn 12370 |
. . . . . . . . . . . . . . . . . . . . . . . 24
           |
| 25 | 24 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
              
  |
| 26 | 25 | nnrpd 11870 |
. . . . . . . . . . . . . . . . . . . . . 22
              
  |
| 27 | 26 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
  |
| 28 | 23, 27 | rpdivcld 11889 |
. . . . . . . . . . . . . . . . . . . 20
  
                       
    |
| 29 | | elfznn 12370 |
. . . . . . . . . . . . . . . . . . . . . 22
             |
| 30 | 29 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
  |
| 31 | 30 | nnrpd 11870 |
. . . . . . . . . . . . . . . . . . . 20
  
                       
  |
| 32 | 28, 31 | rpdivcld 11889 |
. . . . . . . . . . . . . . . . . . 19
  
                       
      |
| 33 | 11 | pntrval 25251 |
. . . . . . . . . . . . . . . . . . 19
    
         ψ             |
| 34 | 32, 33 | syl 17 |
. . . . . . . . . . . . . . . . . 18
  
                       
         ψ             |
| 35 | 34 | oveq2d 6666 |
. . . . . . . . . . . . . . . . 17
  
                       
 Λ            Λ   ψ              |
| 36 | | vmacl 24844 |
. . . . . . . . . . . . . . . . . . . 20
 Λ    |
| 37 | 30, 36 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
  
                       
Λ    |
| 38 | 37 | recnd 10068 |
. . . . . . . . . . . . . . . . . 18
  
                       
Λ    |
| 39 | 2 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
              
  |
| 40 | 39, 25 | nndivred 11069 |
. . . . . . . . . . . . . . . . . . . . . 22
              
    |
| 41 | 40 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
    |
| 42 | 41, 30 | nndivred 11069 |
. . . . . . . . . . . . . . . . . . . 20
  
                       
      |
| 43 | | chpcl 24850 |
. . . . . . . . . . . . . . . . . . . 20
     ψ        |
| 44 | 42, 43 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
  
                       
ψ        |
| 45 | 44 | recnd 10068 |
. . . . . . . . . . . . . . . . . 18
  
                       
ψ        |
| 46 | 42 | recnd 10068 |
. . . . . . . . . . . . . . . . . 18
  
                       
      |
| 47 | 38, 45, 46 | subdid 10486 |
. . . . . . . . . . . . . . . . 17
  
                       
 Λ   ψ              Λ  ψ        Λ          |
| 48 | 35, 47 | eqtrd 2656 |
. . . . . . . . . . . . . . . 16
  
                       
 Λ             Λ  ψ        Λ          |
| 49 | 48 | sumeq2dv 14433 |
. . . . . . . . . . . . . . 15
              
             Λ                         Λ  ψ        Λ          |
| 50 | | fzfid 12772 |
. . . . . . . . . . . . . . . 16
              
      
     |
| 51 | 37, 44 | remulcld 10070 |
. . . . . . . . . . . . . . . . 17
  
                       
 Λ  ψ         |
| 52 | 51 | recnd 10068 |
. . . . . . . . . . . . . . . 16
  
                       
 Λ  ψ         |
| 53 | 38, 46 | mulcld 10060 |
. . . . . . . . . . . . . . . 16
  
                       
 Λ         |
| 54 | 50, 52, 53 | fsumsub 14520 |
. . . . . . . . . . . . . . 15
              
              Λ  ψ        Λ                      Λ  ψ              
     Λ          |
| 55 | 49, 54 | eqtrd 2656 |
. . . . . . . . . . . . . 14
              
             Λ                         Λ  ψ              
     Λ          |
| 56 | 55 | oveq2d 6666 |
. . . . . . . . . . . . 13
              
 Λ               Λ             Λ                Λ  ψ              
     Λ           |
| 57 | | vmacl 24844 |
. . . . . . . . . . . . . . . 16
 Λ    |
| 58 | 25, 57 | syl 17 |
. . . . . . . . . . . . . . 15
              
Λ    |
| 59 | 58 | recnd 10068 |
. . . . . . . . . . . . . 14
              
Λ    |
| 60 | 50, 51 | fsumrecl 14465 |
. . . . . . . . . . . . . . 15
              
             Λ  ψ         |
| 61 | 60 | recnd 10068 |
. . . . . . . . . . . . . 14
              
             Λ  ψ         |
| 62 | 50, 53 | fsumcl 14464 |
. . . . . . . . . . . . . 14
              
             Λ         |
| 63 | 59, 61, 62 | subdid 10486 |
. . . . . . . . . . . . 13
              
 Λ          
     Λ  ψ                    Λ           Λ               Λ  ψ         Λ               Λ           |
| 64 | 56, 63 | eqtrd 2656 |
. . . . . . . . . . . 12
              
 Λ               Λ              Λ               Λ  ψ         Λ               Λ           |
| 65 | 64 | sumeq2dv 14433 |
. . . . . . . . . . 11
                Λ               Λ                        Λ               Λ  ψ         Λ               Λ           |
| 66 | | fzfid 12772 |
. . . . . . . . . . . 12
               |
| 67 | 58, 60 | remulcld 10070 |
. . . . . . . . . . . . 13
              
 Λ               Λ  ψ          |
| 68 | 67 | recnd 10068 |
. . . . . . . . . . . 12
              
 Λ               Λ  ψ          |
| 69 | 59, 62 | mulcld 10060 |
. . . . . . . . . . . 12
              
 Λ               Λ          |
| 70 | 66, 68, 69 | fsumsub 14520 |
. . . . . . . . . . 11
                 Λ               Λ  ψ         Λ               Λ          
          Λ               Λ  ψ                   Λ               Λ           |
| 71 | 65, 70 | eqtrd 2656 |
. . . . . . . . . 10
                Λ               Λ                        Λ               Λ  ψ                   Λ               Λ           |
| 72 | 71 | oveq2d 6666 |
. . . . . . . . 9
                       Λ               Λ                                Λ               Λ  ψ                   Λ               Λ            |
| 73 | | 2re 11090 |
. . . . . . . . . . . . 13
 |
| 74 | 73 | a1i 11 |
. . . . . . . . . . . 12
       |
| 75 | 2, 8 | rplogcld 24375 |
. . . . . . . . . . . 12
           |
| 76 | 74, 75 | rerpdivcld 11903 |
. . . . . . . . . . 11
             |
| 77 | 76 | recnd 10068 |
. . . . . . . . . 10
             |
| 78 | 66, 67 | fsumrecl 14465 |
. . . . . . . . . . 11
                Λ               Λ  ψ          |
| 79 | 78 | recnd 10068 |
. . . . . . . . . 10
                Λ               Λ  ψ          |
| 80 | 66, 69 | fsumcl 14464 |
. . . . . . . . . 10
                Λ               Λ          |
| 81 | 77, 79, 80 | subdid 10486 |
. . . . . . . . 9
                        Λ               Λ  ψ                   Λ               Λ                             Λ               Λ  ψ                
          Λ               Λ            |
| 82 | 72, 81 | eqtrd 2656 |
. . . . . . . 8
                       Λ               Λ                                Λ               Λ  ψ                
          Λ               Λ            |
| 83 | 22, 82 | oveq12d 6668 |
. . . . . . 7
                                  Λ               Λ                 ψ                      
          Λ               Λ  ψ                
          Λ               Λ             |
| 84 | 16, 19 | remulcld 10070 |
. . . . . . . . 9
      ψ         |
| 85 | 84 | recnd 10068 |
. . . . . . . 8
      ψ         |
| 86 | 18, 20 | mulcld 10060 |
. . . . . . . 8
             |
| 87 | 76, 78 | remulcld 10070 |
. . . . . . . . 9
                       Λ               Λ  ψ           |
| 88 | 87 | recnd 10068 |
. . . . . . . 8
                       Λ               Λ  ψ           |
| 89 | 77, 80 | mulcld 10060 |
. . . . . . . 8
                       Λ               Λ           |
| 90 | 85, 86, 88, 89 | sub4d 10441 |
. . . . . . 7
        ψ                                 Λ               Λ  ψ                
          Λ               Λ              ψ                         Λ               Λ  ψ                                   Λ               Λ             |
| 91 | 83, 90 | eqtrd 2656 |
. . . . . 6
                                  Λ               Λ                 ψ                         Λ               Λ  ψ                                   Λ               Λ             |
| 92 | 91 | oveq1d 6665 |
. . . . 5
                                   Λ               Λ                   ψ                         Λ               Λ  ψ                                   Λ               Λ              |
| 93 | 84, 87 | resubcld 10458 |
. . . . . . . 8
       ψ                         Λ               Λ  ψ            |
| 94 | 93 | recnd 10068 |
. . . . . . 7
       ψ                         Λ               Λ  ψ            |
| 95 | 2, 19 | remulcld 10070 |
. . . . . . . . 9
             |
| 96 | 37, 42 | remulcld 10070 |
. . . . . . . . . . . . 13
  
                       
 Λ         |
| 97 | 50, 96 | fsumrecl 14465 |
. . . . . . . . . . . 12
              
             Λ         |
| 98 | 58, 97 | remulcld 10070 |
. . . . . . . . . . 11
              
 Λ               Λ          |
| 99 | 66, 98 | fsumrecl 14465 |
. . . . . . . . . 10
                Λ               Λ          |
| 100 | 76, 99 | remulcld 10070 |
. . . . . . . . 9
                       Λ               Λ           |
| 101 | 95, 100 | resubcld 10458 |
. . . . . . . 8
                              Λ               Λ            |
| 102 | 101 | recnd 10068 |
. . . . . . 7
                              Λ               Λ            |
| 103 | 10 | rpne0d 11877 |
. . . . . . 7
       |
| 104 | 94, 102, 18, 103 | divsubdird 10840 |
. . . . . 6
         ψ                         Λ               Λ  ψ                                   Λ               Λ                ψ                         Λ               Λ  ψ                                     Λ               Λ              |
| 105 | 95 | recnd 10068 |
. . . . . . . . . 10
             |
| 106 | 99 | recnd 10068 |
. . . . . . . . . . 11
                Λ               Λ          |
| 107 | 77, 106 | mulcld 10060 |
. . . . . . . . . 10
                       Λ               Λ           |
| 108 | 105, 107,
18, 103 | divsubdird 10840 |
. . . . . . . . 9
                               Λ               Λ                                       Λ               Λ             |
| 109 | 20, 18, 103 | divcan3d 10806 |
. . . . . . . . . 10
                   |
| 110 | 77, 106, 18, 103 | divassd 10836 |
. . . . . . . . . . 11
                        Λ               Λ                             Λ               Λ            |
| 111 | 98 | recnd 10068 |
. . . . . . . . . . . . . 14
              
 Λ               Λ          |
| 112 | 66, 18, 111, 103 | fsumdivc 14518 |
. . . . . . . . . . . . 13
                 Λ               Λ                     Λ               Λ           |
| 113 | 41 | recnd 10068 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
    |
| 114 | 30 | nncnd 11036 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
  |
| 115 | 30 | nnne0d 11065 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
  |
| 116 | 113, 38, 114, 115 | div12d 10837 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
    Λ     Λ         |
| 117 | 18 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
              
  |
| 118 | 117 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
  |
| 119 | 25 | nncnd 11036 |
. . . . . . . . . . . . . . . . . . . . . . 23
              
  |
| 120 | 119 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
  |
| 121 | 37, 30 | nndivred 11069 |
. . . . . . . . . . . . . . . . . . . . . . 23
  
                       
 Λ     |
| 122 | 121 | recnd 10068 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
 Λ     |
| 123 | 25 | nnne0d 11065 |
. . . . . . . . . . . . . . . . . . . . . . 23
              
  |
| 124 | 123 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
  |
| 125 | 118, 120,
122, 124 | div32d 10824 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
    Λ       Λ       |
| 126 | 116, 125 | eqtr3d 2658 |
. . . . . . . . . . . . . . . . . . . 20
  
                       
 Λ          Λ       |
| 127 | 126 | oveq1d 6665 |
. . . . . . . . . . . . . . . . . . 19
  
                       
  Λ            Λ        |
| 128 | 25 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
  
                       
  |
| 129 | 121, 128 | nndivred 11069 |
. . . . . . . . . . . . . . . . . . . . 21
  
                       
  Λ      |
| 130 | 129 | recnd 10068 |
. . . . . . . . . . . . . . . . . . . 20
  
                       
  Λ      |
| 131 | 103 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
              
  |
| 132 | 131 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
  
                       
  |
| 133 | 130, 118,
132 | divcan3d 10806 |
. . . . . . . . . . . . . . . . . . 19
  
                       
    Λ        Λ      |
| 134 | 127, 133 | eqtrd 2656 |
. . . . . . . . . . . . . . . . . 18
  
                       
  Λ          Λ      |
| 135 | 134 | sumeq2dv 14433 |
. . . . . . . . . . . . . . . . 17
              
              Λ        
      
      Λ      |
| 136 | 96 | recnd 10068 |
. . . . . . . . . . . . . . . . . 18
  
                       
 Λ         |
| 137 | 50, 117, 136, 131 | fsumdivc 14518 |
. . . . . . . . . . . . . . . . 17
              
              Λ                      Λ          |
| 138 | 50, 119, 122, 123 | fsumdivc 14518 |
. . . . . . . . . . . . . . . . 17
              
              Λ                  Λ      |
| 139 | 135, 137,
138 | 3eqtr4d 2666 |
. . . . . . . . . . . . . . . 16
              
              Λ                      Λ      |
| 140 | 139 | oveq2d 6666 |
. . . . . . . . . . . . . . 15
              
 Λ          
     Λ          Λ                Λ       |
| 141 | 97 | recnd 10068 |
. . . . . . . . . . . . . . . 16
              
             Λ         |
| 142 | 59, 141, 117, 131 | divassd 10836 |
. . . . . . . . . . . . . . 15
              
  Λ  
      
     Λ          Λ                Λ           |
| 143 | 50, 121 | fsumrecl 14465 |
. . . . . . . . . . . . . . . . 17
              
             Λ     |
| 144 | 143 | recnd 10068 |
. . . . . . . . . . . . . . . 16
              
             Λ     |
| 145 | 59, 119, 144, 123 | div32d 10824 |
. . . . . . . . . . . . . . 15
              
  Λ                Λ     Λ                Λ       |
| 146 | 140, 142,
145 | 3eqtr4d 2666 |
. . . . . . . . . . . . . 14
              
  Λ  
      
     Λ           Λ                Λ      |
| 147 | 146 | sumeq2dv 14433 |
. . . . . . . . . . . . 13
                 Λ               Λ                     Λ                Λ      |
| 148 | 112, 147 | eqtrd 2656 |
. . . . . . . . . . . 12
                 Λ               Λ                     Λ                Λ      |
| 149 | 148 | oveq2d 6666 |
. . . . . . . . . . 11
                        Λ               Λ                 
           Λ                Λ       |
| 150 | 110, 149 | eqtrd 2656 |
. . . . . . . . . 10
                        Λ               Λ                             Λ                Λ       |
| 151 | 109, 150 | oveq12d 6668 |
. . . . . . . . 9
                                 Λ               Λ                       
           Λ                Λ        |
| 152 | 108, 151 | eqtrd 2656 |
. . . . . . . 8
                               Λ               Λ                       
           Λ                Λ        |
| 153 | 152 | oveq2d 6666 |
. . . . . . 7
         ψ                         Λ               Λ  ψ                                     Λ               Λ                ψ                         Λ               Λ  ψ                                   Λ                Λ         |
| 154 | 94, 18, 103 | divcld 10801 |
. . . . . . . 8
        ψ                         Λ               Λ  ψ             |
| 155 | 58, 25 | nndivred 11069 |
. . . . . . . . . . . 12
              
 Λ     |
| 156 | 155, 143 | remulcld 10070 |
. . . . . . . . . . 11
              
  Λ                Λ      |
| 157 | 66, 156 | fsumrecl 14465 |
. . . . . . . . . 10
                 Λ                Λ      |
| 158 | 76, 157 | remulcld 10070 |
. . . . . . . . 9
                        Λ                Λ       |
| 159 | 158 | recnd 10068 |
. . . . . . . 8
                        Λ                Λ       |
| 160 | 154, 20, 159 | subsub2d 10421 |
. . . . . . 7
         ψ                         Λ               Λ  ψ                                   Λ                Λ           ψ                         Λ               Λ  ψ                               Λ                Λ             |
| 161 | 153, 160 | eqtrd 2656 |
. . . . . 6
         ψ                         Λ               Λ  ψ                                     Λ               Λ                ψ                         Λ               Λ  ψ                               Λ                Λ             |
| 162 | 104, 161 | eqtrd 2656 |
. . . . 5
         ψ                         Λ               Λ  ψ                                   Λ               Λ                ψ                         Λ               Λ  ψ                               Λ                Λ             |
| 163 | 92, 162 | eqtrd 2656 |
. . . 4
                                   Λ               Λ                   ψ                         Λ               Λ  ψ                               Λ                Λ             |
| 164 | 163 | mpteq2dva 4744 |
. . 3
                                  Λ               Λ                        ψ                         Λ               Λ  ψ                               Λ                Λ              |
| 165 | 93, 10 | rerpdivcld 11903 |
. . . 4
        ψ                         Λ               Λ  ψ             |
| 166 | 158, 19 | resubcld 10458 |
. . . 4
                         Λ                Λ            |
| 167 | | selberg4 25250 |
. . . . 5
   
   ψ                         Λ               Λ  ψ                |
| 168 | 167 | a1i 11 |
. . . 4
       ψ                         Λ               Λ  ψ                 |
| 169 | | 2cnd 11093 |
. . . . . . . 8
       |
| 170 | 157, 75 | rerpdivcld 11903 |
. . . . . . . . 9
                  Λ                Λ           |
| 171 | 170 | recnd 10068 |
. . . . . . . 8
                  Λ                Λ           |
| 172 | 19 | rehalfcld 11279 |
. . . . . . . . 9
             |
| 173 | 172 | recnd 10068 |
. . . . . . . 8
             |
| 174 | 169, 171,
173 | subdid 10486 |
. . . . . . 7
        
           Λ                Λ                                Λ                Λ                     |
| 175 | 157 | recnd 10068 |
. . . . . . . . . 10
                 Λ                Λ      |
| 176 | 75 | rpne0d 11877 |
. . . . . . . . . 10
           |
| 177 | 169, 20, 175, 176 | div32d 10824 |
. . . . . . . . 9
                        Λ                Λ                   Λ                Λ            |
| 178 | 177 | eqcomd 2628 |
. . . . . . . 8
                   Λ                Λ                 
           Λ                Λ       |
| 179 | | 2ne0 11113 |
. . . . . . . . . 10
 |
| 180 | 179 | a1i 11 |
. . . . . . . . 9
       |
| 181 | 20, 169, 180 | divcan2d 10803 |
. . . . . . . 8
                   |
| 182 | 178, 181 | oveq12d 6668 |
. . . . . . 7
                    Λ                Λ                                       Λ                Λ            |
| 183 | 174, 182 | eqtrd 2656 |
. . . . . 6
        
           Λ                Λ                                     Λ                Λ            |
| 184 | 183 | mpteq2dva 4744 |
. . . . 5
                   Λ                Λ                                          Λ                Λ             |
| 185 | 170, 172 | resubcld 10458 |
. . . . . 6
                   Λ                Λ                  |
| 186 | | ioossre 12235 |
. . . . . . 7
    |
| 187 | | 2cnd 11093 |
. . . . . . 7
  |
| 188 | | o1const 14350 |
. . . . . . 7
                |
| 189 | 186, 187,
188 | sylancr 695 |
. . . . . 6
          |
| 190 | | 2vmadivsum 25230 |
. . . . . . 7
   
  
           Λ                Λ                     |
| 191 | 190 | a1i 11 |
. . . . . 6
                  Λ                Λ                      |
| 192 | 74, 185, 189, 191 | o1mul2 14355 |
. . . . 5
                   Λ                Λ                       |
| 193 | 184, 192 | eqeltrrd 2702 |
. . . 4
                        Λ                Λ                |
| 194 | 165, 166,
168, 193 | o1add2 14354 |
. . 3
        ψ                         Λ               Λ  ψ                               Λ                Λ                 |
| 195 | 164, 194 | eqeltrd 2701 |
. 2
                                  Λ               Λ                     |
| 196 | 195 | trud 1493 |
1
   
                              Λ               Λ                    |