| ∀ n0. reachable-n(H, n0 * n, r0, r0) ⊦ n = 0, n ≠ 0 ∧ reachable-n(H, n, r0, r0) ∧ reachable-n(H, 2 * n, r0, r0) |
⊦ reachable-n(H, n, r, r) → (¬ reachable-n(H, n0 * n, r, r) ↔ false)
∀ n0. reachable-n(H, n0 * n, r0, r0) ⊦ n = 0, reachable-n(H, n, r0, r0)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m * n = n * m], [CSIMPSEQ : ⊦ m0 * m * n = (m0 * m) * n])]]