| m * (n * n0 - m0) = m1 * n + n1, m * m0 + 1 = n * n0, gcd(m, n) = 1, n1 < n, m0 ≤ n * n0 ⊦ m = 0, n = 1, n1 = 1 |
⊦ m0 ≤ m → (m - m0) * n = m * n - m0 * n
m * m0 + 1 = n * n0, (n * n0) * m - m0 * m = m1 * n + n1, gcd(m, n) = 1, n1 < n, m0 ≤ n * n0 ⊦ m = 0, n = 1, n1 = 1
Used simplifier rules: mult-c: ⊦ m * n = n * m; from specification nat-mult Used terms: m, m0, n * n0