| avol[m2] = mapped(buf0), m2 < # avol, ebm-vol-inv(avol), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), # buf0 ≤ m1, m1 + n ≤ LEB_SIZE, n2 + n ≤ # buf, avol ⊆ avol0 ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then if n ≠ 0 then avol[m2] := mapped(avol[m2].data + mkempbuf(m1 - # avol[m2].data) + subarray(buf, n2, n)) else choose n1 with n1 < n ∧ is-aligned(n1, EB_PAGE_SIZE) in if n1 ≠ 0 then avol[m2] := mapped(avol[m2].data + mkempbuf(m1 - # avol[m2].data) + subarray(buf, n2, n1)) ifnone skip⟩ (avol ⊆ avol0) |
avol[m2] = mapped(buf0), m2 < # avol, ebm-vol-inv(avol), is-aligned(n, EB_PAGE_SIZE), is-aligned(m1, EB_PAGE_SIZE), n2 + n ≤ # buf, m1 + n ≤ LEB_SIZE, # buf0 ≤ m1, avol ⊆ avol0 ⊦ ⟨choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; if err = ESUCCESS then if n ≠ 0 then avol[m2] := mapped(avol[m2].data + mkempbuf(m1 - # avol[m2].data) + subarray(buf, n2, n)) else choose n1 with n1 < n ∧ is-aligned(n1, EB_PAGE_SIZE) in if n1 ≠ 0 then avol[m2] := mapped(avol[m2].data + mkempbuf(m1 - # avol[m2].data) + subarray(buf, n2, n1)) ifnone skip⟩ (avol ⊆ avol0)
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};