Used simplifier rules: make: ⊦ rational(ri.num, ri.denom) = ri;%denom-pos-01: ⊦ ¬ rj.denom ≤ 0;% ⊦ ¬ i < j ↔ j ≤ i;