| # avol = # lpt, avol0 = avol, keyset(gch) = gc-heap(lpt, []), lpt0 = lpt, awbuf-inv(avol, nobuffer), bin-heap-inv(gch, lpt), freelist-cons(lpt, freelist), synced(avol) ⊦ ⟪persistence_cleanup_lpt#(adr, m0, log, lpt1, ns, nobuffer, boolvar; lpt, freelist, gch, avol)⟫ ( id-idx(cleanup-lpt(lpt0), lpt) ∧ avol-cleanup-lpt-unchanged(avol0, avol, lpt0) ∧ freelist-cons(lpt, freelist) ∧ awbuf-inv(avol, nobuffer) ∧ bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(lpt, []) ∧ synced(avol)) |
# avol = # lpt, avol0 = avol, keyset(gch) = gc-heap(lpt, []), lpt0 = lpt, awbuf-inv(avol, nobuffer), bin-heap-inv(gch, lpt), freelist-cons(lpt, freelist), synced(avol) ⊦ ⟪persistence_cleanup_lpt#(adr, m0, log, lpt1, ns, nobuffer, boolvar; lpt, freelist, gch, avol)⟫ ( id-idx(cleanup-lpt(lpt0), lpt) ∧ avol-cleanup-lpt-unchanged(avol0, avol, lpt0) ∧ freelist-cons(cleanup-lpt(lpt0), freelist) ∧ awbuf-inv(avol, nobuffer) ∧ bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(cleanup-lpt(lpt0), []))
Used simplifier rules: ⊦ awbuf-inv(avol, nobuffer) → (synced(avol) ↔ true); (ss)% ⊦ id-idx(lpt0, lpt1) → gc-heap(lpt1, nx) = gc-heap(lpt0, nx); (s)%⊦ id-idx(lpt0, lpt1) → (freelist-cons(lpt1, freelist) ↔ freelist-cons(lpt0, freelist)); (s)