| # lpt = # avol, avol[n0] = mapped(buf0), bleb = buffered(n0), n0 < # avol, awbuf-inv(avol, buffered(n0)), # buf0 + n ≤ LEB_SIZE, n ≤ # buf ⊦ ⟪if isbuf then err := EROFS else {fail_or_success#(; ; err); let m = bleb.leb in if err = ESUCCESS then avol[m] := mapped(avol[m].data + subarray(buf, 0, n)) else { choose n1 with n1 ≠ 0 ∧ n1 < n ∧ is-aligned(# avol[m].data + n1, EB_PAGE_SIZE) in avol[m] := mapped(avol[m].data + subarray(buf, 0, n1)) ifnone skip or skip; isbuf := true}}⟫ (awbuf-inv(avol, bleb) ∧ # lpt = # avol) |
# lpt = # avol, avol[n0] = mapped(buf0), bleb = buffered(n0), isbuf, n0 < # avol, awbuf-inv(avol, buffered(n0)), n ≤ # buf, # buf0 + n ≤ LEB_SIZE ⊦ ⟪err := EROFS⟫ (awbuf-inv(avol, bleb) ∧ # lpt = # avol)
# lpt = # avol, avol[n0] = mapped(buf0), bleb = buffered(n0), ¬ isbuf, n0 < # avol, awbuf-inv(avol, buffered(n0)), n ≤ # buf, # buf0 + n ≤ LEB_SIZE ⊦ ⟪fail_or_success#(; ; err); let m = bleb.leb in if err = ESUCCESS then avol[m] := mapped(avol[m].data + subarray(buf, 0, n)) else { choose n1 with n1 ≠ 0 ∧ n1 < n ∧ is-aligned(# avol[m].data + n1, EB_PAGE_SIZE) in avol[m] := mapped(avol[m].data + subarray(buf, 0, n1)) ifnone skip or skip; isbuf := true}⟫ (awbuf-inv(avol, bleb) ∧ # lpt = # avol)