| # apebs = # wlar, # apebs1 = # wlar0, q1 = eqent + q0, bflipset-cons(bflipset, wlar), bflipset-cons(bflipset, wlar0), id(apebs, apebs1, mapped-pebs(vols)), ubi-io-inv(apebs1), ubi-io-inv(apebs), unique-sqns(apebs), unique-sqns(apebs1), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-ebatbl(apebs1, wlar0, vols, vtblpnum), valid-eraseq(apebs, q1), valid-eraseq(wlar, q1), valid-eraseq(q1), valid-eraseq(apebs1, q2), valid-eraseq(wlar0, q2), valid-eraseq(q2), valid-global-sqn(apebs, sqnum), valid-global-sqn(apebs1, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-vtbl(apebs1, vols, wlar0, vtblpnum), valid-wl(apebs, wlar), valid-wl(apebs1, wlar0), q1 ⊆ q2 ⊦ ⟪ubi_erase_worker_helper#(eqent.pnum; wlar, apebs; err); q := q1; if err = ESUCCESS then q := q.tail⟫ ( # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, sqnum) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum) ∧ ubi-io-inv(apebs) ∧ id(apebs, apebs1, mapped-pebs(vols)) ∧ q ⊆ q2 ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS ⊃ # q;0) < # q1), q1 = [], VTBL_VOLID ∈ vols, vtblpnum ∈ q1, vtblpnum ∈ q2 |
# apebs = # wlar, # apebs1 = # wlar0, bflipset-cons(bflipset, wlar), bflipset-cons(bflipset, wlar0), id(apebs, apebs1, mapped-pebs(vols)), ubi-io-inv(apebs1), ubi-io-inv(apebs), unique-sqns(apebs), unique-sqns(apebs1), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-ebatbl(apebs1, wlar0, vols, vtblpnum), valid-eraseq(apebs, eqent ' + q0), valid-eraseq(wlar, eqent ' + q0), valid-eraseq(eqent ' + q0), valid-eraseq(apebs1, q2), valid-eraseq(wlar0, q2), valid-eraseq(q2), valid-global-sqn(apebs, sqnum), valid-global-sqn(apebs1, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-vtbl(apebs1, vols, wlar0, vtblpnum), valid-wl(apebs, wlar), valid-wl(apebs1, wlar0), eqent ∈ q2, q0 ⊆ q2, ¬ vtblpnum ∈ q0, ¬ vtblpnum ∈ eqent ', ¬ vtblpnum ∈ q2, ¬ VTBL_VOLID ∈ vols ⊦ ⟪ubi_erase_worker_helper#(eqent.pnum; wlar, apebs; err); q := eqent ' + q0; if err = ESUCCESS then q := q.tail⟫ ( # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, sqnum) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, vtblpnum) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum) ∧ ubi-io-inv(apebs) ∧ id(apebs, apebs1, mapped-pebs(vols)) ∧ q ⊆ q2 ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ¬ # q0 < (err = ESUCCESS ⊃ # q;0))
Used simplifier rules: lf-vtbl-info: ⊦ valid-vtbl(apebs, vols, wlar, n) ∧ valid-eraseq(wlar, q) → ¬ n ∈ q;%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ m +1 = m + 1; (s)% ⊦ #(eqent ' + q) = (# q)+1; (s)% ⊦ n ∈ q0 + q1 ↔ n ∈ q0 ∨ n ∈ q1; (ss)% ⊦ eqent ' + q ⊆ q0 ↔ eqent ∈ q0 ∧ q ⊆ q0; (ws)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ eqent ' + q ≠ []; (s)% ⊦ eqent + q = eqent ' + q; (s)