| (m1 + 1 < 0 ∨ 0 + m ≤ m1 + 1 ⊃ mkkeyarray(n0)[m1 + 1];kar[(m1 + 1) + 0 - 0]) = key-index(key, m0), copy(kar, 0, mkkeyarray(n0), 0, m)[m1 / 2] = key-index(key0, m2), 2exp-size(n0), 2exp-size(# kar), 2 + m1 < minsize, 2 + m1 < n0, m1 + 1 < n0, key < key0, m1 + 1 < m, m < minsize, m < n0, m1 + 1 < minsize, m1 + 1 < # kar, m1 + 1 < # mkkeyarray(n0), heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), minsize ≤ n0, m ≤ # kar ⊦ |
copy(kar, 0, mkkeyarray(n0), 0, m)[m1 / 2] = key-index(key0, m2), kar[1 + m1] = key-index(key, m0), 2exp-size(# kar), 2exp-size(n0), m1 + 1 < # kar, m1 + 1 < minsize, m < n0, m < minsize, m1 + 1 < m, key < key0, 2 + m1 < n0, 2 + m1 < minsize, m1 + 1 < n0, heap-order(kar, m), no-dups-idx(kar, m), valid-idx(kar, ar, m), m ≤ # kar, minsize ≤ n0 ⊦
Used simplifier rules: ⊦ # mkkeyarray(n) = n; (s)% ⊦ n ≤ m → m + n0 - n = (m - n) + n0; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ n + 0 = n; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%n0 < n ⊦ ¬ m + (* n) < (* n0); (s)