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