| n1 = m + 1, n0 + n1 ≤ # ar ⊦ n1 = 0, subarray(ar, n0, n1) = mkarray(1)[0, ar[n0]] + subarray(ar, n0 + 1, m) |
n0 + m < # ar ⊦ subarray(ar, n0, m + 1) = mkarray(1)[0, ar[n0]] + subarray(ar, n0 + 1, m), # ar = 0
[Concretesimprules((Csimpnamedforward(nat-basic1,,f, ⊦ m < n → n ≠ 0) Csimpnamedseq(nat,,succ-01, ⊦ m + 1 ≤ n ↔ m < n) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat-basic2,,oz, ⊦ m + 1 ≠ 0)))]