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