| # lpt = # avol, keyset(bin-heap(kar, m)) = gc-heap(lpt, log), m ≠ 0, bin-heap-inv(bin-heap(kar, m), lpt), buf-ro-rw-mode(isbuf, bleb, lpt, avol), bufs-log-only(bleb, log, lpt), freelist-cons(lpt, freelist), log-group-block(log, lpt), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt, lpt0, log), ¬ dups(log) ⊦ ⟪gc_heap_get_min#(bin-heap(kar, m); n); err := ESUCCESS⟫ ((err = ENOSPC ∨ err = ESUCCESS) ∧ (err ≠ ESUCCESS → n = n0) ∧ (err = ESUCCESS → n < # avol ∧ lpt[n].flags = LP_GROUP_NODES ∧ ¬ n ∈ log)) |
# lpt = # avol, bh = bin-heap(kar, m), keyset(bin-heap(kar, m)) = gc-heap(lpt, log), bin-heap-inv(bin-heap(kar, m), lpt), buf-ro-rw-mode(isbuf, bleb, lpt, avol), bufs-log-only(bleb, log, lpt), freelist-cons(lpt, freelist), log-group-block(log, lpt), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt, lpt0, log) ⊦ ⟪if bh.size = 0 then abort; n := bh.ar[0].idx; err := ESUCCESS⟫ ((err = ENOSPC ∨ err = ESUCCESS) ∧ (err ≠ ESUCCESS → n = n0) ∧ (err = ESUCCESS → n < # avol ∧ lpt[n].flags = LP_GROUP_NODES ∧ ¬ n ∈ log)), m = 0, dups(log)
Used simplifier rules: gc_heap_get_min#(bh; n){if bh.size = 0 then abort; n := bh.ar[0].idx};