| i0 = i1 + 1, 0 ≤ j, 0 < i0, ∀ j. 0 ≤ i0 ∧ 0 ≤ j → i→n(i0) * i→n(j) = i→n(i0 * j) ⊦ (i→n(i0) - 1) * i→n(j) = i→n(i1 * j) |
0 ≤ j, 0 ≤ i1, ∀ j0. 0 ≤ j0 → i→n(j0) * i→n(i1) + i→n(j0) = i→n((i1 + 1) * j0) ⊦ i→n(i1) * i→n(j) = i→n(i1 * j)
Used simplifier rules: rax: ⊦ 0 < i + 1 → i→n(i + 1) = i→n(i) + 1;%rax-04: ⊦ 0 ≤ i → i→n(i + 1) = i→n(i) + 1;%forward-le-01: ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j; (forward) from specification int-abs%mult-c: ⊦ m * n = n * m; from specification nat-mult%mult-a: ⊦ m0 * m * n = (m0 * m) * n; from specification nat-mult%rsucc-02: ⊦ m * (n + 1) = m * n + m; from specification nat-mult%numleledel-01: i0 ≠ 0, i0 ≤ i ⊦ (* i) ≤ j → (* i0) ≤ j; from specification int-abs%numle-02: ⊦ (* j) ≤ i0 + (* j0) ↔ j - j0 ≤ i0; from specification int-abs%mone-06: ⊦ ~1 < i ↔ 0 ≤ i; from specification int-abs%numls-02: ⊦ (* j) < i0 + (* j0) ↔ j - j0 < i0; from specification int-abs%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%add-base: ⊦ n + 0 = n; from specification nat-basic2%add-01: ⊦ n ≤ m → m + n0 - n = (m - n) + n0; from specification nat%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2