| # apebs = # wlar, avols[v][vtblpnum3] = mapped(buf1, m), vols[v][vtblpnum3] = ⌜n⌝ , apebs[n] = mkpeb(aehdr, avhdr, buf1, m0, false), avhdr.valid?, vtblpnum3 < # avols[v], vtblpnum3 < # vols[v], n < # wlar, abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), is-aligned(vtblpnum5, EB_PAGE_SIZE), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aehdr, avhdr, buf1, m0, false)), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum4), valid-eraseq(q), valid-eraseq(wlar, q), valid-eraseq(apebs, q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum4), valid-wl(apebs, wlar), v ∈ avols, v ∈ vols, m0 ≤ LEB_SIZE, m ≤ vtblpnum5, n0 ≤ # buf, vtblpnum5 ≤ LEB_SIZE, m0 ≤ vtblpnum5, m ≤ LEB_SIZE, ¬ VTBL_VOLID ∈ vols ⊦ ⟨ebm_write#(v, vtblpnum3, vtblpnum5, n0, 0, buf; avols; err0)⟩ (abs(avols, apebs, vols, q) ∧ ESUCCESS = err0) |
# apebs = # wlar, apebs[n] = mkpeb(aehdr, avhdr, buf1, m0, false), vols[v][vtblpnum3] = ⌜n⌝ , avols[v][vtblpnum3] = mapped(buf1, m), n0 = 0, n1 = n2, vtblpnum = vtblpnum5, vtblpnum0 = vtblpnum3, avhdr.valid?, n < # wlar, vtblpnum3 < # vols[v], vtblpnum3 < # avols[v], abs(avols, apebs, vols, q), bflipset-cons(bflipset, wlar), ebm-cons(avols), is-aligned(vtblpnum5, EB_PAGE_SIZE), ubi-io-inv(apebs), ubi-io-peb-inv(mkpeb(aehdr, avhdr, buf1, m0, false)), unique-sqns(apebs), valid-ebatbl(apebs, wlar, vols, vtblpnum4), valid-eraseq(apebs, q), valid-eraseq(wlar, q), valid-eraseq(q), valid-global-sqn(apebs, sqnum), valid-vtbl(apebs, vols, wlar, vtblpnum4), valid-wl(apebs, wlar), v ∈ vols, v ∈ avols, m ≤ LEB_SIZE, m0 ≤ vtblpnum5, vtblpnum5 ≤ LEB_SIZE, n2 ≤ # buf, m ≤ vtblpnum5, m0 ≤ LEB_SIZE ⊦ ⟨if v ∈ avols ∧ vtblpnum0 < # avols[v] ∧ vtblpnum + n0 ≤ LEB_SIZE ∧ is-aligned(vtblpnum, EB_PAGE_SIZE) ∧ is-aligned(n0, EB_PAGE_SIZE) ∧ n0 + n1 ≤ # buf ∧ (avols[v][vtblpnum0].mapped? → vtblpnum ≥ avols[v][vtblpnum0].fill) then {fail_or_success#(; ; err); if err = ESUCCESS then if avols[v][vtblpnum0].mapped? then if n0 ≠ 0 then avols[v][vtblpnum0] := mapped (subarray(avols[v][vtblpnum0].data, 0, vtblpnum) + subarray(buf, n1, n0) + mkempbuf(LEB_SIZE - vtblpnum - n0), vtblpnum + n0) else avols[v][vtblpnum0] := mapped(mkempbuf(vtblpnum) + subarray(buf, n1, n0) + mkempbuf(LEB_SIZE - vtblpnum - n0), vtblpnum + n0) else if avols[v][vtblpnum0].mapped? then choose n with n < n0 ∧ is-aligned(n, EB_PAGE_SIZE) in if n ≠ 0 then avols[v][vtblpnum0] := mapped (subarray(avols[v][vtblpnum0].data, 0, vtblpnum) + subarray(buf, n1, n) + mkempbuf(LEB_SIZE - vtblpnum - n), vtblpnum + n) ifnone skip else if n0 ≠ 0 then avols[v][vtblpnum0] := unmapped} else abort⟩ (abs(avols, apebs, vols, q) ∧ ESUCCESS = err), VTBL_VOLID ∈ vols
Used simplifier rules: ebm_write#(VOLID, LNUM, OFFSET, N0, N, BUF; AVOLS; ERR) {if VOLID ∈ AVOLS ∧ LNUM < # AVOLS[VOLID] ∧ OFFSET + N ≤ LEB_SIZE ∧ is-aligned(OFFSET, EB_PAGE_SIZE) ∧ is-aligned(N, EB_PAGE_SIZE) ∧ N + N0 ≤ # BUF ∧ (AVOLS[VOLID][LNUM].mapped? → OFFSET ≥ AVOLS[VOLID][LNUM].fill) then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then if AVOLS[VOLID][LNUM].mapped? then if N ≠ 0 then AVOLS[VOLID][LNUM] := mapped ( subarray (AVOLS[VOLID][LNUM].data, 0, OFFSET) + subarray(BUF, N0, N) + mkempbuf(LEB_SIZE - OFFSET - N), OFFSET + N) else AVOLS[VOLID][LNUM] := mapped ( mkempbuf(OFFSET) + subarray(BUF, N0, N) + mkempbuf(LEB_SIZE - OFFSET - N), OFFSET + N) else if AVOLS[VOLID][LNUM].mapped? then choose N1 with N1 < N ∧ is-aligned(N1, EB_PAGE_SIZE) in if N1 ≠ 0 then AVOLS[VOLID][LNUM] := mapped ( subarray (AVOLS[VOLID][LNUM].data, 0, OFFSET) + subarray(BUF, N0, N1) + mkempbuf(LEB_SIZE - OFFSET - N1), OFFSET + N1) ifnone skip else if N ≠ 0 then AVOLS[VOLID][LNUM] := unmapped} else abort };