| 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 ⊦ m0 = n0 + m1, # ar1 = 0, copy(ar0, n, ar1, n0, m1)[m0] = (m0 < n0 ∨ n0 + m1 < m0 ⊃ ar1[m0];ar0[m0 + n - n0]) |
m0 < n0 ∨ n0 + m1 < m0, 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 ⊦ copy(ar0, n, ar1, n0, m1)[m0] = ar1[m0], m0 = n0 + m1, # ar1 = 0
¬(m0 < n0 ∨ n0 + m1 < m0), 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 ⊦ copy(ar0, n, ar1, n0, m1)[m0] = ar0[m0 + n - n0], m0 = n0 + m1, # ar1 = 0