⊦ countdims([], i) = i
∀ i. ¬ (countdims(ints0, i) = 0 ∧ 0 < i), countdims(i0 + ints0, i) = 0, 0 < i ⊦
[[CONCRETESIMPRULES : ([CSIMPGEN : intlist generated by [], +;], [CSIMPFORWARD : ⊦ i < i0 ∧ i = i1 → i1 < i0])]]