| # apebs = # wlar, vtblpnum0 < # vols[v], bflipset-cons(bflipset, wlar), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-wl(apebs, wlar), v ∈ vols, ¬ vtblpnum ∈ q, ¬ VTBL_VOLID ∈ vols ⊦ ⟪ubi_unmap#(v, vtblpnum0; vols, wlar, q, bflipset)⟫ ( # apebs = # wlar ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ ¬ VTBL_VOLID ∈ vols ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum)) |
# apebs = # wlar, vtblpnum0 < # vols[v], bflipset-cons(bflipset, wlar), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-wl(apebs, wlar), v ∈ vols ⊦ ⟪if v ∈ vols ∧ vtblpnum0 < # vols[v] then 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)} else abort⟫ ( # apebs = # wlar ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ ¬ VTBL_VOLID ∈ vols ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum)), vtblpnum ∈ q, VTBL_VOLID ∈ vols
Used simplifier rules: unmap: ⊦ ;