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