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