| # apebs = # wlar, vtblpnum1 < # vols[v], bflipset-cons(bflipset, wlar), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-wl(apebs, wlar), v ∈ vols, n0 + n ≤ # buf, vtblpnum2 + n ≤ LEB_SIZE, ¬ vtblpnum ∈ q, ¬ VTBL_VOLID ∈ vols ⊦ ⟪ubi_read#(v, vtblpnum1, vtblpnum2, n0, n, vols, LEB_SIZE, apebs; buf, bflipset; err)⟫ bflipset-cons(bflipset, wlar) |
# apebs = # wlar, vtblpnum0 = LEB_SIZE, vtblpnum1 = vtblpnum3, vtblpnum2 = vtblpnum4, vtblpnum4 < # vols[v], bflipset-cons(bflipset, wlar), ubi-io-inv(apebs), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum), valid-wl(apebs, wlar), v ∈ vols, vtblpnum3 + n ≤ LEB_SIZE, n0 + n ≤ # buf ⊦ ⟪if v ∈ vols ∧ vtblpnum2 < # vols[v] ∧ vtblpnum1 + n ≤ vtblpnum0 ∧ n0 + n ≤ # buf then let ebae = vols[v][vtblpnum2] in if ebae = unmapped then {buf := fill(buf, empty, n0, n); err := ESUCCESS} else let vtblpnum = ebae.pnum, bitflips = ? in {aubi_io_read_data#(vtblpnum, vtblpnum1, n0, n, apebs; buf; bitflips, err); if err = ESUCCESS ∧ bitflips then bflipset := bflipset ++ vtblpnum} else abort⟫ bflipset-cons(bflipset, wlar), vtblpnum ∈ q, VTBL_VOLID ∈ vols
Used simplifier rules: read: ⊦ ;