| # lpt0 = # avol, # buf = EB_PAGE_SIZE, ebm-vol-inv(avol), avol ⊆ avol0, bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf, m0, m1), avol[bleb.leb], rofs) ⊦ ⟪wbuf_recover#(; adr1, m2, ns1, log, lpt1, wbuf0, m3, adr, m, plog, avol0, lpt0, ns, bleb0, rofs0; err)⟫ ( err = ESUCCESS → # wbuf0.content = EB_PAGE_SIZE ∧ (bleb0 ≠ nobuffer → bleb0.leb < # avol0 ∧ wbuf-cons(wbuf0, avol0[bleb0.leb], rofs0)) ∧ m3 = EB_PAGE_SIZE ∧ ebm-vol-inv(avol0) ∧ # lpt0 = # avol0) |
# buf = EB_PAGE_SIZE, # lpt2 = # avol1, rofs ↔ rofs0, adr0 = adr1, avol = avol0, bleb = bleb0, lpt = lpt2, lpt0 = lpt1, m0 = m3, m1 = m2, ns0 = ns1, wbuf = wbuf0, ebm-vol-inv(avol1), avol1 ⊆ avol0, bleb1 ≠ nobuffer → bleb1.leb < # avol1 ∧ wbuf-cons(mkwbuf(buf, m5, m4), avol1[bleb1.leb], rofs1) ⊦ ⟪apersistence_io_recover#(; adr0, m1, ns0, log, lpt0, adr, m, plog, lpt, ns, avol; err); if err = ESUCCESS then {apersistence_io_get_page_size#(adr, m, plog, avol, lpt, ns; ; m0); bleb := nobuffer; wbuf.content := mkbuf(m0); rofs := false}⟫ ( err = ESUCCESS → # wbuf.content = EB_PAGE_SIZE ∧ (bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(wbuf, avol[bleb.leb], rofs)) ∧ m0 = EB_PAGE_SIZE ∧ ebm-vol-inv(avol) ∧ # lpt = # avol)
Used simplifier rules: recover: ⊦ ;