| ⊦ partitions(P, n0) ∧ n < # P ∧ P[n] = pe(m, m0, m1) → (¬ partitions(P[n, pe(m, m0, m2)], n0) ↔ false) |
P[n] = pe(m, m0, m1), n < # P, partitions(P, n0) ⊦ P = [], partitions(P[n, pe(m, m0, m2)], n0)
[Concretesimprules((Csimpnamedseq(list-data,partition,l, ⊦ # P = 0 ↔ P = []) Csimpnamedforward(nat-basic1,,f, ⊦ m < n → n ≠ 0)))]