| (r ' + x1)[m] = x1[m0], m0 + 1 < # x1, m ≤ # x1, path(r ' + x1, H), m0 + 1 < m ⊦ x1 = [], m = m0 + 1, path(r ' + firstn(m0 + 1, x1) + restn(m0 + 1, x1), H), path(r ' + firstn(m0 + 1, x1), H), reachable-n(H, m0 + 1, r, x1[m0]) |
⊦ n ≤ # x0 → firstn(n, x0) + restn(n, x0) = x0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + 1 ≤ n ↔ m < n], [CSIMPSEQ : ⊦ ¬ m < n ↔ n ≤ m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPFORWARD : ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1], [CSIMPFORWARD : ⊦ m < n ∧ n ≤ n0 → m < n0], [CSIMPSEQ : ⊦ ¬ m + n < m])], [EXTRATERMS : (x1, m0 + 1)]]