Proof of Theorem sq01
| Step | Hyp | Ref
| Expression |
| 1 | | simpr 110 |
. . . 4
             |
| 2 | | recl 11566 |
. . . . . . . . . . . . . 14
       |
| 3 | 2 | adantr 276 |
. . . . . . . . . . . . 13
             |
| 4 | 3 | recnd 8318 |
. . . . . . . . . . . 12
             |
| 5 | 4, 4 | muls1d 8709 |
. . . . . . . . . . 11
                                     |
| 6 | 4, 4 | mulcld 8310 |
. . . . . . . . . . . 12
                   |
| 7 | 4, 6 | negsubdi2d 8617 |
. . . . . . . . . . 11
                                          |
| 8 | | imcl 11567 |
. . . . . . . . . . . . . . 15
       |
| 9 | 8 | adantr 276 |
. . . . . . . . . . . . . 14
             |
| 10 | 9 | recnd 8318 |
. . . . . . . . . . . . 13
             |
| 11 | 10 | sqcld 11061 |
. . . . . . . . . . . 12
                 |
| 12 | 4 | sqcld 11061 |
. . . . . . . . . . . . . 14
                 |
| 13 | 11 | negcld 8588 |
. . . . . . . . . . . . . 14
                  |
| 14 | | replim 11572 |
. . . . . . . . . . . . . . . . . . . . . . 23
               |
| 15 | 14 | oveq1d 6073 |
. . . . . . . . . . . . . . . . . . . . . 22
                       |
| 16 | 15 | adantr 276 |
. . . . . . . . . . . . . . . . . . . . 21
                             |
| 17 | | ax-icn 8238 |
. . . . . . . . . . . . . . . . . . . . . . . 24
 |
| 18 | 17 | a1i 9 |
. . . . . . . . . . . . . . . . . . . . . . 23
         |
| 19 | 18, 10 | mulcld 8310 |
. . . . . . . . . . . . . . . . . . . . . 22
               |
| 20 | | binom2 11040 |
. . . . . . . . . . . . . . . . . . . . . 22
      
                                                            |
| 21 | 4, 19, 20 | syl2anc 411 |
. . . . . . . . . . . . . . . . . . . . 21
                                                             |
| 22 | 16, 1, 21 | 3eqtr3d 2275 |
. . . . . . . . . . . . . . . . . . . 20
      
                                      |
| 23 | 18, 10 | sqmuld 11075 |
. . . . . . . . . . . . . . . . . . . . . . 23
                                 |
| 24 | | i2 11029 |
. . . . . . . . . . . . . . . . . . . . . . . 24
      |
| 25 | 24 | oveq1i 6068 |
. . . . . . . . . . . . . . . . . . . . . . 23
                          |
| 26 | 23, 25 | eqtrdi 2283 |
. . . . . . . . . . . . . . . . . . . . . 22
                              |
| 27 | 11 | mulm1d 8701 |
. . . . . . . . . . . . . . . . . . . . . 22
                             |
| 28 | 26, 27 | eqtrd 2267 |
. . . . . . . . . . . . . . . . . . . . 21
                            |
| 29 | 28 | oveq2d 6074 |
. . . . . . . . . . . . . . . . . . . 20
                                                                                |
| 30 | 22, 29 | eqtrd 2267 |
. . . . . . . . . . . . . . . . . . 19
      
                                     |
| 31 | | 2cnd 9330 |
. . . . . . . . . . . . . . . . . . . . 21
         |
| 32 | 4, 19 | mulcld 8310 |
. . . . . . . . . . . . . . . . . . . . 21
            
        |
| 33 | 31, 32 | mulcld 8310 |
. . . . . . . . . . . . . . . . . . . 20
                       |
| 34 | 12, 33, 13 | add32d 8458 |
. . . . . . . . . . . . . . . . . . 19
                                                                               |
| 35 | 30, 34 | eqtrd 2267 |
. . . . . . . . . . . . . . . . . 18
      
                                     |
| 36 | 14 | adantr 276 |
. . . . . . . . . . . . . . . . . 18
      
              |
| 37 | 4, 18, 10 | mul12d 8442 |
. . . . . . . . . . . . . . . . . . . . 21
            
                    |
