| m * m < n * n, m * m < m * n ∧ m * n < n * n → m * m < n * n ⊦ m < n |
m * m < n * n, n ≤ m ⊦ n = 0
Used simplifier rules: zero-01: ⊦ m0 * m = 0 ↔ m0 = 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-basic% ⊦ m < n ↔ ¬ n ≤ m; (ss)