| n1 + m ≤ # ar1 ⊦ copy(ar0 + ar1, n1 + # ar0, mkarray(m), 0, m) = subarray(ar1, n1, m) |
⊦ subarray(ar, m, n) = copy(ar, m, mkarray(n), 0, n)
# ar0 ≤ n, n + m1 ≤ # ar0 + # ar1 ⊦ copy(ar0 + ar1, n, ar2, m0, m1) = copy(ar1, n - # ar0, ar2, m0, m1)
⊦ (ar + ar0) + ar1 = ar + ar0 + ar1
Used simplifier rules: copy-append: # ar0 ≤ n, n + m1 ≤ # ar0 + # ar1 ⊦ copy(ar0 + ar1, n, ar2, m0, m1) = copy(ar1, n - # ar0, ar2, m0, m1);%append-a: ⊦ (ar + ar0) + ar1 = ar + ar0 + ar1;% ⊦ m ≤ m + n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)% ⊦ m + n - m = n; (s) Used terms: m, n1, ar1