| # apebs = # wlar, wlar[m] = wl-entry(m0, used), vols[v][vtblpnum4] = ⌜m⌝ , apebs[m] = mkpeb(aehdr, avhdr, buf0, m1, boolvar), ¬ boolvar, m < # wlar, vtblpnum4 < # vols[v], bflipset-cons(bflipset, wlar), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum5), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-peb(v, vtblpnum4, apebs[m]), valid-vtbl(apebs, vols, wlar, vtblpnum5), valid-wl(apebs, wlar), v ∈ vols, n0 + n ≤ # buf, vtblpnum3 + n ≤ LEB_SIZE ⊦ ⟪fail_or_success#(; ; err); bitflips := ?; if err = ESUCCESS then buf := copy(buf0, vtblpnum3, buf, n0, n) else choose buf1 with # buf1 = # buf ∧ range=(buf1, 0, buf, 0, n0) ∧ range=(buf1, n0 + n, buf, n0 + n, # buf - n0 + n) in buf := buf1; if err = ESUCCESS ∧ bitflips then bflipset := bflipset ++ m⟫ bflipset-cons(bflipset, wlar), m = vtblpnum5, VTBL_VOLID ∈ vols, vtblpnum5 ∈ q, m ∈ q |
# apebs = # wlar, apebs[m] = mkpeb(aehdr, avhdr, buf0, m1, false), vols[v][vtblpnum4] = ⌜m⌝ , wlar[m] = wl-entry(m0, used), m ≠ vtblpnum5, vtblpnum4 < # vols[v], m < # wlar, bflipset-cons(bflipset, wlar), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aehdr, avhdr, buf0, m1, false)), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum5), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-peb(v, vtblpnum4, mkpeb(aehdr, avhdr, buf0, m1, false)), valid-peb(mkpeb(aehdr, avhdr, buf0, m1, false)), valid-vtbl(apebs, vols, wlar, vtblpnum5), valid-wl(apebs, wlar), v ∈ vols, vtblpnum3 + n ≤ LEB_SIZE, n0 + n ≤ # buf, ¬ m ∈ q, ¬ vtblpnum5 ∈ q, ¬ VTBL_VOLID ∈ vols ⊦ ⟪fail_or_success#(; ; err); bitflips := ?; if err = ESUCCESS then buf := copy(buf0, vtblpnum3, buf, n0, n) else choose buf1 with # buf1 = # buf ∧ range=(buf1, 0, buf, 0, n0) ∧ range=(buf1, n0 + n, buf, n0 + n, # buf - n0 + n) in buf := buf1; if err = ESUCCESS ∧ bitflips then bflipset := bflipset ++ m⟫ bflipset-cons(bflipset, wlar)
Used simplifier rules: lf-valid-wl-not-erroneous: n < # wlar, stat ≠ erroneous ⊦ apebs[n] = mkpeb(aehdr, avhdr, buf, m, boolvar) ∧ wlar[n] = wl-entry(m0, stat) ∧ valid-wl(apebs, wlar) → ¬ boolvar;%ubi-io-inv-fwd: n < # apebs ⊦ apebs[n] = apeb ∧ ubi-io-inv(apebs) → ubi-io-peb-inv(apeb);%lf-used-valid-peb: ⊦ n < # wlar ∧ wlar[n] = wl-entry(m, used) ∧ apebs[n] = apeb ∧ valid-wl(apebs, wlar) → valid-peb(apeb);% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ used ≠ erroneous; (s)