| kar0[m0 / 2] = key-index(key0, m1), ki = key-index(key1, m), subarray(kar0, 0, m0 + 1) = subarray(kar, 0, m0 + 1), 2exp-size(# kar0), 2exp-size(# kar), m < # ar, m0 + 1 < # kar0, m0 < # kar, heap-order(kar0, m0 + 1), heap-order(kar, m0 + 1), no-dups-idx(kar0, m0 + 1), no-dups-idx(kar, m0 + 1), valid-idx(kar0, ar, m0 + 1), valid-idx(kar, ar, m0 + 1), ki ∈ keyset(kar0, m0 + 1), ∀ ki0. ki0 = kar[m0] ∨ ki0 ∈ keyset(kar, m0) → ki0.idx ≠ m ⊦ # keyset(kar0, m0 + 1) = 0, keyset(kar0, m0 + 1) = ∅, no-dups-idx(kar0[m0 + 1, key-index(key, m)], 2 + m0) ∧ valid-idx(kar0[m0 + 1, key-index(key, m)], ar[m, ar[m].idx:= (m0 + 1)], 2 + m0) ∧ (¬ key < key0 → heap-order(kar0[m0 + 1, key-index(key, m)], 2 + m0)) ∧ (key < key0 → heap-order(kar0[m0 + 1, key-index(key0, m1)], 2 + m0)) |
kar0[m0 / 2] = key-index(key0, m1), subarray(kar0, 0, m0 + 1) = subarray(kar, 0, m0 + 1), 2exp-size(# kar), 2exp-size(# kar0), m0 < # kar, m0 + 1 < # kar0, m < # ar, heap-order(kar, m0 + 1), heap-order(kar0, m0 + 1), no-dups-idx(kar, m0 + 1), no-dups-idx(kar0, m0 + 1), valid-idx(kar, ar, m0 + 1), valid-idx(kar0, ar, m0 + 1), key-index(key1, m) ∈ keyset(kar0, m0 + 1), ∀ ki0. ki0 = kar[m0] ∨ ki0 ∈ keyset(kar, m0) → ki0.idx ≠ m ⊦ # keyset(kar0, m0 + 1) = 0, keyset(kar0, m0 + 1) = ∅, no-dups-idx(kar0[m0 + 1, key-index(key, m)], 2 + m0) ∧ valid-idx(kar0[m0 + 1, key-index(key, m)], ar[m, ar[m].idx:= (m0 + 1)], 2 + m0) ∧ (¬ key < key0 → heap-order(kar0[m0 + 1, key-index(key, m)], 2 + m0)) ∧ (key < key0 → heap-order(kar0[m0 + 1, key-index(key0, m1)], 2 + m0))