| n2 < m0, n < n1 + m0, n + 1 < n1 + m0, n < n2 + n1, n < # ar1, # ar1 < n1 + m0, n1 + n2 ≤ # ar1 ⊦ copy(ar0, n0, resize(ar1, n1 + m0), n1, m0)[n] = (n < n1 ⊃ ar1[n];ar0[n + n0 - n1]), n2 = 0 |
⊦ m0 < # ar1 → copy(ar0, n, ar1, n0, m)[m0] = (m0 < n0 ∨ n0 + m ≤ m0 ⊃ ar1[m0];ar0[m0 + n - n0])
⊦ # resize(ar, n) = n
⊦ m < n → resize(ar, n)[m] = (# ar ≤ m ∧ m < n ⊃ zero;ar[m])
Used simplifier rules: resize-len: ⊦ # resize(ar, n) = n;%resize-at: ⊦ m < n → resize(ar, n)[m] = (# ar ≤ m ∧ m < n ⊃ zero;ar[m]);% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss) Used terms: n, m0, n1, resize(ar1, n1 + m0), n0, ar0