have : 2 ≤ i := one_lt_iff_two_le.mp (hm.one_lt hi)
case pos
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
m : M
hm : SPPow2 m
i : M
pi : Pow2 i
hi : LenBit i m
IH : ∀ y < 2, ∀ i < y, Pow2 i → Pow2 y → LenBit i m → LenBit y m → i ^ 2 ≤ y
hij : i < 2
pj : Pow2 2
hj : LenBit 2 m
⊢ i ^ 2 ≤ 2
case pos
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
m : M
hm : SPPow2 m
i : M
pi : Pow2 i
hi : LenBit i m
IH : ∀ y < 2, ∀ i < y, Pow2 i → Pow2 y → LenBit i m → LenBit y m → i ^ 2 ≤ y
hij : i < 2
pj : Pow2 2
hj : LenBit 2 m
this : 2 ≤ i
⊢ i ^ 2 ≤ 2