| m0 % n = 0, (m % n = 0 ⊃ m;n * m / n + n) < m, n * m / n + n < m0, m0 ≤ m ⊦ m % n = 0, n = 0 |
m0 % n = 0, n * m / n + n < m0, n * m / n + n < m, m0 ≤ m ⊦ m % n = 0, n = 0
Used simplifier rules: fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat