| n < # ar0 + # ar1 ⊦ (n < n0 + # ar0 ∨ (n0 + # ar0) + m1 ≤ n ⊃ (ar0 + ar1)[n];ar[n + m - n0 + # ar0]) = (n < # ar0 ⊃ ar0[n];copy(ar, m, ar1, n0, m1)[n - # ar0]) |
n < # ar0 + # ar1, n < n0 + # ar0 ∨ (n0 + # ar0) + m1 ≤ n ⊦ (ar0 + ar1)[n] = (n < # ar0 ⊃ ar0[n];copy(ar, m, ar1, n0, m1)[n - # ar0])
n < # ar0 + # ar1 ⊦ ar[n + m - n0 + # ar0] = (n < # ar0 ⊃ ar0[n];copy(ar, m, ar1, n0, m1)[n - # ar0]), n < n0 + # ar0, (n0 + # ar0) + m1 ≤ n