| ∀ m0, ar1, ar0, n, n0. m0 < # ar1 → copy(ar0, n, ar1, n0, m1)[m0] = (m0 < n0 ∨ n0 + m1 ≤ m0 ⊃ ar1[m0];ar0[m0 + n - n0]) ∨ # ar1 = 0, m0 < # ar1 ⊦ copy(ar0, n, ar1, n0, m1 +1)[m0] = (m0 < n0 ∨ n0 + m1 +1 ≤ m0 ⊃ ar1[m0];ar0[m0 + n - n0]), # ar1 = 0 |
m0 < # ar1, ∀ m0, ar1, ar0, n, n0. m0 < # ar1 → copy(ar0, n, ar1, n0, m1)[m0] = (m0 < n0 ∨ n0 + m1 ≤ m0 ⊃ ar1[m0];ar0[m0 + n - n0]) ∨ # ar1 = 0 ⊦ # ar1 = 0, copy(ar0, n, ar1, n0, m1)[n0 + m1, ar0[n + m1]][m0] = (m0 < n0 ∨ n0 + m1 < m0 ⊃ ar1[m0];ar0[m0 + n - n0])
Used simplifier rules: Copy-succ: ⊦ copy(ar, m, ar0, m0, n + 1) = copy(ar, m, ar0, m0, n)[m0 + n, ar[m + n]];%succ-01: ⊦ m + 1 ≤ n ↔ m < n; from specification nat%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%succ: ⊦ m +1 = m + 1; from specification nat-basic2