Used simplifier rules: mult-base: ⊦ m * 0 = 0;%mult-a: ⊦ m0 * m * n = (m0 * m) * n;%mult-c: ⊦ m * n = n * m;%ls-03: ⊦ m ≤ n ∧ m ≠ 0 → (n * n0 < m ↔ n0 = 0);% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ m ≤ 0 ↔ m = 0; (s)