Proof of Theorem dquart
Step | Hyp | Ref
| Expression |
1 | | dquart.x |
. . . . . . . . 9
   |
2 | 1 | sqcld 13006 |
. . . . . . . 8
       |
3 | | dquart.m |
. . . . . . . . . . 11
         |
4 | | 2cn 11091 |
. . . . . . . . . . . . 13
 |
5 | | dquart.s |
. . . . . . . . . . . . 13
   |
6 | | mulcl 10020 |
. . . . . . . . . . . . 13
 
     |
7 | 4, 5, 6 | sylancr 695 |
. . . . . . . . . . . 12
     |
8 | 7 | sqcld 13006 |
. . . . . . . . . . 11
         |
9 | 3, 8 | eqeltrd 2701 |
. . . . . . . . . 10
   |
10 | | dquart.b |
. . . . . . . . . 10
   |
11 | 9, 10 | addcld 10059 |
. . . . . . . . 9
     |
12 | 11 | halfcld 11277 |
. . . . . . . 8
       |
13 | | binom2 12979 |
. . . . . . . 8
                                                           |
14 | 2, 12, 13 | syl2anc 693 |
. . . . . . 7
                                                 |
15 | | 2t2e4 11177 |
. . . . . . . . . . . 12
   |
16 | 15 | oveq2i 6661 |
. . . . . . . . . . 11
           |
17 | | 2nn0 11309 |
. . . . . . . . . . . . 13
 |
18 | 17 | a1i 11 |
. . . . . . . . . . . 12
   |
19 | 1, 18, 18 | expmuld 13011 |
. . . . . . . . . . 11
                 |
20 | 16, 19 | syl5reqr 2671 |
. . . . . . . . . 10
               |
21 | 4 | a1i 11 |
. . . . . . . . . . . 12
   |
22 | 21, 2, 12 | mul12d 10245 |
. . . . . . . . . . 11
                           |
23 | | 2ne0 11113 |
. . . . . . . . . . . . . . 15
 |
24 | 23 | a1i 11 |
. . . . . . . . . . . . . 14
   |
25 | 11, 21, 24 | divcan2d 10803 |
. . . . . . . . . . . . 13
           |
26 | 25 | oveq2d 6666 |
. . . . . . . . . . . 12
                       |
27 | 2, 11 | mulcomd 10061 |
. . . . . . . . . . . 12
      
            |
28 | 26, 27 | eqtrd 2656 |
. . . . . . . . . . 11
                       |
29 | 9, 10, 2 | adddird 10065 |
. . . . . . . . . . 11
                         |
30 | 22, 28, 29 | 3eqtrd 2660 |
. . . . . . . . . 10
                             |
31 | 20, 30 | oveq12d 6668 |
. . . . . . . . 9
                                             |
32 | | 4nn0 11311 |
. . . . . . . . . . 11
 |
33 | | expcl 12878 |
. . . . . . . . . . 11
 
       |
34 | 1, 32, 33 | sylancl 694 |
. . . . . . . . . 10
       |
35 | 9, 2 | mulcld 10060 |
. . . . . . . . . 10
         |
36 | 10, 2 | mulcld 10060 |
. . . . . . . . . 10
         |
37 | 34, 35, 36 | add12d 10262 |
. . . . . . . . 9
                                           |
38 | 31, 37 | eqtrd 2656 |
. . . . . . . 8
                                             |
39 | 38 | oveq1d 6665 |
. . . . . . 7
                                                                 |
40 | 34, 36 | addcld 10059 |
. . . . . . . 8
               |
41 | 12 | sqcld 13006 |
. . . . . . . 8
           |
42 | 35, 40, 41 | addassd 10062 |
. . . . . . 7
                                                               |
43 | 14, 39, 42 | 3eqtrd 2660 |
. . . . . 6
                                               |
44 | 9 | halfcld 11277 |
. . . . . . . . . . . 12
     |
45 | 44, 1 | mulcld 10060 |
. . . . . . . . . . 11
       |
46 | | dquart.c |
. . . . . . . . . . . 12
   |
47 | | 4cn 11098 |
. . . . . . . . . . . . 13
 |
48 | 47 | a1i 11 |
. . . . . . . . . . . 12
   |
49 | | 4ne0 11117 |
. . . . . . . . . . . . 13
 |
50 | 49 | a1i 11 |
. . . . . . . . . . . 12
   |
