| ⊦ mkDecimal(~ mkDecimal(i, j).int, mkDecimal(i, j).scale).int = ~ mkDecimal(i, j).int ∧ mkDecimal(~ mkDecimal(i, j).int, mkDecimal(i, j).scale).scale = mkDecimal(i, j).scale |
⊦ mkDecimal(i, j).int + mkDecimal(~ mkDecimal(i, j).int, mkDecimal(i, j).scale).int = 0 ∧ mkDecimal(mkDecimal(i, j).int, mkDecimal(i, j).scale).scale = mkDecimal(i, j).scale
Used simplifier rules: scale-negate: ⊦ mkDecimal(~ i, j).scale = mkDecimal(i, j).scale;%negeq: ⊦ ~ i = j ↔ i + j = 0; from specification int-abs