| # wlar0 = # apebs, # apebs = # wlar, apebs[n] = mkpeb(aehdr, avhdr, buf, m, boolvar), n0 = recs[ladr].pnum, q0 = q1, recs = recs1, recs2 = recs0 -- (VTBL_VOLID × VTBL_LNUM), vtblpnum = n, n0 < # wlar, bflipset-cons(bflipset0, wlar0), bflipset-cons(bflipset, wlar), unique-sqns(apebs), unmapped-vols(vols0), valid-eraseq(wlar0, q1), valid-eraseq(wlar, q), valid-eraseq-stronger(apebs, q1), valid-recs(apebs, wlar0, recs0), valid-vtbl(apebs, vols0, wlar0, n), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-wl(apebs, wlar0), valid-wl(apebs, wlar), ladr ∈ recs, q1 ⊆ q, recs ⊥ vols, ladr.vol ∈ vols → ladr.vol ∈ vols, ∀ 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, ∃ vtbl. is-encoded(vtbl, apebs[vtblpnum].data) ∧ valid-eraseq-strong(apebs, vtbl, q) ⊦ ⟪q := q + eq-entry(n0, ladr.vol × ladr.leb); bflipset := bflipset -- n0; recs := recs -- ladr⟫ ( ( unique-sqns(apebs) ∧ valid-vtbl(apebs, vols, wlar[n0, wlar[n0].status:= erasing], vtblpnum) ∧ ¬ VTBL_VOLID ∈ vols ∧ ¬ VTBL_VOLID × VTBL_LNUM ∈ recs ∧ # apebs = # wlar[n0, wlar[n0].status:= erasing] ∧ valid-wl(apebs, wlar[n0, wlar[n0].status:= erasing]) ∧ valid-eraseq(wlar[n0, wlar[n0].status:= erasing], q) ∧ (∃ vtbl. is-encoded(vtbl, apebs[vtblpnum].data) ∧ valid-eraseq-strong(apebs, vtbl, q)) ∧ bflipset-cons(bflipset, wlar[n0, wlar[n0].status:= erasing]) ∧ recs ⊥ vols ∧ q1 ⊆ q ∧ (∀ v, m, n. v × m ∈ recs ∧ recs[v × m].pnum = n ∨ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ↔ wlar[n0, wlar[n0].status:= erasing][n].status = used ∧ n < # apebs ∧ apebs[n].vidhdr.valid? ∧ apebs[n].vidhdr.vol = v ∧ apebs[n].vidhdr.leb = m ∧ n ≠ vtblpnum)) ∧ # recs < # recs1), recs = ∅, n ∈ q1, VTBL_VOLID ∈ vols0, VTBL_VOLID × VTBL_LNUM ∈ recs, VTBL_VOLID ∈ vols, ladr.vol ∈ vols ∧ ladr.leb < # vols[ladr.vol] |
# apebs = # wlar, # wlar0 = # apebs, apebs[n] = mkpeb(aehdr, avhdr, buf, m, boolvar), n0 = recs[ladr].pnum, q0 = q1, recs = recs1, recs2 = recs0 -- (VTBL_VOLID × VTBL_LNUM), vtblpnum = n, n0 < # wlar, bflipset-cons(bflipset, wlar), bflipset-cons(bflipset0, wlar0), unique-sqns(apebs), unmapped-vols(vols0), valid-eraseq(wlar, q), valid-eraseq(wlar0, q1), valid-eraseq-stronger(apebs, q1), valid-recs(apebs, wlar0, recs0), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-vtbl(apebs, vols0, wlar0, n), valid-wl(apebs, wlar), valid-wl(apebs, wlar0), ladr ∈ recs, q1 ⊆ q, recs ⊥ vols, ladr.vol ∈ vols → ladr.vol ∈ vols, ∀ 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, ∃ vtbl. is-encoded(vtbl, apebs[vtblpnum].data) ∧ valid-eraseq-strong(apebs, vtbl, q) ⊦ ⟪bflipset := bflipset -- n0; recs := recs -- ladr⟫ ( ( unique-sqns(apebs) ∧ valid-vtbl(apebs, vols, wlar[n0, wlar[n0].status:= erasing], vtblpnum) ∧ ¬ VTBL_VOLID ∈ vols ∧ ¬ VTBL_VOLID × VTBL_LNUM ∈ recs ∧ # apebs = # wlar[n0, wlar[n0].status:= erasing] ∧ valid-wl(apebs, wlar[n0, wlar[n0].status:= erasing]) ∧ valid-eraseq(wlar[n0, wlar[n0].status:= erasing], q + eq-entry(n0, ladr.vol × ladr.leb)) ∧ (∃ vtbl. is-encoded(vtbl, apebs[vtblpnum].data) ∧ valid-eraseq-strong(apebs, vtbl, q + eq-entry(n0, ladr.vol × ladr.leb))) ∧ bflipset-cons(bflipset, wlar[n0, wlar[n0].status:= erasing]) ∧ recs ⊥ vols ∧ q1 ⊆ q + eq-entry(n0, ladr.vol × ladr.leb) ∧ (∀ v, m, n. v × m ∈ recs ∧ recs[v × m].pnum = n ∨ v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n⌝ ↔ wlar[n0, wlar[n0].status:= erasing][n].status = used ∧ n < # apebs ∧ apebs[n].vidhdr.valid? ∧ apebs[n].vidhdr.vol = v ∧ apebs[n].vidhdr.leb = m ∧ n ≠ vtblpnum)) ∧ # recs < # recs1), recs = ∅, VTBL_VOLID ∈ vols, VTBL_VOLID × VTBL_LNUM ∈ recs, VTBL_VOLID ∈ vols0, n ∈ q1, ladr.vol ∈ vols ∧ ladr.leb < # vols[ladr.vol]