| # wlar = # apebs, apebs[n] = mkpeb(aehdr, avhdr, buf, m, boolvar), q0 = q, vtblpnum = n, bflipset-cons(bflipset, wlar), unique-sqns(apebs), unmapped-vols(vols), valid-eraseq(wlar, q), valid-eraseq-stronger(apebs, q), valid-recs(apebs, wlar, recs), valid-vtbl(apebs, vols, wlar, n), valid-wl(apebs, wlar) ⊦ ⟪recs := recs -- (VTBL_VOLID × VTBL_LNUM); while recs ≠ ∅ do {/* (prepost-init-vols-mappings : invariant unique-sqns(apebs) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum) ∧ ¬ VTBL_VOLID ∈ vols ∧ ¬ VTBL_VOLID × VTBL_LNUM ∈ recs ∧ # apebs = # wlar ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q) ∧ (∃ vtbl. is-encoded(vtbl, apebs[vtblpnum].data) ∧ valid-eraseq-strong(apebs, vtbl, q)) ∧ bflipset-cons(bflipset, wlar) ∧ recs ⊥ vols ∧ q` ⊆ q ∧ (∀ v, m, n. v × m ∈ recs ∧ recs[v × m].pnum = n ∨ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ↔ wlar[n].status = used ∧ n < # apebs ∧ apebs[n].vidhdr.valid? ∧ apebs[n].vidhdr.vol = v ∧ apebs[n].vidhdr.leb = m ∧ n ≠ vtblpnum) wfbound # recs) */; choose ladr with ladr ∈ recs in let n0 = recs[ladr].pnum in {if ladr.vol ∈ vols ∧ ladr.leb < # vols[ladr.vol] then vols[ladr.vol][ladr.leb] := ⌜n0⌝ else {wlar[n0].status := erasing; q := q + eq-entry(n0, ladr.vol × ladr.leb); bflipset := bflipset -- n0}; recs := recs -- ladr}}⟫ ( valid-ebatbl(apebs, wlar, vols, n) ∧ valid-vtbl(apebs, vols, wlar, n) ∧ ¬ VTBL_VOLID ∈ vols ∧ # apebs = # wlar ∧ bflipset-cons(bflipset, wlar) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q) ∧ q0 ⊆ q ∧ (∃ vtbl. is-encoded(vtbl, buf) ∧ valid-eraseq-strong(apebs, vtbl, q))), n ∈ q, VTBL_VOLID ∈ vols |
# wlar = # apebs, apebs[n] = mkpeb(aehdr, avhdr, buf, m, boolvar), q0 = q, recs = recs0 -- (VTBL_VOLID × VTBL_LNUM), vtblpnum = n, bflipset-cons(bflipset, wlar), unique-sqns(apebs), unmapped-vols(vols), valid-eraseq(wlar, q), valid-eraseq-stronger(apebs, q), valid-recs(apebs, wlar, recs0), valid-vtbl(apebs, vols, wlar, n), valid-wl(apebs, wlar) ⊦ ⟪while recs ≠ ∅ do {/* (prepost-init-vols-mappings : invariant unique-sqns(apebs) ∧ valid-vtbl(apebs, vols, wlar, vtblpnum) ∧ ¬ VTBL_VOLID ∈ vols ∧ ¬ VTBL_VOLID × VTBL_LNUM ∈ recs ∧ # apebs = # wlar ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q) ∧ (∃ vtbl. is-encoded(vtbl, apebs[vtblpnum].data) ∧ valid-eraseq-strong(apebs, vtbl, q)) ∧ bflipset-cons(bflipset, wlar) ∧ recs ⊥ vols ∧ q` ⊆ q ∧ (∀ v, m, n. v × m ∈ recs ∧ recs[v × m].pnum = n ∨ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ↔ wlar[n].status = used ∧ n < # apebs ∧ apebs[n].vidhdr.valid? ∧ apebs[n].vidhdr.vol = v ∧ apebs[n].vidhdr.leb = m ∧ n ≠ vtblpnum) wfbound # recs) */; choose ladr with ladr ∈ recs in let n0 = recs[ladr].pnum in {if ladr.vol ∈ vols ∧ ladr.leb < # vols[ladr.vol] then vols[ladr.vol][ladr.leb] := ⌜n0⌝ else {wlar[n0].status := erasing; q := q + eq-entry(n0, ladr.vol × ladr.leb); bflipset := bflipset -- n0}; recs := recs -- ladr}}⟫ ( valid-ebatbl(apebs, wlar, vols, n) ∧ valid-vtbl(apebs, vols, wlar, n) ∧ ¬ VTBL_VOLID ∈ vols ∧ # apebs = # wlar ∧ bflipset-cons(bflipset, wlar) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(wlar, q) ∧ q0 ⊆ q ∧ (∃ vtbl. is-encoded(vtbl, buf) ∧ valid-eraseq-strong(apebs, vtbl, q))), VTBL_VOLID ∈ vols, n ∈ q