| nx < m, indices-erasing(wlar, nx) ⊦ indices-erasing(wlar[m, wle], nx) |
m0 + nx0 < m, indices-erasing(wlar, m0 + nx0), ∀ m, wlar, wle. nx0 < m ∧ indices-erasing(wlar, nx0) → indices-erasing(wlar[m, wle], nx0) ⊦ indices-erasing(wlar[m, wle], m0 + nx0)
Used simplifier rules: indices-erasing-base: ⊦ indices-erasing(wlar, []);%nat-list freely generated by [], +;;% ⊦ [] < n; (s)