| ⊦ m < # A ∧ nodups(A) → (∀ n. n < m → #oc(A[n], A, m) = 1) |
n < # A, nodups(A), m < # A, n < m, n + 1 < # A ⊦ #oc(A[n], A, m) = 1
[Concretesimprules((Csimpnamedseq(nat-basic2,,succ, ⊦ m +1 = m + 1) Csimpnamedseq(nat-basic1,,f, ⊦ m < n → n ≠ 0) Csimpnamedforward(nat-basic1,,trans-1, ⊦ n < n0 ∧ n0 < n1 → n < n1) Csimpnamedforward(nat-basic1,,lf, ⊦ m < n ∧ n < n0 → m +1 < n0) Csimpnamedforward(nat-basic1,,f, ⊦ m < n → n ≠ 0)))]