| path(r ' + x0, H), # H ≤ # x0 ⊦ # (H -- r) < # x0 ∧ path(x0, H -- r), dups(x0), r ∈ x0 |
⊦ r ∈ H → # (H -- r) = (# H) -1
r ∈ H, path(r ' + x0, H), # H ≤ # x0 ⊦ (# H) -1 < # x0 ∧ path(x0, H -- r), dups(x0), r ∈ x0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (x0 + x1) + x2 = x0 + x1 + x2], [CSIMPSEQ : ⊦ path(r ' + x, H) → (¬ r ∈ H ↔ false)])], [EXTRATERMS : (r, H)]]