Used simplifier rules: div-lezero: ⊦ 0 < j → (i / j ≤ 0 ↔ i < j);%one-04: ⊦ 1 < j → 1 / j = 0;%i0 ≠ 0, i0 ≤ i ⊦ (* i) < j → (* i0) < j; (s)