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 42085

Description: 𝑃 divides the I -th derivative of 𝐹 applied to 𝐽. when 𝐽 = 0 and 𝐼 is not equal to 𝑃 − 1. This is the second part of case 2 proven in [Juillerat] p. 13 . (Contributed by Glauco Siliprandi, 5-Apr-2020.)

**Hypotheses**
Ref	Expression
etransclem24.p	⊢ (𝜑 → 𝑃 ∈ ℕ)
etransclem24.m	⊢ (𝜑 → 𝑀 ∈ ℕ₀)
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 42073	. . . . . . . 8 ⊢ (𝜑 → (𝐶‘𝐼) = {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼})
5	1, 4	eleqtrd 2885	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼})
6		fveq1 6537	. . . . . . . . . 10 ⊢ (𝑐 = 𝐷 → (𝑐‘𝑗) = (𝐷‘𝑗))
7	6	sumeq2sdv 14894	. . . . . . . . 9 ⊢ (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗))
8	7	eqeq1d 2797	. . . . . . . 8 ⊢ (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼 ↔ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
9	8	elrab 3618	. . . . . . 7 ⊢ (𝐷 ∈ {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼} ↔ (𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
10	5, 9	sylib 219	. . . . . 6 ⊢ (𝜑 → (𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼))
11	10	simprd 496	. . . . 5 ⊢ (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
12	11	ad2antrr 722	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
13		ralnex 3200	. . . . 5 ⊢ (∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ ↔ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ)
14		etransclem24.m	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℕ₀)
15		nn0uz 12129	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
16	14, 15	syl6eleq 2893	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘0))
17	16	ad2antrr 722	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → 𝑀 ∈ (ℤ_≥‘0))
18		fzsscn 41119	. . . . . . . . . . 11 ⊢ (0...𝐼) ⊆ ℂ
19		ssrab2 3977	. . . . . . . . . . . . . . 15 ⊢ {𝑐 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐‘𝑗) = 𝐼} ⊆ ((0...𝐼) ↑_𝑚 (0...𝑀))
20	4, 19	syl6eqss 3942	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐶‘𝐼) ⊆ ((0...𝐼) ↑_𝑚 (0...𝑀)))
21	20, 1	sseldd 3890	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)))
22		elmapi 8278	. . . . . . . . . . . . 13 ⊢ (𝐷 ∈ ((0...𝐼) ↑_𝑚 (0...𝑀)) → 𝐷:(0...𝑀)⟶(0...𝐼))
23	21, 22	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷:(0...𝑀)⟶(0...𝐼))
24	23	ffvelrnda 6716	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ (0...𝐼))
25	18, 24	sseldi 3887	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ ℂ)
26	25	ad4ant14 748	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (0...𝑀)) → (𝐷‘𝑗) ∈ ℂ)
27		fveq2 6538	. . . . . . . . 9 ⊢ (𝑗 = 0 → (𝐷‘𝑗) = (𝐷‘0))
28	17, 26, 27	fsum1p 14941	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗)))
29		simplr 765	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → (𝐷‘0) = (𝑃 − 1))
30		0p1e1 11607	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
31	30	oveq1i 7026	. . . . . . . . . . . . 13 ⊢ ((0 + 1)...𝑀) = (1...𝑀)
32	31	sumeq1i 14888	. . . . . . . . . . . 12 ⊢ Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗)
33	32	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗))
34		fveq2 6538	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝑗 → (𝐷‘𝑘) = (𝐷‘𝑗))
35	34	eleq1d 2867	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝑗 → ((𝐷‘𝑘) ∈ ℕ ↔ (𝐷‘𝑗) ∈ ℕ))
36	35	notbid 319	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑗 → (¬ (𝐷‘𝑘) ∈ ℕ ↔ ¬ (𝐷‘𝑗) ∈ ℕ))
37	36	rspccva 3558	. . . . . . . . . . . . . 14 ⊢ ((∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷‘𝑗) ∈ ℕ)
38	37	adantll 710	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ¬ (𝐷‘𝑗) ∈ ℕ)
39		fzssnn0 41126	. . . . . . . . . . . . . . . 16 ⊢ (0...𝐼) ⊆ ℕ₀
40		fz1ssfz0 12853	. . . . . . . . . . . . . . . . . 18 ⊢ (1...𝑀) ⊆ (0...𝑀)
41	40	sseli 3885	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
42	41, 24	sylan2 592	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) ∈ (0...𝐼))
43	39, 42	sseldi 3887	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) ∈ ℕ₀)
44		elnn0 11747	. . . . . . . . . . . . . . 15 ⊢ ((𝐷‘𝑗) ∈ ℕ₀ ↔ ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
45	43, 44	sylib 219	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
46	45	adantlr 711	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → ((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0))
47		orel1 883	. . . . . . . . . . . . 13 ⊢ (¬ (𝐷‘𝑗) ∈ ℕ → (((𝐷‘𝑗) ∈ ℕ ∨ (𝐷‘𝑗) = 0) → (𝐷‘𝑗) = 0))
48	38, 46, 47	sylc 65	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → (𝐷‘𝑗) = 0)
49	48	sumeq2dv 14893	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)(𝐷‘𝑗) = Σ𝑗 ∈ (1...𝑀)0)
50		fzfi 13190	. . . . . . . . . . . . 13 ⊢ (1...𝑀) ∈ Fin
51	50	olci 861	. . . . . . . . . . . 12 ⊢ ((1...𝑀) ⊆ (ℤ_≥‘𝐴) ∨ (1...𝑀) ∈ Fin)
52		sumz 14912	. . . . . . . . . . . 12 ⊢ (((1...𝑀) ⊆ (ℤ_≥‘𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
53	51, 52	mp1i 13	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (1...𝑀)0 = 0)
54	33, 49, 53	3eqtrd 2835	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = 0)
55	54	adantlr 711	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗) = 0)
56	29, 55	oveq12d 7034	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷‘𝑗)) = ((𝑃 − 1) + 0))
57		etransclem24.p	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∈ ℕ)
58		nnm1nn0 11786	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ₀)
59	57, 58	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑃 − 1) ∈ ℕ₀)
60	59	nn0red 11804	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑃 − 1) ∈ ℝ)
61	60	recnd 10515	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 − 1) ∈ ℂ)
62	61	addid1d 10687	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
63	62	ad2antrr 722	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ((𝑃 − 1) + 0) = (𝑃 − 1))
64	28, 56, 63	3eqtrd 2835	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = (𝑃 − 1))
65		etransclem24.ip	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ≠ (𝑃 − 1))
66	65	necomd 3039	. . . . . . . 8 ⊢ (𝜑 → (𝑃 − 1) ≠ 𝐼)
67	66	ad2antrr 722	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − 1) ≠ 𝐼)
68	64, 67	eqnetrd 3051	. . . . . 6 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) ≠ 𝐼)
69	68	neneqd 2989	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ∀𝑘 ∈ (1...𝑀) ¬ (𝐷‘𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
70	13, 69	sylan2br 594	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ ¬ ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ) → ¬ Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗) = 𝐼)
71	12, 70	condan 814	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ∃𝑘 ∈ (1...𝑀)(𝐷‘𝑘) ∈ ℕ)
72	57	nnzd 11935	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
73	11	eqcomd 2801	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐼 = Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗))
74	73	fveq2d 6542	. . . . . . . . . . . 12 ⊢ (𝜑 → (!‘𝐼) = (!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)))
75	74	oveq1d 7031	. . . . . . . . . . 11 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))))
76		nfcv 2949	. . . . . . . . . . . 12 ⊢ Ⅎ𝑗𝐷
77		fzfid 13191	. . . . . . . . . . . 12 ⊢ (𝜑 → (0...𝑀) ∈ Fin)
78		nn0ex 11751	. . . . . . . . . . . . . 14 ⊢ ℕ₀ ∈ V
79		mapss 8302	. . . . . . . . . . . . . 14 ⊢ ((ℕ₀ ∈ V ∧ (0...𝐼) ⊆ ℕ₀) → ((0...𝐼) ↑_𝑚 (0...𝑀)) ⊆ (ℕ₀ ↑_𝑚 (0...𝑀)))
80	78, 39, 79	mp2an 688	. . . . . . . . . . . . 13 ⊢ ((0...𝐼) ↑_𝑚 (0...𝑀)) ⊆ (ℕ₀ ↑_𝑚 (0...𝑀))
81	80, 21	sseldi 3887	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐷 ∈ (ℕ₀ ↑_𝑚 (0...𝑀)))
82	76, 77, 81	mccl 41421	. . . . . . . . . . 11 ⊢ (𝜑 → ((!‘Σ𝑗 ∈ (0...𝑀)(𝐷‘𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℕ)
83	75, 82	eqeltrd 2883	. . . . . . . . . 10 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℕ)
84	83	nnzd 11935	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ)
85		fzfid 13191	. . . . . . . . . 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 11841	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 ∈ ℤ)
91	89, 90	eqeltrd 2883	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ∈ ℤ)
92	91	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
93	86, 87, 88, 92	etransclem3 42064	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
94	85, 93	fprodzcl 15141	. . . . . . . . 9 ⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
95	72, 84, 94	3jca 1121	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∈ ℤ ∧ ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℤ ∧ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
96	95	3ad2ant1 1126	. . . . . . 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 3885	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
101	100	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
102	91	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝐽 ∈ ℤ)
103	98, 99, 101, 102	etransclem3 42064	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ)
104		difss 4029	. . . . . . . . . . . . . . 15 ⊢ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)
105		ssfi 8584	. . . . . . . . . . . . . . 15 ⊢ (((1...𝑀) ∈ Fin ∧ ((1...𝑀) ∖ {𝑘}) ⊆ (1...𝑀)) → ((1...𝑀) ∖ {𝑘}) ∈ Fin)
106	50, 104, 105	mp2an 688	. . . . . . . . . . . . . 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 3898	. . . . . . . . . . . . . . . 16 ⊢ ((1...𝑀) ∖ {𝑘}) ⊆ (0...𝑀)
111	110	sseli 3885	. . . . . . . . . . . . . . 15 ⊢ (𝑗 ∈ ((1...𝑀) ∖ {𝑘}) → 𝑗 ∈ (0...𝑀))
112	111	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝑗 ∈ (0...𝑀))
113	91	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → 𝐽 ∈ ℤ)
114	108, 109, 112, 113	etransclem3 42064	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ ((1...𝑀) ∖ {𝑘})) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
115	107, 114	fprodzcl 15141	. . . . . . . . . . . 12 ⊢ (𝜑 → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
116	115	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ)
117	97, 103, 116	3jca 1121	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
118	117	3adant3 1125	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 ∈ ℤ ∧ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) ∈ ℤ ∧ ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℤ))
119		dvds0 15458	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ ℤ → 𝑃 ∥ 0)
120	72, 119	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∥ 0)
121	120	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ 0)
122	121	3ad2antl1 1178	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ 0)
123		iftrue 4387	. . . . . . . . . . . . 13 ⊢ (𝑃 < (𝐷‘𝑘) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = 0)
124	123	eqcomd 2801	. . . . . . . . . . . 12 ⊢ (𝑃 < (𝐷‘𝑘) → 0 = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
125	124	adantl 482	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 0 = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
126	122, 125	breqtrd 4988	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
127	97	adantr 481	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℤ)
128		0zd 11841	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 0 ∈ ℤ)
129	99, 101	ffvelrnd 6717	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ (0...𝐼))
130	129	elfzelzd 41123	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ ℤ)
131	97, 130	zsubcld 11941	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 − (𝐷‘𝑘)) ∈ ℤ)
132	128, 97, 131	3jca 1121	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
133	132	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
134		fzssre 41122	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...𝐼) ⊆ ℝ
135	134, 129	sseldi 3887	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐷‘𝑘) ∈ ℝ)
136	135	adantr 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐷‘𝑘) ∈ ℝ)
137	127	zred 11936	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℝ)
138		simpr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ¬ 𝑃 < (𝐷‘𝑘))
139	136, 137, 138	nltled 10637	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐷‘𝑘) ≤ 𝑃)
140	137, 136	subge0d 11078	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ≤ (𝑃 − (𝐷‘𝑘)) ↔ (𝐷‘𝑘) ≤ 𝑃))
141	139, 140	mpbird 258	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝑃 − (𝐷‘𝑘)))
142		elfzle1 12760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐷‘𝑘) ∈ (0...𝐼) → 0 ≤ (𝐷‘𝑘))
143	129, 142	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 0 ≤ (𝐷‘𝑘))
144	143	adantr 481	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝐷‘𝑘))
145	137, 136	subge02d 11080	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ≤ (𝐷‘𝑘) ↔ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃))
146	144, 145	mpbid 233	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)
147	133, 141, 146	jca32 516	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)))
148		elfz2 12749	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃) ↔ ((0 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ 𝑃)))
149	147, 148	sylibr 235	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃))
150		permnn 13536	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...𝑃) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
151	149, 150	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
152	151	nnzd 11935	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ)
153	101	elfzelzd 41123	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ ℤ)
154	102, 153	zsubcld 11941	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝐽 − 𝑘) ∈ ℤ)
155	154	adantr 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝐽 − 𝑘) ∈ ℤ)
156	131	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ ℤ)
157		elnn0z 11842	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ ℕ₀ ↔ ((𝑃 − (𝐷‘𝑘)) ∈ ℤ ∧ 0 ≤ (𝑃 − (𝐷‘𝑘))))
158	156, 141, 157	sylanbrc 583	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ ℕ₀)
159		zexpcl 13294	. . . . . . . . . . . . . . 15 ⊢ (((𝐽 − 𝑘) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℕ₀) → ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ)
160	155, 158, 159	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ)
161	127, 152, 160	3jca 1121	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ))
162	161	3adantl3 1161	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ))
163	127	3adantl3 1161	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℤ)
164	59	nn0zd 11934	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝑃 − 1) ∈ ℤ)
165	164	adantr 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (𝑃 − 1) ∈ ℤ)
166	128, 165, 131	3jca 1121	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
167	166	3adant3 1125	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
168	167	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ))
169	141	3adantl3 1161	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 0 ≤ (𝑃 − (𝐷‘𝑘)))
170		1red 10488	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 1 ∈ ℝ)
171		nnre 11493	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐷‘𝑘) ∈ ℕ → (𝐷‘𝑘) ∈ ℝ)
172	171	adantl 482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → (𝐷‘𝑘) ∈ ℝ)
173	57	nnred 11501	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝑃 ∈ ℝ)
174	173	adantr 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∈ ℝ)
175		nnge1 11513	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐷‘𝑘) ∈ ℕ → 1 ≤ (𝐷‘𝑘))
176	175	adantl 482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → 1 ≤ (𝐷‘𝑘))
177	170, 172, 174, 176	lesub2dd 11105	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
178	177	3adant2 1124	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
179	178	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))
180	168, 169, 179	jca32 516	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))))
181		elfz2 12749	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)) ↔ ((0 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (𝑃 − (𝐷‘𝑘)) ∈ ℤ) ∧ (0 ≤ (𝑃 − (𝐷‘𝑘)) ∧ (𝑃 − (𝐷‘𝑘)) ≤ (𝑃 − 1))))
182	180, 181	sylibr 235	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)))
183		permnn 13536	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 − (𝐷‘𝑘)) ∈ (0...(𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
184	182, 183	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℕ)
185	184	nnzd 11935	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ)
186		dvdsmul1 15464	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
187	163, 185, 186	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
188	57	nncnd 11502	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑃 ∈ ℂ)
189		1cnd 10482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ∈ ℂ)
190	188, 189	npcand 10849	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
191	190	eqcomd 2801	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 = ((𝑃 − 1) + 1))
192	191	fveq2d 6542	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘𝑃) = (!‘((𝑃 − 1) + 1)))
193		facp1 13488	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 − 1) ∈ ℕ₀ → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
194	59, 193	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)))
195	190	oveq2d 7032	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = ((!‘(𝑃 − 1)) · 𝑃))
196	59	faccld 13494	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
197	196	nncnd 11502	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
198	197, 188	mulcomd 10508	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · 𝑃) = (𝑃 · (!‘(𝑃 − 1))))
199	195, 198	eqtrd 2831	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ((𝑃 − 1) + 1)) = (𝑃 · (!‘(𝑃 − 1))))
200	192, 194, 199	3eqtrd 2835	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (!‘𝑃) = (𝑃 · (!‘(𝑃 − 1))))
201	200	oveq1d 7031	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
202	201	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
203	202	3ad2antl1 1178	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) = ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))))
204	188	ad2antrr 722	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∈ ℂ)
205	197	ad2antrr 722	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − 1)) ∈ ℂ)
206	158	faccld 13494	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ∈ ℕ)
207	206	nncnd 11502	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ∈ ℂ)
208	206	nnne0d 11535	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (!‘(𝑃 − (𝐷‘𝑘))) ≠ 0)
209	204, 205, 207, 208	divassd 11299	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀)) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
210	209	3adantl3 1161	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → ((𝑃 · (!‘(𝑃 − 1))) / (!‘(𝑃 − (𝐷‘𝑘)))) = (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))))
211	203, 210	eqtr2d 2832	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → (𝑃 · ((!‘(𝑃 − 1)) / (!‘(𝑃 − (𝐷‘𝑘))))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
212	187, 211	breqtrd 4988	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
213		dvdsmultr1 15480	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℤ ∧ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) ∈ ℤ ∧ ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))) ∈ ℤ) → (𝑃 ∥ ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
214	162, 212, 213	sylc 65	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
215		iffalse 4390	. . . . . . . . . . . 12 ⊢ (¬ 𝑃 < (𝐷‘𝑘) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
216	215	adantl 482	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
217	214, 216	breqtrrd 4990	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ ¬ 𝑃 < (𝐷‘𝑘)) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
218	126, 217	pm2.61dan 809	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
219		dvdsmultr1 15480	. . . . . . . . 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 13191	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → (1...𝑀) ∈ Fin)
222	93	zcnd 11937	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
223	222	3ad2antl1 1178	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
224		simp2 1130	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑘 ∈ (1...𝑀))
225		fveq2 6538	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → (𝐷‘𝑗) = (𝐷‘𝑘))
226	225	breq2d 4974	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑘 → (𝑃 < (𝐷‘𝑗) ↔ 𝑃 < (𝐷‘𝑘)))
227	225	oveq2d 7032	. . . . . . . . . . . . . 14 ⊢ (𝑗 = 𝑘 → (𝑃 − (𝐷‘𝑗)) = (𝑃 − (𝐷‘𝑘)))
228	227	fveq2d 6542	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑘 → (!‘(𝑃 − (𝐷‘𝑗))) = (!‘(𝑃 − (𝐷‘𝑘))))
229	228	oveq2d 7032	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))))
230		oveq2 7024	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑘 → (𝐽 − 𝑗) = (𝐽 − 𝑘))
231	230, 227	oveq12d 7034	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑘 → ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))) = ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))
232	229, 231	oveq12d 7034	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑘 → (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘)))))
233	226, 232	ifbieq2d 4406	. . . . . . . . . 10 ⊢ (𝑗 = 𝑘 → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
234	233	adantl 482	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) ∧ 𝑗 = 𝑘) → if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))))
235	221, 223, 224, 234	fprodsplit1 41416	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) = (if(𝑃 < (𝐷‘𝑘), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑘)))) · ((𝐽 − 𝑘)↑(𝑃 − (𝐷‘𝑘))))) · ∏𝑗 ∈ ((1...𝑀) ∖ {𝑘})if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
236	220, 235	breqtrrd 4990	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))
237		dvdsmultr2 15482	. . . . . . 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 1170	. . . . 5 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
240		simpr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) = (𝑃 − 1))
241		eluzfz1 12764	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑀 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑀))
242	16, 241	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 0 ∈ (0...𝑀))
243	23, 242	ffvelrnd 6717	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐷‘0) ∈ (0...𝐼))
244	134, 243	sseldi 3887	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐷‘0) ∈ ℝ)
245	244	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐷‘0) ∈ ℝ)
246	60	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝑃 − 1) ∈ ℝ)
247	245, 246	lttri3d 10627	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
248	240, 247	mpbid 233	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
249	248	simprd 496	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ¬ (𝑃 − 1) < (𝐷‘0))
250	249	iffalsed 4392	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
251		oveq2 7024	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐷‘0) = (𝑃 − 1) → ((𝑃 − 1) − (𝐷‘0)) = ((𝑃 − 1) − (𝑃 − 1)))
252	61	subidd 10833	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑃 − 1) − (𝑃 − 1)) = 0)
253	251, 252	sylan9eqr 2853	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) = 0)
254	253	fveq2d 6542	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
255		fac0 13486	. . . . . . . . . . . . . . 15 ⊢ (!‘0) = 1
256	254, 255	syl6eq 2847	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
257	256	oveq2d 7032	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
258	197	div1d 11256	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
259	258	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
260	257, 259	eqtrd 2831	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
261	253	oveq2d 7032	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (𝐽↑0))
262	91	zcnd 11937	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ∈ ℂ)
263	262	exp0d 13354	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐽↑0) = 1)
264	263	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑0) = 1)
265	261, 264	eqtrd 2831	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 1)
266	260, 265	oveq12d 7034	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
267	197	mulid1d 10504	. . . . . . . . . . . 12 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
268	267	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
269	250, 266, 268	3eqtrd 2835	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
270	269	oveq1d 7031	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
271	270	oveq2d 7032	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))))
272	271	oveq1d 7031	. . . . . . 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 11502	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) ∈ ℂ)
274	94	zcnd 11937	. . . . . . . . . 10 ⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))) ∈ ℂ)
275	197, 274	mulcld 10507	. . . . . . . . 9 ⊢ (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) ∈ ℂ)
276	196	nnne0d 11535	. . . . . . . . 9 ⊢ (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
277	273, 275, 197, 276	divassd 11299	. . . . . . . 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 11269	. . . . . . . . 9 ⊢ (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) / (!‘(𝑃 − 1))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))
280	279	oveq2d 7032	. . . . . . . 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 2835	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
283	282	3ad2ant1 1126	. . . . 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 4990	. . . 4 ⊢ (((𝜑 ∧ (𝐷‘0) = (𝑃 − 1)) ∧ 𝑘 ∈ (1...𝑀) ∧ (𝐷‘𝑘) ∈ ℕ) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
285	284	rexlimdv3a 3249	. . 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 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) < (𝐷‘0))
289	288	iftrued 4389	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
290		simpr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → ¬ (𝑃 − 1) < (𝐷‘0))
291	290	iffalsed 4392	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))))
292		simpll 763	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → 𝜑)
293	244	ad2antrr 722	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ∈ ℝ)
294	60	ad2antrr 722	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ∈ ℝ)
295	293, 294, 290	nltled 10637	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) ≤ (𝑃 − 1))
296		id 22	. . . . . . . . . . . . . . 15 ⊢ ((𝐷‘0) ≠ (𝑃 − 1) → (𝐷‘0) ≠ (𝑃 − 1))
297	296	necomd 3039	. . . . . . . . . . . . . 14 ⊢ ((𝐷‘0) ≠ (𝑃 − 1) → (𝑃 − 1) ≠ (𝐷‘0))
298	297	ad2antlr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝑃 − 1) ≠ (𝐷‘0))
299	293, 294, 295, 298	leneltd 10641	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (𝐷‘0) < (𝑃 − 1))
300	89	oveq1d 7031	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
301	300	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
302	243	elfzelzd 41123	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐷‘0) ∈ ℤ)
303	164, 302	zsubcld 11941	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
304	303	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℤ)
305		simpr 485	. . . . . . . . . . . . . . . . . 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 11075	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝐷‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐷‘0))))
309	305, 308	mpbid 233	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → 0 < ((𝑃 − 1) − (𝐷‘0)))
310		elnnz 11839	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 − 1) − (𝐷‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐷‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐷‘0))))
311	304, 309, 310	sylanbrc 583	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ)
312	311	0expd 13353	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (0↑((𝑃 − 1) − (𝐷‘0))) = 0)
313	301, 312	eqtrd 2831	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (𝐽↑((𝑃 − 1) − (𝐷‘0))) = 0)
314	313	oveq2d 7032	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0))
315	197	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘(𝑃 − 1)) ∈ ℂ)
316	311	nnnn0d 11803	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((𝑃 − 1) − (𝐷‘0)) ∈ ℕ₀)
317	316	faccld 13494	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℕ)
318	317	nncnd 11502	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ∈ ℂ)
319	317	nnne0d 11535	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (!‘((𝑃 − 1) − (𝐷‘0))) ≠ 0)
320	315, 318, 319	divcld 11264	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) ∈ ℂ)
321	320	mul01d 10686	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · 0) = 0)
322	314, 321	eqtrd 2831	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐷‘0) < (𝑃 − 1)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
323	292, 299, 322	syl2anc 584	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0)))) = 0)
324	291, 323	eqtrd 2831	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) ∧ ¬ (𝑃 − 1) < (𝐷‘0)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
325	289, 324	pm2.61dan 809	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) = 0)
326	325	oveq1d 7031	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))))
327	274	mul02d 10685	. . . . . . . . 9 ⊢ (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
328	327	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
329	326, 328	eqtrd 2831	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗)))))) = 0)
330	329	oveq2d 7032	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0))
331	273	mul01d 10686	. . . . . . 7 ⊢ (𝜑 → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0) = 0)
332	331	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · 0) = 0)
333	330, 332	eqtrd 2831	. . . . 5 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) = 0)
334	333	oveq1d 7031	. . . 4 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = (0 / (!‘(𝑃 − 1))))
335	197, 276	div0d 11263	. . . . 5 ⊢ (𝜑 → (0 / (!‘(𝑃 − 1))) = 0)
336	335	adantr 481	. . . 4 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → (0 / (!‘(𝑃 − 1))) = 0)
337	334, 336	eqtrd 2831	. . 3 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))) = 0)
338	287, 337	breqtrrd 4990	. 2 ⊢ ((𝜑 ∧ (𝐷‘0) ≠ (𝑃 − 1)) → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))
339	286, 338	pm2.61dane 3072	1 ⊢ (𝜑 → 𝑃 ∥ ((((!‘𝐼) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷‘𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (𝐽↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐷‘𝑗))))))) / (!‘(𝑃 − 1))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 396 ∨ wo 842 ∧ w3a 1080 = wceq 1522 ∈ wcel 2081 ≠ wne 2984 ∀wral 3105 ∃wrex 3106 {crab 3109 Vcvv 3437 ∖ cdif 3856 ⊆ wss 3859 ifcif 4381 {csn 4472 class class class wbr 4962 ↦ cmpt 5041 ⟶wf 6221 ‘cfv 6225 (class class class)co 7016 ↑_𝑚 cmap 8256 Fincfn 8357 ℂcc 10381 ℝcr 10382 0cc0 10383 1c1 10384 + caddc 10386 · cmul 10388 < clt 10521 ≤ cle 10522 − cmin 10717 / cdiv 11145 ℕcn 11486 ℕ₀cn0 11745 ℤcz 11829 ℤ_≥cuz 12093 ...cfz 12742 ↑cexp 13279 !cfa 13483 Σcsu 14876 ∏cprod 15092 ∥ cdvds 15440

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1777 ax-4 1791 ax-5 1888 ax-6 1947 ax-7 1992 ax-8 2083 ax-9 2091 ax-10 2112 ax-11 2126 ax-12 2141 ax-13 2344 ax-ext 2769 ax-rep 5081 ax-sep 5094 ax-nul 5101 ax-pow 5157 ax-pr 5221 ax-un 7319 ax-inf2 8950 ax-cnex 10439 ax-resscn 10440 ax-1cn 10441 ax-icn 10442 ax-addcl 10443 ax-addrcl 10444 ax-mulcl 10445 ax-mulrcl 10446 ax-mulcom 10447 ax-addass 10448 ax-mulass 10449 ax-distr 10450 ax-i2m1 10451 ax-1ne0 10452 ax-1rid 10453 ax-rnegex 10454 ax-rrecex 10455 ax-cnre 10456 ax-pre-lttri 10457 ax-pre-lttrn 10458 ax-pre-ltadd 10459 ax-pre-mulgt0 10460 ax-pre-sup 10461

This theorem depends on definitions: df-bi 208 df-an 397 df-or 843 df-3or 1081 df-3an 1082 df-tru 1525 df-fal 1535 df-ex 1762 df-nf 1766 df-sb 2043 df-mo 2576 df-eu 2612 df-clab 2776 df-cleq 2788 df-clel 2863 df-nfc 2935 df-ne 2985 df-nel 3091 df-ral 3110 df-rex 3111 df-reu 3112 df-rmo 3113 df-rab 3114 df-v 3439 df-sbc 3707 df-csb 3812 df-dif 3862 df-un 3864 df-in 3866 df-ss 3874 df-pss 3876 df-nul 4212 df-if 4382 df-pw 4455 df-sn 4473 df-pr 4475 df-tp 4477 df-op 4479 df-uni 4746 df-int 4783 df-iun 4827 df-br 4963 df-opab 5025 df-mpt 5042 df-tr 5064 df-id 5348 df-eprel 5353 df-po 5362 df-so 5363 df-fr 5402 df-se 5403 df-we 5404 df-xp 5449 df-rel 5450 df-cnv 5451 df-co 5452 df-dm 5453 df-rn 5454 df-res 5455 df-ima 5456 df-pred 6023 df-ord 6069 df-on 6070 df-lim 6071 df-suc 6072 df-iota 6189 df-fun 6227 df-fn 6228 df-f 6229 df-f1 6230 df-fo 6231 df-f1o 6232 df-fv 6233 df-isom 6234 df-riota 6977 df-ov 7019 df-oprab 7020 df-mpo 7021 df-om 7437 df-1st 7545 df-2nd 7546 df-wrecs 7798 df-recs 7860 df-rdg 7898 df-1o 7953 df-oadd 7957 df-er 8139 df-map 8258 df-en 8358 df-dom 8359 df-sdom 8360 df-fin 8361 df-sup 8752 df-oi 8820 df-card 9214 df-pnf 10523 df-mnf 10524 df-xr 10525 df-ltxr 10526 df-le 10527 df-sub 10719 df-neg 10720 df-div 11146 df-nn 11487 df-2 11548 df-3 11549 df-n0 11746 df-z 11830 df-uz 12094 df-rp 12240 df-fz 12743 df-fzo 12884 df-seq 13220 df-exp 13280 df-fac 13484 df-bc 13513 df-hash 13541 df-cj 14292 df-re 14293 df-im 14294 df-sqrt 14428 df-abs 14429 df-clim 14679 df-sum 14877 df-prod 15093 df-dvds 15441

This theorem is referenced by: etransclem38 42099

W3C validator