Proof of Theorem discr
Step | Hyp | Ref
| Expression |
1 | | discr.2 |
. . . . . . . . . 10
   |
2 | 1 | adantr 481 |
. . . . . . . . 9
 

  |
3 | | resqcl 12931 |
. . . . . . . . 9
       |
4 | 2, 3 | syl 17 |
. . . . . . . 8
 

      |
5 | 4 | recnd 10068 |
. . . . . . 7
 

      |
6 | | 4re 11097 |
. . . . . . . . 9
 |
7 | | discr.1 |
. . . . . . . . . . 11
   |
8 | 7 | adantr 481 |
. . . . . . . . . 10
 

  |
9 | | discr.3 |
. . . . . . . . . . 11
   |
10 | 9 | adantr 481 |
. . . . . . . . . 10
 

  |
11 | 8, 10 | remulcld 10070 |
. . . . . . . . 9
 

    |
12 | | remulcl 10021 |
. . . . . . . . 9
  
        |
13 | 6, 11, 12 | sylancr 695 |
. . . . . . . 8
 

      |
14 | 13 | recnd 10068 |
. . . . . . 7
 

      |
15 | | 4pos 11116 |
. . . . . . . . . 10
 |
16 | 6, 15 | elrpii 11835 |
. . . . . . . . 9
 |
17 | | simpr 477 |
. . . . . . . . . 10
 

  |
18 | 8, 17 | elrpd 11869 |
. . . . . . . . 9
 

  |
19 | | rpmulcl 11855 |
. . . . . . . . 9
       |
20 | 16, 18, 19 | sylancr 695 |
. . . . . . . 8
 

    |
21 | 20 | rpcnd 11874 |
. . . . . . 7
 

    |
22 | 20 | rpne0d 11877 |
. . . . . . 7
 

    |
23 | 5, 14, 21, 22 | divsubdird 10840 |
. . . . . 6
 

                         
        |
24 | 11 | recnd 10068 |
. . . . . . . . 9
 

    |
25 | 8 | recnd 10068 |
. . . . . . . . 9
 

  |
26 | | 4cn 11098 |
. . . . . . . . . 10
 |
27 | 26 | a1i 11 |
. . . . . . . . 9
 

  |
28 | 18 | rpne0d 11877 |
. . . . . . . . 9
 

  |
29 | | 4ne0 11117 |
. . . . . . . . . 10
 |
30 | 29 | a1i 11 |
. . . . . . . . 9
 

  |
31 | 24, 25, 27, 28, 30 | divcan5d 10827 |
. . . . . . . 8
 

              |
32 | 10 | recnd 10068 |
. . . . . . . . 9
 

  |
33 | 32, 25, 28 | divcan3d 10806 |
. . . . . . . 8
 

 
    |
34 | 31, 33 | eqtrd 2656 |
. . . . . . 7
 

          |
35 | 34 | oveq2d 6666 |
. . . . . 6
 

                              |
36 | 23, 35 | eqtrd 2656 |
. . . . 5
 

                          |
37 | 4, 20 | rerpdivcld 11903 |
. . . . . . . . . . 11
 

          |
38 | 37 | recnd 10068 |
. . . . . . . . . 10
 

          |
39 | 38 | 2timesd 11275 |
. . . . . . . . 9
 

                              |
40 | | 2t2e4 11177 |
. . . . . . . . . . . . 13
   |
41 | 40 | oveq1i 6660 |
. . . . . . . . . . . 12
       |
42 | | 2cnd 11093 |
. . . . . . . . . . . . 13
 

  |
43 | 42, 42, 25 | mulassd 10063 |
. . . . . . . . . . . 12
 

          |
44 | 41, 43 | syl5eqr 2670 |
. . . . . . . . . . 11
 

        |
45 | 44 | oveq2d 6666 |
. . . . . . . . . 10
 

                        |
46 | 42, 5, 21, 22 | divassd 10836 |
. . . . . . . . . 10
 

                      |
47 | | 2rp 11837 |
. . . . . . . . . . . . 13
 |
48 | | rpmulcl 11855 |
. . . . . . . . . . . . 13
       |
49 | 47, 18, 48 | sylancr 695 |
. . . . . . . . . . . 12
 

    |
50 | 49 | rpcnd 11874 |
. . . . . . . . . . 11
 

    |
51 | 49 | rpne0d 11877 |
. . . . . . . . . . 11
 

    |
