| kar[m1] = key-index(key1, m), ar[m] = elemindex(a, m1), kar[2 * m1 + 2] = key-index(key0, m2), kar[2 * m1 + 1] = key-index(key2, m3), 2exp-size(# kar), m1 < m0, m1 < # kar, heap-order(kar, m0), no-dups-idx(kar, m0), valid-idx(kar, ar, m0), key-index(key1, m) ∈ keyset(kar, m0), m0 ≤ # kar, 2 * m1 + 1 < m0 ∧ key2 < key ∨ 2 * m1 + 2 < m0 ∧ key0 < key ⊦ # keyset(kar, m0) = 0, keyset(kar, m0) = ∅, key < key1, heap-order(kar[m1, (2 * m1 + 2 < m0 ∧ key0 < key2 ⊃ key-index(key0, m2);key-index(key2, m3))], m0) |
kar[2 * m1 + 1] = key-index(key2, m3), kar[2 * m1 + 2] = key-index(key0, m2), ar[m] = elemindex(a, m1), kar[m1] = key-index(key1, m), 2exp-size(# kar), m1 < # kar, m1 < m0, heap-order(kar, m0), no-dups-idx(kar, m0), valid-idx(kar, ar, m0), key-index(key1, m) ∈ keyset(kar, m0), m0 ≤ # kar, 2 * m1 + 1 < m0 ∧ key2 < key ∨ 2 * m1 + 2 < m0 ∧ key0 < key ⊦ # keyset(kar, m0) = 0, keyset(kar, m0) = ∅, key < key1, heap-order(kar[m1, (2 * m1 + 2 < m0 ∧ key0 < key2 ⊃ key-index(key0, m2);key-index(key2, m3))], m0)