| kar[1 + m1] = key-index(key, m0), kar[m1 / 2] = key-index(key0, m2), 2exp-size(n0), 2exp-size(# kar), m1 < m * 2, m1 / 2 < n0, m1 + 1 < n0, 2 + m1 < minsize, 2 + m1 < n0, key < key0, m1 + 1 < m, m < minsize, m < n0, m1 + 1 < minsize, m1 + 1 < # kar, heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), minsize ≤ n0, m ≤ # kar ⊦ |
⊦ heap-order(kar, n) ↔ (∀ m. m < n ∧ m ≠ 0 → ¬ kar[m].key < kar[(m - 1) / 2].key)
kar[m1 / 2] = key-index(key0, m2), kar[1 + m1] = key-index(key, m0), 2exp-size(# kar), 2exp-size(n0), m1 + 1 < # kar, m1 + 1 < minsize, m < n0, m < minsize, m1 + 1 < m, key < key0, 2 + m1 < n0, 2 + m1 < minsize, m1 + 1 < n0, m1 / 2 < n0, m1 < m * 2, no-dups-idx(kar, m), valid-idx(kar, ar, m), m ≤ # kar, minsize ≤ n0, ∀ m0. m0 < m ∧ m0 ≠ 0 → ¬ kar[m0].key < kar[(m0 - 1) / 2].key ⊦
Used terms: m, kar