| ⊦ mkDecimal(dec.int * 10 ^ mkDecimal(0, i).scale - mkDecimal(0, i).int * 10 ^ dec.scale, dec.scale + mkDecimal(0, i).scale) = dec |
⊦ mkDecimal(dec.int, dec.scale) = dec
Used simplifier rules: add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%add-zero: ⊦ i + 0 = i; from specification int-basic2%sub-zero-01: ⊦ i - 0 = i; from specification int-abs%Mult-zero: ⊦ i * 0 = 0; from specification int-mult%intvalue-zero: ⊦ mkDecimal(0, j).int = 0; from specification decimal%commutativity: ⊦ i * j = j * i; from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%one: ⊦ 1 * i = i; from specification int-mult%scale-zero: ⊦ mkDecimal(0, j).scale = 0; from specification decimal