52 | | 2ne0 11113 |
. . . . . . . . . . . 12
 |
53 | 52 | a1i 11 |
. . . . . . . . . . 11
 

  |
54 | 5, 50, 42, 51, 53 | divcan5d 10827 |
. . . . . . . . . 10
 

                      |
55 | 45, 46, 54 | 3eqtr3d 2664 |
. . . . . . . . 9
 

                    |
56 | 39, 55 | eqtr3d 2658 |
. . . . . . . 8
 

                            |
57 | 2, 49 | rerpdivcld 11903 |
. . . . . . . . . . . 12
 

      |
58 | 57 | renegcld 10457 |
. . . . . . . . . . 11
 

       |
59 | | discr.4 |
. . . . . . . . . . . . 13
 

              |
60 | 59 | ralrimiva 2966 |
. . . . . . . . . . . 12
                |
61 | 60 | adantr 481 |
. . . . . . . . . . 11
 

               |
62 | | oveq1 6657 |
. . . . . . . . . . . . . . . 16
                     |
63 | 62 | oveq2d 6666 |
. . . . . . . . . . . . . . 15
      
                  |
64 | | oveq2 6658 |
. . . . . . . . . . . . . . 15
      
          |
65 | 63, 64 | oveq12d 6668 |
. . . . . . . . . . . . . 14
                                      |
66 | 65 | oveq1d 6665 |
. . . . . . . . . . . . 13
                       
                  |
67 | 66 | breq2d 4665 |
. . . . . . . . . . . 12
      
           
                         |
68 | 67 | rspcv 3305 |
. . . . . . . . . . 11
  
                                          |
69 | 58, 61, 68 | sylc 65 |
. . . . . . . . . 10
 

                        |
70 | 57 | recnd 10068 |
. . . . . . . . . . . . . . . . . . 19
 

      |
71 | | sqneg 12923 |
. . . . . . . . . . . . . . . . . . 19
                        |
72 | 70, 71 | syl 17 |
. . . . . . . . . . . . . . . . . 18
 

                   |
73 | 2 | recnd 10068 |
. . . . . . . . . . . . . . . . . . 19
 

  |
74 | | sqdiv 12928 |
. . . . . . . . . . . . . . . . . . 19
                             |
75 | 73, 50, 51, 74 | syl3anc 1326 |
. . . . . . . . . . . . . . . . . 18
 

                      |
76 | | sqval 12922 |
. . . . . . . . . . . . . . . . . . . . 21
                 |
77 | 50, 76 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
 

              |
78 | 50, 42, 25 | mulassd 10063 |
. . . . . . . . . . . . . . . . . . . 20
 

              |
79 | 42, 25, 42 | mul32d 10246 |
. . . . . . . . . . . . . . . . . . . . . 22
 

          |
80 | 79, 41 | syl6eq 2672 |
. . . . . . . . . . . . . . . . . . . . 21
 

        |
81 | 80 | oveq1d 6665 |
. . . . . . . . . . . . . . . . . . . 20
 

            |
82 | 77, 78, 81 | 3eqtr2d 2662 |
. . . . . . . . . . . . . . . . . . 19
 

            |
83 | 82 | oveq2d 6666 |
. . . . . . . . . . . . . . . . . 18
 

                        |
84 | 72, 75, 83 | 3eqtrd 2660 |
. . . . . . . . . . . . . . . . 17
 

                     |
85 | 5, 21, 25, 22, 28 | divdiv1d 10832 |
. . . . . . . . . . . . . . . . 17
 

                      |
86 | 84, 85 | eqtr4d 2659 |
. . . . . . . . . . . . . . . 16
 

                     |
87 | 86 | oveq2d 6666 |
. . . . . . . . . . . . . . 15
 

                         |
88 | 38, 25, 28 | divcan2d 10803 |
. . . . . . . . . . . . . . 15
 

                      |
89 | 87, 88 | eqtrd 2656 |
. . . . . . . . . . . . . 14
 

                     |
90 | 73, 70 | mulneg2d 10484 |
. . . . . . . . . . . . . . 15
 

         
      |
91 | | sqval 12922 |
. . . . . . . . . . . . . . . . . . 19
         |
92 | 73, 91 | syl 17 |
. . . . . . . . . . . . . . . . . 18
 

        |
93 | 92 | oveq1d 6665 |
. . . . . . . . . . . . . . . . 17
 

                |
