| n1 ≤ n0, n0 ≤ n1 + m1, n1 + m1 ≤ n0 + m0, n + m0 ≤ # ar, n0 + m0 ≤ # ar0 ⊦ range=(ar2, n2, copy(ar, n, ar0, n0, m0), n1, m1) ↔ range=(ar2, n2, ar0, n1, n0 - n1) ∧ range=(ar2, n2 + n0 - n1, ar, n, m1 + n1 - n0) |
n0 ≤ # ar0, n1 ≤ n0, n0 ≤ n1 + m1, n1 + m1 ≤ n0 + m0, n + m0 ≤ # ar, n0 + m0 ≤ # ar0, n1 + m1 ≤ # ar0, n1 ≤ # ar0 ⊦ range=(ar2, n2, copy(ar, n, ar0, n0, m0), n1, m1) ↔ range=(ar2, n2, ar0, n1, n0 - n1) ∧ range=(ar2, (n0 - n1) + n2, ar, n, m1 + n1 - n0)
[Concretesimprules((Csimpnamedseq(nat,,lep, ⊦ m ≤ m + n) Csimpnamedforward(nat,,let, ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat,,add-01, ⊦ n ≤ m → m + n0 - n = (m - n) + n0)))]