| (fac(i - j) * j * fac(j - 1)) * i0 = fac(i), fac(j - 1) * j * i0 = i1 * fac(j - 1) * (i + 1 - j), 0 < j, 0 ≤ i, 0 ≤ j, 0 < i, j ≤ i ⊦ i0 * j = i1 * (i + 1 - j) |
i1 * fac(j - 1) * (i + 1 - j) = fac(j - 1) * i1 * (i + 1 - j), (fac(i - j) * j * fac(j - 1)) * i0 = fac(i), fac(j - 1) * j * i0 = i1 * fac(j - 1) * (i + 1 - j), 0 < j, 0 ≤ i, 0 ≤ j, 0 < i, j ≤ i ⊦ i0 * j = i1 * (i + 1 - j)
Used simplifier rules: associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%commutativity: ⊦ i * j = j * i; from specification int-mult Used formulas: i1 * fac(j - 1) * (i + 1 - j) = fac(j - 1) * i1 * (i + 1 - j)