| # apebs = # wlar, # vols[v] = # avols[v], apebs[n1] = mkpeb(aehdr, avhdr, buf1, m, false), avols[v][vtblpnum5] = mapped(buf1, m0), vols[v][vtblpnum5] = ⌜n1⌝ , buf = buf2, n1 < # wlar, vtblpnum5 < # avols[v], 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(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum3), valid-wl(apebs, wlar), v ∈ avols, v ∈ vols, vtblpnum4 + n ≤ LEB_SIZE, n0 + n ≤ # buf2, m ≤ m0, ¬ VTBL_VOLID ∈ vols ⊦ ⟨ebm_read#(v, vtblpnum5, vtblpnum4, n0, n, avols; buf2; err1)⟩ (copy(buf1, vtblpnum4, buf, n0, n) = buf2 ∧ ESUCCESS = err1) |
# vols[v] = # avols[v], # apebs = # wlar, vols[v][vtblpnum5] = ⌜n1⌝ , avols[v][vtblpnum5] = mapped(buf1, m0), apebs[n1] = mkpeb(aehdr, avhdr, buf1, m, false), buf = buf2, buf0 = buf2, vtblpnum = vtblpnum4, vtblpnum0 = vtblpnum5, 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 ⊦ ⟨if v ∈ avols ∧ vtblpnum0 < # avols[v] ∧ vtblpnum + n ≤ LEB_SIZE ∧ n0 + n ≤ # buf0 then {fail_or_success#(; ; err); if err = ESUCCESS then if ¬ avols[v][vtblpnum0].mapped? then buf0 := fill(buf0, empty, n0, n) else buf0 := copy(avols[v][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} else abort⟩ (copy(buf1, vtblpnum4, buf, n0, n) = buf0 ∧ ESUCCESS = err), VTBL_VOLID ∈ vols
Used simplifier rules: ebm_read#(VOLID, LNUM, OFFSET, N0, N, AVOLS; BUF; ERR) {if VOLID ∈ AVOLS ∧ LNUM < # AVOLS[VOLID] ∧ OFFSET + N ≤ LEB_SIZE ∧ N0 + N ≤ # BUF then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then if ¬ AVOLS[VOLID][LNUM].mapped? then BUF := fill(BUF, empty, N0, N) else BUF := copy(AVOLS[VOLID][LNUM].data, OFFSET, BUF, N0, N) else choose BUF0 with # BUF0 = # BUF ∧ range=(BUF0, 0, BUF, 0, N0) ∧ range=(BUF0, N0 + N, BUF, N0 + N, # BUF - N0 + N) in BUF := BUF0} else abort };