| # apebs = # wlar, q = eqent + q0, abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), 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) ⊦ ⟪ubi_erase_worker_helper#(eqent.pnum; wlar, apebs; err); if err = ESUCCESS then q := q.tail⟫ ⟨skip⟩ abs(avols, apebs, vols, q), q = [], VTBL_VOLID ∈ vols |
# apebs = # wlar, abs(avols, apebs, vols, eqent ' + q0), bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-eraseq(eqent ' + q0), valid-eraseq(wlar, eqent ' + q0), valid-eraseq(apebs, eqent ' + q0), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-wl(apebs, wlar), ¬ VTBL_VOLID ∈ vols ⊦ ⟪ubi_erase_worker_helper#(eqent.pnum; wlar, apebs; err); q := eqent ' + q0; if err = ESUCCESS then q := q.tail⟫ ⟨skip⟩ abs(avols, apebs, vols, q)
Used simplifier rules: a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ eqent ' + q ≠ []; (s)% ⊦ eqent + q = eqent ' + q; (s)