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