| 38 | 37 | oveq2d 6074 |
. . . . . . . . . . . . . . . . . . . 20
                                     |
| 39 | 4, 10 | mulcld 8310 |
. . . . . . . . . . . . . . . . . . . . 21
                   |
| 40 | 31, 18, 39 | mul12d 8442 |
. . . . . . . . . . . . . . . . . . . 20
        
                            |
| 41 | 38, 40 | eqtrd 2267 |
. . . . . . . . . . . . . . . . . . 19
                                     |
| 42 | 41 | oveq2d 6074 |
. . . . . . . . . . . . . . . . . 18
                                                                               |
| 43 | 35, 36, 42 | 3eqtr3d 2275 |
. . . . . . . . . . . . . . . . 17
                                                        |
| 44 | 3 | resqcld 11089 |
. . . . . . . . . . . . . . . . . . 19
                 |
| 45 | 9 | resqcld 11089 |
. . . . . . . . . . . . . . . . . . . 20
                 |
| 46 | 45 | renegcld 8671 |
. . . . . . . . . . . . . . . . . . 19
                  |
| 47 | 44, 46 | readdcld 8319 |
. . . . . . . . . . . . . . . . . 18
                            |
| 48 | | 2re 9327 |
. . . . . . . . . . . . . . . . . . . 20
 |
| 49 | 48 | a1i 9 |
. . . . . . . . . . . . . . . . . . 19
         |
| 50 | 3, 9 | remulcld 8320 |
. . . . . . . . . . . . . . . . . . 19
                   |
| 51 | 49, 50 | remulcld 8320 |
. . . . . . . . . . . . . . . . . 18
                     |
| 52 | | cru 8894 |
. . . . . . . . . . . . . . . . . 18
                                                                                                                                          |
| 53 | 3, 9, 47, 51, 52 | syl22anc 1275 |
. . . . . . . . . . . . . . . . 17
                                                                                                   |
| 54 | 43, 53 | mpbid 147 |
. . . . . . . . . . . . . . . 16
                                                  |
| 55 | 54 | simpld 112 |
. . . . . . . . . . . . . . 15
                                |
| 56 | 55 | eqcomd 2240 |
. . . . . . . . . . . . . 14
                                |
| 57 | 12, 13, 56 | mvlladdd 8655 |
. . . . . . . . . . . . 13
                                |
| 58 | 4 | sqvald 11060 |
. . . . . . . . . . . . . 14
                           |
| 59 | 58 | oveq2d 6074 |
. . . . . . . . . . . . 13
                                       |
| 60 | 57, 59 | eqtrd 2267 |
. . . . . . . . . . . 12
                                  |
| 61 | 11, 60 | negcon1ad 8596 |
. . . . . . . . . . 11
                                  |
| 62 | 5, 7, 61 | 3eqtr2rd 2274 |
. . . . . . . . . 10
                             |
| 63 | 62 | adantr 276 |
. . . . . . . . 9
            #
                       |
| 64 | 3 | adantr 276 |
. . . . . . . . . . 11
            #
       |
| 65 | | peano2rem 8557 |
. . . . . . . . . . 11
             |
| 66 | 64, 65 | syl 14 |
. . . . . . . . . 10
            #
         |
| 67 | | 1cnd 8306 |
. . . . . . . . . . . . . 14
            #
   |
| 68 | 48 | a1i 9 |
. . . . . . . . . . . . . . . 16
            #
   |
| 69 | 68, 64 | remulcld 8320 |
. . . . . . . . . . . . . . 15
            #
         |
| 70 | 69 | recnd 8318 |
. . . . . . . . . . . . . 14
            #
         |
| 71 | 10 | adantr 276 |
. . . . . . . . . . . . . 14
            #
       |
| 72 | | simpr 110 |
. . . . . . . . . . . . . 14
            #
     #
  |
| 73 | 10 | mullidd 8308 |
. . . . . . . . . . . . . . . . 17
                   |
| 74 | 54 | simprd 114 |
. . . . . . . . . . . . . . . . 17
                         |
| 75 | 73, 74 | eqtrd 2267 |
. . . . . . . . . . . . . . . 16
                           |
| 76 | 31, 4, 10 | mulassd 8313 |
. . . . . . . . . . . . . . . 16
                                 |
