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 40475

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...𝑛) ↑_𝑚 (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...𝑛) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝑛})
3		etransclem24.i	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ∈ ℕ₀)
4	2, 3	etransclem12 40463	. . . . . . . 8 ⊢ (𝜑 → (𝐶‘𝐼) = {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼})
5	1, 4	eleqtrd 2703	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼})
6		fveq1 6190	. . . . . . . . . 10 ⊢ (𝑐 = 𝐷 → (𝑐‘𝑗) = (𝐷‘𝑗))
7	6	sumeq2ad 14434	. . . . . . . . 9 ⊢ (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗))
8	7	eqeq1d 2624	. . . . . . . 8 ⊢ (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
9	8	elrab 3363	. . . . . . 7 ⊢ (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
10	5, 9	sylib 208	. . . . . 6 ⊢ (𝜑 → (𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
11	10	simprd 479	. . . . 5 ⊢ (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
12	11	ad2antrr 762	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
13		ralnex 2992	. . . . 5 ⊢ (∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ)
14		etransclem24.m	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
15		nn0uz 11722	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
16	14, 15	syl6eleq 2711	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘0))
17	16	ad2antrr 762	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ_≥‘0))
18		fzsscn 39526	. . . . . . . . . . 11 ⊢ (0...𝐼) ⊆ ℂ
19		ssrab2 3687	. . . . . . . . . . . . . . 15 ⊢ {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼} ⊆ ((0...𝐼) ↑_𝑚 (0...𝑀))
20	4, 19	syl6eqss 3655	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐶‘𝐼) ⊆ ((0...𝐼) ↑_𝑚 (0...𝑀)))
21	20, 1	sseldd 3604	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)))
22		elmapi 7879	. . . . . . . . . . . . 13 ⊢ (𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
23	21, 22	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷:(0...𝑀)⟶(0...𝐼))
24	23	ffvelrnda 6359	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ (0...𝐼))
25	18, 24	sseldi 3601	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ ℂ)
26	25	ad4ant14 1293	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ ℂ)
27		fveq2 6191	. . . . . . . . 9 ⊢ (𝑗 = 0 → (𝐷‘𝑗) = (𝐷‘0))
28	17, 26, 27	fsum1p 14482	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗)))
29		simplr 792	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30		0p1e1 11132	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
31	30	oveq1i 6660	. . . . . . . . . . . . 13 ⊢ ((0 + 1)...𝑀) = (1...𝑀)
32	31	sumeq1i 14428	. . . . . . . . . . . 12 ⊢ Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗)
33	32	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗))
34		fveq2 6191	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑗 → (𝐷‘𝑘) = (𝐷‘𝑗))
35	34	eleq1d 2686	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑗 → ((𝐷‘𝑘) ∈ ℕ ↔ (𝐷‘𝑗) ∈ ℕ))
36	35	notbid 308	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑗 → (¬ (𝐷‘𝑘) ∈ ℕ ↔ ¬ (𝐷‘𝑗) ∈ ℕ))
37	36	rspccva 3308	. . . . . . . . . . . . . 14 ⊢ ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷‘𝑗) ∈ ℕ)
38	37	adantll 750	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷‘𝑗) ∈ ℕ)
39		fzssnn0 39533	. . . . . . . . . . . . . . . 16 ⊢ (0...𝐼) ⊆ ℕ₀
40		fz1ssfz0 39524	. . . . . . . . . . . . . . . . . 18 ⊢ (1...𝑀) ⊆ (0...𝑀)
41	40	sseli 3599	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
42	41, 24	sylan2 491	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) ∈ (0...𝐼))
43	39, 42	sseldi 3601	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) ∈ ℕ₀)
44		elnn0 11294	. . . . . . . . . . . . . . 15 ⊢ ((𝐷‘𝑗) ∈ ℕ₀ ↔ ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
45	43, 44	sylib 208	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
46	45	adantlr 751	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
47		orel1 397	. . . . . . . . . . . . 13 ⊢ (¬ (𝐷‘𝑗) ∈ ℕ → (((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0) → (𝐷‘𝑗) = 0))
48	38, 46, 47	sylc 65	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) = 0)
49	48	sumeq2dv 14433	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50		fzfi 12771	. . . . . . . . . . . . 13 ⊢ (1...𝑀) ∈ Fin
51	50	olci 406	. . . . . . . . . . . 12 ⊢ ((1...𝑀) ⊆ (ℤ_≥‘𝐴) ∨ (1...𝑀) ∈ Fin)
52		sumz 14453	. . . . . . . . . . . 12 ⊢ (((1...𝑀) ⊆ (ℤ_≥‘𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
53	51, 52	mp1i 13	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
54	33, 49, 53	3eqtrd 2660	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = 0)
55	54	adantlr 751	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = 0)
56	29, 55	oveq12d 6668	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗)) = ((𝑃 − 1) + 0))
57		etransclem24.p	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∈ ℕ)
58		nnm1nn0 11334	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ₀)
59	57, 58	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 − 1) ∈ ℕ₀)
60	59	nn0red 11352	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 − 1) ∈ ℝ)
61	60	recnd 10068	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 − 1) ∈ ℂ)
62	61	addid1d 10236	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
63	62	ad2antrr 762	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
64	28, 56, 63	3eqtrd 2660	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = (𝑃 − 1))
65		etransclem24.ip	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ≠ (𝑃 − 1))
66	65	necomd 2849	. . . . . . . 8 ⊢ (𝜑 → (𝑃 − 1) ≠ 𝐼)
67	66	ad2antrr 762	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
68	64, 67	eqnetrd 2861	. . . . . 6 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) ≠ 𝐼)
69	68	neneqd 2799	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
70	13, 69	sylan2br 493	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
71	12, 70	condan 835	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ)
72	57	nnzd 11481	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
73	11	eqcomd 2628	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗))
74	73	fveq2d 6195	. . . . . . . . . . . 12 ⊢ (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)))
75	74	oveq1d 6665	. . . . . . . . . . 11 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))))
76		nfcv 2764	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗𝐷
77		fzfid 12772	. . . . . . . . . . . 12 ⊢ (𝜑 → (0...𝑀) ∈ Fin)
78		nn0ex 11298	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
79		mapss 7900	. . . . . . . . . . . . . 14 ⊢ ((ℕ₀ ∈ V ∧ (0...𝐼) ⊆ ℕ₀) → ((0...𝐼) ↑_𝑚 (0...𝑀)) ⊆ (ℕ₀ ↑_𝑚 (0...𝑀)))
80	78, 39, 79	mp2an 708	. . . . . . . . . . . . 13 ⊢ ((0...𝐼) ↑_𝑚 (0...𝑀)) ⊆ (ℕ₀ ↑_𝑚 (0...𝑀))
81	80, 21	sseldi 3601	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (ℕ₀ ↑_𝑚 (0...𝑀)))
82	76, 77, 81	mccl 39830	. . . . . . . . . . 11 ⊢ (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℕ)
83	75, 82	eqeltrd 2701	. . . . . . . . . 10 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℕ)
84	83	nnzd 11481	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ)
85		fzfid 12772	. . . . . . . . . 10 ⊢ (𝜑 → (1...𝑀) ∈ Fin)
86	57	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
87	23	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
88	41	adantl 482	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
89		etransclem24.j	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐽 = 0)
90		0zd 11389	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ ℤ)
91	89, 90	eqeltrd 2701	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ∈ ℤ)
92	91	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
93	86, 87, 88, 92	etransclem3 40454	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
94	85, 93	fprodzcl 14684	. . . . . . . . 9 ⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
95	72, 84, 94	3jca 1242	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
96	95	3ad2ant1 1082	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
97	72	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℤ)
98	57	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
99	23	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
100	40	sseli 3599	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101	100	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
102	91	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
103	98, 99, 101, 102	etransclem3 40454	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ)
104		difss 3737	. . . . . . . . . . . . . . 15 ⊢ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105		ssfi 8180	. . . . . . . . . . . . . . 15 ⊢ (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
106	50, 104, 105	mp2an 708	. . . . . . . . . . . . . 14 ⊢ ((1...𝑀) ∖ {𝑘}) ∈ Fin
107	106	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
108	57	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑃 ∈ ℕ)
109	23	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐷:(0...𝑀)⟶(0...𝐼))
110	104, 40	sstri 3612	. . . . . . . . . . . . . . . 16 ⊢ ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111	110	sseli 3599	. . . . . . . . . . . . . . 15 ⊢ (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112	111	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
113	91	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114	108, 109, 112, 113	etransclem3 40454	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
115	107, 114	fprodzcl 14684	. . . . . . . . . . . 12 ⊢ (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
116	115	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
117	97, 103, 116	3jca 1242	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
118	117	3adant3 1081	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
119		dvds0 14997	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ ℤ → 𝑃 ∥ 0)
120	72, 119	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∥ 0)
121	120	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ 0)
122	121	3ad2antl1 1223	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ 0)
123		iftrue 4092	. . . . . . . . . . . . 13 ⊢ (𝑃 < (𝐷‘𝑘) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = 0)
124	123	eqcomd 2628	. . . . . . . . . . . 12 ⊢ (𝑃 < (𝐷‘𝑘) → 0 = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
125	124	adantl 482	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 0 = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
126	122, 125	breqtrd 4679	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
127	97	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℤ)
128		0zd 11389	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
129	99, 101	ffvelrnd 6360	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ (0...𝐼))
130	129	elfzelzd 39530	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ ℤ)
131	97, 130	zsubcld 11487	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷‘𝑘)) ∈ ℤ)
132	128, 97, 131	3jca 1242	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
133	132	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
134		fzssre 39529	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...𝐼) ⊆ ℝ
135	134, 129	sseldi 3601	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ ℝ)
136	135	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐷‘𝑘) ∈ ℝ)
137	127	zred 11482	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℝ)
138		simpr 477	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ¬ 𝑃 < (𝐷‘𝑘))
139	136, 137, 138	nltled 10187	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐷‘𝑘) ≤ 𝑃)
140	137, 136	subge0d 10617	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ≤ (𝑃 − (𝐷‘𝑘)) ↔ (𝐷‘𝑘) ≤ 𝑃))
141	139, 140	mpbird 247	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝑃 − (𝐷‘𝑘)))
142		elfzle1 12344	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐷‘𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷‘𝑘))
143	129, 142	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷‘𝑘))
144	143	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝐷‘𝑘))
145	137, 136	subge02d 10619	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ≤ (𝐷‘𝑘) ↔ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃))
146	144, 145	mpbid 222	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)
147	133, 141, 146	jca32 558	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)))
148		elfz2 12333	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)))
149	147, 148	sylibr 224	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃))
150		permnn 13113	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
151	149, 150	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
152	151	nnzd 11481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ)
153	101	elfzelzd 39530	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154	102, 153	zsubcld 11487	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐽 − 𝑘) ∈ ℤ)
155	154	adantr 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐽 − 𝑘) ∈ ℤ)
156	131	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ ℤ)
157		elnn0z 11390	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ ℕ₀ ↔ ((𝑃 − (𝐷‘𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷‘𝑘))))
158	156, 141, 157	sylanbrc 698	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ ℕ₀)
159		zexpcl 12875	. . . . . . . . . . . . . . 15 ⊢ (((𝐽 − 𝑘) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℕ₀) → ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ)
160	155, 158, 159	syl2anc 693	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ)
161	127, 152, 160	3jca 1242	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ))
162	161	3adantl3 1219	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ))
163	127	3adantl3 1219	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℤ)
164	59	nn0zd 11480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃 − 1) ∈ ℤ)
165	164	adantr 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166	128, 165, 131	3jca 1242	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
167	166	3adant3 1081	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
168	167	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
169	141	3adantl3 1219	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝑃 − (𝐷‘𝑘)))
170		1red 10055	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 1 ∈ ℝ)
171		nnre 11027	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐷‘𝑘) ∈ ℕ → (𝐷‘𝑘) ∈ ℝ)
172	171	adantl 482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → (𝐷‘𝑘) ∈ ℝ)
173	57	nnred 11035	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑃 ∈ ℝ)
174	173	adantr 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175		nnge1 11046	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐷‘𝑘) ∈ ℕ → 1 ≤ (𝐷‘𝑘))
176	175	adantl 482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 1 ≤ (𝐷‘𝑘))
177	170, 172, 174, 176	lesub2dd 10644	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
178	177	3adant2 1080	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
179	178	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
180	168, 169, 179	jca32 558	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))))
181		elfz2 12333	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))))
182	180, 181	sylibr 224	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)))
183		permnn 13113	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
184	182, 183	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
185	184	nnzd 11481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ)
186		dvdsmul1 15003	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
187	163, 185, 186	syl2anc 693	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
188	57	nncnd 11036	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑃 ∈ ℂ)
189		1cnd 10056	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ∈ ℂ)
190	188, 189	npcand 10396	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191	190	eqcomd 2628	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 = ((𝑃 − 1) + 1))
192	191	fveq2d 6195	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193		facp1 13065	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 − 1) ∈ ℕ₀ → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
194	59, 193	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195	190	oveq2d 6666	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
196	59	faccld 13071	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197	196	nncnd 11036	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198	197, 188	mulcomd 10061	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199	195, 198	eqtrd 2656	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200	192, 194, 199	3eqtrd 2660	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201	200	oveq1d 6665	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
202	201	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
203	202	3ad2antl1 1223	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
204	188	ad2antrr 762	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℂ)
205	197	ad2antrr 762	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206	158	faccld 13071	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ∈ ℕ)
207	206	nncnd 11036	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ∈ ℂ)
208	206	nnne0d 11065	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ≠ 0)
209	204, 205, 207, 208	divassd 10836	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
210	209	3adantl3 1219	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
211	203, 210	eqtr2d 2657	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
212	187, 211	breqtrd 4679	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
213		dvdsmultr1 15019	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
214	162, 212, 213	sylc 65	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
215		iffalse 4095	. . . . . . . . . . . 12 ⊢ (¬ 𝑃 < (𝐷‘𝑘) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
216	215	adantl 482	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
217	214, 216	breqtrrd 4681	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
218	126, 217	pm2.61dan 832	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
219		dvdsmultr1 15019	. . . . . . . . 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 12772	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (1...𝑀) ∈ Fin)
222	93	zcnd 11483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
223	222	3ad2antl1 1223	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
224		simp2 1062	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → (𝐷‘𝑗) = (𝐷‘𝑘))
226	225	breq2d 4665	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑘 → (𝑃 < (𝐷‘𝑗) ↔ 𝑃 < (𝐷‘𝑘)))
227	225	oveq2d 6666	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑘 → (𝑃 − (𝐷‘𝑗)) = (𝑃 − (𝐷‘𝑘)))
228	227	fveq2d 6195	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷‘𝑗))) = (!‘(𝑃 − (𝐷‘𝑘))))
229	228	oveq2d 6666	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
230		oveq2 6658	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑘 → (𝐽 − 𝑗) = (𝐽 − 𝑘))
231	230, 227	oveq12d 6668	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))) = ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))
232	229, 231	oveq12d 6668	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
233	226, 232	ifbieq2d 4111	. . . . . . . . . 10 ⊢ (𝑗 = 𝑘 → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
234	233	adantl 482	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
235	221, 223, 224, 234	fprodsplit1 39825	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = (if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
236	220, 235	breqtrrd 4681	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))
237		dvdsmultr2 15021	. . . . . . 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 1319	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
240		simpr 477	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241		eluzfz1 12348	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑀))
242	16, 241	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 0 ∈ (0...𝑀))
243	23, 242	ffvelrnd 6360	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244	134, 243	sseldi 3601	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐷‘0) ∈ ℝ)
245	244	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
246	60	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247	245, 246	lttri3d 10177	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248	240, 247	mpbid 222	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249	248	simprd 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250	249	iffalsed 4097	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251		oveq2 6658	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
252	61	subidd 10380	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253	251, 252	sylan9eqr 2678	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254	253	fveq2d 6195	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255		fac0 13063	. . . . . . . . . . . . . . 15 ⊢ (!‘0) = 1
256	254, 255	syl6eq 2672	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257	256	oveq2d 6666	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258	197	div1d 10793	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259	258	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260	257, 259	eqtrd 2656	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261	253	oveq2d 6666	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
262	91	zcnd 11483	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ∈ ℂ)
263	262	exp0d 13002	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽↑0) = 1)
264	263	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265	261, 264	eqtrd 2656	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266	260, 265	oveq12d 6668	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267	197	mulid1d 10057	. . . . . . . . . . . 12 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268	267	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269	250, 266, 268	3eqtrd 2660	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270	269	oveq1d 6665	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
271	270	oveq2d 6666	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))))
272	271	oveq1d 6665	. . . . . . 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 11036	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℂ)
274	94	zcnd 11483	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
275	197, 274	mulcld 10060	. . . . . . . . 9 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) ∈ ℂ)
276	196	nnne0d 11065	. . . . . . . . 9 ⊢ (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277	273, 275, 197, 276	divassd 10836	. . . . . . . 8 ⊢ (𝜑 → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))))
278	277	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))))
279	274, 197, 276	divcan3d 10806	. . . . . . . . 9 ⊢ (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))
280	279	oveq2d 6666	. . . . . . . 8 ⊢ (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
281	280	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1)))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
282	272, 278, 281	3eqtrd 2660	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
283	282	3ad2ant1 1082	. . . . 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 4681	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
285	284	rexlimdv3a 3033	. . 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 481	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ 0)
288		simpr 477	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289	288	iftrued 4094	. . . . . . . . . 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))
291	290	iffalsed 4097	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292		simpll 790	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293	244	ad2antrr 762	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
294	60	ad2antrr 762	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295	293, 294, 290	nltled 10187	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296		id 22	. . . . . . . . . . . . . . 15 ⊢ ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297	296	necomd 2849	. . . . . . . . . . . . . 14 ⊢ ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298	297	ad2antlr 763	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299	293, 294, 295, 298	leneltd 10191	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
300	89	oveq1d 6665	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301	300	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302	243	elfzelzd 39530	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐷‘0) ∈ ℤ)
303	164, 302	zsubcld 11487	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304	303	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305		simpr 477	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) < (𝑃 − 1))
306	244	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
307	60	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
308	306, 307	posdifd 10614	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309	305, 308	mpbid 222	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310		elnnz 11387	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311	304, 309, 310	sylanbrc 698	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
312	311	0expd 13024	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313	301, 312	eqtrd 2656	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314	313	oveq2d 6666	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315	197	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316	311	nnnn0d 11351	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ₀)
317	316	faccld 13071	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318	317	nncnd 11036	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319	317	nnne0d 11065	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320	315, 318, 319	divcld 10801	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321	320	mul01d 10235	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322	314, 321	eqtrd 2656	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323	292, 299, 322	syl2anc 693	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324	291, 323	eqtrd 2656	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325	289, 324	pm2.61dan 832	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326	325	oveq1d 6665	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
327	274	mul02d 10234	. . . . . . . . 9 ⊢ (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
328	327	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
329	326, 328	eqtrd 2656	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
330	329	oveq2d 6666	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0))
331	273	mul01d 10235	. . . . . . 7 ⊢ (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0) = 0)
332	331	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0) = 0)
333	330, 332	eqtrd 2656	. . . . 5 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = 0)
334	333	oveq1d 6665	. . . 4 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335	197, 276	div0d 10800	. . . . 5 ⊢ (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336	335	adantr 481	. . . 4 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337	334, 336	eqtrd 2656	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338	287, 337	breqtrrd 4681	. 2 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
339	286, 338	pm2.61dane 2881	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 1037 = wceq 1483 ∈ wcel 1990 ≠ wne 2794 ∀wral 2912 ∃wrex 2913 {crab 2916 Vcvv 3200 ∖ cdif 3571 ⊆ wss 3574 ifcif 4086 {csn 4177 class class class wbr 4653 ↦ cmpt 4729 ⟶wf 5884 ‘cfv 5888 (class class class)co 6650 ↑_𝑚 cmap 7857 Fincfn 7955 ℂcc 9934 ℝcr 9935 0cc0 9936 1c1 9937 + caddc 9939 · cmul 9941 < clt 10074 ≤ cle 10075 − cmin 10266 / cdiv 10684 ℕcn 11020 ℕ₀cn0 11292 ℤcz 11377 ℤ_≥cuz 11687 ...cfz 12326 ↑cexp 12860 !cfa 13060 Σcsu 14416 ∏cprod 14635 ∥ cdvds 14983

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013 ax-pre-sup 10014

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-fal 1489 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-om 7066 df-1st 7168 df-2nd 7169 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-oadd 7564 df-er 7742 df-map 7859 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-sup 8348 df-oi 8415 df-card 8765 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-3 11080 df-n0 11293 df-z 11378 df-uz 11688 df-rp 11833 df-fz 12327 df-fzo 12466 df-seq 12802 df-exp 12861 df-fac 13061 df-bc 13090 df-hash 13118 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-clim 14219 df-sum 14417 df-prod 14636 df-dvds 14984

This theorem is referenced by: etransclem38 40489

W3C validator