| m < # wlar, ∀ n. n ∈ q ↔ n < m ∧ wlar[n].status = erasing ⊦ n ∈ q + eq-entry(m, lref) ' ↔ ¬ m < n ∧ wlar[m, wl-entry(m0, erasing)][n].status = erasing |
wlar[m, wl-entry(m0, erasing)][n] = wl-entry(m1, stat), m < # wlar, ∀ n. n ∈ q ↔ n < m ∧ wlar[n].status = erasing ⊦ n ∈ q + eq-entry(m, lref) ' ↔ ¬ m < n ∧ stat = erasing
Used simplifier rules: ⊦ m = wle.ec ∧ stat = wle.status ↔ wle = wl-entry(m, stat); (elim) Used terms: wlar[m, wl-entry(m0, erasing)][n], m1, stat