Used simplifier rules: le-pos: ⊦ 0 < i → (i * j ≤ i * i0 ↔ j ≤ i0);%associativity: ⊦ i * j * j0 = (i * j) * j0;%commutativity: ⊦ i * j = j * i;