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 42085
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 42073 . . . . . . . 8 (𝜑 → (𝐶𝐼) = {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
51, 4eleqtrd 2885 . . . . . . 7 (𝜑𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
6 fveq1 6537 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
76sumeq2sdv 14894 . . . . . . . . 9 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
87eqeq1d 2797 . . . . . . . 8 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
98elrab 3618 . . . . . . 7 (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
105, 9sylib 219 . . . . . 6 (𝜑 → (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
1110simprd 496 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
1211ad2antrr 722 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
13 ralnex 3200 . . . . 5 (∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
14 etransclem24.m . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ0)
15 nn0uz 12129 . . . . . . . . . . 11 0 = (ℤ‘0)
1614, 15syl6eleq 2893 . . . . . . . . . 10 (𝜑𝑀 ∈ (ℤ‘0))
1716ad2antrr 722 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ‘0))
18 fzsscn 41119 . . . . . . . . . . 11 (0...𝐼) ⊆ ℂ
19 ssrab2 3977 . . . . . . . . . . . . . . 15 {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ⊆ ((0...𝐼) ↑𝑚 (0...𝑀))
204, 19syl6eqss 3942 . . . . . . . . . . . . . 14 (𝜑 → (𝐶𝐼) ⊆ ((0...𝐼) ↑𝑚 (0...𝑀)))
2120, 1sseldd 3890 . . . . . . . . . . . . 13 (𝜑𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)))
22 elmapi 8278 . . . . . . . . . . . . 13 (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
2321, 22syl 17 . . . . . . . . . . . 12 (𝜑𝐷:(0...𝑀)⟶(0...𝐼))
2423ffvelrnda 6716 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
2518, 24sseldi 3887 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
2625ad4ant14 748 . . . . . . . . 9 ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
27 fveq2 6538 . . . . . . . . 9 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
2817, 26, 27fsum1p 14941 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
29 simplr 765 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30 0p1e1 11607 . . . . . . . . . . . . . 14 (0 + 1) = 1
3130oveq1i 7026 . . . . . . . . . . . . 13 ((0 + 1)...𝑀) = (1...𝑀)
3231sumeq1i 14888 . . . . . . . . . . . 12 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
3332a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
34 fveq2 6538 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑗 → (𝐷𝑘) = (𝐷𝑗))
3534eleq1d 2867 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑗 → ((𝐷𝑘) ∈ ℕ ↔ (𝐷𝑗) ∈ ℕ))
3635notbid 319 . . . . . . . . . . . . . . 15 (𝑘 = 𝑗 → (¬ (𝐷𝑘) ∈ ℕ ↔ ¬ (𝐷𝑗) ∈ ℕ))
3736rspccva 3558 . . . . . . . . . . . . . 14 ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
3837adantll 710 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
39 fzssnn0 41126 . . . . . . . . . . . . . . . 16 (0...𝐼) ⊆ ℕ0
40 fz1ssfz0 12853 . . . . . . . . . . . . . . . . . 18 (1...𝑀) ⊆ (0...𝑀)
4140sseli 3885 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
4241, 24sylan2 592 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
4339, 42sseldi 3887 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℕ0)
44 elnn0 11747 . . . . . . . . . . . . . . 15 ((𝐷𝑗) ∈ ℕ0 ↔ ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4543, 44sylib 219 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4645adantlr 711 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
47 orel1 883 . . . . . . . . . . . . 13 (¬ (𝐷𝑗) ∈ ℕ → (((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0) → (𝐷𝑗) = 0))
4838, 46, 47sylc 65 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
4948sumeq2dv 14893 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50 fzfi 13190 . . . . . . . . . . . . 13 (1...𝑀) ∈ Fin
5150olci 861 . . . . . . . . . . . 12 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
52 sumz 14912 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5351, 52mp1i 13 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5433, 49, 533eqtrd 2835 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5554adantlr 711 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5629, 55oveq12d 7034 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
57 etransclem24.p . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℕ)
58 nnm1nn0 11786 . . . . . . . . . . . . 13 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
5957, 58syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑃 − 1) ∈ ℕ0)
6059nn0red 11804 . . . . . . . . . . 11 (𝜑 → (𝑃 − 1) ∈ ℝ)
6160recnd 10515 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ ℂ)
6261addid1d 10687 . . . . . . . . 9 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
6362ad2antrr 722 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
6428, 56, 633eqtrd 2835 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
65 etransclem24.ip . . . . . . . . 9 (𝜑𝐼 ≠ (𝑃 − 1))
6665necomd 3039 . . . . . . . 8 (𝜑 → (𝑃 − 1) ≠ 𝐼)
6766ad2antrr 722 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
6864, 67eqnetrd 3051 . . . . . 6 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) ≠ 𝐼)
6968neneqd 2989 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7013, 69sylan2br 594 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7112, 70condan 814 . . 3 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
7257nnzd 11935 . . . . . . . . 9 (𝜑𝑃 ∈ ℤ)
7311eqcomd 2801 . . . . . . . . . . . . 13 (𝜑𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
7473fveq2d 6542 . . . . . . . . . . . 12 (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)))
7574oveq1d 7031 . . . . . . . . . . 11 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
76 nfcv 2949 . . . . . . . . . . . 12 𝑗𝐷
77 fzfid 13191 . . . . . . . . . . . 12 (𝜑 → (0...𝑀) ∈ Fin)
78 nn0ex 11751 . . . . . . . . . . . . . 14 0 ∈ V
79 mapss 8302 . . . . . . . . . . . . . 14 ((ℕ0 ∈ V ∧ (0...𝐼) ⊆ ℕ0) → ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀)))
8078, 39, 79mp2an 688 . . . . . . . . . . . . 13 ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀))
8180, 21sseldi 3887 . . . . . . . . . . . 12 (𝜑𝐷 ∈ (ℕ0𝑚 (0...𝑀)))
8276, 77, 81mccl 41421 . . . . . . . . . . 11 (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8375, 82eqeltrd 2883 . . . . . . . . . 10 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8483nnzd 11935 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ)
85 fzfid 13191 . . . . . . . . . 10 (𝜑 → (1...𝑀) ∈ Fin)
8657adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
8723adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
8841adantl 482 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
89 etransclem24.j . . . . . . . . . . . . 13 (𝜑𝐽 = 0)
90 0zd 11841 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℤ)
9189, 90eqeltrd 2883 . . . . . . . . . . . 12 (𝜑𝐽 ∈ ℤ)
9291adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
9386, 87, 88, 92etransclem3 42064 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9485, 93fprodzcl 15141 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9572, 84, 943jca 1121 . . . . . . . 8 (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
96953ad2ant1 1126 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
9772adantr 481 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℤ)
9857adantr 481 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
9923adantr 481 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
10040sseli 3885 . . . . . . . . . . . . 13 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101100adantl 482 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
10291adantr 481 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
10398, 99, 101, 102etransclem3 42064 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ)
104 difss 4029 . . . . . . . . . . . . . . 15 ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105 ssfi 8584 . . . . . . . . . . . . . . 15 (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10650, 104, 105mp2an 688 . . . . . . . . . . . . . 14 ((1...𝑀) ∖ {𝑘}) ∈ Fin
107106a1i 11 . . . . . . . . . . . . 13 (𝜑 → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10857adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑃 ∈ ℕ)
10923adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐷:(0...𝑀)⟶(0...𝐼))
110104, 40sstri 3898 . . . . . . . . . . . . . . . 16 ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111110sseli 3885 . . . . . . . . . . . . . . 15 (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112111adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
11391adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114108, 109, 112, 113etransclem3 42064 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
115107, 114fprodzcl 15141 . . . . . . . . . . . 12 (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
116115adantr 481 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
11797, 103, 1163jca 1121 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
1181173adant3 1125 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
119 dvds0 15458 . . . . . . . . . . . . . 14 (𝑃 ∈ ℤ → 𝑃 ∥ 0)
12072, 119syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∥ 0)
121120adantr 481 . . . . . . . . . . . 12 ((𝜑𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
1221213ad2antl1 1178 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
123 iftrue 4387 . . . . . . . . . . . . 13 (𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = 0)
124123eqcomd 2801 . . . . . . . . . . . 12 (𝑃 < (𝐷𝑘) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
125124adantl 482 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
126122, 125breqtrd 4988 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
12797adantr 481 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
128 0zd 11841 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
12999, 101ffvelrnd 6717 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ (0...𝐼))
130129elfzelzd 41123 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℤ)
13197, 130zsubcld 11941 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
132128, 97, 1313jca 1121 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
133132adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
134 fzssre 41122 . . . . . . . . . . . . . . . . . . . . . 22 (0...𝐼) ⊆ ℝ
135134, 129sseldi 3887 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℝ)
136135adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ∈ ℝ)
137127zred 11936 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℝ)
138 simpr 485 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ¬ 𝑃 < (𝐷𝑘))
139136, 137, 138nltled 10637 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ≤ 𝑃)
140137, 136subge0d 11078 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝑃 − (𝐷𝑘)) ↔ (𝐷𝑘) ≤ 𝑃))
141139, 140mpbird 258 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
142 elfzle1 12760 . . . . . . . . . . . . . . . . . . . . 21 ((𝐷𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷𝑘))
143129, 142syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷𝑘))
144143adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝐷𝑘))
145137, 136subge02d 11080 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝐷𝑘) ↔ (𝑃 − (𝐷𝑘)) ≤ 𝑃))
146144, 145mpbid 233 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ 𝑃)
147133, 141, 146jca32 516 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
148 elfz2 12749 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
149147, 148sylibr 235 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...𝑃))
150 permnn 13536 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
151149, 150syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
152151nnzd 11935 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
153101elfzelzd 41123 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154102, 153zsubcld 11941 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐽𝑘) ∈ ℤ)
155154adantr 481 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐽𝑘) ∈ ℤ)
156131adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
157 elnn0z 11842 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ ℕ0 ↔ ((𝑃 − (𝐷𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷𝑘))))
158156, 141, 157sylanbrc 583 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℕ0)
159 zexpcl 13294 . . . . . . . . . . . . . . 15 (((𝐽𝑘) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℕ0) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
160155, 158, 159syl2anc 584 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
161127, 152, 1603jca 1121 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1621613adantl3 1161 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1631273adantl3 1161 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
16459nn0zd 11934 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑃 − 1) ∈ ℤ)
165164adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166128, 165, 1313jca 1121 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1671663adant3 1125 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
168167adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1691413adantl3 1161 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
170 1red 10488 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ∈ ℝ)
171 nnre 11493 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → (𝐷𝑘) ∈ ℝ)
172171adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝐷𝑘) ∈ ℝ)
17357nnred 11501 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑃 ∈ ℝ)
174173adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175 nnge1 11513 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → 1 ≤ (𝐷𝑘))
176175adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ≤ (𝐷𝑘))
177170, 172, 174, 176lesub2dd 11105 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
1781773adant2 1124 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
179178adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
180168, 169, 179jca32 516 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
181 elfz2 12749 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
182180, 181sylibr 235 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)))
183 permnn 13536 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
184182, 183syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
185184nnzd 11935 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
186 dvdsmul1 15464 . . . . . . . . . . . . . 14 ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
187163, 185, 186syl2anc 584 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
18857nncnd 11502 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑃 ∈ ℂ)
189 1cnd 10482 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ∈ ℂ)
190188, 189npcand 10849 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191190eqcomd 2801 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑃 = ((𝑃 − 1) + 1))
192191fveq2d 6542 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193 facp1 13488 . . . . . . . . . . . . . . . . . . 19 ((𝑃 − 1) ∈ ℕ0 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
19459, 193syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195190oveq2d 7032 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
19659faccld 13494 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197196nncnd 11502 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198197, 188mulcomd 10508 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199195, 198eqtrd 2831 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200192, 194, 1993eqtrd 2835 . . . . . . . . . . . . . . . . 17 (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201200oveq1d 7031 . . . . . . . . . . . . . . . 16 (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
202201adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
2032023ad2antl1 1178 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
204188ad2antrr 722 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℂ)
205197ad2antrr 722 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206158faccld 13494 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℕ)
207206nncnd 11502 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℂ)
208206nnne0d 11535 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ≠ 0)
209204, 205, 207, 208divassd 11299 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
2102093adantl3 1161 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
211203, 210eqtr2d 2832 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
212187, 211breqtrd 4988 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
213 dvdsmultr1 15480 . . . . . . . . . . . 12 ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
214162, 212, 213sylc 65 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
215 iffalse 4390 . . . . . . . . . . . 12 𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
216215adantl 482 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
217214, 216breqtrrd 4990 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
218126, 217pm2.61dan 809 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
219 dvdsmultr1 15480 . . . . . . . . 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 13191 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (1...𝑀) ∈ Fin)
22293zcnd 11937 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
2232223ad2antl1 1178 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
224 simp2 1130 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225 fveq2 6538 . . . . . . . . . . . 12 (𝑗 = 𝑘 → (𝐷𝑗) = (𝐷𝑘))
226225breq2d 4974 . . . . . . . . . . 11 (𝑗 = 𝑘 → (𝑃 < (𝐷𝑗) ↔ 𝑃 < (𝐷𝑘)))
227225oveq2d 7032 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (𝑃 − (𝐷𝑗)) = (𝑃 − (𝐷𝑘)))
228227fveq2d 6542 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷𝑗))) = (!‘(𝑃 − (𝐷𝑘))))
229228oveq2d 7032 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
230 oveq2 7024 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (𝐽𝑗) = (𝐽𝑘))
231230, 227oveq12d 7034 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))) = ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))
232229, 231oveq12d 7034 . . . . . . . . . . 11 (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
233226, 232ifbieq2d 4406 . . . . . . . . . 10 (𝑗 = 𝑘 → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
234233adantl 482 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
235221, 223, 224, 234fprodsplit1 41416 . . . . . . . 8 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = (if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
236220, 235breqtrrd 4990 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
237 dvdsmultr2 15482 . . . . . . 7 ((𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ) → (𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
23896, 236, 237sylc 65 . . . . . 6 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2392383adant1r 1170 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
240 simpr 485 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241 eluzfz1 12764 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
24216, 241syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ∈ (0...𝑀))
24323, 242ffvelrnd 6717 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244134, 243sseldi 3887 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐷‘0) ∈ ℝ)
245244adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
24660adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247245, 246lttri3d 10627 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248240, 247mpbid 233 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249248simprd 496 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250249iffalsed 4392 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251 oveq2 7024 . . . . . . . . . . . . . . . . 17 ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
25261subidd 10833 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253251, 252sylan9eqr 2853 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254253fveq2d 6542 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255 fac0 13486 . . . . . . . . . . . . . . 15 (!‘0) = 1
256254, 255syl6eq 2847 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257256oveq2d 7032 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258197div1d 11256 . . . . . . . . . . . . . 14 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259258adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260257, 259eqtrd 2831 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261253oveq2d 7032 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
26291zcnd 11937 . . . . . . . . . . . . . . 15 (𝜑𝐽 ∈ ℂ)
263262exp0d 13354 . . . . . . . . . . . . . 14 (𝜑 → (𝐽↑0) = 1)
264263adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265261, 264eqtrd 2831 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266260, 265oveq12d 7034 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267197mulid1d 10504 . . . . . . . . . . . 12 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268267adantr 481 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269250, 266, 2683eqtrd 2835 . . . . . . . . . 10 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270269oveq1d 7031 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
271270oveq2d 7032 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
272271oveq1d 7031 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
27383nncnd 11502 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℂ)
27494zcnd 11937 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
275197, 274mulcld 10507 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) ∈ ℂ)
276196nnne0d 11535 . . . . . . . . 9 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277273, 275, 197, 276divassd 11299 . . . . . . . 8 (𝜑 → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))))
278277adantr 481 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))))
279274, 197, 276divcan3d 11269 . . . . . . . . 9 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
280279oveq2d 7032 . . . . . . . 8 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
281280adantr 481 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
282272, 278, 2813eqtrd 2835 . . . . . 6 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2832823ad2ant1 1126 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
284239, 283breqtrrd 4990 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
285284rexlimdv3a 3249 . . 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 481 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ 0)
288 simpr 485 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289288iftrued 4389 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
290 simpr 485 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → ¬ (𝑃 − 1) < (𝐷‘0))
291290iffalsed 4392 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292 simpll 763 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293244ad2antrr 722 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
29460ad2antrr 722 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295293, 294, 290nltled 10637 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296 id 22 . . . . . . . . . . . . . . 15 ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297296necomd 3039 . . . . . . . . . . . . . 14 ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298297ad2antlr 723 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299293, 294, 295, 298leneltd 10641 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
30089oveq1d 7031 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301300adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302243elfzelzd 41123 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐷‘0) ∈ ℤ)
303164, 302zsubcld 11941 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304303adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305 simpr 485 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) < (𝑃 − 1))
306244adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
30760adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
308306, 307posdifd 11075 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309305, 308mpbid 233 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310 elnnz 11839 . . . . . . . . . . . . . . . . 17 (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311304, 309, 310sylanbrc 583 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
3123110expd 13353 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313301, 312eqtrd 2831 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314313oveq2d 7032 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315197adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316311nnnn0d 11803 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ0)
317316faccld 13494 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318317nncnd 11502 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319317nnne0d 11535 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320315, 318, 319divcld 11264 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321320mul01d 10686 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322314, 321eqtrd 2831 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323292, 299, 322syl2anc 584 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324291, 323eqtrd 2831 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325289, 324pm2.61dan 809 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326325oveq1d 7031 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
327274mul02d 10685 . . . . . . . . 9 (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
328327adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
329326, 328eqtrd 2831 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
330329oveq2d 7032 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0))
331273mul01d 10686 . . . . . . 7 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
332331adantr 481 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
333330, 332eqtrd 2831 . . . . 5 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = 0)
334333oveq1d 7031 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335197, 276div0d 11263 . . . . 5 (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336335adantr 481 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337334, 336eqtrd 2831 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338287, 337breqtrrd 4990 . 2 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
339286, 338pm2.61dane 3072 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 396  wo 842  w3a 1080   = wceq 1522  wcel 2081  wne 2984  wral 3105  wrex 3106  {crab 3109  Vcvv 3437  cdif 3856  wss 3859  ifcif 4381  {csn 4472   class class class wbr 4962  cmpt 5041  wf 6221  cfv 6225  (class class class)co 7016  𝑚 cmap 8256  Fincfn 8357  cc 10381  cr 10382  0cc0 10383  1c1 10384   + caddc 10386   · cmul 10388   < clt 10521  cle 10522  cmin 10717   / cdiv 11145  cn 11486  0cn0 11745  cz 11829  cuz 12093  ...cfz 12742  cexp 13279  !cfa 13483  Σcsu 14876  cprod 15092  cdvds 15440
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319  ax-inf2 8950  ax-cnex 10439  ax-resscn 10440  ax-1cn 10441  ax-icn 10442  ax-addcl 10443  ax-addrcl 10444  ax-mulcl 10445  ax-mulrcl 10446  ax-mulcom 10447  ax-addass 10448  ax-mulass 10449  ax-distr 10450  ax-i2m1 10451  ax-1ne0 10452  ax-1rid 10453  ax-rnegex 10454  ax-rrecex 10455  ax-cnre 10456  ax-pre-lttri 10457  ax-pre-lttrn 10458  ax-pre-ltadd 10459  ax-pre-mulgt0 10460  ax-pre-sup 10461
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1081  df-3an 1082  df-tru 1525  df-fal 1535  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-nel 3091  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-pss 3876  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-tp 4477  df-op 4479  df-uni 4746  df-int 4783  df-iun 4827  df-br 4963  df-opab 5025  df-mpt 5042  df-tr 5064  df-id 5348  df-eprel 5353  df-po 5362  df-so 5363  df-fr 5402  df-se 5403  df-we 5404  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-pred 6023  df-ord 6069  df-on 6070  df-lim 6071  df-suc 6072  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-isom 6234  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-om 7437  df-1st 7545  df-2nd 7546  df-wrecs 7798  df-recs 7860  df-rdg 7898  df-1o 7953  df-oadd 7957  df-er 8139  df-map 8258  df-en 8358  df-dom 8359  df-sdom 8360  df-fin 8361  df-sup 8752  df-oi 8820  df-card 9214  df-pnf 10523  df-mnf 10524  df-xr 10525  df-ltxr 10526  df-le 10527  df-sub 10719  df-neg 10720  df-div 11146  df-nn 11487  df-2 11548  df-3 11549  df-n0 11746  df-z 11830  df-uz 12094  df-rp 12240  df-fz 12743  df-fzo 12884  df-seq 13220  df-exp 13280  df-fac 13484  df-bc 13513  df-hash 13541  df-cj 14292  df-re 14293  df-im 14294  df-sqrt 14428  df-abs 14429  df-clim 14679  df-sum 14877  df-prod 15093  df-dvds 15441
This theorem is referenced by:  etransclem38  42099
  Copyright terms: Public domain W3C validator