| (r ' + x1)[m] = r, path(r ' + x1, H), m ≤ # x1 ⊦ x1 = [], m = 0, 0 < m ∧ reachable-n(H, 0, r, (r ' + x1)[m]) ∧ reachable-n(H, m, r, (r ' + x1)[m]) |
(r ' + x1)[m] = r, path(r ' + x1, H), m ≤ # x1 ⊦ x1 = [], m = 0, reachable-n(H, m, r, r)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ reachable-n(H, 0, r, r0) ↔ r = r0], [CSIMPSEQ : ⊦ 0 < m ↔ m ≠ 0])]]