| # apebs0 = # wlar0, wlar0[m] = wl-entry(m0, erasing), apebs1 = apebs0, err0 = EIO, vtblpnum = vtblpnum2, vtblpnum0 = m, vtblpnum3 = 0, wlar1 = wlar0, m < # wlar0, bflipset-cons(bflipset, wlar0), erase-worker-inv(apebs0, wlar0, vtblpnum, err, apebs, vols, wlar, q0, eq-entry(m, lref), q1, bflipset, vtblpnum1, sqnum), ubi-io-inv(apebs0), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar0, vols, vtblpnum1), valid-eraseq(q0 + eq-entry(m, lref) ' + q1), valid-eraseq(wlar0, q0 + eq-entry(m, lref) ' + q1), valid-eraseq(apebs0, q0 + eq-entry(m, lref) ' + q1), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs0, vols, wlar0, vtblpnum1), valid-wl(apebs0, wlar0), vtblpnum ≤ UBI_ERASE_RETRIES ⊦ ⟪wlar[vtblpnum0].ec := wlar[vtblpnum0].ec + 1; aubi_io_sync_erase#(vtblpnum0; apebs; err); if err = ESUCCESS then aubi_io_write_echdr#(vtblpnum0, aechdr(wlar[vtblpnum0].ec); apebs; err) else debug#("ubi: erase of PEB " + vtblpnum0.toString + " failed"); vtblpnum := vtblpnum + 1⟫ ( erase-worker-inv(apebs0, wlar0, vtblpnum, err, apebs, vols, wlar, q0, eq-entry(m, lref), q1, bflipset, vtblpnum1, sqnum) ∧ UBI_ERASE_RETRIES + 1 - vtblpnum < UBI_ERASE_RETRIES + 1 - vtblpnum2), err = ESUCCESS, vtblpnum1 = m, VTBL_VOLID ∈ vols, vtblpnum1 ∈ q0, vtblpnum1 ∈ q1 |
# apebs0 = # wlar0, wlar0[m] = wl-entry(m0, erasing), apebs1 = apebs0, err0 = EIO, vtblpnum = vtblpnum2, vtblpnum0 = m, vtblpnum3 = 0, wlar1 = wlar0, vtblpnum0 < # wlar, m < # wlar0, bflipset-cons(bflipset, wlar0), erase-worker-inv(apebs0, wlar0, vtblpnum, err, apebs, vols, wlar, q0, eq-entry(m, lref), q1, bflipset, vtblpnum1, sqnum), ubi-io-inv(apebs0), unique-sqns(apebs0), valid-ebatbl(apebs0, wlar0, vols, vtblpnum1), valid-eraseq(apebs0, q0 + eq-entry(m, lref) ' + q1), valid-eraseq(wlar0, q0 + eq-entry(m, lref) ' + q1), valid-eraseq(q0 + eq-entry(m, lref) ' + q1), valid-global-sqn(apebs0, sqnum), valid-vtbl(apebs0, vols, wlar0, vtblpnum1), valid-wl(apebs0, wlar0), vtblpnum ≤ UBI_ERASE_RETRIES ⊦ ⟪aubi_io_sync_erase#(vtblpnum0; apebs; err); wlar[vtblpnum0].ec := wlar[vtblpnum0].ec + 1; if err = ESUCCESS then aubi_io_write_echdr#(vtblpnum0, aechdr(wlar[vtblpnum0].ec); apebs; err) else debug#("ubi: erase of PEB " + vtblpnum0.toString + " failed"); vtblpnum := vtblpnum + 1⟫ ( erase-worker-inv(apebs0, wlar0, vtblpnum, err, apebs, vols, wlar, q0, eq-entry(m, lref), q1, bflipset, vtblpnum1, sqnum) ∧ UBI_ERASE_RETRIES + 1 - vtblpnum < UBI_ERASE_RETRIES + 1 - vtblpnum2), err = ESUCCESS, vtblpnum1 = m, vtblpnum1 ∈ q1, vtblpnum1 ∈ q0, VTBL_VOLID ∈ vols
Used simplifier rules: ⊦ erase-worker-inv (apebs0, wlar0, m, err, apebs, vols, wlar, q0, eqent, q1, bflipset, n0, n1) ↔ m ≤ UBI_ERASE_RETRIES + 1 ∧ eqent.pnum < # apebs ∧ id○(apebs, apebs0, eqent.pnum) ∧ id○(wlar, wlar0, eqent.pnum) ∧ ubi-cons(apebs, vols, wlar, q0 + (eqent + q1), bflipset, n0, n1) ∧ ubi-io-inv(apebs) ∧ ( err = ESUCCESS → apebs[eqent.pnum].echdr = aechdr(wlar[eqent.pnum].ec) ∧ apebs[eqent.pnum].vidhdr = empty ∧ ¬ apebs[eqent.pnum].bad); (s)% ⊦ eq-entry(m, lref).pnum = m; (s)% ⊦ eqent + q = eqent ' + q; (s)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]%⊦ ubi-cons(apebs, vols, wlar, q, bflipset, n0, n1) ↔ # apebs = # wlar ∧ unique-sqns(apebs) ∧ valid-global-sqn(apebs, n1) ∧ valid-wl(apebs, wlar) ∧ valid-eraseq(q) ∧ valid-eraseq(wlar, q) ∧ valid-eraseq(apebs, q) ∧ ¬ VTBL_VOLID ∈ vols ∧ bflipset-cons(bflipset, wlar) ∧ valid-ebatbl(apebs, wlar, vols, n0) ∧ valid-vtbl(apebs, vols, wlar, n0); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ valid-eraseq(wlar, q0 + eq-entry(m, lref) ' + q1) → ¬ # wlar ≤ m; (s)