| x[m] = x[n], path(x, H), n < # x, m < # x ⊦ m = n, x = [], cyclic(hd x, H) |
x = r + x1, x[m] = x[n], path(x, H), n < # x, m < # x ⊦ m = n, x = [], cyclic(r, H)
[[CONCRETESIMPRULES : ([CSIMPELIM : x0 ≠ [] ⊦ r = hd x0 ∧ x1 = tl x0 ↔ x0 = r + x1])], [EXTRATERMS : (x, r, x0)]]