clear i pi hi hij pj hj
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 j : M
pi : Pow2 i
pj : Pow2 j
hi : LenBit i m
hj : LenBit j m
hij : i < j
⊢ ∀ i < j, Pow2 i → Pow2 j → LenBit i m → LenBit j m → i ^ 2 ≤ j
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
j : M
⊢ ∀ i < j, Pow2 i → Pow2 j → LenBit i m → LenBit j m → i ^ 2 ≤ j