| # lpt1 = # avol, # lpt0 = # avol, isbuf ↔ false, lpt1[n] = mklp(m3, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt1, log0), log = log0, lpt = lpt0, m0 = n, n < # lpt1[n, lpt1[n].flags:= LP_FREE], n < # avol, m0 < # avol, n < # lpt1, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt1), buf-ro-rw-mode(false, bleb, lpt1, avol), bufs-log-only(bleb, log0, lpt1), freelist-cons(lpt1, freelist), log-group-block(log0, lpt1), lpt-free-unref(lpt1), lpt-free-unref(lpt0), lpt-leb-size(lpt1), lpt-leb-size(lpt0), lpt-ram-flash(lpt1, lpt0, log0), synced(avol) ⊦ ⟪lpt1 := lpt1[n, lpt1[n].flags:= LP_FREE][n, lpt1[n, lpt1[n].flags:= LP_FREE][n].ref-size:= 0] [n, mklp (lpt1[n, lpt1[n].flags:= LP_FREE][n, lpt1[n, lpt1[n].flags:= LP_FREE][n].ref-size:= 0][n].ref-size, 0, lpt1[n, lpt1[n].flags:= LP_FREE][n, lpt1[n, lpt1[n].flags:= LP_FREE][n].ref-size:= 0][n].flags, lpt1[n, lpt1[n].flags:= LP_FREE][n, lpt1[n, lpt1[n].flags:= LP_FREE][n].ref-size:= 0][n].gcheapidx) ]; freelist := freelist + n '; gc_heap_remove#(lpt1[n].gcheapidx; gch, lpt1); err := ESUCCESS⟫ ( lpt-free-unref(lpt1) ∧ freelist-cons(lpt1, freelist) ∧ bin-heap-inv(gch, lpt1) ∧ keyset(gch) = gc-heap(lpt1, log0) ∧ bufs-log-only(bleb, log0, lpt1) ∧ # lpt1 = # avol[m0, unmapped] ∧ log-group-block(log0, lpt1) ∧ buf-ro-rw-mode(false, bleb, lpt1, avol[m0, unmapped]) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt1, lpt0, log0) ∧ awbuf-inv(avol[m0, unmapped], bleb) ∧ # lpt0 = # avol[m0, unmapped]), buffered(m0) = bleb, dups(log0), n ∈ log0 |
# lpt0 = # avol, # lpt2 = # avol, isbuf ↔ false, lpt2[n] = mklp(m3, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt2, log0), log = log0, lpt = lpt0, lpt1 = lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0] [n, mklp (lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].ref-size, 0, lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].flags, lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].gcheapidx) ], m0 = n, m0 < # avol, n < # avol, n < # lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0], n < # lpt2[n, lpt2[n].flags:= LP_FREE], n < # lpt2, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(false, bleb, lpt2, avol), bufs-log-only(bleb, log0, lpt2), freelist-cons(lpt2, freelist), log-group-block(log0, lpt2), lpt-free-unref(lpt0), lpt-free-unref(lpt2), lpt-leb-size(lpt0), lpt-leb-size(lpt2), lpt-ram-flash(lpt2, lpt0, log0), synced(avol) ⊦ ⟪freelist := freelist + n '; gc_heap_remove#(lpt1[n].gcheapidx; gch, lpt1); err := ESUCCESS⟫ ( lpt-free-unref(lpt1) ∧ freelist-cons(lpt1, freelist) ∧ bin-heap-inv(gch, lpt1) ∧ keyset(gch) = gc-heap(lpt1, log0) ∧ bufs-log-only(bleb, log0, lpt1) ∧ # lpt1 = # avol[m0, unmapped] ∧ log-group-block(log0, lpt1) ∧ buf-ro-rw-mode(false, bleb, lpt1, avol[m0, unmapped]) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt1, lpt0, log0) ∧ awbuf-inv(avol[m0, unmapped], bleb) ∧ # lpt0 = # avol[m0, unmapped]), buffered(m0) = bleb, dups(log0), n ∈ log0
Used simplifier rules: ⊦ # lpt[n, lp] = # lpt; (s)% ⊦ m < # lpt → lpt[m, lp][m] = lp; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s)%m < # lpt ⊦ lpt[m, lp][m, lp0] = lpt[m, lp0]; (s)