| valid-eraseq(wlar, q0 + eq-entry(m, lref) ' + q1) ⊦ valid-eraseq(wlar[m, wl-entry(m0, stat)], q0 + q1) ↔ ¬ m ∈ q0 ∧ ¬ m ∈ q1, stat = erasing |
∀ n. n ∈ q0 + eq-entry(m, lref) ' + q1 ↔ n < # wlar ∧ wlar[n].status = erasing ⊦ (∀ n. n ∈ q0 + q1 ↔ n < # wlar ∧ wlar[m, wl-entry(m0, stat)][n].status = erasing) ↔ ¬ m ∈ q0 ∧ ¬ m ∈ q1, stat = erasing
Used simplifier rules: valid-eraseqw: ⊦ valid-eraseq(wlar, q) ↔ (∀ n. n ∈ q ↔ n < # wlar ∧ wlar[n].status = erasing);% ⊦ # wlar[n, wle] = # wlar; (s)