| n < n2 + n1, # ar1 < n1 + n2, n2 ≤ m0 ⊦ splice(ar0, n0, ar1, n1, m0)[n] = copy(ar0, n0, resize(ar1, n1 + n2), n1, n2)[n], m0 = 0, n2 = 0, max(# ar1, n1 + m0) ≤ n |
n < max(# ar1, n1 + m0), n < n2 + n1, # ar1 < n1 + n2, n2 ≤ m0 ⊦ splice(ar0, n0, ar1, n1, m0)[n] = copy(ar0, n0, resize(ar1, n1 + n2), n1, n2)[n], m0 = 0, n2 = 0
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)