rcases (not_lenbit_iff_add_mul pj).mp h with ⟨a, r, hr, rfl⟩
case inr.inr.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
a j : M
pj : Pow2 j
h : ¬LenBit j a
i : M
pi : Pow2 (2 * j * i)
hij : 2 * j * i > j
⊢ LenBit (2 * j * i) (a + j) ↔ LenBit (2 * j * i) a
case inr.inr.intro.intro.intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
j : M
pj : Pow2 j
i : M
pi : Pow2 (2 * j * i)
hij : 2 * j * i > j
a r : M
hr : r < j
h : ¬LenBit j (a * (2 * j) + r)
⊢ LenBit (2 * j * i) (a * (2 * j) + r + j) ↔ LenBit (2 * j * i) (a * (2 * j) + r)