| # apebs0 = # wlar0, # apebs = # wlar, unmapped = vols[v][vtblpnum2], vtblpnum2 < # avols[v], vtblpnum2 < # vols[v], abs(avols, apebs, vols, q), abs(avols, apebs0, vols, q), bflipset-cons(bflipset, wlar0), bflipset-cons(bflipset, wlar), ebm-cons(avols), id(apebs0, apebs, mapped-pebs(vols)), ubi-io-inv(apebs0), ubi-io-inv(apebs), unique-sqns(apebs0), unique-sqns(apebs), valid-ebatbl(apebs0, wlar0, vols, vtblpnum1), valid-ebatbl(apebs, wlar, vols, vtblpnum1), valid-eraseq(q0), valid-eraseq(wlar0, q0), valid-eraseq(apebs0, q0), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs0, sqnum), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs0, vols, wlar0, vtblpnum1), valid-vtbl(apebs, vols, wlar, vtblpnum1), valid-wl(apebs0, wlar0), valid-wl(apebs, wlar), v ∈ avols, v ∈ vols, q0 ⊆ q, ¬ avols[v][vtblpnum2].mapped?, ¬ VTBL_VOLID ∈ vols, err = ESUCCESS → q0 = [], err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟨ebm_erase#(v, vtblpnum2; avols; err0)⟩ (abs(avols, apebs0, vols, q0) ∧ err = err0) |
# apebs = # wlar, # apebs0 = # wlar0, unmapped = vols[v][vtblpnum2], vtblpnum = vtblpnum2, vtblpnum2 < # vols[v], vtblpnum2 < # avols[v], abs(avols, apebs0, vols, q), abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), bflipset-cons(bflipset, wlar0), ebm-cons(avols), id(apebs0, apebs, mapped-pebs(vols)), ubi-io-inv(apebs), ubi-io-inv(apebs0), unique-sqns(apebs), unique-sqns(apebs0), valid-ebatbl(apebs, wlar, vols, vtblpnum1), valid-ebatbl(apebs0, wlar0, vols, vtblpnum1), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-eraseq(apebs0, q0), valid-eraseq(wlar0, q0), valid-eraseq(q0), valid-global-sqn(apebs, sqnum), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum1), valid-vtbl(apebs0, vols, wlar0, vtblpnum1), valid-wl(apebs, wlar), valid-wl(apebs0, wlar0), v ∈ vols, v ∈ avols, q0 ⊆ q, err1 = ESUCCESS → q0 = [], err1 = ESUCCESS ∨ ⌊err1⌋ ⊦ ⟨if v ∈ avols ∧ vtblpnum < # avols[v] then {fail_or_success#(; ; err); if err = ESUCCESS then avols[v][vtblpnum] := erased else {skip or avols[v][vtblpnum] := unmapped}} else abort⟩ (abs(avols, apebs0, vols, q0) ∧ err1 = err), avols[v][vtblpnum2].mapped?, VTBL_VOLID ∈ vols
Used simplifier rules: ebm_erase#(VOLID, LNUM; AVOLS; ERR) {if VOLID ∈ AVOLS ∧ LNUM < # AVOLS[VOLID] then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then AVOLS[VOLID][LNUM] := erased else {skip or AVOLS[VOLID][LNUM] := unmapped}} else abort };