Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  etransclem24 Structured version   Visualization version   GIF version

Theorem etransclem24 40992
Description: 𝑃 divides the I -th derivative of 𝐹 applied to 𝐽. when 𝐽 = 0 and 𝐼 is not equal to 𝑃 − 1. This is the second part of case 2 proven in [Juillerat] p. 13 . (Contributed by Glauco Siliprandi, 5-Apr-2020.)
Hypotheses
Ref Expression
etransclem24.p (𝜑𝑃 ∈ ℕ)
etransclem24.m (𝜑𝑀 ∈ ℕ0)
etransclem24.i (𝜑𝐼 ∈ ℕ0)
etransclem24.ip (𝜑𝐼 ≠ (𝑃 − 1))
etransclem24.j (𝜑𝐽 = 0)
etransclem24.c 𝐶 = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
etransclem24.d (𝜑𝐷 ∈ (𝐶𝐼))
Assertion
Ref Expression
etransclem24 (𝜑𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
Distinct variable groups:   𝐷,𝑐,𝑗   𝐼,𝑐,𝑛   𝑗,𝐽   𝑀,𝑐,𝑗,𝑛   𝑃,𝑗   𝜑,𝑗,𝑛
Allowed substitution hints:   𝜑(𝑐)   𝐶(𝑗,𝑛,𝑐)   𝐷(𝑛)   𝑃(𝑛,𝑐)   𝐼(𝑗)   𝐽(𝑛,𝑐)

Proof of Theorem etransclem24
Dummy variables 𝐴 𝑘 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 etransclem24.d . . . . . . . 8 (𝜑𝐷 ∈ (𝐶𝐼))
2 etransclem24.c . . . . . . . . 9 𝐶 = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
3 etransclem24.i . . . . . . . . 9 (𝜑𝐼 ∈ ℕ0)
42, 3etransclem12 40980 . . . . . . . 8 (𝜑 → (𝐶𝐼) = {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
51, 4eleqtrd 2852 . . . . . . 7 (𝜑𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
6 fveq1 6331 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
76sumeq2ad 14642 . . . . . . . . 9 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
87eqeq1d 2773 . . . . . . . 8 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
98elrab 3515 . . . . . . 7 (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
105, 9sylib 208 . . . . . 6 (𝜑 → (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
1110simprd 483 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
1211ad2antrr 705 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
13 ralnex 3141 . . . . 5 (∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
14 etransclem24.m . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ0)
15 nn0uz 11924 . . . . . . . . . . 11 0 = (ℤ‘0)
1614, 15syl6eleq 2860 . . . . . . . . . 10 (𝜑𝑀 ∈ (ℤ‘0))
1716ad2antrr 705 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ‘0))
18 fzsscn 40042 . . . . . . . . . . 11 (0...𝐼) ⊆ ℂ
19 ssrab2 3836 . . . . . . . . . . . . . . 15 {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ⊆ ((0...𝐼) ↑𝑚 (0...𝑀))
204, 19syl6eqss 3804 . . . . . . . . . . . . . 14 (𝜑 → (𝐶𝐼) ⊆ ((0...𝐼) ↑𝑚 (0...𝑀)))
2120, 1sseldd 3753 . . . . . . . . . . . . 13 (𝜑𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)))
22 elmapi 8031 . . . . . . . . . . . . 13 (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
2321, 22syl 17 . . . . . . . . . . . 12 (𝜑𝐷:(0...𝑀)⟶(0...𝐼))
2423ffvelrnda 6502 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
2518, 24sseldi 3750 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
2625ad4ant14 1208 . . . . . . . . 9 ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
27 fveq2 6332 . . . . . . . . 9 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
2817, 26, 27fsum1p 14690 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
29 simplr 752 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30 0p1e1 11334 . . . . . . . . . . . . . 14 (0 + 1) = 1
3130oveq1i 6803 . . . . . . . . . . . . 13 ((0 + 1)...𝑀) = (1...𝑀)
3231sumeq1i 14636 . . . . . . . . . . . 12 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
3332a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
34 fveq2 6332 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑗 → (𝐷𝑘) = (𝐷𝑗))
3534eleq1d 2835 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑗 → ((𝐷𝑘) ∈ ℕ ↔ (𝐷𝑗) ∈ ℕ))
3635notbid 307 . . . . . . . . . . . . . . 15 (𝑘 = 𝑗 → (¬ (𝐷𝑘) ∈ ℕ ↔ ¬ (𝐷𝑗) ∈ ℕ))
3736rspccva 3459 . . . . . . . . . . . . . 14 ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
3837adantll 693 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
39 fzssnn0 40049 . . . . . . . . . . . . . . . 16 (0...𝐼) ⊆ ℕ0
40 fz1ssfz0 12643 . . . . . . . . . . . . . . . . . 18 (1...𝑀) ⊆ (0...𝑀)
4140sseli 3748 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
4241, 24sylan2 580 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
4339, 42sseldi 3750 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℕ0)
44 elnn0 11496 . . . . . . . . . . . . . . 15 ((𝐷𝑗) ∈ ℕ0 ↔ ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4543, 44sylib 208 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4645adantlr 694 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
47 orel1 875 . . . . . . . . . . . . 13 (¬ (𝐷𝑗) ∈ ℕ → (((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0) → (𝐷𝑗) = 0))
4838, 46, 47sylc 65 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
4948sumeq2dv 14641 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50 fzfi 12979 . . . . . . . . . . . . 13 (1...𝑀) ∈ Fin
5150olci 855 . . . . . . . . . . . 12 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
52 sumz 14661 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5351, 52mp1i 13 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5433, 49, 533eqtrd 2809 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5554adantlr 694 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5629, 55oveq12d 6811 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
57 etransclem24.p . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℕ)
58 nnm1nn0 11536 . . . . . . . . . . . . 13 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
5957, 58syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑃 − 1) ∈ ℕ0)
6059nn0red 11554 . . . . . . . . . . 11 (𝜑 → (𝑃 − 1) ∈ ℝ)
6160recnd 10270 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ ℂ)
6261addid1d 10438 . . . . . . . . 9 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
6362ad2antrr 705 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
6428, 56, 633eqtrd 2809 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
65 etransclem24.ip . . . . . . . . 9 (𝜑𝐼 ≠ (𝑃 − 1))
6665necomd 2998 . . . . . . . 8 (𝜑 → (𝑃 − 1) ≠ 𝐼)
6766ad2antrr 705 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
6864, 67eqnetrd 3010 . . . . . 6 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) ≠ 𝐼)
6968neneqd 2948 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7013, 69sylan2br 582 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7112, 70condan 819 . . 3 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
7257nnzd 11683 . . . . . . . . 9 (𝜑𝑃 ∈ ℤ)
7311eqcomd 2777 . . . . . . . . . . . . 13 (𝜑𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
7473fveq2d 6336 . . . . . . . . . . . 12 (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)))
7574oveq1d 6808 . . . . . . . . . . 11 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
76 nfcv 2913 . . . . . . . . . . . 12 𝑗𝐷
77 fzfid 12980 . . . . . . . . . . . 12 (𝜑 → (0...𝑀) ∈ Fin)
78 nn0ex 11500 . . . . . . . . . . . . . 14 0 ∈ V
79 mapss 8054 . . . . . . . . . . . . . 14 ((ℕ0 ∈ V ∧ (0...𝐼) ⊆ ℕ0) → ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀)))
8078, 39, 79mp2an 672 . . . . . . . . . . . . 13 ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀))
8180, 21sseldi 3750 . . . . . . . . . . . 12 (𝜑𝐷 ∈ (ℕ0𝑚 (0...𝑀)))
8276, 77, 81mccl 40348 . . . . . . . . . . 11 (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8375, 82eqeltrd 2850 . . . . . . . . . 10 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8483nnzd 11683 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ)
85 fzfid 12980 . . . . . . . . . 10 (𝜑 → (1...𝑀) ∈ Fin)
8657adantr 466 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
8723adantr 466 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
8841adantl 467 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
89 etransclem24.j . . . . . . . . . . . . 13 (𝜑𝐽 = 0)
90 0zd 11591 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℤ)
9189, 90eqeltrd 2850 . . . . . . . . . . . 12 (𝜑𝐽 ∈ ℤ)
9291adantr 466 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
9386, 87, 88, 92etransclem3 40971 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9485, 93fprodzcl 14891 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9572, 84, 943jca 1122 . . . . . . . 8 (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
96953ad2ant1 1127 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
9772adantr 466 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℤ)
9857adantr 466 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
9923adantr 466 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
10040sseli 3748 . . . . . . . . . . . . 13 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101100adantl 467 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
10291adantr 466 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
10398, 99, 101, 102etransclem3 40971 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ)
104 difss 3888 . . . . . . . . . . . . . . 15 ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105 ssfi 8336 . . . . . . . . . . . . . . 15 (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10650, 104, 105mp2an 672 . . . . . . . . . . . . . 14 ((1...𝑀) ∖ {𝑘}) ∈ Fin
107106a1i 11 . . . . . . . . . . . . 13 (𝜑 → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10857adantr 466 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑃 ∈ ℕ)
10923adantr 466 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐷:(0...𝑀)⟶(0...𝐼))
110104, 40sstri 3761 . . . . . . . . . . . . . . . 16 ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111110sseli 3748 . . . . . . . . . . . . . . 15 (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112111adantl 467 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
11391adantr 466 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114108, 109, 112, 113etransclem3 40971 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
115107, 114fprodzcl 14891 . . . . . . . . . . . 12 (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
116115adantr 466 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
11797, 103, 1163jca 1122 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
1181173adant3 1126 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
119 dvds0 15206 . . . . . . . . . . . . . 14 (𝑃 ∈ ℤ → 𝑃 ∥ 0)
12072, 119syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∥ 0)
121120adantr 466 . . . . . . . . . . . 12 ((𝜑𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
1221213ad2antl1 1200 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
123 iftrue 4231 . . . . . . . . . . . . 13 (𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = 0)
124123eqcomd 2777 . . . . . . . . . . . 12 (𝑃 < (𝐷𝑘) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
125124adantl 467 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
126122, 125breqtrd 4812 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
12797adantr 466 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
128 0zd 11591 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
12999, 101ffvelrnd 6503 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ (0...𝐼))
130129elfzelzd 40046 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℤ)
13197, 130zsubcld 11689 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
132128, 97, 1313jca 1122 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
133132adantr 466 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
134 fzssre 40045 . . . . . . . . . . . . . . . . . . . . . 22 (0...𝐼) ⊆ ℝ
135134, 129sseldi 3750 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℝ)
136135adantr 466 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ∈ ℝ)
137127zred 11684 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℝ)
138 simpr 471 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ¬ 𝑃 < (𝐷𝑘))
139136, 137, 138nltled 10389 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ≤ 𝑃)
140137, 136subge0d 10819 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝑃 − (𝐷𝑘)) ↔ (𝐷𝑘) ≤ 𝑃))
141139, 140mpbird 247 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
142 elfzle1 12551 . . . . . . . . . . . . . . . . . . . . 21 ((𝐷𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷𝑘))
143129, 142syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷𝑘))
144143adantr 466 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝐷𝑘))
145137, 136subge02d 10821 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝐷𝑘) ↔ (𝑃 − (𝐷𝑘)) ≤ 𝑃))
146144, 145mpbid 222 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ 𝑃)
147133, 141, 146jca32 505 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
148 elfz2 12540 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
149147, 148sylibr 224 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...𝑃))
150 permnn 13317 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
151149, 150syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
152151nnzd 11683 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
153101elfzelzd 40046 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154102, 153zsubcld 11689 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐽𝑘) ∈ ℤ)
155154adantr 466 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐽𝑘) ∈ ℤ)
156131adantr 466 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
157 elnn0z 11592 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ ℕ0 ↔ ((𝑃 − (𝐷𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷𝑘))))
158156, 141, 157sylanbrc 572 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℕ0)
159 zexpcl 13082 . . . . . . . . . . . . . . 15 (((𝐽𝑘) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℕ0) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
160155, 158, 159syl2anc 573 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
161127, 152, 1603jca 1122 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1621613adantl3 1173 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1631273adantl3 1173 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
16459nn0zd 11682 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑃 − 1) ∈ ℤ)
165164adantr 466 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166128, 165, 1313jca 1122 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1671663adant3 1126 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
168167adantr 466 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1691413adantl3 1173 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
170 1red 10257 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ∈ ℝ)
171 nnre 11229 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → (𝐷𝑘) ∈ ℝ)
172171adantl 467 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝐷𝑘) ∈ ℝ)
17357nnred 11237 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑃 ∈ ℝ)
174173adantr 466 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175 nnge1 11248 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → 1 ≤ (𝐷𝑘))
176175adantl 467 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ≤ (𝐷𝑘))
177170, 172, 174, 176lesub2dd 10846 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
1781773adant2 1125 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
179178adantr 466 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
180168, 169, 179jca32 505 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
181 elfz2 12540 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
182180, 181sylibr 224 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)))
183 permnn 13317 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
184182, 183syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
185184nnzd 11683 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
186 dvdsmul1 15212 . . . . . . . . . . . . . 14 ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
187163, 185, 186syl2anc 573 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
18857nncnd 11238 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑃 ∈ ℂ)
189 1cnd 10258 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ∈ ℂ)
190188, 189npcand 10598 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191190eqcomd 2777 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑃 = ((𝑃 − 1) + 1))
192191fveq2d 6336 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193 facp1 13269 . . . . . . . . . . . . . . . . . . 19 ((𝑃 − 1) ∈ ℕ0 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
19459, 193syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195190oveq2d 6809 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
19659faccld 13275 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197196nncnd 11238 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198197, 188mulcomd 10263 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199195, 198eqtrd 2805 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200192, 194, 1993eqtrd 2809 . . . . . . . . . . . . . . . . 17 (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201200oveq1d 6808 . . . . . . . . . . . . . . . 16 (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
202201adantr 466 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
2032023ad2antl1 1200 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
204188ad2antrr 705 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℂ)
205197ad2antrr 705 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206158faccld 13275 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℕ)
207206nncnd 11238 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℂ)
208206nnne0d 11267 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ≠ 0)
209204, 205, 207, 208divassd 11038 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
2102093adantl3 1173 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
211203, 210eqtr2d 2806 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
212187, 211breqtrd 4812 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
213 dvdsmultr1 15228 . . . . . . . . . . . 12 ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
214162, 212, 213sylc 65 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
215 iffalse 4234 . . . . . . . . . . . 12 𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
216215adantl 467 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
217214, 216breqtrrd 4814 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
218126, 217pm2.61dan 814 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
219 dvdsmultr1 15228 . . . . . . . . 9 ((𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ) → (𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) → 𝑃 ∥ (if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
220118, 218, 219sylc 65 . . . . . . . 8 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
221 fzfid 12980 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (1...𝑀) ∈ Fin)
22293zcnd 11685 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
2232223ad2antl1 1200 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
224 simp2 1131 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225 fveq2 6332 . . . . . . . . . . . 12 (𝑗 = 𝑘 → (𝐷𝑗) = (𝐷𝑘))
226225breq2d 4798 . . . . . . . . . . 11 (𝑗 = 𝑘 → (𝑃 < (𝐷𝑗) ↔ 𝑃 < (𝐷𝑘)))
227225oveq2d 6809 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (𝑃 − (𝐷𝑗)) = (𝑃 − (𝐷𝑘)))
228227fveq2d 6336 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷𝑗))) = (!‘(𝑃 − (𝐷𝑘))))
229228oveq2d 6809 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
230 oveq2 6801 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (𝐽𝑗) = (𝐽𝑘))
231230, 227oveq12d 6811 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))) = ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))
232229, 231oveq12d 6811 . . . . . . . . . . 11 (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
233226, 232ifbieq2d 4250 . . . . . . . . . 10 (𝑗 = 𝑘 → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
234233adantl 467 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
235221, 223, 224, 234fprodsplit1 40343 . . . . . . . 8 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = (if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
236220, 235breqtrrd 4814 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
237 dvdsmultr2 15230 . . . . . . 7 ((𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ) → (𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
23896, 236, 237sylc 65 . . . . . 6 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2392383adant1r 1187 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
240 simpr 471 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241 eluzfz1 12555 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
24216, 241syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ∈ (0...𝑀))
24323, 242ffvelrnd 6503 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244134, 243sseldi 3750 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐷‘0) ∈ ℝ)
245244adantr 466 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
24660adantr 466 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247245, 246lttri3d 10379 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248240, 247mpbid 222 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249248simprd 483 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250249iffalsed 4236 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251 oveq2 6801 . . . . . . . . . . . . . . . . 17 ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
25261subidd 10582 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253251, 252sylan9eqr 2827 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254253fveq2d 6336 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255 fac0 13267 . . . . . . . . . . . . . . 15 (!‘0) = 1
256254, 255syl6eq 2821 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257256oveq2d 6809 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258197div1d 10995 . . . . . . . . . . . . . 14 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259258adantr 466 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260257, 259eqtrd 2805 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261253oveq2d 6809 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
26291zcnd 11685 . . . . . . . . . . . . . . 15 (𝜑𝐽 ∈ ℂ)
263262exp0d 13209 . . . . . . . . . . . . . 14 (𝜑 → (𝐽↑0) = 1)
264263adantr 466 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265261, 264eqtrd 2805 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266260, 265oveq12d 6811 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267197mulid1d 10259 . . . . . . . . . . . 12 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268267adantr 466 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269250, 266, 2683eqtrd 2809 . . . . . . . . . 10 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270269oveq1d 6808 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
271270oveq2d 6809 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
272271oveq1d 6808 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
27383nncnd 11238 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℂ)
27494zcnd 11685 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
275197, 274mulcld 10262 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) ∈ ℂ)
276196nnne0d 11267 . . . . . . . . 9 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277273, 275, 197, 276divassd 11038 . . . . . . . 8 (𝜑 → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))))
278277adantr 466 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))))
279274, 197, 276divcan3d 11008 . . . . . . . . 9 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
280279oveq2d 6809 . . . . . . . 8 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
281280adantr 466 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
282272, 278, 2813eqtrd 2809 . . . . . 6 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2832823ad2ant1 1127 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
284239, 283breqtrrd 4814 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
285284rexlimdv3a 3181 . . 3 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1)))))
28671, 285mpd 15 . 2 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
287120adantr 466 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ 0)
288 simpr 471 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289288iftrued 4233 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
290 simpr 471 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → ¬ (𝑃 − 1) < (𝐷‘0))
291290iffalsed 4236 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292 simpll 750 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293244ad2antrr 705 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
29460ad2antrr 705 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295293, 294, 290nltled 10389 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296 id 22 . . . . . . . . . . . . . . 15 ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297296necomd 2998 . . . . . . . . . . . . . 14 ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298297ad2antlr 706 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299293, 294, 295, 298leneltd 10393 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
30089oveq1d 6808 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301300adantr 466 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302243elfzelzd 40046 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐷‘0) ∈ ℤ)
303164, 302zsubcld 11689 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304303adantr 466 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305 simpr 471 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) < (𝑃 − 1))
306244adantr 466 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
30760adantr 466 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
308306, 307posdifd 10816 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309305, 308mpbid 222 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310 elnnz 11589 . . . . . . . . . . . . . . . . 17 (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311304, 309, 310sylanbrc 572 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
3123110expd 13231 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313301, 312eqtrd 2805 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314313oveq2d 6809 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315197adantr 466 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316311nnnn0d 11553 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ0)
317316faccld 13275 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318317nncnd 11238 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319317nnne0d 11267 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320315, 318, 319divcld 11003 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321320mul01d 10437 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322314, 321eqtrd 2805 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323292, 299, 322syl2anc 573 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324291, 323eqtrd 2805 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325289, 324pm2.61dan 814 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326325oveq1d 6808 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
327274mul02d 10436 . . . . . . . . 9 (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
328327adantr 466 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
329326, 328eqtrd 2805 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
330329oveq2d 6809 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0))
331273mul01d 10437 . . . . . . 7 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
332331adantr 466 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
333330, 332eqtrd 2805 . . . . 5 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = 0)
334333oveq1d 6808 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335197, 276div0d 11002 . . . . 5 (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336335adantr 466 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337334, 336eqtrd 2805 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338287, 337breqtrrd 4814 . 2 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
339286, 338pm2.61dane 3030 1 (𝜑𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 382  wo 836  w3a 1071   = wceq 1631  wcel 2145  wne 2943  wral 3061  wrex 3062  {crab 3065  Vcvv 3351  cdif 3720  wss 3723  ifcif 4225  {csn 4316   class class class wbr 4786  cmpt 4863  wf 6027  cfv 6031  (class class class)co 6793  𝑚 cmap 8009  Fincfn 8109  cc 10136  cr 10137  0cc0 10138  1c1 10139   + caddc 10141   · cmul 10143   < clt 10276  cle 10277  cmin 10468   / cdiv 10886  cn 11222  0cn0 11494  cz 11579  cuz 11888  ...cfz 12533  cexp 13067  !cfa 13264  Σcsu 14624  cprod 14842  cdvds 15189
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-rep 4904  ax-sep 4915  ax-nul 4923  ax-pow 4974  ax-pr 5034  ax-un 7096  ax-inf2 8702  ax-cnex 10194  ax-resscn 10195  ax-1cn 10196  ax-icn 10197  ax-addcl 10198  ax-addrcl 10199  ax-mulcl 10200  ax-mulrcl 10201  ax-mulcom 10202  ax-addass 10203  ax-mulass 10204  ax-distr 10205  ax-i2m1 10206  ax-1ne0 10207  ax-1rid 10208  ax-rnegex 10209  ax-rrecex 10210  ax-cnre 10211  ax-pre-lttri 10212  ax-pre-lttrn 10213  ax-pre-ltadd 10214  ax-pre-mulgt0 10215  ax-pre-sup 10216
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 837  df-3or 1072  df-3an 1073  df-tru 1634  df-fal 1637  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ne 2944  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-pss 3739  df-nul 4064  df-if 4226  df-pw 4299  df-sn 4317  df-pr 4319  df-tp 4321  df-op 4323  df-uni 4575  df-int 4612  df-iun 4656  df-br 4787  df-opab 4847  df-mpt 4864  df-tr 4887  df-id 5157  df-eprel 5162  df-po 5170  df-so 5171  df-fr 5208  df-se 5209  df-we 5210  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-pred 5823  df-ord 5869  df-on 5870  df-lim 5871  df-suc 5872  df-iota 5994  df-fun 6033  df-fn 6034  df-f 6035  df-f1 6036  df-fo 6037  df-f1o 6038  df-fv 6039  df-isom 6040  df-riota 6754  df-ov 6796  df-oprab 6797  df-mpt2 6798  df-om 7213  df-1st 7315  df-2nd 7316  df-wrecs 7559  df-recs 7621  df-rdg 7659  df-1o 7713  df-oadd 7717  df-er 7896  df-map 8011  df-en 8110  df-dom 8111  df-sdom 8112  df-fin 8113  df-sup 8504  df-oi 8571  df-card 8965  df-pnf 10278  df-mnf 10279  df-xr 10280  df-ltxr 10281  df-le 10282  df-sub 10470  df-neg 10471  df-div 10887  df-nn 11223  df-2 11281  df-3 11282  df-n0 11495  df-z 11580  df-uz 11889  df-rp 12036  df-fz 12534  df-fzo 12674  df-seq 13009  df-exp 13068  df-fac 13265  df-bc 13294  df-hash 13322  df-cj 14047  df-re 14048  df-im 14049  df-sqrt 14183  df-abs 14184  df-clim 14427  df-sum 14625  df-prod 14843  df-dvds 15190
This theorem is referenced by:  etransclem38  41006
  Copyright terms: Public domain W3C validator