path(r ' + x0, H), # H ≤ # x0 ⊦ # (H -- r) < # x0 ∧ path(x0, H -- r), dups(x0), r ∈ x0
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (H -- r)]]