| P0 = [], (p ' + P0)[n] = pe(m, m0, m1), Fok(F, p ' + P0, n0), n ≤ # P0, ∀ n, m, m0, m1, F, n0, m2. P0[n] = pe(m, m0, m1) ∧ n < # P0 ∧ Fok(F, P0, n0) → P0 = [] ∨ Fok(F, P0[n, pe(m, m0, m2)], n0) ⊦ Fok(F, (p ' + P0)[n, pe(m, m0, m2)], n0) |
Fok(F, pe(m, m0, m1) ', n0) ⊦ Fok(F, pe(m, m0, m2) ', n0)
[Concretesimprules((Csimpnamedseq(list-del,partition,put-one, ⊦ (p ')[0, p0] = p0 ') Csimpnamedseq(list-del,partition,one-03, ⊦ (p ')[0] = p) Csimpnamedseq(nat-basic1,,zero-01, ⊦ ¬ m < 0) Csimpnamedseq(nat,,lez-01, ⊦ m ≤ 0 ↔ m = 0) Csimpnamedseq(list-data,partition,size-01, ⊦ # [] = 0) Csimpnamedseq(list,partition,a, ⊦ (P + P0) + P1 = P + P0 + P1) Csimpnamedseq(list,partition,app, ⊦ P + [] = P)))]