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