| path(r ' + x0, H), # H ≤ # x0, (∃ H0. # H0 < # x0 ∧ path(x0, H0)) → x0 = [] ⊦ dups(x0), r ∈ x0 |
path(r ' + x0, H), # H ≤ # x0 ⊦ ∃ H0. # H0 < # x0 ∧ path(x0, H0), dups(x0), r ∈ x0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ x0 + [] = x0], [CSIMPSEQ : ⊦ (x0 + x1) + x2 = x0 + x1 + x2], [CSIMPSEQ : ⊦ path(r ', H) ↔ ¬ ¬ (r ∈ H ∧ r ≠ null)], [CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ m ≤ 0 ↔ m = 0], [CSIMPSEQ : ⊦ # H = 0 ↔ H = ∅], [CSIMPSEQ : ⊦ ¬ dups([])], [CSIMPSEQ : ⊦ ¬ r ∈ []], [CSIMPSEQ : ⊦ ¬ r ∈ ∅])]]