| # apebs = # wlar, vols[v][vtblpnum2] = ⌜n⌝ , avols[v][vtblpnum2].mapped?, vtblpnum2 < # vols[v], vtblpnum2 < # avols[v], n < # wlar, 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, ¬ VTBL_VOLID ∈ vols ⊦ [ubi_wl_put_peb#(v × vtblpnum2, vols[v][vtblpnum2].pnum; wlar, q)] ( # apebs = # wlar ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ ¬ VTBL_VOLID ∈ vols[v, vols[v][vtblpnum2, unmapped]] ∧ bflipset-cons(bflipset -- vols[v][vtblpnum2].pnum, wlar) ∧ valid-ebatbl(apebs, wlar, vols[v, vols[v][vtblpnum2, unmapped]], vtblpnum1) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum1) → ⟪ubi_erase_all#(vols[v, vols[v][vtblpnum2, unmapped]], bflipset -- vols[v][vtblpnum2].pnum, vtblpnum1, sqnum; wlar, q, apebs; err)⟫ ⟨ebm_erase#(v, vtblpnum2; avols; err0)⟩ (abs(avols, apebs, vols[v, vols[v][vtblpnum2, unmapped]], q) ∧ err = err0)) |
# apebs = # wlar, vols[v][vtblpnum2] = ⌜n⌝ , lref = v × vtblpnum2, vtblpnum = vols[v][vtblpnum2].pnum, avols[v][vtblpnum2].mapped?, n < # wlar, vtblpnum2 < # avols[v], vtblpnum2 < # vols[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, v ∈ vols ⊦ [wlar[vtblpnum].status := erasing; q := q + eq-entry(vtblpnum, lref)] ( # apebs = # wlar ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ ¬ VTBL_VOLID ∈ vols[v, vols[v][vtblpnum2, unmapped]] ∧ bflipset-cons(bflipset -- vols[v][vtblpnum2].pnum, wlar) ∧ valid-ebatbl(apebs, wlar, vols[v, vols[v][vtblpnum2, unmapped]], vtblpnum1) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum1) → ⟪ubi_erase_all#(vols[v, vols[v][vtblpnum2, unmapped]], bflipset -- vols[v][vtblpnum2].pnum, vtblpnum1, sqnum; wlar, q, apebs; err)⟫ ⟨ebm_erase#(v, vtblpnum2; avols; err0)⟩ (abs(avols, apebs, vols[v, vols[v][vtblpnum2, unmapped]], q) ∧ err = err0)), vols[v][vtblpnum2] = unmapped, VTBL_VOLID ∈ vols
Used simplifier rules: ubi_wl_put_peb#(LREF, PNUM; WLARRAY, ERASEQ) {WLARRAY[PNUM].status := erasing; ERASEQ := ERASEQ + eq-entry(PNUM, LREF) };