| # 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 |
# buf = EB_PAGE_SIZE, # lpt = # avol, m0 = m4, m4 < # avol, ebm-vol-inv(avol), bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol[bleb.leb], rofs) ⊦ ⟪avol[m0] := unmapped⟫ ((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: ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s)