| m2 < # avols[v], ebm-cons(avols), is-aligned(n, EB_PAGE_SIZE), is-aligned(m1, EB_PAGE_SIZE), v ∈ avols, n + n2 ≤ # buf, m1 + n ≤ LEB_SIZE, avols[v][m2].mapped? → avols[v][m2].fill ≤ m1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if err0 = ESUCCESS then if avols[v][m2].mapped? then if n ≠ 0 then avols[v][m2] := mapped(subarray(avols[v][m2].data, 0, m1) + subarray(buf, n2, n) + mkempbuf(LEB_SIZE - m1 - n), m1 + n) else avols[v][m2] := mapped(mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(LEB_SIZE - m1 - n), m1 + n) else if avols[v][m2].mapped? then choose n1 with n1 < n ∧ is-aligned(n1, EB_PAGE_SIZE) in if n1 ≠ 0 then avols[v][m2] := mapped(subarray(avols[v][m2].data, 0, m1) + subarray(buf, n2, n1) + mkempbuf(LEB_SIZE - m1 - n1), m1 + n1) ifnone skip else if n ≠ 0 then avols[v][m2] := unmapped⟫ ebm-cons(avols) |
err0 = ESUCCESS, m2 < # avols[v], ebm-cons(avols), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), v ∈ avols, m1 + n ≤ LEB_SIZE, n + n2 ≤ # buf, avols[v][m2].mapped? → avols[v][m2].fill ≤ m1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if avols[v][m2].mapped? then if n ≠ 0 then avols[v][m2] := mapped(subarray(avols[v][m2].data, 0, m1) + subarray(buf, n2, n) + mkempbuf(LEB_SIZE - m1 - n), m1 + n) else avols[v][m2] := mapped(mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(LEB_SIZE - m1 - n), m1 + n)⟫ ebm-cons(avols)
m2 < # avols[v], ebm-cons(avols), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), v ∈ avols, m1 + n ≤ LEB_SIZE, n + n2 ≤ # buf, avols[v][m2].mapped? → avols[v][m2].fill ≤ m1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if avols[v][m2].mapped? then choose n1 with n1 < n ∧ is-aligned(n1, EB_PAGE_SIZE) in if n1 ≠ 0 then avols[v][m2] := mapped(subarray(avols[v][m2].data, 0, m1) + subarray(buf, n2, n1) + mkempbuf(LEB_SIZE - m1 - n1), m1 + n1) ifnone skip else if n ≠ 0 then avols[v][m2] := unmapped⟫ ebm-cons(avols), err0 = ESUCCESS