| # buf = EB_PAGE_SIZE, # lpt0 = # avol, # avol0 = # avol, avol0[m] = mapped(buf0), avol[m] = mapped(buf0 + subarray(buf, 0, m1)), m < # avol, awbuf-inv(avol, buffered(m)), ebm-vol-inv(avol0), wbuf-cons(mkwbuf(buf, m2, m1), mapped(buf0), false), m < # avol ∧ avol[m].mapped? → is-aligned(# avol[m].data, EB_PAGE_SIZE), ∀ n0. n0 < # avol → n0 ≠ m → avol[n0] = avol0[n0] ⊦ m1 = 0 |
# buf = EB_PAGE_SIZE, # lpt0 = # avol, # avol0 = # avol, avol0[m] = mapped(buf0), avol[m] = mapped(buf0 + subarray(buf, 0, m1)), m < # avol, awbuf-inv(avol, buffered(m)), ebm-vol-inv(avol0), is-aligned(# buf0 + m1, EB_PAGE_SIZE), wbuf-cons(mkwbuf(buf, m2, m1), mapped(buf0), false), ∀ n0. n0 < # avol → n0 ≠ m → avol[n0] = avol0[n0] ⊦ m1 = 0
Used simplifier rules: append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ # subarray(buf, m, n) = n; (s)% ⊦ #(buf + buf0) = # buf + # buf0; (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ mapped(buf).mapped?; (s)