| 0 < j, j < i, 1 < i, 0 < i, fac(j - 1) * fac(i - j) | fac(i - 1), ∀ i0, j. i→n(i0) < i→n(i) → j ≤ i0 ∧ 0 < j ∧ 0 < i0 → fac(j) * fac(i0 - j) | fac(i0) ⊦ i = j, fac(j) * fac(i - j) | fac(i) |
fac(j) * fac(i - 1 - j) | fac(i - 1), 0 < j, j < i, 1 < i, 0 < i, fac(j - 1) * fac(i - j) | fac(i - 1), ∀ i0, j. i→n(i0) < i→n(i) → j ≤ i0 ∧ 0 < j ∧ 0 < i0 → fac(j) * fac(i0 - j) | fac(i0) ⊦ i = j, fac(j) * fac(i - j) | fac(i)
Used simplifier rules: sub-le-01: ⊦ i ≤ j - i0 ↔ i + i0 ≤ j; from specification int-abs%succ-01: ⊦ i + 1 ≤ j ↔ i < j; from specification int-abs%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%add-c: ⊦ i + j = j + i; from specification int-basic2%sub-ls-01: ⊦ i < j - i0 ↔ i + i0 < j; from specification int-abs%rax-01: ⊦ 1 < i → i→n(i - 1) = i→n(i) -1; from specification intnat%pred-03: ⊦ n -1 = n - 1; from specification nat%lels-01: ⊦ ¬ i ≤ j ↔ j < i; from specification int-abs%ls-01: ⊦ i < j → ¬ j < i; from specification int-basic1%num-i2n-le-02: 0 ≤ i ⊦ (* m) ≤ i→n(i) ↔ n→i(m) ≤ i; from specification intnat%leone: ⊦ 1 ≤ i ↔ 0 < i; from specification int-abs%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%lels-03: ⊦ i < j → (¬ ¬ j ≤ i ↔ false); from specification int-abs%ls-01: n0 ≤ n ⊦ n - n0 < m ↔ n < m + n0; from specification nat%s: ⊦ m < n + 1 ↔ ¬ n < m; from specification nat-basic2%labs: ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j); from specification intnat%abs: ⊦ 1 < i → abs(i) = i; from specification int-abs%irreflexivity: ⊦ ¬ i < i; from specification oelem[intlista]%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2 Used terms: i - 1, j