| 77 | 75, 76 | eqtr4d 2270 |
. . . . . . . . . . . . . . 15
                           |
| 78 | 77 | adantr 276 |
. . . . . . . . . . . . . 14
            #
                     |
| 79 | 67, 70, 71, 72, 78 | mulcanap2ad 8956 |
. . . . . . . . . . . . 13
            #
         |
| 80 | 4 | adantr 276 |
. . . . . . . . . . . . . 14
            #
       |
| 81 | | 2cnd 9330 |
. . . . . . . . . . . . . 14
            #
   |
| 82 | | 2ap0 9350 |
. . . . . . . . . . . . . . 15
#  |
| 83 | 82 | a1i 9 |
. . . . . . . . . . . . . 14
            #
 #   |
| 84 | 67, 80, 81, 83 | divmulap2d 9118 |
. . . . . . . . . . . . 13
            #
                 |
| 85 | 79, 84 | mpbird 167 |
. . . . . . . . . . . 12
            #
         |
| 86 | 85 | oveq1d 6073 |
. . . . . . . . . . 11
            #
             |
| 87 | | halflt1 9475 |
. . . . . . . . . . . . 13
   |
| 88 | | halfre 9471 |
. . . . . . . . . . . . . . 15
   |
| 89 | 88 | a1i 9 |
. . . . . . . . . . . . . 14
           |
| 90 | | 1red 8305 |
. . . . . . . . . . . . . 14
         |
| 91 | 89, 90 | sublt0d 8862 |
. . . . . . . . . . . . 13
                 |
| 92 | 87, 91 | mpbiri 168 |
. . . . . . . . . . . 12
             |
| 93 | 92 | adantr 276 |
. . . . . . . . . . 11
            #
       |
| 94 | 86, 93 | eqbrtrrd 4138 |
. . . . . . . . . 10
            #
         |
| 95 | | halfgt0 9473 |
. . . . . . . . . . 11
   |
| 96 | 95, 85 | breqtrid 4151 |
. . . . . . . . . 10
            #
       |
| 97 | 66, 64, 94, 96 | mul2lt0pn 10118 |
. . . . . . . . 9
            #
               |
| 98 | 63, 97 | eqbrtrd 4136 |
. . . . . . . 8
            #
           |
| 99 | | 0red 8291 |
. . . . . . . . 9
            #
   |
| 100 | 9 | adantr 276 |
. . . . . . . . . 10
            #
       |
| 101 | 100 | resqcld 11089 |
. . . . . . . . 9
            #
           |
| 102 | 100 | sqge0d 11090 |
. . . . . . . . 9
            #
           |
| 103 | 99, 101, 102 | lensymd 8412 |
. . . . . . . 8
            #

          |
| 104 | 98, 103 | pm2.65da 667 |
. . . . . . 7
           #   |
| 105 | | 0cnd 8283 |
. . . . . . . 8
         |
| 106 | | apti 8914 |
. . . . . . . 8
     
          #    |
| 107 | 10, 105, 106 | syl2anc 411 |
. . . . . . 7
                #    |
| 108 | 104, 107 | mpbird 167 |
. . . . . 6
             |
| 109 | | reim0b 11575 |
. . . . . . 7
 
       |
| 110 | 109 | adantr 276 |
. . . . . 6
               |
| 111 | 108, 110 | mpbird 167 |
. . . . 5
      
  |
| 112 | | resq01 11047 |
. . . . 5
     
     |
| 113 | 111, 112 | syl 14 |
. . . 4
                 |
| 114 | 1, 113 | mpbid 147 |
. . 3
           |
| 115 | 114 | ex 115 |
. 2
           |
| 116 | | sq0 11019 |
. . . 4
     |
| 117 | | oveq1 6065 |
. . . 4
           |
| 118 | | id 19 |
. . . 4
   |
| 119 | 116, 117,
118 | 3eqtr4a 2293 |
. . 3
       |
| 120 | | sq1 11022 |
. . . 4
     |
| 121 | | oveq1 6065 |
. . . 4
           |
| 122 | | id 19 |
. . . 4
   |
| 123 | 120, 121,
122 | 3eqtr4a 2293 |
. . 3
       |
| 124 | 119, 123 | jaoi 724 |
. 2
         |
| 125 | 115, 124 | impbid1 142 |
1
     
     |