| # apebs = # wlar, vtblpnum0 = vtblpnum, vtblpnum < # avols[v], abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum1), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum1), valid-wl(apebs, wlar), v ∈ avols ⊦ ⟪let ebae = vols[v][vtblpnum0] in if ebae ≠ unmapped then let vtblpnum = ebae.pnum in {vols[v][vtblpnum0] := unmapped; bflipset := bflipset -- vtblpnum; ubi_wl_put_peb#(v × vtblpnum0, vtblpnum; wlar, q)}⟫ ⟨ebm_unmap#(v, vtblpnum; avols)⟩ abs(avols, apebs, vols, q), VTBL_VOLID ∈ vols |
# apebs = # wlar, ebae = vols[v][vtblpnum0], vtblpnum0 = vtblpnum, vtblpnum0 < # vols[v], vtblpnum < # avols[v], abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum1), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum1), valid-wl(apebs, wlar), v ∈ vols, v ∈ avols ⊦ ⟪if ebae ≠ unmapped then let vtblpnum = ebae.pnum in {vols[v][vtblpnum0] := unmapped; bflipset := bflipset -- vtblpnum; ubi_wl_put_peb#(v × vtblpnum0, vtblpnum; wlar, q)}⟫ ⟨ebm_unmap#(v, vtblpnum; avols)⟩ abs(avols, apebs, vols, q), VTBL_VOLID ∈ vols
# apebs = # wlar, vtblpnum0 = vtblpnum, vtblpnum < # avols[v], abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum1), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum1), valid-wl(apebs, wlar), v ∈ avols ⊦ VTBL_VOLID ∈ vols, vtblpnum0 < # vols[v] ∧ v ∈ vols