| # x1 = 1 + # H, path(r ' + x1, H), ∀ n. ∃ r0. reachable-n(H, n, r, r0) ⊦ cyclic(r, H) |
⊦ path(x, H) ∧ dups(x) → cyclic(hd x, H)
path(r ' + x1, H) ∧ dups(r ' + x1) → cyclic(hd (r ' + x1), H), # x1 = 1 + # H, path(r ' + x1, H), ∀ n. ∃ r0. reachable-n(H, n, r, r0) ⊦ cyclic(r, H)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (r ' + x1, H)]]