⊦ reachable(r, r0, H) ↔ (∃ x. path(r ' + x, H) ∧ (r ' + x).last = r0)
∃ x. path(r ' + x, H) ∧ (r ' + x).last = r0, r0 ∈ H ⊦ r = r0, reachable(H[r].nxt, r0, H)
Used terms: H, r0, r