| # lpt0 = # avol0, # lpt = # avol, rofs0 ↔ rofs, adr = adr0, bleb = bleb0, lpt = lpt0, m = m0, m1 = EB_PAGE_SIZE, ns = ns0, plog = plog0, abs(avol, bleb0, wbuf, avol0, rofs), awbuf-inv(avol, bleb), ebm-vol-inv(avol0), wbuf-cons(bleb0, wbuf, avol0, rofs), n ≤ # buf, # avol[bleb.leb].data + n ≤ LEB_SIZE ⊦ ⟪wbuf_write_buf#(n, buf, bleb0, m1, adr0, m0, plog0, lpt0, ns0; wbuf, rofs, avol0; err)⟫ ⟨awbuf_write_buf#(n, buf, adr, m, plog, lpt, ns, bleb; avol, rofs0; err0)⟩ ( (abs(avol, bleb0, wbuf, avol0, rofs) ∧ bleb = bleb0 ∧ adr = adr0 ∧ m = m0 ∧ plog = plog0 ∧ lpt = lpt0 ∧ ns = ns0 ∧ (rofs0 ↔ rofs)) ∧ err = err0), bleb = nobuffer |
# avol0 = # avol, # lpt0 = # avol, # wbuf.content = EB_PAGE_SIZE, rofs0 ↔ rofs, avol0[bleb0.leb] = mapped(buf0), bleb0 ≠ nobuffer, bleb0.leb < # avol, abs(avol, bleb0, wbuf, avol0, rofs), awbuf-inv(avol, bleb0), ebm-vol-inv(avol0), wbuf-cons(wbuf, mapped(buf0), rofs), # avol[bleb0.leb].data + n ≤ LEB_SIZE, n ≤ # buf ⊦ ⟪wbuf_write_buf#(n, buf, bleb0, EB_PAGE_SIZE, adr0, m0, plog0, lpt0, ns0; wbuf, rofs, avol0; err)⟫ ⟨awbuf_write_buf#(n, buf, adr0, m0, plog0, lpt0, ns0, bleb0; avol, rofs0; err0)⟩ (abs(avol, bleb0, wbuf, avol0, rofs) ∧ (rofs0 ↔ rofs) ∧ err = err0)
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)