| kar[m4 / 2] = key-index(key5, m7), kar[m3 + 1, key-index(key0, m2)][m4 + 1] = key-index(key2, m1), ar[m] = elemindex(a, m3 + 1), kar[m3 + 1] = key-index(key1, m), kar[m3 / 2] = key-index(key0, m2), kar[m3 + 1, key-index(key0, m2)][m4 / 2] = key-index(key3, m5), kar[m4 + 1] = key-index(key4, m6), 2exp-size(# kar), key2 < key3, m4 + 1 < m0, m3 + 1 < m0, key < key1, key < key0, m3 + 1 < # kar, m4 + 1 < # kar, no-dups-idx(kar, m0), valid-idx(kar, ar, m0), key-index(key1, m) ∈ keyset(kar, m0), m0 ≤ # kar, ∀ m. m < m0 ∧ m ≠ 0 → ¬ kar[m].key < kar[(m - 1) / 2].key ⊦ # keyset(kar, m0) = 0, m4 / 2 = m3 + 1, keyset(kar, m0) = ∅, key4 < key5 |
kar[m4 + 1] = key-index(key4, m6), kar[m4 / 2] = key-index(key5, m7), kar[m3 / 2] = key-index(key0, m2), kar[m3 + 1] = key-index(key1, m), ar[m] = elemindex(a, m3 + 1), kar[m3 + 1, key-index(key0, m2)][m4 + 1] = key-index(key2, m1), 2exp-size(# kar), m4 + 1 < # kar, m3 + 1 < # kar, key < key0, key < key1, m3 + 1 < m0, m4 + 1 < m0, key2 < key5, no-dups-idx(kar, m0), valid-idx(kar, ar, m0), key-index(key1, m) ∈ keyset(kar, m0), m0 ≤ # kar, ∀ m. m < m0 ∧ m ≠ 0 → ¬ kar[m].key < kar[(m - 1) / 2].key ⊦ # keyset(kar, m0) = 0, m4 / 2 = m3 + 1, keyset(kar, m0) = ∅, key4 < key5
Used simplifier rules: nen: ⊦ ¬ key < key0 ∧ key0 = key1 → ¬ key < key1; (forward) from specification oelem[binheap-key]% ⊦ key-index(key, m) = key-index(key0, m0) ↔ key = key0 ∧ m = m0; (ws)% ⊦ m ≠ n → kar[n, ki][m] = kar[m]; (s)