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