Used simplifier rules: ls-03: ⊦ m ≤ n ∧ m ≠ 0 → (n * n0 < m ↔ n0 = 0);%mult-a: ⊦ m0 * m * n = (m0 * m) * n;%mult-c: ⊦ m * n = n * m;%zero: ⊦ 0 * n = 0;%zero: ⊦ 0 < m ↔ m ≠ 0; from specification nat-basic1