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 41112
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 41100 . . . . . . . 8 (𝜑 → (𝐶𝐼) = {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
51, 4eleqtrd 2846 . . . . . . 7 (𝜑𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
6 fveq1 6374 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
76sumeq2ad 14719 . . . . . . . . 9 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
87eqeq1d 2767 . . . . . . . 8 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
98elrab 3519 . . . . . . 7 (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
105, 9sylib 209 . . . . . 6 (𝜑 → (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
1110simprd 489 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
1211ad2antrr 717 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
13 ralnex 3139 . . . . 5 (∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
14 etransclem24.m . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ0)
15 nn0uz 11922 . . . . . . . . . . 11 0 = (ℤ‘0)
1614, 15syl6eleq 2854 . . . . . . . . . 10 (𝜑𝑀 ∈ (ℤ‘0))
1716ad2antrr 717 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ‘0))
18 fzsscn 40164 . . . . . . . . . . 11 (0...𝐼) ⊆ ℂ
19 ssrab2 3847 . . . . . . . . . . . . . . 15 {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ⊆ ((0...𝐼) ↑𝑚 (0...𝑀))
204, 19syl6eqss 3815 . . . . . . . . . . . . . 14 (𝜑 → (𝐶𝐼) ⊆ ((0...𝐼) ↑𝑚 (0...𝑀)))
2120, 1sseldd 3762 . . . . . . . . . . . . 13 (𝜑𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)))
22 elmapi 8082 . . . . . . . . . . . . 13 (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
2321, 22syl 17 . . . . . . . . . . . 12 (𝜑𝐷:(0...𝑀)⟶(0...𝐼))
2423ffvelrnda 6549 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
2518, 24sseldi 3759 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
2625ad4ant14 759 . . . . . . . . 9 ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
27 fveq2 6375 . . . . . . . . 9 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
2817, 26, 27fsum1p 14767 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
29 simplr 785 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30 0p1e1 11401 . . . . . . . . . . . . . 14 (0 + 1) = 1
3130oveq1i 6852 . . . . . . . . . . . . 13 ((0 + 1)...𝑀) = (1...𝑀)
3231sumeq1i 14713 . . . . . . . . . . . 12 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
3332a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
34 fveq2 6375 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑗 → (𝐷𝑘) = (𝐷𝑗))
3534eleq1d 2829 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑗 → ((𝐷𝑘) ∈ ℕ ↔ (𝐷𝑗) ∈ ℕ))
3635notbid 309 . . . . . . . . . . . . . . 15 (𝑘 = 𝑗 → (¬ (𝐷𝑘) ∈ ℕ ↔ ¬ (𝐷𝑗) ∈ ℕ))
3736rspccva 3460 . . . . . . . . . . . . . 14 ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
3837adantll 705 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
39 fzssnn0 40171 . . . . . . . . . . . . . . . 16 (0...𝐼) ⊆ ℕ0
40 fz1ssfz0 12643 . . . . . . . . . . . . . . . . . 18 (1...𝑀) ⊆ (0...𝑀)
4140sseli 3757 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
4241, 24sylan2 586 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
4339, 42sseldi 3759 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℕ0)
44 elnn0 11540 . . . . . . . . . . . . . . 15 ((𝐷𝑗) ∈ ℕ0 ↔ ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4543, 44sylib 209 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4645adantlr 706 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
47 orel1 912 . . . . . . . . . . . . 13 (¬ (𝐷𝑗) ∈ ℕ → (((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0) → (𝐷𝑗) = 0))
4838, 46, 47sylc 65 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
4948sumeq2dv 14718 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50 fzfi 12979 . . . . . . . . . . . . 13 (1...𝑀) ∈ Fin
5150olci 892 . . . . . . . . . . . 12 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
52 sumz 14738 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5351, 52mp1i 13 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5433, 49, 533eqtrd 2803 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5554adantlr 706 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5629, 55oveq12d 6860 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
57 etransclem24.p . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℕ)
58 nnm1nn0 11581 . . . . . . . . . . . . 13 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
5957, 58syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑃 − 1) ∈ ℕ0)
6059nn0red 11599 . . . . . . . . . . 11 (𝜑 → (𝑃 − 1) ∈ ℝ)
6160recnd 10322 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ ℂ)
6261addid1d 10490 . . . . . . . . 9 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
6362ad2antrr 717 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
6428, 56, 633eqtrd 2803 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
65 etransclem24.ip . . . . . . . . 9 (𝜑𝐼 ≠ (𝑃 − 1))
6665necomd 2992 . . . . . . . 8 (𝜑 → (𝑃 − 1) ≠ 𝐼)
6766ad2antrr 717 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
6864, 67eqnetrd 3004 . . . . . 6 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) ≠ 𝐼)
6968neneqd 2942 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7013, 69sylan2br 588 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7112, 70condan 852 . . 3 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
7257nnzd 11728 . . . . . . . . 9 (𝜑𝑃 ∈ ℤ)
7311eqcomd 2771 . . . . . . . . . . . . 13 (𝜑𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
7473fveq2d 6379 . . . . . . . . . . . 12 (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)))
7574oveq1d 6857 . . . . . . . . . . 11 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
76 nfcv 2907 . . . . . . . . . . . 12 𝑗𝐷
77 fzfid 12980 . . . . . . . . . . . 12 (𝜑 → (0...𝑀) ∈ Fin)
78 nn0ex 11545 . . . . . . . . . . . . . 14 0 ∈ V
79 mapss 8105 . . . . . . . . . . . . . 14 ((ℕ0 ∈ V ∧ (0...𝐼) ⊆ ℕ0) → ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀)))
8078, 39, 79mp2an 683 . . . . . . . . . . . . 13 ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀))
8180, 21sseldi 3759 . . . . . . . . . . . 12 (𝜑𝐷 ∈ (ℕ0𝑚 (0...𝑀)))
8276, 77, 81mccl 40468 . . . . . . . . . . 11 (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8375, 82eqeltrd 2844 . . . . . . . . . 10 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8483nnzd 11728 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ)
85 fzfid 12980 . . . . . . . . . 10 (𝜑 → (1...𝑀) ∈ Fin)
8657adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
8723adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
8841adantl 473 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
89 etransclem24.j . . . . . . . . . . . . 13 (𝜑𝐽 = 0)
90 0zd 11636 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℤ)
9189, 90eqeltrd 2844 . . . . . . . . . . . 12 (𝜑𝐽 ∈ ℤ)
9291adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
9386, 87, 88, 92etransclem3 41091 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9485, 93fprodzcl 14967 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9572, 84, 943jca 1158 . . . . . . . 8 (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
96953ad2ant1 1163 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
9772adantr 472 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℤ)
9857adantr 472 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
9923adantr 472 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
10040sseli 3757 . . . . . . . . . . . . 13 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101100adantl 473 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
10291adantr 472 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
10398, 99, 101, 102etransclem3 41091 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ)
104 difss 3899 . . . . . . . . . . . . . . 15 ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105 ssfi 8387 . . . . . . . . . . . . . . 15 (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10650, 104, 105mp2an 683 . . . . . . . . . . . . . 14 ((1...𝑀) ∖ {𝑘}) ∈ Fin
107106a1i 11 . . . . . . . . . . . . 13 (𝜑 → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10857adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑃 ∈ ℕ)
10923adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐷:(0...𝑀)⟶(0...𝐼))
110104, 40sstri 3770 . . . . . . . . . . . . . . . 16 ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111110sseli 3757 . . . . . . . . . . . . . . 15 (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112111adantl 473 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
11391adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114108, 109, 112, 113etransclem3 41091 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
115107, 114fprodzcl 14967 . . . . . . . . . . . 12 (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
116115adantr 472 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
11797, 103, 1163jca 1158 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
1181173adant3 1162 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
119 dvds0 15282 . . . . . . . . . . . . . 14 (𝑃 ∈ ℤ → 𝑃 ∥ 0)
12072, 119syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∥ 0)
121120adantr 472 . . . . . . . . . . . 12 ((𝜑𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
1221213ad2antl1 1236 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
123 iftrue 4249 . . . . . . . . . . . . 13 (𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = 0)
124123eqcomd 2771 . . . . . . . . . . . 12 (𝑃 < (𝐷𝑘) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
125124adantl 473 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
126122, 125breqtrd 4835 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
12797adantr 472 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
128 0zd 11636 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
12999, 101ffvelrnd 6550 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ (0...𝐼))
130129elfzelzd 40168 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℤ)
13197, 130zsubcld 11734 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
132128, 97, 1313jca 1158 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
133132adantr 472 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
134 fzssre 40167 . . . . . . . . . . . . . . . . . . . . . 22 (0...𝐼) ⊆ ℝ
135134, 129sseldi 3759 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℝ)
136135adantr 472 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ∈ ℝ)
137127zred 11729 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℝ)
138 simpr 477 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ¬ 𝑃 < (𝐷𝑘))
139136, 137, 138nltled 10441 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ≤ 𝑃)
140137, 136subge0d 10871 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝑃 − (𝐷𝑘)) ↔ (𝐷𝑘) ≤ 𝑃))
141139, 140mpbird 248 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
142 elfzle1 12551 . . . . . . . . . . . . . . . . . . . . 21 ((𝐷𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷𝑘))
143129, 142syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷𝑘))
144143adantr 472 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝐷𝑘))
145137, 136subge02d 10873 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝐷𝑘) ↔ (𝑃 − (𝐷𝑘)) ≤ 𝑃))
146144, 145mpbid 223 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ 𝑃)
147133, 141, 146jca32 511 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
148 elfz2 12540 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
149147, 148sylibr 225 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...𝑃))
150 permnn 13317 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
151149, 150syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
152151nnzd 11728 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
153101elfzelzd 40168 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154102, 153zsubcld 11734 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐽𝑘) ∈ ℤ)
155154adantr 472 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐽𝑘) ∈ ℤ)
156131adantr 472 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
157 elnn0z 11637 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ ℕ0 ↔ ((𝑃 − (𝐷𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷𝑘))))
158156, 141, 157sylanbrc 578 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℕ0)
159 zexpcl 13082 . . . . . . . . . . . . . . 15 (((𝐽𝑘) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℕ0) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
160155, 158, 159syl2anc 579 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
161127, 152, 1603jca 1158 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1621613adantl3 1209 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1631273adantl3 1209 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
16459nn0zd 11727 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑃 − 1) ∈ ℤ)
165164adantr 472 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166128, 165, 1313jca 1158 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1671663adant3 1162 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
168167adantr 472 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1691413adantl3 1209 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
170 1red 10294 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ∈ ℝ)
171 nnre 11282 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → (𝐷𝑘) ∈ ℝ)
172171adantl 473 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝐷𝑘) ∈ ℝ)
17357nnred 11291 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑃 ∈ ℝ)
174173adantr 472 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175 nnge1 11303 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → 1 ≤ (𝐷𝑘))
176175adantl 473 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ≤ (𝐷𝑘))
177170, 172, 174, 176lesub2dd 10898 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
1781773adant2 1161 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
179178adantr 472 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
180168, 169, 179jca32 511 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
181 elfz2 12540 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
182180, 181sylibr 225 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)))
183 permnn 13317 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
184182, 183syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
185184nnzd 11728 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
186 dvdsmul1 15288 . . . . . . . . . . . . . 14 ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
187163, 185, 186syl2anc 579 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
18857nncnd 11292 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑃 ∈ ℂ)
189 1cnd 10288 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ∈ ℂ)
190188, 189npcand 10650 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191190eqcomd 2771 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑃 = ((𝑃 − 1) + 1))
192191fveq2d 6379 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193 facp1 13269 . . . . . . . . . . . . . . . . . . 19 ((𝑃 − 1) ∈ ℕ0 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
19459, 193syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195190oveq2d 6858 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
19659faccld 13275 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197196nncnd 11292 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198197, 188mulcomd 10315 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199195, 198eqtrd 2799 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200192, 194, 1993eqtrd 2803 . . . . . . . . . . . . . . . . 17 (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201200oveq1d 6857 . . . . . . . . . . . . . . . 16 (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
202201adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
2032023ad2antl1 1236 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
204188ad2antrr 717 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℂ)
205197ad2antrr 717 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206158faccld 13275 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℕ)
207206nncnd 11292 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℂ)
208206nnne0d 11322 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ≠ 0)
209204, 205, 207, 208divassd 11090 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
2102093adantl3 1209 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
211203, 210eqtr2d 2800 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
212187, 211breqtrd 4835 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
213 dvdsmultr1 15304 . . . . . . . . . . . 12 ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
214162, 212, 213sylc 65 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
215 iffalse 4252 . . . . . . . . . . . 12 𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
216215adantl 473 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
217214, 216breqtrrd 4837 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
218126, 217pm2.61dan 847 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
219 dvdsmultr1 15304 . . . . . . . . 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 11730 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
2232223ad2antl1 1236 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
224 simp2 1167 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225 fveq2 6375 . . . . . . . . . . . 12 (𝑗 = 𝑘 → (𝐷𝑗) = (𝐷𝑘))
226225breq2d 4821 . . . . . . . . . . 11 (𝑗 = 𝑘 → (𝑃 < (𝐷𝑗) ↔ 𝑃 < (𝐷𝑘)))
227225oveq2d 6858 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (𝑃 − (𝐷𝑗)) = (𝑃 − (𝐷𝑘)))
228227fveq2d 6379 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷𝑗))) = (!‘(𝑃 − (𝐷𝑘))))
229228oveq2d 6858 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
230 oveq2 6850 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (𝐽𝑗) = (𝐽𝑘))
231230, 227oveq12d 6860 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))) = ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))
232229, 231oveq12d 6860 . . . . . . . . . . 11 (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
233226, 232ifbieq2d 4268 . . . . . . . . . 10 (𝑗 = 𝑘 → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
234233adantl 473 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
235221, 223, 224, 234fprodsplit1 40463 . . . . . . . 8 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = (if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
236220, 235breqtrrd 4837 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
237 dvdsmultr2 15306 . . . . . . 7 ((𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ) → (𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
23896, 236, 237sylc 65 . . . . . 6 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2392383adant1r 1223 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
240 simpr 477 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241 eluzfz1 12555 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
24216, 241syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ∈ (0...𝑀))
24323, 242ffvelrnd 6550 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244134, 243sseldi 3759 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐷‘0) ∈ ℝ)
245244adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
24660adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247245, 246lttri3d 10431 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248240, 247mpbid 223 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249248simprd 489 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250249iffalsed 4254 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251 oveq2 6850 . . . . . . . . . . . . . . . . 17 ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
25261subidd 10634 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253251, 252sylan9eqr 2821 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254253fveq2d 6379 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255 fac0 13267 . . . . . . . . . . . . . . 15 (!‘0) = 1
256254, 255syl6eq 2815 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257256oveq2d 6858 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258197div1d 11047 . . . . . . . . . . . . . 14 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259258adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260257, 259eqtrd 2799 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261253oveq2d 6858 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
26291zcnd 11730 . . . . . . . . . . . . . . 15 (𝜑𝐽 ∈ ℂ)
263262exp0d 13209 . . . . . . . . . . . . . 14 (𝜑 → (𝐽↑0) = 1)
264263adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265261, 264eqtrd 2799 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266260, 265oveq12d 6860 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267197mulid1d 10311 . . . . . . . . . . . 12 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268267adantr 472 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269250, 266, 2683eqtrd 2803 . . . . . . . . . 10 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270269oveq1d 6857 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
271270oveq2d 6858 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
272271oveq1d 6857 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
27383nncnd 11292 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℂ)
27494zcnd 11730 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
275197, 274mulcld 10314 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) ∈ ℂ)
276196nnne0d 11322 . . . . . . . . 9 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277273, 275, 197, 276divassd 11090 . . . . . . . 8 (𝜑 → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))))
278277adantr 472 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))))
279274, 197, 276divcan3d 11060 . . . . . . . . 9 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
280279oveq2d 6858 . . . . . . . 8 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
281280adantr 472 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
282272, 278, 2813eqtrd 2803 . . . . . 6 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2832823ad2ant1 1163 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
284239, 283breqtrrd 4837 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
285284rexlimdv3a 3180 . . 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 472 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ 0)
288 simpr 477 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289288iftrued 4251 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
290 simpr 477 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → ¬ (𝑃 − 1) < (𝐷‘0))
291290iffalsed 4254 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292 simpll 783 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293244ad2antrr 717 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
29460ad2antrr 717 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295293, 294, 290nltled 10441 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296 id 22 . . . . . . . . . . . . . . 15 ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297296necomd 2992 . . . . . . . . . . . . . 14 ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298297ad2antlr 718 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299293, 294, 295, 298leneltd 10445 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
30089oveq1d 6857 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301300adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302243elfzelzd 40168 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐷‘0) ∈ ℤ)
303164, 302zsubcld 11734 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304303adantr 472 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305 simpr 477 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) < (𝑃 − 1))
306244adantr 472 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
30760adantr 472 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
308306, 307posdifd 10868 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309305, 308mpbid 223 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310 elnnz 11634 . . . . . . . . . . . . . . . . 17 (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311304, 309, 310sylanbrc 578 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
3123110expd 13231 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313301, 312eqtrd 2799 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314313oveq2d 6858 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315197adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316311nnnn0d 11598 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ0)
317316faccld 13275 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318317nncnd 11292 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319317nnne0d 11322 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320315, 318, 319divcld 11055 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321320mul01d 10489 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322314, 321eqtrd 2799 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323292, 299, 322syl2anc 579 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324291, 323eqtrd 2799 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325289, 324pm2.61dan 847 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326325oveq1d 6857 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
327274mul02d 10488 . . . . . . . . 9 (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
328327adantr 472 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
329326, 328eqtrd 2799 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
330329oveq2d 6858 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0))
331273mul01d 10489 . . . . . . 7 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
332331adantr 472 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
333330, 332eqtrd 2799 . . . . 5 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = 0)
334333oveq1d 6857 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335197, 276div0d 11054 . . . . 5 (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336335adantr 472 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337334, 336eqtrd 2799 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338287, 337breqtrrd 4837 . 2 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
339286, 338pm2.61dane 3024 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 384  wo 873  w3a 1107   = wceq 1652  wcel 2155  wne 2937  wral 3055  wrex 3056  {crab 3059  Vcvv 3350  cdif 3729  wss 3732  ifcif 4243  {csn 4334   class class class wbr 4809  cmpt 4888  wf 6064  cfv 6068  (class class class)co 6842  𝑚 cmap 8060  Fincfn 8160  cc 10187  cr 10188  0cc0 10189  1c1 10190   + caddc 10192   · cmul 10194   < clt 10328  cle 10329  cmin 10520   / cdiv 10938  cn 11274  0cn0 11538  cz 11624  cuz 11886  ...cfz 12533  cexp 13067  !cfa 13264  Σcsu 14701  cprod 14918  cdvds 15265
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-inf2 8753  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266  ax-pre-sup 10267
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-fal 1666  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-se 5237  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-isom 6077  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-om 7264  df-1st 7366  df-2nd 7367  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-oadd 7768  df-er 7947  df-map 8062  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-sup 8555  df-oi 8622  df-card 9016  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-div 10939  df-nn 11275  df-2 11335  df-3 11336  df-n0 11539  df-z 11625  df-uz 11887  df-rp 12029  df-fz 12534  df-fzo 12674  df-seq 13009  df-exp 13068  df-fac 13265  df-bc 13294  df-hash 13322  df-cj 14124  df-re 14125  df-im 14126  df-sqrt 14260  df-abs 14261  df-clim 14504  df-sum 14702  df-prod 14919  df-dvds 15266
This theorem is referenced by:  etransclem38  41126
  Copyright terms: Public domain W3C validator