| wlar[m, wl-entry(m0, used)][n] = wl-entry(m3, stat), m1 < # wlar, m1 < m, m < # wlar, m1 + 1 < # wlar, ∀ n. n ∈ q ↔ n < m ∧ wlar[n].status = erasing ⊦ n ∈ q ↔ ¬ m < n ∧ stat = erasing, n = m1, n = m |
wlar[n] = wl-entry(m3, stat), m1 + 1 < # wlar, m < # wlar, m1 < m, m1 < # wlar, ∀ n. n ∈ q ↔ n < m ∧ wlar[n].status = erasing ⊦ n ∈ q ↔ ¬ m < n ∧ stat = erasing, n = m, n = m1
Used simplifier rules: ⊦ m ≠ n → wlar[n, wle][m] = wlar[m]; (s)