Used simplifier rules: getint-pos: ⊦ 0 < mkDecimal(i, j).int ↔ 0 < i; from specification decimal%neg-05: ⊦ ~ i < 0 ↔ 0 < i; from specification int-abs