| fac(i - j) | fac(i) * fac(i + 1 - j) ∧ fac(i - j) ≠ 0, j ≤ i, 0 < i, 0 < j, fac(i - j) * fac(j) | fac(i), fac(i + 1 - j) * fac(j - 1) | fac(i), 0 ≤ j, 0 ≤ i ⊦ fac(i) * fac(i + 1 - j) = (fac(i) * (i + 1 - 2 * j) + (fac(i) * fac(j)) / fac(j - 1)) * fac(i - j) |
fac(i - j) | fac(i) * fac(i + 1 - j), j ≤ i, 0 < i, 0 < j, fac(i - j) * fac(j) | fac(i), fac(i + 1 - j) * fac(j - 1) | fac(i), 0 ≤ j, 0 ≤ i ⊦ fac(i) * fac(i + 1 - j) = (fac(i) * (i + 1 - 2 * j) + (fac(i) * fac(j)) / fac(j - 1)) * fac(i - j)
Used simplifier rules: fac-zero-02: ⊦ fac(i) ≠ 0;