simpa [add_right_comm n' 1] using IH.succ (le_trans hk (by simp [length_two_mul_add_one]))
case intro.intro
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
A k : M
IH✝ : ∀ n ≤ k, k ≤ ‖A‖ → NuonAux A k n → NuonAux (2 * A + 1) (k + 1) (n + 1)
hk : k + 1 ≤ ‖A‖
n' : M
H' : NuonAux A k n'
hn : n' + fbit A k ≤ k + 1
H : NuonAux A (k + 1) (n' + fbit A k)
IH : NuonAux (2 * A + 1) (k + 1) (n' + 1)
⊢ NuonAux (2 * A + 1) (k + 1 + 1) (n' + fbit A k + 1)
no goals