dec = mkDecimal(i, i0) ⊦ even((dec * dec).scale)
Used simplifier rules: decimal generated by mkDecimal;;