rintro ⟨k, r, h, rfl⟩
case mpr
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
i a : M
hi : Pow2 i
⊢ (∃ k, ∃ r < i, a = k * (2 * i) + i + r) → LenBit i a
case mpr.intro.intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
i : M
hi : Pow2 i
k r : M
h : r < i
⊢ LenBit i (k * (2 * i) + i + r)