| n0 ≤ n1, n1 + m1 ≤ n0 + m0, n + m0 ≤ # ar, n0 + m0 ≤ # ar0 ⊦ range=(ar2, n2, copy(ar, n, ar0, n0, m0), n1, m1) ↔ range=(ar2, n2, ar, n + (n1 - n0), m1) |
n0 ≤ n1, n1 + m1 ≤ n0 + m0, n + m0 ≤ # ar, n0 + m0 ≤ # ar0, n1 + m1 ≤ # ar0 ⊦ range=(ar2, n2, copy(ar, n, ar0, n0, m0), n1, m1) ↔ range=(ar2, n2, ar, n + (n1 - n0), m1)
[Concretesimprules((Csimpnamedforward(nat,,let, ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1)))]