| bin-heap-inv(bh, lpt), lpt0 = lpt, bh0 = bh, key-index(natkey, m) ∈ keyset(bh0), lpt[m].gcheapidx = n ⊦ ⟪gc_heap_update#(n, natkey0; bh, lpt)⟫ (bin-heap-inv(bh, lpt) ∧ id-idx(lpt0, lpt) ∧ keyset(bh) = (keyset(bh0) -- key-index(natkey, m)) ++ key-index(natkey0, m)) |