| # vols[v] = # avols[v], # apebs = # wlar, apebs[n1] = mkpeb(aehdr, avhdr, buf1, m, boolvar), vols[v][vtblpnum5] = ⌜n1⌝ , avols[v][vtblpnum5] = mapped(buf1, m0), buf = buf2, buf0 = buf, vtblpnum = vtblpnum4, vtblpnum0 = vols[v][vtblpnum5].pnum, vtblpnum5 < # avols[v], vtblpnum5 < # vols[v], bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), ubi-io-read-data-pre(vtblpnum0, vtblpnum, n0, n, buf0, apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum3), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum3), valid-wl(apebs, wlar), v ∈ vols, v ∈ avols, m ≤ m0, n0 + n ≤ # buf2, vtblpnum4 + n ≤ LEB_SIZE ⊦ ⟪fail_or_success#(; ; err); bitflips := ?; if err = ESUCCESS then buf0 := copy(apebs[vtblpnum0].data, vtblpnum, buf0, n0, n) else choose buf with # buf = # buf0 ∧ range=(buf, 0, buf0, 0, n0) ∧ range=(buf, n0 + n, buf0, n0 + n, # buf0 - n0 + n) in buf0 := buf; if err = ESUCCESS ∧ bitflips then bflipset := bflipset ++ vols[v][vtblpnum5].pnum⟫ ⟨ebm_read#(v, vtblpnum5, vtblpnum4, n0, n, avols; buf2; err0)⟩ (buf0 = buf2 ∧ err = err0), vols[v][vtblpnum5] = unmapped, VTBL_VOLID ∈ vols |
# vols[v] = # avols[v], # apebs = # wlar, apebs[n1] = mkpeb(aehdr, avhdr, buf1, m, false), vols[v][vtblpnum5] = ⌜n1⌝ , avols[v][vtblpnum5] = mapped(buf1, m0), vtblpnum5 < # avols[v], n1 < # wlar, bflipset-cons(bflipset, wlar), ebm-cons(avols), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aehdr, avhdr, buf1, m, false)), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum3), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum3), valid-wl(apebs, wlar), v ∈ vols, v ∈ avols, m ≤ m0, n0 + n ≤ # buf2, vtblpnum4 + n ≤ LEB_SIZE, ¬ VTBL_VOLID ∈ vols ⊦ ⟪fail_or_success#(; ; err); bitflips := ?; buf := buf2; if err = ESUCCESS then buf := copy(apebs[vols[v][vtblpnum5].pnum].data, vtblpnum4, 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 ++ vols[v][vtblpnum5].pnum⟫ ⟨ebm_read#(v, vtblpnum5, vtblpnum4, n0, n, avols; buf2; err0)⟩ (buf = buf2 ∧ err = err0)
Used simplifier rules: ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ mkpeb(aehdr, avhdr, buf, m, boolvar).bad ↔ boolvar; (s)% ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%ubi-io-inv-fwd: n < # apebs ⊦ apebs[n] = apeb ∧ ubi-io-inv(apebs) → ubi-io-peb-inv(apeb); (forward) from specification ubi-asm% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ ⌜m⌝ .pnum = m; (s)% ⊦ unmapped ≠ ⌜m⌝ ; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)%⊦ ubi-io-read-data-pre(n, n0, m0, n1, buf, apebs) ↔ n < # apebs ∧ ¬ apebs[n].bad ∧ n0 + n1 ≤ LEB_SIZE ∧ m0 + n1 ≤ # buf; (s)