| legal(H), r ∈ H, reachable-n(H, n0, r, r0) ⊦ H[r0] .nxt = null, r = null, ∃ r0. reachable(r, r0, H) ∧ H[r0] .nxt = null, r0 ≠ null ∧ r0 ∈ H |
⊦ n ≠ 0 → (reachable-n(H, n, r, r0) ↔ (∃ x. path(x, H) ∧ hd x = r ∧ x .last = r0 ∧ # x = n + 1))
n0 ≠ 0, legal(H), r ∈ H, ∃ x. path(x, H) ∧ hd x = r ∧ x .last = r0 ∧ # x = n0 + 1 ⊦ H[r0] .nxt = null, r = null, ∃ r0. reachable(r, r0, H) ∧ H[r0] .nxt = null, r0 ≠ null ∧ r0 ∈ H
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ reachable-n(H, 0, r, r0) ↔ r = r0])], [EXTRATERMS : (r0, r, n0, H)]]