| wlar[m0] = wl-entry(m1, erasing), wlar[n] = wl-entry(m, stat), m0 < # wlar, indices-erasing(wlar, nx0), ∀ wlar, n, m, stat. wlar[n] = wl-entry(m, stat) ∧ indices-erasing(wlar, nx0) ∧ n ∈ nx0 → stat = erasing, n = m0 ∨ n ∈ nx0 ⊦ stat = erasing |
wlar[n] = wl-entry(m, stat), wlar[m0] = wl-entry(m1, erasing), m0 < # wlar, indices-erasing(wlar, nx0), ∀ wlar, n, m, stat. wlar[n] = wl-entry(m, stat) ∧ indices-erasing(wlar, nx0) ∧ n ∈ nx0 → stat = erasing, n = m0 ∨ n ∈ nx0 ⊦ n = m0, stat = erasing
Used simplifier rules: ⊦ wl-entry(m, stat) = wl-entry(m0, stat0) ↔ m = m0 ∧ stat = stat0; (ws) Used formulas: n = m0