etransclem24 - Mathbox for Glauco Siliprandi

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

Theorem etransclem24 46686

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	⊢ (𝜑 → 𝑀 ∈ ℕ₀)
etransclem24.i	⊢ (𝜑 → 𝐼 ∈ ℕ₀)
etransclem24.ip	⊢ (𝜑 → 𝐼 ≠ (𝑃 − 1))
etransclem24.j	⊢ (𝜑 → 𝐽 = 0)
etransclem24.c	⊢ 𝐶 = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m (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.

Step	Hyp	Ref	Expression
1		etransclem24.d	. . . . . . . 8 ⊢ (𝜑 → 𝐷 ∈ (𝐶‘𝐼))
2		etransclem24.c	. . . . . . . . 9 ⊢ 𝐶 = (𝑛 ∈ ℕ₀ ↦ {𝑐 ∈ ((0...𝑛) ↑_m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝑛})
3		etransclem24.i	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ∈ ℕ₀)
4	2, 3	etransclem12 46674	. . . . . . . 8 ⊢ (𝜑 → (𝐶‘𝐼) = {𝑐 ∈ ((0...𝐼) ↑_m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼})
5	1, 4	eleqtrd 2838	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑_m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼})
6		fveq1 6839	. . . . . . . . . 10 ⊢ (𝑐 = 𝐷 → (𝑐‘𝑗) = (𝐷‘𝑗))
7	6	sumeq2sdv 15665	. . . . . . . . 9 ⊢ (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗))
8	7	eqeq1d 2738	. . . . . . . 8 ⊢ (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
9	8	elrab 3634	. . . . . . 7 ⊢ (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑_m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑_m (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
10	5, 9	sylib 218	. . . . . 6 ⊢ (𝜑 → (𝐷 ∈ ((0...𝐼) ↑_m (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
11	10	simprd 495	. . . . 5 ⊢ (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
12	11	ad2antrr 727	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
13		ralnex 3063	. . . . 5 ⊢ (∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ)
14		etransclem24.m	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
15		nn0uz 12826	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
16	14, 15	eleqtrdi 2846	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘0))
17	16	ad2antrr 727	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ_≥‘0))
18		fzsscn 45744	. . . . . . . . . . 11 ⊢ (0...𝐼) ⊆ ℂ
19		ssrab2 4020	. . . . . . . . . . . . . . 15 ⊢ {𝑐 ∈ ((0...𝐼) ↑_m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼} ⊆ ((0...𝐼) ↑_m (0...𝑀))
20	4, 19	eqsstrdi 3966	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐶‘𝐼) ⊆ ((0...𝐼) ↑_m (0...𝑀)))
21	20, 1	sseldd 3922	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ((0...𝐼) ↑_m (0...𝑀)))
22		elmapi 8796	. . . . . . . . . . . . 13 ⊢ (𝐷 ∈ ((0...𝐼) ↑_m (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
23	21, 22	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷:(0...𝑀)⟶(0...𝐼))
24	23	ffvelcdmda 7036	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ (0...𝐼))
25	18, 24	sselid 3919	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ ℂ)
26	25	ad4ant14 753	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ ℂ)
27		fveq2 6840	. . . . . . . . 9 ⊢ (𝑗 = 0 → (𝐷‘𝑗) = (𝐷‘0))
28	17, 26, 27	fsum1p 15715	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗)))
29		simplr 769	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30		0p1e1 12298	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
31	30	oveq1i 7377	. . . . . . . . . . . . 13 ⊢ ((0 + 1)...𝑀) = (1...𝑀)
32	31	sumeq1i 15659	. . . . . . . . . . . 12 ⊢ Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗)
33	32	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗))
34		fveq2 6840	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑗 → (𝐷‘𝑘) = (𝐷‘𝑗))
35	34	eleq1d 2821	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑗 → ((𝐷‘𝑘) ∈ ℕ ↔ (𝐷‘𝑗) ∈ ℕ))
36	35	notbid 318	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑗 → (¬ (𝐷‘𝑘) ∈ ℕ ↔ ¬ (𝐷‘𝑗) ∈ ℕ))
37	36	rspccva 3563	. . . . . . . . . . . . . 14 ⊢ ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷‘𝑗) ∈ ℕ)
38	37	adantll 715	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷‘𝑗) ∈ ℕ)
39		fzssnn0 45749	. . . . . . . . . . . . . . . 16 ⊢ (0...𝐼) ⊆ ℕ₀
40		fz1ssfz0 13577	. . . . . . . . . . . . . . . . . 18 ⊢ (1...𝑀) ⊆ (0...𝑀)
41	40	sseli 3917	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
42	41, 24	sylan2 594	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) ∈ (0...𝐼))
43	39, 42	sselid 3919	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) ∈ ℕ₀)
44		elnn0 12439	. . . . . . . . . . . . . . 15 ⊢ ((𝐷‘𝑗) ∈ ℕ₀ ↔ ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
45	43, 44	sylib 218	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
46	45	adantlr 716	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
47		orel1 889	. . . . . . . . . . . . 13 ⊢ (¬ (𝐷‘𝑗) ∈ ℕ → (((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0) → (𝐷‘𝑗) = 0))
48	38, 46, 47	sylc 65	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) = 0)
49	48	sumeq2dv 15664	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50		fzfi 13934	. . . . . . . . . . . . 13 ⊢ (1...𝑀) ∈ Fin
51	50	olci 867	. . . . . . . . . . . 12 ⊢ ((1...𝑀) ⊆ (ℤ_≥‘𝐴) ∨ (1...𝑀) ∈ Fin)
52		sumz 15684	. . . . . . . . . . . 12 ⊢ (((1...𝑀) ⊆ (ℤ_≥‘𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
53	51, 52	mp1i 13	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
54	33, 49, 53	3eqtrd 2775	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = 0)
55	54	adantlr 716	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = 0)
56	29, 55	oveq12d 7385	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗)) = ((𝑃 − 1) + 0))
57		etransclem24.p	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∈ ℕ)
58		nnm1nn0 12478	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ₀)
59	57, 58	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 − 1) ∈ ℕ₀)
60	59	nn0red 12499	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 − 1) ∈ ℝ)
61	60	recnd 11173	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 − 1) ∈ ℂ)
62	61	addridd 11346	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
63	62	ad2antrr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
64	28, 56, 63	3eqtrd 2775	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = (𝑃 − 1))
65		etransclem24.ip	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ≠ (𝑃 − 1))
66	65	necomd 2987	. . . . . . . 8 ⊢ (𝜑 → (𝑃 − 1) ≠ 𝐼)
67	66	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
68	64, 67	eqnetrd 2999	. . . . . 6 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) ≠ 𝐼)
69	68	neneqd 2937	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
70	13, 69	sylan2br 596	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
71	12, 70	condan 818	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ)
72	57	nnzd 12550	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
73	11	eqcomd 2742	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗))
74	73	fveq2d 6844	. . . . . . . . . . . 12 ⊢ (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)))
75	74	oveq1d 7382	. . . . . . . . . . 11 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))))
76		nfcv 2898	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗𝐷
77		fzfid 13935	. . . . . . . . . . . 12 ⊢ (𝜑 → (0...𝑀) ∈ Fin)
78		nn0ex 12443	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
79		mapss 8837	. . . . . . . . . . . . . 14 ⊢ ((ℕ₀ ∈ V ∧ (0...𝐼) ⊆ ℕ₀) → ((0...𝐼) ↑_m (0...𝑀)) ⊆ (ℕ₀ ↑_m (0...𝑀)))
80	78, 39, 79	mp2an 693	. . . . . . . . . . . . 13 ⊢ ((0...𝐼) ↑_m (0...𝑀)) ⊆ (ℕ₀ ↑_m (0...𝑀))
81	80, 21	sselid 3919	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (ℕ₀ ↑_m (0...𝑀)))
82	76, 77, 81	mccl 46028	. . . . . . . . . . 11 ⊢ (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℕ)
83	75, 82	eqeltrd 2836	. . . . . . . . . 10 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℕ)
84	83	nnzd 12550	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ)
85		fzfid 13935	. . . . . . . . . 10 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
86	57	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
87	23	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
88	41	adantl 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
89		etransclem24.j	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐽 = 0)
90		0zd 12536	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ ℤ)
91	89, 90	eqeltrd 2836	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ∈ ℤ)
92	91	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
93	86, 87, 88, 92	etransclem3 46665	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
94	85, 93	fprodzcl 15919	. . . . . . . . 9 ⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
95	72, 84, 94	3jca 1129	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
96	95	3ad2ant1 1134	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
97	72	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℤ)
98	57	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
99	23	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
100	40	sseli 3917	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101	100	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
102	91	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
103	98, 99, 101, 102	etransclem3 46665	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ)
104		difss 4076	. . . . . . . . . . . . . . 15 ⊢ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105		ssfi 9107	. . . . . . . . . . . . . . 15 ⊢ (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
106	50, 104, 105	mp2an 693	. . . . . . . . . . . . . 14 ⊢ ((1...𝑀) ∖ {𝑘}) ∈ Fin
107	106	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
108	57	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑃 ∈ ℕ)
109	23	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐷:(0...𝑀)⟶(0...𝐼))
110	104, 40	sstri 3931	. . . . . . . . . . . . . . . 16 ⊢ ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111	110	sseli 3917	. . . . . . . . . . . . . . 15 ⊢ (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112	111	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
113	91	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114	108, 109, 112, 113	etransclem3 46665	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
115	107, 114	fprodzcl 15919	. . . . . . . . . . . 12 ⊢ (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
116	115	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
117	97, 103, 116	3jca 1129	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
118	117	3adant3 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
119		dvds0 16240	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ ℤ → 𝑃 ∥ 0)
120	72, 119	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∥ 0)
121	120	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ 0)
122	121	3ad2antl1 1187	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ 0)
123		iftrue 4472	. . . . . . . . . . . . 13 ⊢ (𝑃 < (𝐷‘𝑘) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = 0)
124	123	eqcomd 2742	. . . . . . . . . . . 12 ⊢ (𝑃 < (𝐷‘𝑘) → 0 = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
125	124	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 0 = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
126	122, 125	breqtrd 5111	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
127	97	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℤ)
128		0zd 12536	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
129	99, 101	ffvelcdmd 7037	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ (0...𝐼))
130	129	elfzelzd 13479	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ ℤ)
131	97, 130	zsubcld 12638	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷‘𝑘)) ∈ ℤ)
132	128, 97, 131	3jca 1129	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
133	132	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
134		fzssre 45747	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...𝐼) ⊆ ℝ
135	134, 129	sselid 3919	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ ℝ)
136	135	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐷‘𝑘) ∈ ℝ)
137	127	zred 12633	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℝ)
138		simpr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ¬ 𝑃 < (𝐷‘𝑘))
139	136, 137, 138	nltled 11296	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐷‘𝑘) ≤ 𝑃)
140	137, 136	subge0d 11740	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ≤ (𝑃 − (𝐷‘𝑘)) ↔ (𝐷‘𝑘) ≤ 𝑃))
141	139, 140	mpbird 257	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝑃 − (𝐷‘𝑘)))
142		elfzle1 13481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐷‘𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷‘𝑘))
143	129, 142	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷‘𝑘))
144	143	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝐷‘𝑘))
145	137, 136	subge02d 11742	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ≤ (𝐷‘𝑘) ↔ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃))
146	144, 145	mpbid 232	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)
147	133, 141, 146	jca32 515	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)))
148		elfz2 13468	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)))
149	147, 148	sylibr 234	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃))
150		permnn 14288	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
151	149, 150	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
152	151	nnzd 12550	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ)
153	101	elfzelzd 13479	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154	102, 153	zsubcld 12638	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐽 − 𝑘) ∈ ℤ)
155	154	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐽 − 𝑘) ∈ ℤ)
156	131	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ ℤ)
157		elnn0z 12537	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ ℕ₀ ↔ ((𝑃 − (𝐷‘𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷‘𝑘))))
158	156, 141, 157	sylanbrc 584	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ ℕ₀)
159		zexpcl 14038	. . . . . . . . . . . . . . 15 ⊢ (((𝐽 − 𝑘) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℕ₀) → ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ)
160	155, 158, 159	syl2anc 585	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ)
161	127, 152, 160	3jca 1129	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ))
162	161	3adantl3 1170	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ))
163	127	3adantl3 1170	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℤ)
164	59	nn0zd 12549	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃 − 1) ∈ ℤ)
165	164	adantr 480	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166	128, 165, 131	3jca 1129	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
167	166	3adant3 1133	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
168	167	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
169	141	3adantl3 1170	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝑃 − (𝐷‘𝑘)))
170		1red 11145	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 1 ∈ ℝ)
171		nnre 12181	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐷‘𝑘) ∈ ℕ → (𝐷‘𝑘) ∈ ℝ)
172	171	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → (𝐷‘𝑘) ∈ ℝ)
173	57	nnred 12189	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑃 ∈ ℝ)
174	173	adantr 480	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175		nnge1 12205	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐷‘𝑘) ∈ ℕ → 1 ≤ (𝐷‘𝑘))
176	175	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 1 ≤ (𝐷‘𝑘))
177	170, 172, 174, 176	lesub2dd 11767	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
178	177	3adant2 1132	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
179	178	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
180	168, 169, 179	jca32 515	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))))
181		elfz2 13468	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))))
182	180, 181	sylibr 234	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)))
183		permnn 14288	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
184	182, 183	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
185	184	nnzd 12550	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ)
186		dvdsmul1 16246	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
187	163, 185, 186	syl2anc 585	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
188	57	nncnd 12190	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑃 ∈ ℂ)
189		1cnd 11139	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ∈ ℂ)
190	188, 189	npcand 11509	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191	190	eqcomd 2742	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 = ((𝑃 − 1) + 1))
192	191	fveq2d 6844	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193		facp1 14240	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 − 1) ∈ ℕ₀ → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
194	59, 193	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195	190	oveq2d 7383	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
196	59	faccld 14246	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197	196	nncnd 12190	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198	197, 188	mulcomd 11166	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199	195, 198	eqtrd 2771	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200	192, 194, 199	3eqtrd 2775	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201	200	oveq1d 7382	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
202	201	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
203	202	3ad2antl1 1187	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
204	188	ad2antrr 727	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℂ)
205	197	ad2antrr 727	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206	158	faccld 14246	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ∈ ℕ)
207	206	nncnd 12190	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ∈ ℂ)
208	206	nnne0d 12227	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ≠ 0)
209	204, 205, 207, 208	divassd 11966	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
210	209	3adantl3 1170	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
211	203, 210	eqtr2d 2772	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
212	187, 211	breqtrd 5111	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
213		dvdsmultr1 16265	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
214	162, 212, 213	sylc 65	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
215		iffalse 4475	. . . . . . . . . . . 12 ⊢ (¬ 𝑃 < (𝐷‘𝑘) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
216	215	adantl 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
217	214, 216	breqtrrd 5113	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
218	126, 217	pm2.61dan 813	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
219		dvdsmultr1 16265	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ) → (𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) → 𝑃 ∥ (if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))))
220	118, 218, 219	sylc 65	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ (if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
221		fzfid 13935	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (1...𝑀) ∈ Fin)
222	93	zcnd 12634	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
223	222	3ad2antl1 1187	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
224		simp2 1138	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225		fveq2 6840	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → (𝐷‘𝑗) = (𝐷‘𝑘))
226	225	breq2d 5097	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑘 → (𝑃 < (𝐷‘𝑗) ↔ 𝑃 < (𝐷‘𝑘)))
227	225	oveq2d 7383	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑘 → (𝑃 − (𝐷‘𝑗)) = (𝑃 − (𝐷‘𝑘)))
228	227	fveq2d 6844	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷‘𝑗))) = (!‘(𝑃 − (𝐷‘𝑘))))
229	228	oveq2d 7383	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
230		oveq2 7375	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑘 → (𝐽 − 𝑗) = (𝐽 − 𝑘))
231	230, 227	oveq12d 7385	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))) = ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))
232	229, 231	oveq12d 7385	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
233	226, 232	ifbieq2d 4493	. . . . . . . . . 10 ⊢ (𝑗 = 𝑘 → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
234	233	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
235	221, 223, 224, 234	fprodsplit1 46023	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = (if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
236	220, 235	breqtrrd 5113	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))
237		dvdsmultr2 16267	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ) → (𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))))
238	96, 236, 237	sylc 65	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
239	238	3adant1r 1179	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
240		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241		eluzfz1 13485	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑀))
242	16, 241	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 0 ∈ (0...𝑀))
243	23, 242	ffvelcdmd 7037	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244	134, 243	sselid 3919	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐷‘0) ∈ ℝ)
245	244	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
246	60	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247	245, 246	lttri3d 11286	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248	240, 247	mpbid 232	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249	248	simprd 495	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250	249	iffalsed 4477	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251		oveq2 7375	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
252	61	subidd 11493	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253	251, 252	sylan9eqr 2793	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254	253	fveq2d 6844	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255		fac0 14238	. . . . . . . . . . . . . . 15 ⊢ (!‘0) = 1
256	254, 255	eqtrdi 2787	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257	256	oveq2d 7383	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258	197	div1d 11923	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259	258	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260	257, 259	eqtrd 2771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261	253	oveq2d 7383	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
262	91	zcnd 12634	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ∈ ℂ)
263	262	exp0d 14102	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽↑0) = 1)
264	263	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265	261, 264	eqtrd 2771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266	260, 265	oveq12d 7385	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267	197	mulridd 11162	. . . . . . . . . . . 12 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268	267	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269	250, 266, 268	3eqtrd 2775	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270	269	oveq1d 7382	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
271	270	oveq2d 7383	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))))
272	271	oveq1d 7382	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
273	83	nncnd 12190	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℂ)
274	94	zcnd 12634	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
275	197, 274	mulcld 11165	. . . . . . . . 9 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) ∈ ℂ)
276	196	nnne0d 12227	. . . . . . . . 9 ⊢ (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277	273, 275, 197, 276	divassd 11966	. . . . . . . 8 ⊢ (𝜑 → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))))
278	277	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))))
279	274, 197, 276	divcan3d 11936	. . . . . . . . 9 ⊢ (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))
280	279	oveq2d 7383	. . . . . . . 8 ⊢ (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
281	280	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
282	272, 278, 281	3eqtrd 2775	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
283	282	3ad2ant1 1134	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
284	239, 283	breqtrrd 5113	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
285	284	rexlimdv3a 3142	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1)))))
286	71, 285	mpd 15	. 2 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
287	120	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ 0)
288		simpr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289	288	iftrued 4474	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
290		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → ¬ (𝑃 − 1) < (𝐷‘0))
291	290	iffalsed 4477	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292		simpll 767	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293	244	ad2antrr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
294	60	ad2antrr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295	293, 294, 290	nltled 11296	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296		id 22	. . . . . . . . . . . . . . 15 ⊢ ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297	296	necomd 2987	. . . . . . . . . . . . . 14 ⊢ ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298	297	ad2antlr 728	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299	293, 294, 295, 298	leneltd 11300	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
300	89	oveq1d 7382	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301	300	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302	243	elfzelzd 13479	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐷‘0) ∈ ℤ)
303	164, 302	zsubcld 12638	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304	303	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) < (𝑃 − 1))
306	244	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
307	60	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
308	306, 307	posdifd 11737	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309	305, 308	mpbid 232	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310		elnnz 12534	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311	304, 309, 310	sylanbrc 584	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
312	311	0expd 14101	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313	301, 312	eqtrd 2771	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314	313	oveq2d 7383	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315	197	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316	311	nnnn0d 12498	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ₀)
317	316	faccld 14246	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318	317	nncnd 12190	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319	317	nnne0d 12227	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320	315, 318, 319	divcld 11931	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321	320	mul01d 11345	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322	314, 321	eqtrd 2771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323	292, 299, 322	syl2anc 585	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324	291, 323	eqtrd 2771	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325	289, 324	pm2.61dan 813	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326	325	oveq1d 7382	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
327	274	mul02d 11344	. . . . . . . . 9 ⊢ (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
328	327	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
329	326, 328	eqtrd 2771	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
330	329	oveq2d 7383	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0))
331	273	mul01d 11345	. . . . . . 7 ⊢ (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0) = 0)
332	331	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0) = 0)
333	330, 332	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = 0)
334	333	oveq1d 7382	. . . 4 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335	197, 276	div0d 11930	. . . . 5 ⊢ (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336	335	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337	334, 336	eqtrd 2771	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338	287, 337	breqtrrd 5113	. 2 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
339	286, 338	pm2.61dane 3019	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 395 ∨ wo 848 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ≠ wne 2932 ∀wral 3051 ∃wrex 3061 {crab 3389 Vcvv 3429 ∖ cdif 3886 ⊆ wss 3889 ifcif 4466 {csn 4567 class class class wbr 5085 ↦ cmpt 5166 ⟶wf 6494 ‘cfv 6498 (class class class)co 7367 ↑_m cmap 8773 Fincfn 8893 ℂcc 11036 ℝcr 11037 0cc0 11038 1c1 11039 + caddc 11041 · cmul 11043 < clt 11179 ≤ cle 11180 − cmin 11377 / cdiv 11807 ℕcn 12174 ℕ₀cn0 12437 ℤcz 12524 ℤ_≥cuz 12788 ...cfz 13461 ↑cexp 14023 !cfa 14235 Σcsu 15648 ∏cprod 15868 ∥ cdvds 16221

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2708 ax-rep 5212 ax-sep 5231 ax-nul 5241 ax-pow 5307 ax-pr 5375 ax-un 7689 ax-inf2 9562 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115 ax-pre-sup 11116

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3062 df-rmo 3342 df-reu 3343 df-rab 3390 df-v 3431 df-sbc 3729 df-csb 3838 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-pss 3909 df-nul 4274 df-if 4467 df-pw 4543 df-sn 4568 df-pr 4570 df-op 4574 df-uni 4851 df-int 4890 df-iun 4935 df-br 5086 df-opab 5148 df-mpt 5167 df-tr 5193 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-se 5585 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6265 df-ord 6326 df-on 6327 df-lim 6328 df-suc 6329 df-iota 6454 df-fun 6500 df-fn 6501 df-f 6502 df-f1 6503 df-fo 6504 df-f1o 6505 df-fv 6506 df-isom 6507 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-om 7818 df-1st 7942 df-2nd 7943 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-er 8643 df-map 8775 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-sup 9355 df-oi 9425 df-card 9863 df-pnf 11181 df-mnf 11182 df-xr 11183 df-ltxr 11184 df-le 11185 df-sub 11379 df-neg 11380 df-div 11808 df-nn 12175 df-2 12244 df-3 12245 df-n0 12438 df-z 12525 df-uz 12789 df-rp 12943 df-fz 13462 df-fzo 13609 df-seq 13964 df-exp 14024 df-fac 14236 df-bc 14265 df-hash 14293 df-cj 15061 df-re 15062 df-im 15063 df-sqrt 15197 df-abs 15198 df-clim 15450 df-sum 15649 df-prod 15869 df-dvds 16222

This theorem is referenced by: etransclem38 46700

W3C validator