| x = i0 + x1, max(x) < i, i ∈ x, ∀ x0, i. # x0 < # x → (i ∈ x0 ∧ max(x0) < i → false) ⊦ |
max(i0 ' + x1) < i, ∀ x0, i. # x0 < # (i0 + x1) → (i ∈ x0 ∧ max(x0) < i → false) ⊦ i ≠ i0 ∧ ¬ i ∈ x1
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (x + y) + z = x + y + z], [CSIMPSEQ : ⊦ d ∈ d0 ' ↔ d = d0], [CSIMPSEQ : ⊦ d ∈ x + y ↔ ¬ ¬ (d ∈ x ∨ d ∈ y)], [CSIMPSEQ : ⊦ d + x = d ' + x])]]