| # lpt = # avol, avol[m].mapped?, m < # avol, ebm-vol-inv(avol), is-aligned(n, EB_PAGE_SIZE), is-aligned(m0, EB_PAGE_SIZE), n0 + n ≤ # buf, m0 + n ≤ LEB_SIZE, # avol[m].data ≤ m0 ⊦ ⟪apersistence_io_write#(m, m0, n0, n, buf, adr, m1, plog, lpt, ns; avol; err)⟫ (ebm-vol-inv(avol) ∧ # lpt = # avol) |
# lpt = # avol, avol[m] = mapped(buf0), m < # avol, ebm-vol-inv(avol), is-aligned(n, EB_PAGE_SIZE), is-aligned(m0, EB_PAGE_SIZE), n0 + n ≤ # buf, m0 + n ≤ LEB_SIZE, # buf0 ≤ m0 ⊦ ⟪apersistence_io_write#(m, m0, n0, n, buf, adr, m1, plog, lpt, ns; avol; err)⟫ (ebm-vol-inv(avol) ∧ # lpt = # avol)
Used simplifier rules: ⊦ mapped(buf).data = buf; (s)% ⊦ m < n → n ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ aleb.mapped? ↔ (∃ buf. aleb = mapped(buf)); (as)