| avols[default-volid][m2] = mapped(buf1, n1), buf = buf2, buf0 = buf, m = m1, m0 = m2, n = n2, n0 = n3, v = default-volid, m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols, m1 + n2 ≤ LEB_SIZE, n3 + n2 ≤ # buf2 ⊦ ⟪if v ∈ avols ∧ m0 < # avols[v] ∧ m + n ≤ LEB_SIZE ∧ n0 + n ≤ # buf0 then {fail_or_success#(; ; err); if err = ESUCCESS then if ¬ avols[v][m0].mapped? then buf0 := fill(buf0, empty, n0, n) else buf0 := copy(avols[v][m0].data, m, 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⟫ ⟨ebm_avol_read#(m2, m1, n3, n2, abs(avols[default-volid]); buf2; err0)⟩ (buf0 = buf2 ∧ err = err0) |
avols[default-volid][m2] = mapped(buf1, n1), buf = buf2, buf0 = buf, m = m1, m0 = m2, n = n2, n0 = n3, v = default-volid, m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols, n3 + n2 ≤ # buf2, m1 + n2 ≤ LEB_SIZE ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then if ¬ avols[v][m0].mapped? then buf0 := fill(buf0, empty, n0, n) else buf0 := copy(avols[v][m0].data, m, 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⟫ ⟨ebm_avol_read#(m2, m1, n3, n2, abs(avols[default-volid]); buf2; err0)⟩ (buf0 = buf2 ∧ err = err0)