Used simplifier rules: ls-02: ⊦ m0 ≠ 0 → (m0 * m < m0 * n ↔ m < n);%mult-a: ⊦ m0 * m * n = (m0 * m) * n;%mult-c: ⊦ m * n = n * m;