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