| # lpt1 = # avol, # lpt2 = # avol, adr = adr1, adr0 = adr2, keyset(gch) = gc-heap(lpt2, log1), log = log1, log0 = log2, log2 = log1, lpt = lpt1, lpt0 = lpt2, m = m1, m0 = m2, ns = ns1, ns0 = ns2, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(isbuf, bleb, lpt2, avol), bufs-log-only(bleb, log1, lpt2), freelist-cons(lpt2, freelist), log-group-block(log1, lpt2), lpt-free-unref(lpt1), lpt-free-unref(lpt2), lpt-leb-size(lpt1), lpt-leb-size(lpt2), lpt-ram-flash(lpt2, lpt1, log1), synced(avol) ⊦ ⟪if synced(avol) then {awbuf_destroy_buf#(adr, m, log, avol, lpt, ns, isbuf; bleb; err); if err = ESUCCESS then awbuf_commit#(lpt0, adr0, m0, avol, bleb; ns0, adr, m, log, lpt, ns, isbuf; err); if err = ESUCCESS then {persistence_gc_heap_add_log#(; log0, lpt0, gch); persistence_cleanup_lpt#(adr, m, log, lpt, ns, bleb, isbuf; lpt0, freelist, gch, avol)}} else abort⟫ ( lpt-free-unref(lpt0) ∧ lpt-free-unref(lpt) ∧ freelist-cons(lpt0, freelist) ∧ log0 = log ∧ bin-heap-inv(gch, lpt0) ∧ keyset(gch) = gc-heap(lpt0, log) ∧ bufs-log-only(bleb, log, lpt0) ∧ # lpt0 = # avol ∧ ¬ dups(log) ∧ log-group-block(log, lpt0) ∧ buf-ro-rw-mode(isbuf, bleb, lpt0, avol) ∧ lpt-leb-size(lpt0) ∧ lpt-leb-size(lpt) ∧ lpt-ram-flash(lpt0, lpt, log) ∧ awbuf-inv(avol, bleb) ∧ # lpt = # avol ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → bleb = nobuffer) ∧ (err = ESUCCESS ↔ ¬ isbuf)), dups(log1) |
# lpt2 = # avol, # lpt1 = # avol, adr = adr1, adr0 = adr2, keyset(gch) = gc-heap(lpt2, log1), log = log1, log0 = log2, log2 = log1, lpt = lpt1, lpt0 = lpt2, m = m1, m0 = m2, ns = ns1, ns0 = ns2, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(isbuf, bleb, lpt2, avol), bufs-log-only(bleb, log1, lpt2), freelist-cons(lpt2, freelist), log-group-block(log1, lpt2), lpt-free-unref(lpt2), lpt-free-unref(lpt1), lpt-leb-size(lpt2), lpt-leb-size(lpt1), lpt-ram-flash(lpt2, lpt1, log1), synced(avol) ⊦ ⟪awbuf_destroy_buf#(adr, m, log, avol, lpt, ns, isbuf; bleb; err); if err = ESUCCESS then awbuf_commit#(lpt0, adr0, m0, avol, bleb; ns0, adr, m, log, lpt, ns, isbuf; err); if err = ESUCCESS then {persistence_gc_heap_add_log#(; log0, lpt0, gch); persistence_cleanup_lpt#(adr, m, log, lpt, ns, bleb, isbuf; lpt0, freelist, gch, avol)}⟫ ( lpt-free-unref(lpt0) ∧ lpt-free-unref(lpt) ∧ freelist-cons(lpt0, freelist) ∧ log0 = log ∧ bin-heap-inv(gch, lpt0) ∧ keyset(gch) = gc-heap(lpt0, log) ∧ bufs-log-only(bleb, log, lpt0) ∧ # lpt0 = # avol ∧ ¬ dups(log) ∧ log-group-block(log, lpt0) ∧ buf-ro-rw-mode(isbuf, bleb, lpt0, avol) ∧ lpt-leb-size(lpt0) ∧ lpt-leb-size(lpt) ∧ lpt-ram-flash(lpt0, lpt, log) ∧ awbuf-inv(avol, bleb) ∧ # lpt = # avol ∧ (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → bleb = nobuffer) ∧ (err = ESUCCESS ↔ ¬ isbuf)), dups(log1)