have hie : Exponential (i * ‖L‖) (bexp (I # L) (i * ‖L‖)) := exp_bexp_of_lt (mul_len_lt_len_hash $ le_trans le_self_add hij)
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
L I i j S₁ S₂ : M
hij : i + j ≤ ‖I‖
hS₁ : ‖S₁‖ ≤ i * ‖L‖
⊢ (S₁ + S₂ * bexp (I # L) (i * ‖L‖)){L}[i + j] = S₂{L}[j]
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
L I i j S₁ S₂ : M
hij : i + j ≤ ‖I‖
hS₁ : ‖S₁‖ ≤ i * ‖L‖
hie : Exponential (i * ‖L‖) (bexp (I # L) (i * ‖L‖))
⊢ (S₁ + S₂ * bexp (I # L) (i * ‖L‖)){L}[i + j] = S₂{L}[j]