| n = n1 + m ∧ m ≤ n, m < n, reachable-n(H, n, r, r0), reachable-n(H, n1, r0, r0), reachable-n(H, m, r, r0) ⊦ ∃ m, r0. reachable-n(H, m, r, r0) ∧ (∃ n. n ≠ 0 ∧ (∀ n0. reachable-n(H, m + n0 * n, r, r0))) |
reachable-n(H, n1 + m, r, r0), reachable-n(H, n1, r0, r0), reachable-n(H, m, r, r0) ⊦ n1 = 0, ∃ m, r0. reachable-n(H, m, r, r0) ∧ (∃ n. n ≠ 0 ∧ (∀ n0. reachable-n(H, m + n0 * n, r, r0)))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m < m + n ↔ n ≠ 0], [CSIMPSEQ : ⊦ m < n → m ≤ n])]]