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