rw [normSq_mul] at bound
a b c : ℤα
h : b ≠ 0
bound :
  ↑normSq
      ((OneHom.toFun (↑↑inclusion) a -
          OneHom.toFun (↑↑inclusion) (nearestℤα (OneHom.toFun (↑↑inclusion) a / OneHom.toFun (↑↑inclusion) b)) *
            OneHom.toFun (↑↑inclusion) b) *
        sorryAx ℂ true) <
    1
⊢ ↑normSq (↑inclusion a - ↑inclusion b * ↑inclusion (nearestℤα (↑inclusion a / ↑inclusion b))) < ↑normSq (↑inclusion b)
a b c : ℤα
h : b ≠ 0
bound :
  ↑normSq
        (OneHom.toFun (↑↑inclusion) a -
          OneHom.toFun (↑↑inclusion) (nearestℤα (OneHom.toFun (↑↑inclusion) a / OneHom.toFun (↑↑inclusion) b)) *
            OneHom.toFun (↑↑inclusion) b) *
      ↑normSq (sorryAx ℂ true) <
    1
⊢ ↑normSq (↑inclusion a - ↑inclusion b * ↑inclusion (nearestℤα (↑inclusion a / ↑inclusion b))) < ↑normSq (↑inclusion b)