| # apebs = # wlar, ebae = vols[v][vtblpnum0], vtblpnum = ebae.pnum, vtblpnum0 = vtblpnum2, vtblpnum0 < # vols[v], vtblpnum2 < # 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 ⊦ ⟪ubi_wl_put_peb#(v × vtblpnum0, vtblpnum; wlar, q)⟫ ⟨ebm_unmap#(v, vtblpnum2; avols)⟩ abs(avols, apebs, vols[v, vols[v][vtblpnum0, unmapped]], q), ebae = unmapped, VTBL_VOLID ∈ vols |
# 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)⟫ ⟨ebm_unmap#(v, vtblpnum2; avols)⟩ abs(avols, apebs, vols[v, vols[v][vtblpnum2, unmapped]], q)
Used simplifier rules: lf-elim-unmapped: ⊦ vols[v][m] ≠ unmapped → (∃ n. vols[v][m] = ⌜n⌝ );%lf-mapped-in-apebs: ⊦ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ∧ valid-ebatbl(apebs, wlar, vols, n0) → n < # apebs;% ⊦ unmapped ≠ ⌜m⌝ ; (s)%abs-vols-mapped: ⊦ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ∧ abs(avols, apebs, vols, q) → avols[v][m].mapped?; (forward) from specification ubi-abs% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic