| m0 + m1 ≤ # ar1 ⊦ # copy(copy(ar0, n0, ar1, n3 + m0, n2), m0, mkarray(m1), 0, m1) = # copy(ar0, n0, copy(ar1, m0, mkarray(m1), 0, m1), n3, n2) ∧ (∀ n. n < # copy(copy(ar0, n0, ar1, n3 + m0, n2), m0, mkarray(m1), 0, m1) → copy(copy(ar0, n0, ar1, n3 + m0, n2), m0, mkarray(m1), 0, m1)[n] = copy(ar0, n0, copy(ar1, m0, mkarray(m1), 0, m1), n3, n2)[n]) |
n < m1, m0 + m1 ≤ # ar1 ⊦ copy(copy(ar0, n0, ar1, n3 + m0, n2), m0, mkarray(m1), 0, m1)[n] = copy(ar0, n0, copy(ar1, m0, mkarray(m1), 0, m1), n3, n2)[n]
Used simplifier rules: size-copy: ⊦ # copy(ar, m, ar0, m0, n) = # ar0;% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ # mkarray(n) = n; (s)