| kar[m3 + 1] = key-index(key0, m0), kar[m1 / 2] = key-index(key, m), kar[m3 / 2] = key-index(key1, m4), m3 + 1 < # kar, key0 < key1, m1 + 1 < # kar, m3 < m1, ∀ m2. ¬ m1 < m2 ∧ m2 ≠ 0 → ¬ kar[m2].key < kar[(m2 - 1) / 2].key ⊦ m3 / 2 = m1 + 1, m3 = m1 |
kar[m3 / 2] = key-index(key1, m4), kar[m1 / 2] = key-index(key, m), kar[m3 + 1] = key-index(key0, m0), m3 < m1, m1 + 1 < # kar, key0 < key1, m3 + 1 < # kar, ∀ m2. ¬ m1 < m2 ∧ m2 ≠ 0 → ¬ kar[m2].key < kar[(m2 - 1) / 2].key ⊦ m3 / 2 = m1 + 1, m3 = m1