94 | 73, 73, 50, 51 | divassd 10836 |
. . . . . . . . . . . . . . . . 17
 

 
            |
95 | 93, 94 | eqtrd 2656 |
. . . . . . . . . . . . . . . 16
 

                |
96 | 95 | negeqd 10275 |
. . . . . . . . . . . . . . 15
 

           
      |
97 | 90, 96 | eqtr4d 2659 |
. . . . . . . . . . . . . 14
 

                  |
98 | 89, 97 | oveq12d 6668 |
. . . . . . . . . . . . 13
 

 
                                       |
99 | 4, 49 | rerpdivcld 11903 |
. . . . . . . . . . . . . . 15
 

          |
100 | 99 | recnd 10068 |
. . . . . . . . . . . . . 14
 

          |
101 | 38, 100 | negsubd 10398 |
. . . . . . . . . . . . 13
 

                                       |
102 | 98, 101 | eqtrd 2656 |
. . . . . . . . . . . 12
 

 
                                      |
103 | 102 | oveq1d 6665 |
. . . . . . . . . . 11
 

                                            |
104 | 38, 32, 100 | addsubd 10413 |
. . . . . . . . . . 11
 

                                          |
105 | 103, 104 | eqtr4d 2659 |
. . . . . . . . . 10
 

                                            |
106 | 69, 105 | breqtrd 4679 |
. . . . . . . . 9
 

                      |
107 | 37, 10 | readdcld 10069 |
. . . . . . . . . 10
 

            |
108 | 107, 99 | subge0d 10617 |
. . . . . . . . 9
 

                    
                     |
109 | 106, 108 | mpbid 222 |
. . . . . . . 8
 

                    |
110 | 56, 109 | eqbrtrd 4675 |
. . . . . . 7
 

                              |
111 | 37, 10, 37 | leadd2d 10622 |
. . . . . . 7
 

        
                               |
112 | 110, 111 | mpbird 247 |
. . . . . 6
 

          |
113 | 37, 10 | suble0d 10618 |
. . . . . 6
 

          
           |
114 | 112, 113 | mpbird 247 |
. . . . 5
 

            |
115 | 36, 114 | eqbrtrd 4675 |
. . . 4
 

                |
116 | 4, 13 | resubcld 10458 |
. . . . 5
 

      
     |
117 | | 0red 10041 |
. . . . 5
 

  |
118 | 116, 117,
20 | ledivmuld 11925 |
. . . 4
 

              
      
          |
119 | 115, 118 | mpbid 222 |
. . 3
 

      
         |
120 | 21 | mul01d 10235 |
. . 3
 

      |
121 | 119, 120 | breqtrd 4679 |
. 2
 

      
     |
122 | 9 | adantr 481 |
. . . . . . . . . . . 12
 
  
  |
123 | 122 | ltp1d 10954 |
. . . . . . . . . . 11
 
       |
124 | | peano2re 10209 |
. . . . . . . . . . . . 13
 
   |
125 | 122, 124 | syl 17 |
. . . . . . . . . . . 12
 
       |
126 | 122, 125 | ltnegd 10605 |
. . . . . . . . . . 11
 
    
        |
127 | 123, 126 | mpbid 222 |
. . . . . . . . . 10
 
         |
128 | | df-neg 10269 |
. . . . . . . . . 10
    |
129 | 127, 128 | syl6breq 4694 |
. . . . . . . . 9
 
          |
130 | 125 | renegcld 10457 |
. . . . . . . . . 10
 
        |
131 | | 0red 10041 |
. . . . . . . . . 10
 
     |
132 | 130, 122,
131 | ltaddsubd 10627 |
. . . . . . . . 9
 
      
          |
133 | 129, 132 | mpbird 247 |
. . . . . . . 8
 
       
  |
134 | 133 | expr 643 |
. . . . . . 7
 
          |
135 | 1 | adantr 481 |
. . . . . . . . . . . 12
 
  
  |
136 | | simprr 796 |
. . . . . . . . . . . 12
 
     |
137 | 130, 135,
136 | redivcld 10853 |
. . . . . . . . . . 11
 
          |
138 | 60 | adantr 481 |
. . . . . . . . . . 11
 
   
              |
139 | | oveq1 6657 |
. . . . . . . . . . . . . . . 16
   
                 |
140 | 139 | oveq2d 6666 |
. . . . . . . . . . . . . . 15
   
            
        |
