| ¬ ¬(i0 % 10 = 0 ∧ j ≠ 0 ∧ i0 ≠ 0), ∀ i1, i2, j, j0. i→n(i1) + i→n(i2) < i→n(i) + i→n(i0) → true → (mkDecimal(i1, j) = mkDecimal(i2, j0) ↔ i1 * 10 ^ abs(j0) = i2 * 10 ^ abs(j)) ⊦ i = i0 ∧ mkDecimal(i0, j).scale = mkDecimal(i0, j0).scale ↔ i * 10 ^ abs(j0) = i0 * 10 ^ abs(j), i = 0, i0 = 0, i0 % 10 = 0 ∧ j0 ≠ 0, i % 10 = 0 ∧ j ≠ 0, j ≠ 0 ∧ i % 10 = 0, j0 ≠ 0 ∧ i0 % 10 = 0 |
i0 % 10 = 0, ∀ i1, i2, j1, j0. i→n(i1) + i→n(i2) < i→n(i0 * 10 ^ abs(j)) + i→n(i0) → true → (mkDecimal(i1, j1) = mkDecimal(i2, j0) ↔ i1 * 10 ^ abs(j0) = i2 * 10 ^ abs(j1)) ⊦ i0 = 0, j = 0, (i0 * 10 ^ abs(j)) % 10 = 0
Used simplifier rules: absls: ⊦ ¬ abs(i) < 0; from specification int-abs%pot-zero-01: ⊦ 0 < i → (i ^ j = 0 ↔ j < 0 ∧ 1 < i); from specification int-pot%zero-eq: ⊦ i * j = 0 ↔ i = 0 ∨ j = 0; from specification int-mult%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