| n0 + n1 ≤ # ar0, m + m1 ≤ n1, n < # ar1 ⊦ (n < m0 ∨ m0 + m1 ≤ n ⊃ ar1[n];copy(ar0, n0, mkarray(n1), 0, n1)[n + m - m0]) = (n < m0 ∨ m0 + m1 ≤ n ⊃ ar1[n];ar0[n + n0 + m - m0]), # ar1 = 0 |
¬(n < m0 ∨ m0 + m1 ≤ n), n0 + n1 ≤ # ar0, m + m1 ≤ n1, n < # ar1 ⊦ copy(ar0, n0, mkarray(n1), 0, n1)[n + m - m0] = (n < m0 ∨ m0 + m1 ≤ n ⊃ ar1[n];ar0[n + n0 + m - m0]), # ar1 = 0