141 | | oveq2 6658 |
. . . . . . . . . . . . . . 15
   
       
     |
142 | 140, 141 | oveq12d 6668 |
. . . . . . . . . . . . . 14
   
                           
      |
143 | 142 | oveq1d 6665 |
. . . . . . . . . . . . 13
   
                              
       |
144 | 143 | breq2d 4665 |
. . . . . . . . . . . 12
   
              
                
        |
145 | 144 | rspcv 3305 |
. . . . . . . . . . 11
                          
                  |
146 | 137, 138,
145 | sylc 65 |
. . . . . . . . . 10
 
  
                
       |
147 | | simprl 794 |
. . . . . . . . . . . . . . 15
 
     |
148 | 147 | oveq1d 6665 |
. . . . . . . . . . . . . 14
 
                  
        |
149 | 137 | recnd 10068 |
. . . . . . . . . . . . . . . 16
 
          |
150 | | sqcl 12925 |
. . . . . . . . . . . . . . . 16
                 |
151 | 149, 150 | syl 17 |
. . . . . . . . . . . . . . 15
 
      
       |
152 | 151 | mul02d 10234 |
. . . . . . . . . . . . . 14
 
                |
153 | 148, 152 | eqtr3d 2658 |
. . . . . . . . . . . . 13
 
                |
154 | 130 | recnd 10068 |
. . . . . . . . . . . . . 14
 
        |
155 | 135 | recnd 10068 |
. . . . . . . . . . . . . 14
 
  
  |
156 | 154, 155,
136 | divcan2d 10803 |
. . . . . . . . . . . . 13
 
           
   |
157 | 153, 156 | oveq12d 6668 |
. . . . . . . . . . . 12
 
        
                
    |
158 | 154 | addid2d 10237 |
. . . . . . . . . . . 12
 
     
   
   |
159 | 157, 158 | eqtrd 2656 |
. . . . . . . . . . 11
 
        
               
   |
160 | 159 | oveq1d 6665 |
. . . . . . . . . 10
 
         
                      |
161 | 146, 160 | breqtrd 4679 |
. . . . . . . . 9
 
  
  
    |
162 | | 0re 10040 |
. . . . . . . . . 10
 |
163 | 130, 122 | readdcld 10069 |
. . . . . . . . . 10
 
          |
164 | | lenlt 10116 |
. . . . . . . . . 10
             
  
     |
165 | 162, 163,
164 | sylancr 695 |
. . . . . . . . 9
 
                 |
166 | 161, 165 | mpbid 222 |
. . . . . . . 8
 
          |
167 | 166 | expr 643 |
. . . . . . 7
 
      
   |
168 | 134, 167 | pm2.65d 187 |
. . . . . 6
 
   |
169 | | nne 2798 |
. . . . . 6
   |
170 | 168, 169 | sylib 208 |
. . . . 5
 
   |
171 | 170 | sq0id 12957 |
. . . 4
 
       |
172 | | simpr 477 |
. . . . . . . 8
 
   |
173 | 172 | oveq1d 6665 |
. . . . . . 7
 
       |
174 | 9 | recnd 10068 |
. . . . . . . . 9
   |
175 | 174 | adantr 481 |
. . . . . . . 8
 
   |
176 | 175 | mul02d 10234 |
. . . . . . 7
 
     |
177 | 173, 176 | eqtr3d 2658 |
. . . . . 6
 
 
   |
178 | 177 | oveq2d 6666 |
. . . . 5
 
         |
179 | 26 | mul01i 10226 |
. . . . 5
   |
180 | 178, 179 | syl6eq 2672 |
. . . 4
 
       |
181 | 171, 180 | oveq12d 6668 |
. . 3
 
               |
182 | | 0m0e0 11130 |
. . . 4
   |
183 | | 0le0 11110 |
. . . 4
 |
184 | 182, 183 | eqbrtri 4674 |
. . 3
   |
185 | 181, 184 | syl6eqbr 4692 |
. 2
 
             |
186 | | eqid 2622 |
. . . 4
 
                            
                            |
187 | 7, 1, 9, 59, 186 | discr1 13000 |
. . 3

  |
188 | | leloe 10124 |
. . . 4
 
  
    |
189 | 162, 7, 188 | sylancr 695 |
. . 3
  
    |
190 | 187, 189 | mpbid 222 |
. 2
 
   |
191 | 121, 185,
190 | mpjaodan 827 |
1
          
  |