path(r ' + x, H), reachable((r ' + x).last, r1, H), (r ' + x).last ∈ H, r1 ∈ H ⊦ reachable(r, r1, H)