| n = n0 + # ar0 ∧ # ar0 ≤ n, # ar0 < n, n ≤ # ar0 + # ar1 ⊦ (ar0 + ar1) elems n = (ar0 elems # ar0) ∪ (ar1 elems n0), # ar1 = 0 |
n0 ≤ # ar1 ⊦ (ar0 + ar1) elems (n0 + # ar0) = (ar0 elems # ar0) ∪ (ar1 elems n0), # ar1 = 0, n0 = 0
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : nat, , lep-02, ⊦ m + n ≤ m + n0 ↔ n ≤ n0], [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], [CSIMPNAMEDSEQ : nat, , lels-03, ⊦ m < n → m ≤ n])]]