generalize ha' : a - j = a'
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
a i j : M
pi : Pow2 i
pj : Pow2 j
h : LenBit j a
⊢ LenBit i (a - j) ↔ i ≠ j ∧ LenBit i a
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀
a i j : M
pi : Pow2 i
pj : Pow2 j
h : LenBit j a
a' : M
ha' : a - j = a'
⊢ LenBit i a' ↔ i ≠ j ∧ LenBit i a