| ¬ 0 < j0, 0 ≤ j0, ∀ j1, i, j. i→n(j1) < i→n(j0) → 0 ≤ j1 → mkDecimal(i, j) = mkDecimal(i * 10 ^ j1, abs(j) + j1) ⊦ mkDecimal(i, j) = mkDecimal(i * 10 ^ j0, abs(j) + j0) |
∀ j1, i, j. i→n(j1) < i→n(0) → 0 ≤ j1 → mkDecimal(i, j) = mkDecimal(i * 10 ^ j1, abs(j) + j1) ⊦ mkDecimal(i, j) = mkDecimal(i, abs(j))
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%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%anti: ⊦ i ≤ j → (j ≤ i ↔ i = j); from specification int-abs%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs