| wlar[n] = wl-entry(m0, stat) ⊦ valid-eraseq(wlar[n, wl-entry(m1, used)], q) ↔ valid-eraseq(wlar, q), stat = erasing |
wlar[n] = wl-entry(m0, stat) ⊦ (∀ n0. n0 ∈ q ↔ n0 < # wlar ∧ wlar[n, wl-entry(m1, used)][n0].status = erasing) ↔ (∀ n. n ∈ q ↔ n < # wlar ∧ wlar[n].status = erasing), 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)