| wlar[n] = wl-entry(m, stat), indices-erasing(wlar, nx), n ∈ nx ⊦ stat = erasing |
wlar[n] = wl-entry(m, stat), indices-erasing(wlar, m0 + nx0), n ∈ m0 + nx0, ∀ wlar, n, m, stat. wlar[n] = wl-entry(m, stat) ∧ indices-erasing(wlar, nx0) ∧ n ∈ nx0 → stat = erasing ⊦ stat = erasing
Used simplifier rules: nat-list freely generated by [], +;;% ⊦ ¬ n ∈ []; (s)