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 39782
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 39770 . . . . . . . 8 (𝜑 → (𝐶𝐼) = {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
51, 4eleqtrd 2700 . . . . . . 7 (𝜑𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼})
6 fveq1 6147 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
76sumeq2ad 39201 . . . . . . . . 9 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
87eqeq1d 2623 . . . . . . . 8 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
98elrab 3346 . . . . . . 7 (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
105, 9sylib 208 . . . . . 6 (𝜑 → (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼))
1110simprd 479 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
1211ad2antrr 761 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
13 ralnex 2986 . . . . 5 (∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
14 etransclem24.m . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ0)
15 nn0uz 11666 . . . . . . . . . . 11 0 = (ℤ‘0)
1614, 15syl6eleq 2708 . . . . . . . . . 10 (𝜑𝑀 ∈ (ℤ‘0))
1716ad2antrr 761 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ‘0))
18 fzsscn 38990 . . . . . . . . . . 11 (0...𝐼) ⊆ ℂ
19 ssrab2 3666 . . . . . . . . . . . . . . 15 {𝑐 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝐼} ⊆ ((0...𝐼) ↑𝑚 (0...𝑀))
204, 19syl6eqss 3634 . . . . . . . . . . . . . 14 (𝜑 → (𝐶𝐼) ⊆ ((0...𝐼) ↑𝑚 (0...𝑀)))
2120, 1sseldd 3584 . . . . . . . . . . . . 13 (𝜑𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)))
22 elmapi 7823 . . . . . . . . . . . . 13 (𝐷 ∈ ((0...𝐼) ↑𝑚 (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
2321, 22syl 17 . . . . . . . . . . . 12 (𝜑𝐷:(0...𝑀)⟶(0...𝐼))
2423ffvelrnda 6315 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
2518, 24sseldi 3581 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
2625ad4ant14 1290 . . . . . . . . 9 ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
27 fveq2 6148 . . . . . . . . 9 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
2817, 26, 27fsum1p 14412 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
29 simplr 791 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30 0p1e1 11076 . . . . . . . . . . . . . 14 (0 + 1) = 1
3130oveq1i 6614 . . . . . . . . . . . . 13 ((0 + 1)...𝑀) = (1...𝑀)
3231sumeq1i 14362 . . . . . . . . . . . 12 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
3332a1i 11 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
34 fveq2 6148 . . . . . . . . . . . . . . . . 17 (𝑘 = 𝑗 → (𝐷𝑘) = (𝐷𝑗))
3534eleq1d 2683 . . . . . . . . . . . . . . . 16 (𝑘 = 𝑗 → ((𝐷𝑘) ∈ ℕ ↔ (𝐷𝑗) ∈ ℕ))
3635notbid 308 . . . . . . . . . . . . . . 15 (𝑘 = 𝑗 → (¬ (𝐷𝑘) ∈ ℕ ↔ ¬ (𝐷𝑗) ∈ ℕ))
3736rspccva 3294 . . . . . . . . . . . . . 14 ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
3837adantll 749 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷𝑗) ∈ ℕ)
39 fzssnn0 38997 . . . . . . . . . . . . . . . 16 (0...𝐼) ⊆ ℕ0
40 fz1ssfz0 38988 . . . . . . . . . . . . . . . . . 18 (1...𝑀) ⊆ (0...𝑀)
4140sseli 3579 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
4241, 24sylan2 491 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...𝐼))
4339, 42sseldi 3581 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℕ0)
44 elnn0 11238 . . . . . . . . . . . . . . 15 ((𝐷𝑗) ∈ ℕ0 ↔ ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4543, 44sylib 208 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
4645adantlr 750 . . . . . . . . . . . . 13 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0))
47 orel1 397 . . . . . . . . . . . . 13 (¬ (𝐷𝑗) ∈ ℕ → (((𝐷𝑗) ∈ ℕ ∨ (𝐷𝑗) = 0) → (𝐷𝑗) = 0))
4838, 46, 47sylc 65 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
4948sumeq2dv 14367 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50 fzfi 12711 . . . . . . . . . . . . 13 (1...𝑀) ∈ Fin
5150olci 406 . . . . . . . . . . . 12 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
52 sumz 14386 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5351, 52mp1i 13 . . . . . . . . . . 11 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
5433, 49, 533eqtrd 2659 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5554adantlr 750 . . . . . . . . 9 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
5629, 55oveq12d 6622 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
57 etransclem24.p . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℕ)
58 nnm1nn0 11278 . . . . . . . . . . . . 13 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
5957, 58syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑃 − 1) ∈ ℕ0)
6059nn0red 11296 . . . . . . . . . . 11 (𝜑 → (𝑃 − 1) ∈ ℝ)
6160recnd 10012 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ ℂ)
6261addid1d 10180 . . . . . . . . 9 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
6362ad2antrr 761 . . . . . . . 8 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
6428, 56, 633eqtrd 2659 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
65 etransclem24.ip . . . . . . . . 9 (𝜑𝐼 ≠ (𝑃 − 1))
6665necomd 2845 . . . . . . . 8 (𝜑 → (𝑃 − 1) ≠ 𝐼)
6766ad2antrr 761 . . . . . . 7 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
6864, 67eqnetrd 2857 . . . . . 6 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) ≠ 𝐼)
6968neneqd 2795 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7013, 69sylan2br 493 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = 𝐼)
7112, 70condan 834 . . 3 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷𝑘) ∈ ℕ)
7257nnzd 11425 . . . . . . . . 9 (𝜑𝑃 ∈ ℤ)
7311eqcomd 2627 . . . . . . . . . . . . 13 (𝜑𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
7473fveq2d 6152 . . . . . . . . . . . 12 (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)))
7574oveq1d 6619 . . . . . . . . . . 11 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
76 nfcv 2761 . . . . . . . . . . . 12 𝑗𝐷
77 fzfid 12712 . . . . . . . . . . . 12 (𝜑 → (0...𝑀) ∈ Fin)
78 nn0ex 11242 . . . . . . . . . . . . . 14 0 ∈ V
79 mapss 7844 . . . . . . . . . . . . . 14 ((ℕ0 ∈ V ∧ (0...𝐼) ⊆ ℕ0) → ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀)))
8078, 39, 79mp2an 707 . . . . . . . . . . . . 13 ((0...𝐼) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀))
8180, 21sseldi 3581 . . . . . . . . . . . 12 (𝜑𝐷 ∈ (ℕ0𝑚 (0...𝑀)))
8276, 77, 81mccl 39234 . . . . . . . . . . 11 (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8375, 82eqeltrd 2698 . . . . . . . . . 10 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℕ)
8483nnzd 11425 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ)
85 fzfid 12712 . . . . . . . . . 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 11333 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ ℤ)
9189, 90eqeltrd 2698 . . . . . . . . . . . 12 (𝜑𝐽 ∈ ℤ)
9291adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
9386, 87, 88, 92etransclem3 39761 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9485, 93fprodzcl 14609 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
9572, 84, 943jca 1240 . . . . . . . 8 (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
96953ad2ant1 1080 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
9772adantr 481 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℤ)
9857adantr 481 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
9923adantr 481 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
10040sseli 3579 . . . . . . . . . . . . 13 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101100adantl 482 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
10291adantr 481 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
10398, 99, 101, 102etransclem3 39761 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ)
104 difss 3715 . . . . . . . . . . . . . . 15 ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105 ssfi 8124 . . . . . . . . . . . . . . 15 (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10650, 104, 105mp2an 707 . . . . . . . . . . . . . 14 ((1...𝑀) ∖ {𝑘}) ∈ Fin
107106a1i 11 . . . . . . . . . . . . 13 (𝜑 → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
10857adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑃 ∈ ℕ)
10923adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐷:(0...𝑀)⟶(0...𝐼))
110104, 40sstri 3592 . . . . . . . . . . . . . . . 16 ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111110sseli 3579 . . . . . . . . . . . . . . 15 (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112111adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
11391adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114108, 109, 112, 113etransclem3 39761 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
115107, 114fprodzcl 14609 . . . . . . . . . . . 12 (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
116115adantr 481 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ)
11797, 103, 1163jca 1240 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
1181173adant3 1079 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ))
119 dvds0 14921 . . . . . . . . . . . . . 14 (𝑃 ∈ ℤ → 𝑃 ∥ 0)
12072, 119syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∥ 0)
121120adantr 481 . . . . . . . . . . . 12 ((𝜑𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
1221213ad2antl1 1221 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ 0)
123 iftrue 4064 . . . . . . . . . . . . 13 (𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = 0)
124123eqcomd 2627 . . . . . . . . . . . 12 (𝑃 < (𝐷𝑘) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
125124adantl 482 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 0 = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
126122, 125breqtrd 4639 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
12797adantr 481 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
128 0zd 11333 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
12999, 101ffvelrnd 6316 . . . . . . . . . . . . . . . . . . . . . 22 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ (0...𝐼))
130129elfzelzd 38994 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℤ)
13197, 130zsubcld 11431 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
132128, 97, 1313jca 1240 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
133132adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
134 fzssre 38993 . . . . . . . . . . . . . . . . . . . . . 22 (0...𝐼) ⊆ ℝ
135134, 129sseldi 3581 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐷𝑘) ∈ ℝ)
136135adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ∈ ℝ)
137127zred 11426 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℝ)
138 simpr 477 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ¬ 𝑃 < (𝐷𝑘))
139136, 137, 138nltled 10131 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐷𝑘) ≤ 𝑃)
140137, 136subge0d 10561 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝑃 − (𝐷𝑘)) ↔ (𝐷𝑘) ≤ 𝑃))
141139, 140mpbird 247 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
142 elfzle1 12286 . . . . . . . . . . . . . . . . . . . . 21 ((𝐷𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷𝑘))
143129, 142syl 17 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷𝑘))
144143adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝐷𝑘))
145137, 136subge02d 10563 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ≤ (𝐷𝑘) ↔ (𝑃 − (𝐷𝑘)) ≤ 𝑃))
146144, 145mpbid 222 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ 𝑃)
147133, 141, 146jca32 557 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
148 elfz2 12275 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ 𝑃)))
149147, 148sylibr 224 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...𝑃))
150 permnn 13053 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
151149, 150syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
152151nnzd 11425 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
153101elfzelzd 38994 . . . . . . . . . . . . . . . . 17 ((𝜑𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154102, 153zsubcld 11431 . . . . . . . . . . . . . . . 16 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐽𝑘) ∈ ℤ)
155154adantr 481 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝐽𝑘) ∈ ℤ)
156131adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℤ)
157 elnn0z 11334 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ ℕ0 ↔ ((𝑃 − (𝐷𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷𝑘))))
158156, 141, 157sylanbrc 697 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ ℕ0)
159 zexpcl 12815 . . . . . . . . . . . . . . 15 (((𝐽𝑘) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℕ0) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
160155, 158, 159syl2anc 692 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ)
161127, 152, 1603jca 1240 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1621613adantl3 1217 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ))
1631273adantl3 1217 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℤ)
16459nn0zd 11424 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (𝑃 − 1) ∈ ℤ)
165164adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166128, 165, 1313jca 1240 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1671663adant3 1079 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
168167adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ))
1691413adantl3 1217 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 0 ≤ (𝑃 − (𝐷𝑘)))
170 1red 9999 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ∈ ℝ)
171 nnre 10971 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → (𝐷𝑘) ∈ ℝ)
172171adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝐷𝑘) ∈ ℝ)
17357nnred 10979 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝑃 ∈ ℝ)
174173adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175 nnge1 10990 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐷𝑘) ∈ ℕ → 1 ≤ (𝐷𝑘))
176175adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → 1 ≤ (𝐷𝑘))
177170, 172, 174, 176lesub2dd 10588 . . . . . . . . . . . . . . . . . . . 20 ((𝜑 ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
1781773adant2 1078 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
179178adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))
180168, 169, 179jca32 557 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
181 elfz2 12275 . . . . . . . . . . . . . . . . 17 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷𝑘)) ∧ (𝑃 − (𝐷𝑘)) ≤ (𝑃 − 1))))
182180, 181sylibr 224 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)))
183 permnn 13053 . . . . . . . . . . . . . . . 16 ((𝑃 − (𝐷𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
184182, 183syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℕ)
185184nnzd 11425 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ)
186 dvdsmul1 14927 . . . . . . . . . . . . . 14 ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
187163, 185, 186syl2anc 692 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
18857nncnd 10980 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑃 ∈ ℂ)
189 1cnd 10000 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → 1 ∈ ℂ)
190188, 189npcand 10340 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191190eqcomd 2627 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑃 = ((𝑃 − 1) + 1))
192191fveq2d 6152 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193 facp1 13005 . . . . . . . . . . . . . . . . . . 19 ((𝑃 − 1) ∈ ℕ0 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
19459, 193syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195190oveq2d 6620 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
19659faccld 13011 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197196nncnd 10980 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198197, 188mulcomd 10005 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199195, 198eqtrd 2655 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200192, 194, 1993eqtrd 2659 . . . . . . . . . . . . . . . . 17 (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201200oveq1d 6619 . . . . . . . . . . . . . . . 16 (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
202201adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
2032023ad2antl1 1221 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))))
204188ad2antrr 761 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∈ ℂ)
205197ad2antrr 761 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206158faccld 13011 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℕ)
207206nncnd 10980 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ∈ ℂ)
208206nnne0d 11009 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → (!‘(𝑃 − (𝐷𝑘))) ≠ 0)
209204, 205, 207, 208divassd 10780 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
2102093adantl3 1217 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))))
211203, 210eqtr2d 2656 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
212187, 211breqtrd 4639 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
213 dvdsmultr1 14943 . . . . . . . . . . . 12 ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) ∈ ℤ ∧ ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
214162, 212, 213sylc 65 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
215 iffalse 4067 . . . . . . . . . . . 12 𝑃 < (𝐷𝑘) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
216215adantl 482 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
217214, 216breqtrrd 4641 . . . . . . . . . 10 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
218126, 217pm2.61dan 831 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
219 dvdsmultr1 14943 . . . . . . . . 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 12712 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → (1...𝑀) ∈ Fin)
22293zcnd 11427 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
2232223ad2antl1 1221 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
224 simp2 1060 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225 fveq2 6148 . . . . . . . . . . . 12 (𝑗 = 𝑘 → (𝐷𝑗) = (𝐷𝑘))
226225breq2d 4625 . . . . . . . . . . 11 (𝑗 = 𝑘 → (𝑃 < (𝐷𝑗) ↔ 𝑃 < (𝐷𝑘)))
227225oveq2d 6620 . . . . . . . . . . . . . 14 (𝑗 = 𝑘 → (𝑃 − (𝐷𝑗)) = (𝑃 − (𝐷𝑘)))
228227fveq2d 6152 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷𝑗))) = (!‘(𝑃 − (𝐷𝑘))))
229228oveq2d 6620 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))))
230 oveq2 6612 . . . . . . . . . . . . 13 (𝑗 = 𝑘 → (𝐽𝑗) = (𝐽𝑘))
231230, 227oveq12d 6622 . . . . . . . . . . . 12 (𝑗 = 𝑘 → ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))) = ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))
232229, 231oveq12d 6622 . . . . . . . . . . 11 (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘)))))
233226, 232ifbieq2d 4083 . . . . . . . . . 10 (𝑗 = 𝑘 → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
234233adantl 482 . . . . . . . . 9 (((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))))
235221, 223, 224, 234fprodsplit1 39229 . . . . . . . 8 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) = (if(𝑃 < (𝐷𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑘)))) · ((𝐽𝑘)↑(𝑃 − (𝐷𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
236220, 235breqtrrd 4641 . . . . . . 7 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
237 dvdsmultr2 14945 . . . . . . 7 ((𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℤ) → (𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
23896, 236, 237sylc 65 . . . . . 6 ((𝜑𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2392383adant1r 1316 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
240 simpr 477 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241 eluzfz1 12290 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
24216, 241syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ∈ (0...𝑀))
24323, 242ffvelrnd 6316 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244134, 243sseldi 3581 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐷‘0) ∈ ℝ)
245244adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
24660adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247245, 246lttri3d 10121 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248240, 247mpbid 222 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249248simprd 479 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250249iffalsed 4069 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251 oveq2 6612 . . . . . . . . . . . . . . . . 17 ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
25261subidd 10324 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253251, 252sylan9eqr 2677 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254253fveq2d 6152 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255 fac0 13003 . . . . . . . . . . . . . . 15 (!‘0) = 1
256254, 255syl6eq 2671 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257256oveq2d 6620 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258197div1d 10737 . . . . . . . . . . . . . 14 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259258adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260257, 259eqtrd 2655 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261253oveq2d 6620 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
26291zcnd 11427 . . . . . . . . . . . . . . 15 (𝜑𝐽 ∈ ℂ)
263262exp0d 12942 . . . . . . . . . . . . . 14 (𝜑 → (𝐽↑0) = 1)
264263adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265261, 264eqtrd 2655 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266260, 265oveq12d 6622 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267197mulid1d 10001 . . . . . . . . . . . 12 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268267adantr 481 . . . . . . . . . . 11 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269250, 266, 2683eqtrd 2659 . . . . . . . . . 10 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270269oveq1d 6619 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
271270oveq2d 6620 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))))
272271oveq1d 6619 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
27383nncnd 10980 . . . . . . . . 9 (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) ∈ ℂ)
27494zcnd 11427 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))) ∈ ℂ)
275197, 274mulcld 10004 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) ∈ ℂ)
276196nnne0d 11009 . . . . . . . . 9 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277273, 275, 197, 276divassd 10780 . . . . . . . 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 10750 . . . . . . . . 9 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))
280279oveq2d 6620 . . . . . . . 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 2659 . . . . . 6 ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
2832823ad2ant1 1080 . . . . 5 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
284239, 283breqtrrd 4641 . . . 4 (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
285284rexlimdv3a 3026 . . 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 477 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289288iftrued 4066 . . . . . . . . . 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 4069 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292 simpll 789 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293244ad2antrr 761 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
29460ad2antrr 761 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295293, 294, 290nltled 10131 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296 id 22 . . . . . . . . . . . . . . 15 ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297296necomd 2845 . . . . . . . . . . . . . 14 ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298297ad2antlr 762 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299293, 294, 295, 298leneltd 10135 . . . . . . . . . . . 12 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
30089oveq1d 6619 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301300adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302243elfzelzd 38994 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐷‘0) ∈ ℤ)
303164, 302zsubcld 11431 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304303adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305 simpr 477 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) < (𝑃 − 1))
306244adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
30760adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
308306, 307posdifd 10558 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309305, 308mpbid 222 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310 elnnz 11331 . . . . . . . . . . . . . . . . 17 (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311304, 309, 310sylanbrc 697 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
3123110expd 12964 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313301, 312eqtrd 2655 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314313oveq2d 6620 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315197adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316311nnnn0d 11295 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ0)
317316faccld 13011 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318317nncnd 10980 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319317nnne0d 11009 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320315, 318, 319divcld 10745 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321320mul01d 10179 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322314, 321eqtrd 2655 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323292, 299, 322syl2anc 692 . . . . . . . . . . 11 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324291, 323eqtrd 2655 . . . . . . . . . 10 (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325289, 324pm2.61dan 831 . . . . . . . . 9 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326325oveq1d 6619 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))))
327274mul02d 10178 . . . . . . . . 9 (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
328327adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
329326, 328eqtrd 2655 . . . . . . 7 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗)))))) = 0)
330329oveq2d 6620 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0))
331273mul01d 10179 . . . . . . 7 (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
332331adantr 481 . . . . . 6 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · 0) = 0)
333330, 332eqtrd 2655 . . . . 5 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) = 0)
334333oveq1d 6619 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335197, 276div0d 10744 . . . . 5 (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336335adantr 481 . . . 4 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337334, 336eqtrd 2655 . . 3 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338287, 337breqtrrd 4641 . 2 ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((𝐽𝑗)↑(𝑃 − (𝐷𝑗))))))) / (!‘(𝑃 − 1))))
339286, 338pm2.61dane 2877 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  wo 383  wa 384  w3a 1036   = wceq 1480  wcel 1987  wne 2790  wral 2907  wrex 2908  {crab 2911  Vcvv 3186  cdif 3552  wss 3555  ifcif 4058  {csn 4148   class class class wbr 4613  cmpt 4673  wf 5843  cfv 5847  (class class class)co 6604  𝑚 cmap 7802  Fincfn 7899  cc 9878  cr 9879  0cc0 9880  1c1 9881   + caddc 9883   · cmul 9885   < clt 10018  cle 10019  cmin 10210   / cdiv 10628  cn 10964  0cn0 11236  cz 11321  cuz 11631  ...cfz 12268  cexp 12800  !cfa 13000  Σcsu 14350  cprod 14560  cdvds 14907
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4731  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902  ax-inf2 8482  ax-cnex 9936  ax-resscn 9937  ax-1cn 9938  ax-icn 9939  ax-addcl 9940  ax-addrcl 9941  ax-mulcl 9942  ax-mulrcl 9943  ax-mulcom 9944  ax-addass 9945  ax-mulass 9946  ax-distr 9947  ax-i2m1 9948  ax-1ne0 9949  ax-1rid 9950  ax-rnegex 9951  ax-rrecex 9952  ax-cnre 9953  ax-pre-lttri 9954  ax-pre-lttrn 9955  ax-pre-ltadd 9956  ax-pre-mulgt0 9957  ax-pre-sup 9958
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-pss 3571  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-tp 4153  df-op 4155  df-uni 4403  df-int 4441  df-iun 4487  df-br 4614  df-opab 4674  df-mpt 4675  df-tr 4713  df-eprel 4985  df-id 4989  df-po 4995  df-so 4996  df-fr 5033  df-se 5034  df-we 5035  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-pred 5639  df-ord 5685  df-on 5686  df-lim 5687  df-suc 5688  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-isom 5856  df-riota 6565  df-ov 6607  df-oprab 6608  df-mpt2 6609  df-om 7013  df-1st 7113  df-2nd 7114  df-wrecs 7352  df-recs 7413  df-rdg 7451  df-1o 7505  df-oadd 7509  df-er 7687  df-map 7804  df-en 7900  df-dom 7901  df-sdom 7902  df-fin 7903  df-sup 8292  df-oi 8359  df-card 8709  df-pnf 10020  df-mnf 10021  df-xr 10022  df-ltxr 10023  df-le 10024  df-sub 10212  df-neg 10213  df-div 10629  df-nn 10965  df-2 11023  df-3 11024  df-n0 11237  df-z 11322  df-uz 11632  df-rp 11777  df-fz 12269  df-fzo 12407  df-seq 12742  df-exp 12801  df-fac 13001  df-bc 13030  df-hash 13058  df-cj 13773  df-re 13774  df-im 13775  df-sqrt 13909  df-abs 13910  df-clim 14153  df-sum 14351  df-prod 14561  df-dvds 14908
This theorem is referenced by:  etransclem38  39796
  Copyright terms: Public domain W3C validator