| n0 ≤ # ar1 ⊦ (ar0 + ar1) elems (n0 + # ar0) = (ar0 elems # ar0) ∪ (ar1 elems n0), # ar1 = 0, n0 = 0 |
∀ ar1, ar0. n ≤ # ar1 → (ar0 + ar1) elems (n + # ar0) = (ar0 elems # ar0) ∪ (ar1 elems n) ∨ # ar1 = 0 ∨ n = 0, n +1 ≤ # ar1 ⊦ (ar0 + ar1) elems (n +1 + # ar0) = (ar0 elems # ar0) ∪ (ar1 elems n +1), # ar1 = 0, n +1 = 0
[[CONCRETESIMPRULES : ([CSIMPGEN : nat generated by 0, +1;])]]