| m * m + m0 < n * n, m0 ≤ 2 * m ⊦ m < n |
n ≤ m, m0 ≤ 2 * m, m * m + m0 < n * n ⊦ n = 0
Used simplifier rules: sqzero: ⊦ m * m = 0 ↔ m = 0;%mult-a: ⊦ m0 * m * n = (m0 * m) * n;%mult-c: ⊦ m * n = n * m;%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat