| ⊦ # ar0 ≤ n ∧ n < # ar0 + # ar1 → (ar0 + ar1)[n] = ar1[n - # ar0] |
n < # ar0 + # ar1, # ar0 ≤ n ⊦ # ar0 + # ar1 = 0, (ar0 + ar1)[n] = ar1[n - # ar0], # ar1 = 0
[Concretesimprules((Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat-basic2,,l-01, ⊦ m < m + n ↔ n ≠ 0) Csimpnamedforward(nat,,fle-01, ⊦ m ≤ n ∧ n < n0 → m < n0) Csimpnamedforward(nat-basic1,,f, ⊦ m < n → n ≠ 0)))]