| kar0[m, key-index(key, m0)][(m - 1) / 2] = key-index(key0, m1), subarray(kar0, 0, m) = subarray(kar, 0, m), 2exp-size(# kar0), 2exp-size(# kar), m < # kar0, m0 < # ar, heap-order(kar0, m), heap-order(kar, m), no-dups-idx(kar0, m), no-dups-idx(kar, m), no-dups-idx(kar0[m, key-index(key, m0)], m + 1), valid-idx(kar, ar, m), valid-idx(kar0, ar, m), m ≤ # kar, ∀ ki0. ki0 ∈ keyset(kar, m) → ki0.idx ≠ m0, m = 0 ∨ ¬ key < key0 ⊦ heap-order(kar0[m, key-index(key, m0)], m + 1) |
kar0[m, key-index(key, m0)][(m - 1) / 2] = key-index(key0, m1), subarray(kar0, 0, m) = subarray(kar, 0, m), 2exp-size(# kar0), 2exp-size(# kar), m < # kar0, m0 < # ar, heap-order(kar0, m), heap-order(kar, m), no-dups-idx(kar0, m), no-dups-idx(kar, m), no-dups-idx(kar0[m, key-index(key, m0)], m + 1), valid-idx(kar, ar, m), valid-idx(kar0, ar, m), m ≤ # kar, ∀ ki0. ki0 ∈ keyset(kar, m) → ki0.idx ≠ m0 ⊦ m = 0, key < key0, heap-order(kar0[m, key-index(key, m0)], m + 1)
Used simplifier rules: ⊦ heap-order(kar, 1); (s)% ⊦ 0 < m ↔ m ≠ 0; (s)% ⊦ heap-order(kar, 0); (s)% ⊦ no-dups-idx(kar, 0); (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ valid-idx(kar, ar, 0); (s)% ⊦ 0 ≤ m; (s)% ⊦ subarray(kar, n, 0) = mkkeyarray(0); (s)