| # buf = EB_PAGE_SIZE, # lpt1 = # avol1, # avol0 = # avol1, # lpt2 = # avol1, adr = adr3, lpt = lpt1, m = m5, ns = ns4, ns0 = ns2, plog = plog0, abs(avol1, bleb, mkwbuf(buf, m1, m2), avol0, rofs), awbuf-inv(avol1, bleb), ebm-vol-inv(avol0), synced(avol1), bleb ≠ nobuffer → bleb.leb < # avol1 ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol0[bleb.leb], rofs) ⊦ ⟪apersistence_io_commit#(lpt2, adr2, m3, avol0; ns0, adr, m, plog, lpt, ns; err); rofs0 := rofs; if err ≠ ESUCCESS then rofs := true⟫ ⟨awbuf_commit#(lpt2, adr2, m3, avol1, bleb; ns2, adr3, m5, plog0, lpt1, ns4, rofs0; err0)⟩ ( abs(avol1, bleb, mkwbuf(buf, m1, m2), avol0, rofs) ∧ adr3 = adr ∧ m5 = m ∧ plog0 = plog ∧ lpt1 = lpt ∧ ns4 = ns ∧ (rofs0 ↔ rofs) ∧ ns0 = ns2 ∧ err = err0) |
# lpt2 = # avol1, # avol0 = # avol1, # lpt1 = # avol1, # buf = EB_PAGE_SIZE, adr = adr3, adr0 = adr2, avol = avol0, lpt = lpt1, lpt0 = lpt2, m = m5, m0 = m3, ns = ns4, ns0 = ns2, plog = plog0, abs(avol1, bleb, mkwbuf(buf, m1, m2), avol0, rofs), awbuf-inv(avol1, bleb), ebm-vol-inv(avol0), synced(avol1), bleb ≠ nobuffer → bleb.leb < # avol1 ∧ wbuf-cons(mkwbuf(buf, m1, m2), avol0[bleb.leb], rofs) ⊦ ⟪if # lpt0 = # avol then {fail_or_success#(; ; err); if err = ESUCCESS then {adr := adr0; m := m0; plog := []; lpt := lpt0; ns := ns0}; ns0 := ?} else abort; rofs0 := rofs; if err ≠ ESUCCESS then rofs := true⟫ ⟨awbuf_commit#(lpt2, adr2, m3, avol1, bleb; ns2, adr3, m5, plog0, lpt1, ns4, rofs0; err0)⟩ ( abs(avol1, bleb, mkwbuf(buf, m1, m2), avol0, rofs) ∧ adr3 = adr ∧ m5 = m ∧ plog0 = plog ∧ lpt1 = lpt ∧ ns4 = ns ∧ (rofs0 ↔ rofs) ∧ ns0 = ns2 ∧ err = err0)
Used simplifier rules: apersistence_io_commit# (LPT, PROOTADR0, PMAXINO0, PVOL ; ORPHANS, PROOTADR, PMAXINO, PLOG, PLPT, PORPHANS ; ERR ) {if # LPT = # PVOL then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then {PROOTADR := PROOTADR0; PMAXINO := PMAXINO0; PLOG := []; PLPT := LPT; PORPHANS := ORPHANS}; ORPHANS := ?} else abort };