51 | 46, 48, 50 | divcld 10801 |
. . . . . . . . . . 11
     |
52 | 45, 51 | subcld 10392 |
. . . . . . . . . 10
           |
53 | | dquart.m0 |
. . . . . . . . . . . . . 14
   |
54 | 3, 53 | eqnetrrd 2862 |
. . . . . . . . . . . . 13
         |
55 | | sqne0 12930 |
. . . . . . . . . . . . . 14
               |
56 | 7, 55 | syl 17 |
. . . . . . . . . . . . 13
             |
57 | 54, 56 | mpbid 222 |
. . . . . . . . . . . 12
     |
58 | | mulne0b 10668 |
. . . . . . . . . . . . 13
 
   
     |
59 | 4, 5, 58 | sylancr 695 |
. . . . . . . . . . . 12
   
     |
60 | 57, 59 | mpbird 247 |
. . . . . . . . . . 11
 
   |
61 | 60 | simprd 479 |
. . . . . . . . . 10
   |
62 | 52, 5, 21, 61, 24 | divcan5d 10827 |
. . . . . . . . 9
                           |
63 | 21, 45, 51 | subdid 10486 |
. . . . . . . . . . 11
                         |
64 | 21, 44, 1 | mulassd 10063 |
. . . . . . . . . . . . 13
               |
65 | 9, 21, 24 | divcan2d 10803 |
. . . . . . . . . . . . . 14
       |
66 | 65 | oveq1d 6665 |
. . . . . . . . . . . . 13
           |
67 | 64, 66 | eqtr3d 2658 |
. . . . . . . . . . . 12
           |
68 | 21, 46, 48, 50 | divassd 10836 |
. . . . . . . . . . . . 13
           |
69 | 15 | oveq2i 6661 |
. . . . . . . . . . . . . 14
           |
70 | 46, 21, 21, 24, 24 | divcan5d 10827 |
. . . . . . . . . . . . . 14
           |
71 | 69, 70 | syl5eqr 2670 |
. . . . . . . . . . . . 13
         |
72 | 68, 71 | eqtr3d 2658 |
. . . . . . . . . . . 12
         |
73 | 67, 72 | oveq12d 6668 |
. . . . . . . . . . 11
                     |
74 | 63, 73 | eqtrd 2656 |
. . . . . . . . . 10
                   |
75 | 74 | oveq1d 6665 |
. . . . . . . . 9
                           |
76 | 62, 75 | eqtr3d 2658 |
. . . . . . . 8
       
               |
77 | 76 | oveq1d 6665 |
. . . . . . 7
                               |
78 | 9, 1 | mulcld 10060 |
. . . . . . . . 9
     |
79 | 46 | halfcld 11277 |
. . . . . . . . 9
     |
80 | 78, 79 | subcld 10392 |
. . . . . . . 8
         |
81 | 80, 7, 57 | sqdivd 13021 |
. . . . . . 7
                                   |
82 | 9 | sqcld 13006 |
. . . . . . . . . . 11
       |
83 | 82, 2 | mulcld 10060 |
. . . . . . . . . 10
             |
84 | 78, 46 | mulcld 10060 |
. . . . . . . . . 10
       |
85 | 83, 84 | subcld 10392 |
. . . . . . . . 9
                   |
86 | 46 | sqcld 13006 |
. . . . . . . . . 10
       |
87 | 86, 48, 50 | divcld 10801 |
. . . . . . . . 9
         |
88 | 85, 87, 9, 53 | divdird 10839 |
. . . . . . . 8
                                                         |
89 | | binom2sub 12981 |
. . . . . . . . . . 11
    
                                      |
90 | 78, 79, 89 | syl2anc 693 |
. . . . . . . . . 10
     
                               |
91 | 9, 1 | sqmuld 13020 |
. . . . . . . . . . . 12
                   |
92 | 21, 78, 79 | mul12d 10245 |
. . . . . . . . . . . . 13
                   |
93 | 46, 21, 24 | divcan2d 10803 |
. . . . . . . . . . . . . 14
       |
94 | 93 | oveq2d 6666 |
. . . . . . . . . . . . 13
               |
95 | 92, 94 | eqtrd 2656 |
. . . . . . . . . . . 12
               |
96 | 91, 95 | oveq12d 6668 |
. . . . . . . . . . 11
                                   |
97 | 46, 21, 24 | sqdivd 13021 |
. . . . . . . . . . . 12
                   |
98 | | sq2 12960 |
. . . . . . . . . . . . 13
     |
99 | 98 | oveq2i 6661 |
. . . . . . . . . . . 12
                 |
100 | 97, 99 | syl6eq 2672 |
. . . . . . . . . . 11
               |
101 | 96, 100 | oveq12d 6668 |
. . . . . . . . . 10
                                                   |
102 | 90, 101 | eqtr2d 2657 |
. . . . . . . . 9
                                     |
103 | 102, 3 | oveq12d 6668 |
. . . . . . . 8
                                               |
104 | 83, 84, 9, 53 | divsubdird 10840 |
. . . . . . . . . . 11
                                         |
105 | 82, 2, 9, 53 | div23d 10838 |
. . . . . . . . . . . . 13
                           |
106 | 9 | sqvald 13005 |
. . . . . . . . . . . . . . . 16
         |
107 | 106 | oveq1d 6665 |
. . . . . . . . . . . . . . 15
             |
108 | 9, 9, 53 | divcan3d 10806 |
. . . . . . . . . . . . . . 15
       |
109 | 107, 108 | eqtrd 2656 |
. . . . . . . . . . . . . 14
         |
110 | 109 | oveq1d 6665 |
. . . . . . . . . . . . 13
                     |
111 | 105, 110 | eqtrd 2656 |
. . . . . . . . . . . 12
                     |
112 | 9, 1, 46 | mul32d 10246 |
. . . . . . . . . . . . . . 15
           |
113 | 9, 46, 1 | mulassd 10063 |
. . . . . . . . . . . . . . 15
           |
114 | 112, 113 | eqtrd 2656 |
. . . . . . . . . . . . . 14
           |
115 | 114 | oveq1d 6665 |
. . . . . . . . . . . . 13
               |
116 | 46, 1 | mulcld 10060 |
. . . . . . . . . . . . . 14
     |
117 | 116, 9, 53 | divcan3d 10806 |
. . . . . . . . . . . . 13
   
       |
118 | 115, 117 | eqtrd 2656 |
. . . . . . . . . . . 12
           |
119 | 111, 118 | oveq12d 6668 |
. . . . . . . . . . 11
                                 |
120 | 104, 119 | eqtrd 2656 |
. . . . . . . . . 10
                               |
121 | 120 | oveq1d 6665 |
. . . . . . . . 9
                                                   |
122 | 87, 9, 53 | divcld 10801 |
. . . . . . . . . 10
           |
123 | 35, 116, 122 | subsubd 10420 |
. . . . . . . . 9
                                           |
124 | 121, 123 | eqtr4d 2659 |
. . . . . . . 8
                                                   |
125 | 88, 103, 124 | 3eqtr3d 2664 |
. . . . . . 7
                                         |
126 | 77, 81, 125 | 3eqtrd 2660 |
. . . . . 6
                                     |
127 | 43, 126 | oveq12d 6668 |
. . . . 5
                       
                                                             |
128 | 40, 41 | addcld 10059 |
. . . . . 6
                         |
129 | 116, 122 | subcld 10392 |
. . . . . 6
               |
130 | 35, 128, 129 | pnncand 10431 |
. . . . 5
                                                                                           |
131 | 122 | negcld 10379 |
. . . . . . 7
            |
132 | 40, 41, 116, 131 | add4d 10264 |
. . . . . 6
                                                                             |
133 | 116, 122 | negsubd 10398 |
. . . . . . 7
                            |
134 | 133 | oveq2d 6666 |
. . . . . 6
                                                                            |
135 | 41, 122 | negsubd 10398 |
. . . . . . . . 9
                                        |
136 | | dquart.i |
. . . . . . . . . 10
   |
137 | | dquart.i2 |
. . . . . . . . . 10
                      |
138 | | dquart.d |
. . . . . . . . . 10
   |
139 | | dquart.3 |
. . . . . . . . . 10
                                    |
140 | 10, 46, 1, 5, 3, 53,
136, 137, 138, 139 | dquartlem2 24579 |
. . . . . . . . 9
                     |
141 | 135, 140 | eqtrd 2656 |
. . . . . . . 8
                      |
142 | 141 | oveq2d 6666 |
. . . . . . 7
                                                          |
