| # x = 2 + # H, path(x, H), ∀ n. ∃ r0. reachable-n(H, n, hd x, r0) ⊦ cyclic(hd x, H) |
x = r + x1 ∧ x ≠ [], # x = 2 + # H, path(x, H), ∀ n. ∃ r0. reachable-n(H, n, r, r0) ⊦ cyclic(r, H)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ m + n = 0 ↔ m = 0 ∧ n = 0], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPELIM : x0 ≠ [] ⊦ r = hd x0 ∧ x1 = tl x0 ↔ x0 = r + x1])], [EXTRATERMS : (x, r, x0)]]