| m * m < n * n, m * m < m * n ∧ m * n < n * n → m * m < n * n ⊦ m < n |
n ≤ m, m * m < 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