| dec = mkDecimal(i, i0), mkDecimal(0, 0) ≤ dec ⊦ mkDecimal(sqrt((dec * dec).int), (dec * dec).scale / 2) = dec |
0 ≤ i ⊦ mkDecimal(sqrt((mkDecimal(i, i0) * mkDecimal(i, i0)).int), (mkDecimal(i, i0) * mkDecimal(i, i0)).scale / 2) = mkDecimal(i, i0)
Used simplifier rules: le-zero: ⊦ mkDecimal(0, 0) ≤ mkDecimal(i, j) ↔ 0 ≤ i;%forward-le-01: ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j; (forward) from specification int-abs