| ∀ n, m, m0, m1, n0, m2. P0[n] = pe(m, m0, m1) ∧ n < # P0 ∧ partitions(P0, n0) → P0 = [] ∨ partitions(P0[n, pe(m, m0, m2)], n0), (p + P0)[n] = pe(m, m0, m1), n < #(p + P0), partitions(p + P0, n0) ⊦ p + P0 = [], partitions((p + P0)[n, pe(m, m0, m2)], n0) |
(p ' + P0)[n] = pe(m, m0, m1), partitions(p ' + P0, n0), n ≤ # P0, ∀ n, m, m0, m1, n0, m2. P0[n] = pe(m, m0, m1) ∧ n < # P0 ∧ partitions(P0, n0) → P0 = [] ∨ partitions(P0[n, pe(m, m0, m2)], n0) ⊦ partitions((p ' + P0)[n, pe(m, m0, m2)], n0)
[Concretesimprules((Csimpnamedseq(nat,,lels, ⊦ ¬ m < n ↔ n ≤ m) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat-basic2,,s, ⊦ m < n + 1 ↔ ¬ n < m) Csimpnamedseq(list,partition,len-02, ⊦ # p ' = 0 +1) Csimpnamedseq(list,partition,len, ⊦ #(P + P0) = # P + # P0) Csimpnamedseq(list,partition,a, ⊦ (P + P0) + P1 = P + P0 + P1) Csimpnamedseq(list,partition,e-01, ⊦ p ' + P ≠ []) Csimpnamedseq(list,partition,c, ⊦ p + P = p ' + P)))]