| n ∈ q ↔ n < n ∧ wlar[n].status = erasing, wlar[n0] = wl-entry(m0, erasing), n0 + 1 < # wlar, n < # wlar, n0 < n, n0 < # wlar, ∀ n0. n0 ∈ q ↔ n0 < n ∧ wlar[n0].status = erasing ⊦ n0 = n, stat = erasing, n0 ∈ q |
wlar[n0] = wl-entry(m0, erasing), n0 < # wlar, n0 < n, n < # wlar, n0 + 1 < # wlar, ∀ n0. n0 ∈ q ↔ n0 < n ∧ wlar[n0].status = erasing ⊦ n0 = n, stat = erasing, n0 ∈ q, n ∈ q
Used simplifier rules: ⊦ ¬ n < n; (s)