| m0 < # ar1, n < # ar1, m0 ≤ n, n0 + n1 ≤ # ar0, m + m1 ≤ n1 ⊦ (m0 + m1 ≤ n ⊃ ar1[n];copy(ar0, n0, mkarray(n1), 0, n1)[(n - m0) + m]) = (m0 + m1 ≤ n ⊃ ar1[n];ar0[(n - m0) + n0 + m]), m0 + m1 ≤ n |
n < m0 + m1, m0 < # ar1, n < # ar1, m0 ≤ n, n0 + n1 ≤ # ar0, m + m1 ≤ n1 ⊦ copy(ar0, n0, mkarray(n1), 0, n1)[(n - m0) + m] = ar0[(n - m0) + n0 + m], m1 = 0
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m < m + n ↔ n ≠ 0; (s)% ⊦ m < n → n ≠ 0; (s)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)