| # apebs = # wlar, # apebs1 = # wlar, # wlar1 = # wlar, wlar1[vtblpnum].status = free, err = ESUCCESS, free-ecs(wlar) = ∅, q = eq-entry(m, lref) ' + q1, vtblpnum = m, vtblpnum < # wlar1, m < # wlar, bflipset-cons(bflipset, wlar), id(apebs1, apebs, mapped-pebs(vols)), id○(wlar1, wlar, m), id○(apebs1, apebs, m), ubi-io-inv(apebs1), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum0), valid-eraseq(apebs, eq-entry(m, lref) ' + q1), valid-eraseq(wlar, eq-entry(m, lref) ' + q1), valid-eraseq(eq-entry(m, lref) ' + q1), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum0), valid-wl(apebs, wlar), err = ESUCCESS → unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum) ∧ valid-wl(apebs1, wlar1) ∧ valid-eraseq(q1) ∧ valid-eraseq(wlar1, q1) ∧ valid-eraseq(apebs1, q1) ∧ bflipset-cons(bflipset, wlar1) ∧ valid-ebatbl(apebs1, wlar1, vols, vtblpnum0) ∧ valid-vtbl(apebs1, vols, wlar1, vtblpnum0), err ≠ ESUCCESS → unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum) ∧ valid-wl(apebs1, wlar1) ∧ valid-eraseq(wlar1, eq-entry(m, lref) ' + q1) ∧ valid-eraseq(apebs1, eq-entry(m, lref) ' + q1) ∧ bflipset-cons(bflipset, wlar1) ∧ valid-ebatbl(apebs1, wlar1, vols, vtblpnum0) ∧ valid-vtbl(apebs1, vols, wlar1, vtblpnum0), err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪skip⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err ≠ ESUCCESS → unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum) ∧ valid-wl(apebs1, wlar1) ∧ valid-eraseq(q.tail) ∧ valid-eraseq(wlar1, q.tail) ∧ valid-eraseq(apebs1, q.tail) ∧ bflipset-cons(bflipset, wlar1) ∧ valid-ebatbl(apebs1, wlar1, vols, vtblpnum0) ∧ valid-vtbl(apebs1, vols, wlar1, vtblpnum0)) ∧ q.tail.lebrefs ⊆ (eq-entry(m, lref) ' + q1).lebrefs ∧ ( err = ESUCCESS → vtblpnum < # wlar ∧ wlar1[vtblpnum].status = free ∧ ( apebs = apebs1 ∧ wlar = wlar1 ∧ eq-entry(m, lref) ' + q1 = q.tail ∨ id○(apebs, apebs1, vtblpnum) ∧ id○(wlar, wlar1, vtblpnum) ∧ eq-entry(m, lref) ' + q1 ≠ [] ∧ eq-entry(m, lref) ' + q1 = eq-entry(vtblpnum, (eq-entry(m, lref) ' + q1).head.lebref) ' + q.tail) ∧ unique-sqns(apebs1) ∧ valid-global-sqn(apebs1, sqnum) ∧ valid-wl(apebs1, wlar1) ∧ valid-eraseq(q.tail) ∧ valid-eraseq(wlar1, q.tail) ∧ valid-eraseq(apebs1, q.tail) ∧ bflipset-cons(bflipset, wlar1) ∧ valid-ebatbl(apebs1, wlar1, vols, vtblpnum0) ∧ valid-vtbl(apebs1, vols, wlar1, vtblpnum0))), wlar1[m].status = used, q = [], vtblpnum0 = m, VTBL_VOLID ∈ vols, vtblpnum0 ∈ q1 |
Used simplifier rules: ⊦ eqent ' + q ≠ []; (s)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ (eqent ' + q).tail = q; (s)%⊦ (eqent ' + q).lebrefs = q.lebrefs ∪ (eqent.lebref ≠ none ⊃ {eqent.lebref} ;∅); (s)% ⊦ eq-entry(m, lref).lebref = lref; (s)% ⊦ {lref} = ∅ ++ lref; (s)% ⊦ s1 ⊆ s1 ∪ s2; (s)%una: ⊦ (s2 ∪ s3) ∪ s4 = s2 ∪ s3 ∪ s4; from specification set-union[lebrefset]%unc: ⊦ s1 ∪ s2 = s2 ∪ s1; from specification set-union[lebrefset]% ⊦ q = q0 + q ↔ q0 = []; (s)% ⊦ eqent ' ≠ []; (s)% ⊦ id○(apebs, apebs0, n) → id○(apebs0, apebs, n); (ss)% ⊦ id○(wlar, wlar0, n) → id○(wlar0, wlar, n); (ss)% ⊦ (eqent ' + q).head = eqent; (s)% ⊦ eqent ' + q = eqent ' + q0 ↔ q = q0; (s)