143 | 40, 116, 138 | addassd 10062 |
. . . . . . 7
                                       |
144 | 142, 143 | eqtrd 2656 |
. . . . . 6
                                                          |
145 | 132, 134,
144 | 3eqtr3d 2664 |
. . . . 5
                                                         |
146 | 127, 130,
145 | 3eqtrd 2660 |
. . . 4
                       
                           |
147 | 2, 12 | addcld 10059 |
. . . . 5
             |
148 | 52, 5, 61 | divcld 10801 |
. . . . 5
       
     |
149 | | subsq 12972 |
. . . . 5
                  
                                                                          
       |
150 | 147, 148,
149 | syl2anc 693 |
. . . 4
                       
                                               
       |
151 | 146, 150 | eqtr3d 2658 |
. . 3
                                                                   |
152 | 151 | eqeq1d 2624 |
. 2
                                                            
        |
153 | 147, 148 | addcld 10059 |
. . 3
                         |
154 | 147, 148 | subcld 10392 |
. . 3
                         |
155 | 153, 154 | mul0ord 10677 |
. 2
                                                                                                 |
156 | 10, 46, 1, 5, 3, 53,
136, 137 | dquartlem1 24578 |
. . 3
                   
               |
157 | 5 | negcld 10379 |
. . . . 5
    |
158 | | sqneg 12923 |
. . . . . . . 8
                  |
159 | 7, 158 | syl 17 |
. . . . . . 7
                |
160 | 3, 159 | eqtr4d 2659 |
. . . . . 6
          |
161 | | mulneg2 10467 |
. . . . . . . 8
 
         |
162 | 4, 5, 161 | sylancr 695 |
. . . . . . 7
         |
163 | 162 | oveq1d 6665 |
. . . . . 6
                 |
164 | 160, 163 | eqtr4d 2659 |
. . . . 5
          |
165 | | dquart.j |
. . . . 5
   |
166 | | dquart.j2 |
. . . . . 6
                      |
167 | 5 | sqcld 13006 |
. . . . . . . . 9
       |
168 | 167 | negcld 10379 |
. . . . . . . 8
        |
169 | 10 | halfcld 11277 |
. . . . . . . 8
     |
170 | 168, 169 | subcld 10392 |
. . . . . . 7
       
    |
171 | 51, 5, 61 | divcld 10801 |
. . . . . . 7
       |
172 | 170, 171 | negsubd 10398 |
. . . . . 6
        
               
         |
173 | | sqneg 12923 |
. . . . . . . . . . 11
            |
174 | 5, 173 | syl 17 |
. . . . . . . . . 10
            |
175 | 174 | eqcomd 2628 |
. . . . . . . . 9
            |
176 | 175 | negeqd 10275 |
. . . . . . . 8
              |
177 | 176 | oveq1d 6665 |
. . . . . . 7
       
         
    |
178 | 51, 5, 61 | divneg2d 10815 |
. . . . . . 7
             |
179 | 177, 178 | oveq12d 6668 |
. . . . . 6
        
                
          |
180 | 166, 172,
179 | 3eqtr2d 2662 |
. . . . 5
             
          |
181 | 10, 46, 1, 157, 164, 53, 165, 180 | dquartlem1 24578 |
. . . 4
                   
                  |
182 | 52, 5, 61 | divneg2d 10815 |
. . . . . . 7
                         |
183 | 182 | oveq2d 6666 |
. . . . . 6
                   
                             |
184 | 147, 148 | negsubd 10398 |
. . . . . 6
                   
                            |
185 | 183, 184 | eqtr3d 2658 |
. . . . 5
                                         
      |
186 | 185 | eqeq1d 2624 |
. . . 4
                   
                              |
187 | 5 | negnegd 10383 |
. . . . . . 7
     |
188 | 187 | oveq1d 6665 |
. . . . . 6
         |
189 | 188 | eqeq2d 2632 |
. . . . 5
     

    |
190 | 187 | oveq1d 6665 |
. . . . . 6
         |
191 | 190 | eqeq2d 2632 |
. . . . 5
     

    |
192 | 189, 191 | orbi12d 746 |
. . . 4
           
         |
193 | 181, 186,
192 | 3bitr3d 298 |
. . 3
                   
             |
194 | 156, 193 | orbi12d 746 |
. 2
                                               
 
                 |
195 | 152, 155,
194 | 3bitrd 294 |
1
                                       |