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
|