x[m] = x[n], path(x, H), n < # x, m < # x ⊦ m = n, x = [], cyclic(hd x, H)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # x0 = 0 ↔ x0 = []], [CSIMPFORWARD : ⊦ m < n → n ≠ 0])]]