| m * m0 = m1 * n + 1, gcd(m, n) = 1 ⊦ n = 1, n = 0, n * m1 = dist(m * m0, 1) |
⊦ n ≤ m → dist(m, n) = m - n
1 ≤ m * m0, m * m0 = m1 * n + 1, gcd(m, n) = 1 ⊦ n = 1, n = 0, n * m1 = m * m0 - 1
Used simplifier rules: lels-01: ⊦ ¬ m ≤ n ↔ n < m; from specification nat%one-01: ⊦ m < 1 ↔ m = 0; from specification nat-basic1%z-01: ⊦ m + n = 0 ↔ m = 0 ∧ n = 0; from specification nat-basic2%zero-06: ⊦ m ≠ 0 → (m * n = 0 ↔ n = 0); from specification nat-mult%mult-a: ⊦ m0 * m * n = (m0 * m) * n; from specification nat-mult%mult-c: ⊦ m * n = n * m; from specification nat-mult%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2 Used terms: 1, m * m0