| bh = bin-heap(kar, m), 2exp-size(# kar), minsize > bh.size, heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), m ≤ # kar ⊦ ⟪let n = # bh.ar in {bin_min_heap_next_2pot(minsize; n); let kar = mkkeyarray(n) in {kar := copy(bh.ar, 0, kar, 0, bh.size); bh.ar := kar}}⟫ ( bh.size ≤ # bh.ar ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar, bh.size) ∧ 2exp-size(# bh.ar) ∧ heap-order(bh.ar, bh.size) ∧ bh.size = m ∧ minsize ≤ # bh.ar ∧ subarray(bh.ar, 0, bh.size) = subarray(kar, 0, bh.size)) |
bh = bin-heap(kar, m), n = # bh.ar, 2exp-size(# kar), minsize > bh.size, heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), m ≤ # kar ⊦ ⟪bin_min_heap_next_2pot(minsize; n); let kar = mkkeyarray(n) in {kar := copy(bh.ar, 0, kar, 0, bh.size); bh.ar := kar}⟫ ( bh.size ≤ # bh.ar ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar, bh.size) ∧ 2exp-size(# bh.ar) ∧ heap-order(bh.ar, bh.size) ∧ bh.size = m ∧ minsize ≤ # bh.ar ∧ subarray(bh.ar, 0, bh.size) = subarray(kar, 0, bh.size))