| # lpt = # avol, m = EB_PAGE_SIZE, ebm-vol-inv(avol), wbuf-cons(bleb, wbuf, avol, rofs), ¬ rofs → wbuf.offset + wbuf.nbytes + n ≤ LEB_SIZE ∧ n ≤ # buf ⊦ ⟪wbuf_write_buf#(n, buf, bleb, m, adr, m0, plog, lpt, ns; wbuf, rofs, avol; err)⟫ (wbuf-cons(bleb, wbuf, avol, rofs) ∧ ebm-vol-inv(avol) ∧ # lpt = # avol), bleb = nobuffer |
# lpt = # avol, # wbuf.content = EB_PAGE_SIZE, avol[bleb.leb] = mapped(buf0), bleb ≠ nobuffer, bleb.leb < # avol, ebm-vol-inv(avol), wbuf-cons(wbuf, mapped(buf0), rofs), ¬ rofs → wbuf.offset + wbuf.nbytes + n ≤ LEB_SIZE ∧ n ≤ # buf ⊦ ⟪wbuf_write_buf#(n, buf, bleb, EB_PAGE_SIZE, adr, m0, plog, lpt, ns; wbuf, rofs, avol; err)⟫ ( # wbuf.content = EB_PAGE_SIZE ∧ bleb.leb < # avol ∧ wbuf-cons(wbuf, avol[bleb.leb], rofs) ∧ ebm-vol-inv(avol) ∧ # lpt = # avol)
Used simplifier rules: ⊦ mapped(buf).mapped?; (s)% ⊦ aleb.mapped? ↔ (∃ buf. aleb = mapped(buf)); (as)% ⊦ 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%wbuf-cons-mapped: ⊦ wbuf-cons(wbuf, aleb, boolvar) → aleb.mapped?; (forward) from specification wbuf-base%⊦ wbuf-cons(bleb, wbuf, avol, rofs) ↔ # wbuf.content = EB_PAGE_SIZE ∧ ( bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(wbuf, avol[bleb.leb], rofs)); (s)