| ⊦ m1 ≤ m0 ∧ n + m0 ≤ # ar ∧ # ar0 < n0 + m1 ∧ m1 ≠ 0 ∧ n1 ≤ n0 → (range=(ar2, n2, splice(ar, n, ar0, n0, m0), n1, m1) ↔ range=(ar2, n2, splice(ar, n, ar0, n0, m1), n1, m1)) |
⊦ # ar1 < n1 + m ∧ m ≠ 0 → splice(ar0, n0, ar1, n1, m) = copy(ar0, n0, resize(ar1, n1 + m), n1, m)
[Concretesimprules((Csimpnamedseq(splice-resize,,, ⊦ # ar1 < n1 + m ∧ m ≠ 0 → splice(ar0, n0, ar1, n1, m) = copy (ar0, n0, resize(ar1, n1 + m), n1, m)) Csimpnamedforward(nat-basic1,,f, ⊦ m < n → n ≠ 0) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1)))]