⊦ reachS(a, S, n) ↔ (∀ b. b ∈ S → reach(a, b, n) ∧ ¬ reach<(a, b, n))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ a ∈ ∅ ++ b ↔ a = b])], [EXTRATERMS : (n, ∅ ++ b, a)]]