| # kar0 = # kar, kar[m1] = key-index(key0, m0), ar1[m] = elemindex(a, m2 + 1), kar[m2 + 1] = key-index(key, m), kar[m2 / 2] = key-index(key1, m3), bh0 = bin-heap(kar0, m1), keyset(kar[m2 + 1, key-index(key0, m0)], m1) = keyset(kar0, m1), 2exp-size(# kar), m2 / 2 < # kar, key0 < key1, m2 + 1 < # kar, m1 < # kar, m0 < # ar1, m2 < m1, m2 < # kar, 2 + m2 < # kar, m2 + 1 < m1, heap-order(kar0, m1), heap-order(kar, m1 + 1), heap-order(kar[m2 + 1, key-index(key1, m3)], m1), id-idx(ar1, ar0), no-dups-idx(kar0, m1), no-dups-idx(kar, m1 + 1), valid-idx(kar0, ar0, m1), valid-idx(kar, ar1, m1 + 1), key-index(key, m) = key-index(key0, m0) ∨ key-index(key, m) ∈ keyset(kar, m1) ⊦ # kar = 1, #(keyset(kar, m1) ++ key-index(key0, m0)) = 0, keyset(kar0, m1) = (keyset(kar, m1) ++ key-index(key0, m0)) -- key-index(key, m), m1 = m2 + 1 |
# kar0 = # kar, kar[m1] = key-index(key0, m0), ar1[m] = elemindex(a, m2 + 1), kar[m2 + 1] = key-index(key, m), kar[m2 / 2] = key-index(key1, m3), keyset(kar[m2 + 1, key-index(key0, m0)], m1) = keyset(kar0, m1), 2exp-size(# kar), m2 + 1 < m1, m2 / 2 < # kar, key0 < key1, m2 + 1 < # kar, m1 < # kar, m0 < # ar1, m2 < m1, m2 < # kar, 2 + m2 < # kar, heap-order(kar0, m1), heap-order(kar, m1 + 1), heap-order(kar[m2 + 1, key-index(key1, m3)], m1), id-idx(ar1, ar0), no-dups-idx(kar0, m1), no-dups-idx(kar, m1 + 1), valid-idx(kar0, ar0, m1), valid-idx(kar, ar1, m1 + 1), key-index(key, m) = key-index(key0, m0) ∨ key-index(key, m) ∈ keyset(kar, m1) ⊦ # kar = 1, #(keyset(kar, m1) ++ key-index(key0, m0)) = 0, keyset(kar0, m1) = (keyset(kar, m1) ++ key-index(key0, m0)) -- key-index(key, m), m1 = m2 + 1
Used simplifier rules: ⊦ ∅ ≠ s ++ ki; (s)% ⊦ m < n → n ≠ 0; (s)%size-zero: ⊦ # s ≠ 0 → s ≠ ∅; (forward) from specification set-basic[keyindex-set]%succ-03: ⊦ m < n ∧ m + 1 ≠ n → m + 1 < n; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic