Used simplifier rules: le-div-to-mult: m0 ≠ 0 ⊦ n ≤ m / m0 ↔ n * m0 ≤ m;% ⊦ ¬ m < 0; (s)% ⊦ 0 < m ↔ m ≠ 0; (s)% ⊦ m < n → n ≠ 0; (s)