| # buf = EB_PAGE_SIZE, # lpt = # avol, buffered(m4) ≠ bleb, m4 < # avol, ebm-vol-inv(avol), bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol[bleb.leb], rofs) ⊦ ⟪apersistence_io_unmap#(m4, adr, m, plog, lpt, ns; avol)⟫ ((bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol[bleb.leb], rofs)) ∧ ebm-vol-inv(avol) ∧ # lpt = # avol) |
# lpt = # avol, # buf = EB_PAGE_SIZE, m0 = m4, m4 < # avol, ebm-vol-inv(avol), bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol[bleb.leb], rofs) ⊦ ⟪if m0 < # avol then avol[m0] := unmapped else abort⟫ ((bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol[bleb.leb], rofs)) ∧ ebm-vol-inv(avol) ∧ # lpt = # avol), buffered(m4) = bleb
Used simplifier rules: apersistence_io_unmap# (LNUM, PROOTADR, PMAXINO, PLOG, PLPT, PORPHANS; PVOL) {if LNUM < # PVOL then PVOL[LNUM] := unmapped else abort};