| 2exp-size(# kar), ki.idx < # ar, heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), m ≤ # kar, ∀ ki0. ki0 ∈ keyset(kar, m) → ki0.idx ≠ ki.idx ⊦ ⟪skip; bh := bin-heap(kar, m); bin_min_heap_resize#(m + 1; bh); bh.ar[bh.size] := ki; ar1 := ar[ki.idx, ar[ki.idx].idx:= bh.size]; bh.size := bh.size + 1; bin_min_heap_bubble_up#(bh.size - 1; bh, ar1)⟫ ( bh.size ≤ # bh.ar ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar1, bh.size) ∧ 2exp-size(# bh.ar) ∧ heap-order(bh.ar, bh.size) ∧ id-idx(ar, ar1) ∧ keyset(bh.ar, bh.size) = keyset(kar, m) ++ ki) |
2exp-size(# kar), ki.idx < # ar, heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), m ≤ # kar, ∀ ki0. ki0 ∈ keyset(kar, m) → ki0.idx ≠ ki.idx ⊦ ⟪bh := bin-heap(kar, m); bin_min_heap_resize#(m + 1; bh); bh.ar[bh.size] := ki; ar1 := ar[ki.idx, ar[ki.idx].idx:= bh.size]; bh.size := bh.size + 1; bin_min_heap_bubble_up#(bh.size - 1; bh, ar1)⟫ ( bh.size ≤ # bh.ar ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar1, bh.size) ∧ 2exp-size(# bh.ar) ∧ heap-order(bh.ar, bh.size) ∧ id-idx(ar, ar1) ∧ keyset(bh.ar, bh.size) = keyset(kar, m) ++ ki)