| # lpt1 = # avol, lpt1[m] = mklp(m0, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt1, log), lpt = lpt1[m, lpt1[m].ref-size:= n], m < # avol, m < # lpt1, bin-heap-inv(gch, lpt1), buf-ro-rw-mode(isbuf, bleb, lpt1, avol), bufs-log-only(bleb, log, lpt1), freelist-cons(lpt1, freelist), log-group-block(log, lpt1), lpt-free-unref(lpt1), lpt-leb-size(lpt1), lpt-ram-flash(lpt1, lpt0, log) ⊦ ⟪if ¬ m ∈ log then gc_heap_update#(lpt[m].gcheapidx, n; gch, lpt)⟫ ( lpt-free-unref(lpt) ∧ freelist-cons(lpt, freelist) ∧ bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(lpt, log) ∧ bufs-log-only(bleb, log, lpt) ∧ # lpt = # avol ∧ log-group-block(log, lpt) ∧ buf-ro-rw-mode(isbuf, bleb, lpt, avol) ∧ lpt-leb-size(lpt) ∧ lpt-ram-flash(lpt, lpt0, log)), dups(log) |
# lpt1 = # avol, lpt1[m] = mklp(m0, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt1, log), lpt = lpt1[m, lpt1[m].ref-size:= n], m < # lpt1, m < # avol, bin-heap-inv(gch, lpt1), buf-ro-rw-mode(isbuf, bleb, lpt1, avol), bufs-log-only(bleb, log, lpt1), freelist-cons(lpt1, freelist), log-group-block(log, lpt1), lpt-free-unref(lpt1), lpt-leb-size(lpt1), lpt-ram-flash(lpt1, lpt0, log) ⊦ ⟪gc_heap_update#(lpt[m].gcheapidx, n; gch, lpt)⟫ ( lpt-free-unref(lpt) ∧ freelist-cons(lpt, freelist) ∧ bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(lpt, log) ∧ bufs-log-only(bleb, log, lpt) ∧ # lpt = # avol ∧ log-group-block(log, lpt) ∧ buf-ro-rw-mode(isbuf, bleb, lpt, avol) ∧ lpt-leb-size(lpt) ∧ lpt-ram-flash(lpt, lpt0, log)), dups(log), m ∈ log
# lpt1 = # avol, lpt1[m] = mklp(m0, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt1, log), lpt = lpt1[m, lpt1[m].ref-size:= n], m < # lpt1, m < # avol, bin-heap-inv(gch, lpt1), buf-ro-rw-mode(isbuf, bleb, lpt1, avol), bufs-log-only(bleb, log, lpt1), freelist-cons(lpt1, freelist), log-group-block(log, lpt1), lpt-free-unref(lpt1), lpt-leb-size(lpt1), lpt-ram-flash(lpt1, lpt0, log), m ∈ log ⊦ ⟪skip⟫ ( lpt-free-unref(lpt) ∧ freelist-cons(lpt, freelist) ∧ bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(lpt, log) ∧ bufs-log-only(bleb, log, lpt) ∧ # lpt = # avol ∧ log-group-block(log, lpt) ∧ buf-ro-rw-mode(isbuf, bleb, lpt, avol) ∧ lpt-leb-size(lpt) ∧ lpt-ram-flash(lpt, lpt0, log)), dups(log)