| avol[m2] = mapped(buf1), buf0 = buf, m = m1, m0 = m2, n = n1, n0 = n2, m2 < # avol, ebm-vol-inv(avol), n2 + n1 ≤ # buf, m1 + n1 ≤ LEB_SIZE, avol ⊆ avol0 ⊦ ⟨if m0 < # avol ∧ avol[m0].mapped? ∧ n0 + n ≤ # buf0 ∧ m + n ≤ LEB_SIZE then {fail_or_success#(; ; err); if err = ESUCCESS then buf0 := copy(avol[m0].data + mkempbuf(LEB_SIZE - # avol[m0].data), m, buf0, n0, n) else choose buf with # buf = # buf0 ∧ range=(buf0, 0, buf, 0, n0) ∧ range=(buf0, n0 + n, buf, n0 + n, # buf0 - n0 + n) in buf0 := buf} else abort⟩ true |
avol[m2] = mapped(buf1), buf0 = buf, m = m1, m0 = m2, n = n1, n0 = n2, m2 < # avol, ebm-vol-inv(avol), m1 + n1 ≤ LEB_SIZE, n2 + n1 ≤ # buf, avol ⊆ avol0 ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then buf0 := copy(avol[m0].data + mkempbuf(LEB_SIZE - # avol[m0].data), m, buf0, n0, n) else choose buf with # buf = # buf0 ∧ range=(buf0, 0, buf, 0, n0) ∧ range=(buf0, n0 + n, buf, n0 + n, # buf0 - n0 + n) in buf0 := buf⟩ true
Used simplifier rules: ⊦ mapped(buf).mapped?; (s)