| n0 ≠ m0 + n, n0 < # ar0 ⊦ copy(ar, m, ar0, m0, n)[n0] = copy(ar, m + 1, ar0, m0 + 1, n)[m0, ar[m]][n0], # ar0 = 0 |
n0 < # ar0 ⊦ # ar0 = 0, n0 = m0 + n, (n0 < m0 ∨ m0 + n < n0 ⊃ ar0[n0];ar[n0 + m - m0]) = copy(ar, m + 1, ar0, m0 + 1, n)[m0, ar[m]][n0]
Used simplifier rules: at-copy: ⊦ m0 < # ar1 → copy(ar0, n, ar1, n0, m)[m0] = (m0 < n0 ∨ n0 + m ≤ m0 ⊃ ar1[m0];ar0[m0 + n - n0]);%lels-02: ⊦ m ≠ n → (m ≤ n ↔ m < n); from specification nat