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

Theorem etransclem35 43810
Description: 𝑃 does not divide the P-1 -th derivative of 𝐹 applied to 0. This is case 2 of the proof in [Juillerat] p. 13 . (Contributed by Glauco Siliprandi, 5-Apr-2020.)
Hypotheses
Ref Expression
etransclem35.p (𝜑𝑃 ∈ ℕ)
etransclem35.m (𝜑𝑀 ∈ ℕ0)
etransclem35.f 𝐹 = (𝑥 ∈ ℝ ↦ ((𝑥↑(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)((𝑥𝑗)↑𝑃)))
etransclem35.c 𝐶 = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
etransclem35.d 𝐷 = (𝑗 ∈ (0...𝑀) ↦ if(𝑗 = 0, (𝑃 − 1), 0))
Assertion
Ref Expression
etransclem35 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
Distinct variable groups:   𝐶,𝑐,𝑗,𝑥   𝐷,𝑐,𝑗   𝑀,𝑐,𝑗,𝑛,𝑥   𝑃,𝑐,𝑗,𝑛,𝑥   𝜑,𝑐,𝑗,𝑛,𝑥
Allowed substitution hints:   𝐶(𝑛)   𝐷(𝑥,𝑛)   𝐹(𝑥,𝑗,𝑛,𝑐)

Proof of Theorem etransclem35
Dummy variables 𝐴 𝑘 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 reelprrecn 10963 . . . 4 ℝ ∈ {ℝ, ℂ}
21a1i 11 . . 3 (𝜑 → ℝ ∈ {ℝ, ℂ})
3 reopn 42828 . . . . 5 ℝ ∈ (topGen‘ran (,))
4 eqid 2738 . . . . . 6 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
54tgioo2 23966 . . . . 5 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
63, 5eleqtri 2837 . . . 4 ℝ ∈ ((TopOpen‘ℂfld) ↾t ℝ)
76a1i 11 . . 3 (𝜑 → ℝ ∈ ((TopOpen‘ℂfld) ↾t ℝ))
8 etransclem35.p . . 3 (𝜑𝑃 ∈ ℕ)
9 etransclem35.m . . 3 (𝜑𝑀 ∈ ℕ0)
10 etransclem35.f . . 3 𝐹 = (𝑥 ∈ ℝ ↦ ((𝑥↑(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)((𝑥𝑗)↑𝑃)))
11 nnm1nn0 12274 . . . 4 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
128, 11syl 17 . . 3 (𝜑 → (𝑃 − 1) ∈ ℕ0)
13 etransclem5 43780 . . 3 (𝑘 ∈ (0...𝑀) ↦ (𝑦 ∈ ℝ ↦ ((𝑦𝑘)↑if(𝑘 = 0, (𝑃 − 1), 𝑃)))) = (𝑗 ∈ (0...𝑀) ↦ (𝑥 ∈ ℝ ↦ ((𝑥𝑗)↑if(𝑗 = 0, (𝑃 − 1), 𝑃))))
14 etransclem35.c . . 3 𝐶 = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
15 0red 10978 . . 3 (𝜑 → 0 ∈ ℝ)
162, 7, 8, 9, 10, 12, 13, 14, 15etransclem31 43806 . 2 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = Σ𝑐 ∈ (𝐶‘(𝑃 − 1))(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))))
17 nfv 1917 . . 3 𝑐𝜑
18 nfcv 2907 . . 3 𝑐(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))))
1914, 12etransclem16 43791 . . 3 (𝜑 → (𝐶‘(𝑃 − 1)) ∈ Fin)
20 simpr 485 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ (𝐶‘(𝑃 − 1)))
2114, 12etransclem12 43787 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘(𝑃 − 1)) = {𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
2221adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝐶‘(𝑃 − 1)) = {𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
2320, 22eleqtrd 2841 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
24 rabid 3310 . . . . . . . . . . . 12 (𝑐 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)} ↔ (𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)))
2523, 24sylib 217 . . . . . . . . . . 11 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)))
2625simprd 496 . . . . . . . . . 10 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
2726eqcomd 2744 . . . . . . . . 9 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑃 − 1) = Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
2827fveq2d 6778 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (!‘(𝑃 − 1)) = (!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)))
2928oveq1d 7290 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))))
30 nfcv 2907 . . . . . . . 8 𝑗𝑐
31 fzfid 13693 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (0...𝑀) ∈ Fin)
32 nn0ex 12239 . . . . . . . . . 10 0 ∈ V
33 fzssnn0 42856 . . . . . . . . . 10 (0...(𝑃 − 1)) ⊆ ℕ0
34 mapss 8677 . . . . . . . . . 10 ((ℕ0 ∈ V ∧ (0...(𝑃 − 1)) ⊆ ℕ0) → ((0...(𝑃 − 1)) ↑m (0...𝑀)) ⊆ (ℕ0m (0...𝑀)))
3532, 33, 34mp2an 689 . . . . . . . . 9 ((0...(𝑃 − 1)) ↑m (0...𝑀)) ⊆ (ℕ0m (0...𝑀))
3625simpld 495 . . . . . . . . 9 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)))
3735, 36sselid 3919 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ (ℕ0m (0...𝑀)))
3830, 31, 37mccl 43139 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℕ)
3929, 38eqeltrd 2839 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℕ)
4039nnzd 12425 . . . . 5 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℤ)
418adantr 481 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑃 ∈ ℕ)
429adantr 481 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑀 ∈ ℕ0)
43 elmapi 8637 . . . . . . . 8 (𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
4436, 43syl 17 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
45 0zd 12331 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ∈ ℤ)
4641, 42, 44, 45etransclem10 43785 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) ∈ ℤ)
47 fzfid 13693 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (1...𝑀) ∈ Fin)
488ad2antrr 723 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
4944adantr 481 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
50 fz1ssfz0 13352 . . . . . . . . . 10 (1...𝑀) ⊆ (0...𝑀)
5150sseli 3917 . . . . . . . . 9 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
5251adantl 482 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
53 0zd 12331 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 0 ∈ ℤ)
5448, 49, 52, 53etransclem3 43778 . . . . . . 7 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
5547, 54fprodzcl 15664 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
5646, 55zmulcld 12432 . . . . 5 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) ∈ ℤ)
5740, 56zmulcld 12432 . . . 4 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) ∈ ℤ)
5857zcnd 12427 . . 3 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) ∈ ℂ)
59 nn0uz 12620 . . . . . . . . . . 11 0 = (ℤ‘0)
6012, 59eleqtrdi 2849 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ (ℤ‘0))
61 eluzfz2 13264 . . . . . . . . . 10 ((𝑃 − 1) ∈ (ℤ‘0) → (𝑃 − 1) ∈ (0...(𝑃 − 1)))
6260, 61syl 17 . . . . . . . . 9 (𝜑 → (𝑃 − 1) ∈ (0...(𝑃 − 1)))
63 eluzfz1 13263 . . . . . . . . . 10 ((𝑃 − 1) ∈ (ℤ‘0) → 0 ∈ (0...(𝑃 − 1)))
6460, 63syl 17 . . . . . . . . 9 (𝜑 → 0 ∈ (0...(𝑃 − 1)))
6562, 64ifcld 4505 . . . . . . . 8 (𝜑 → if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1)))
6665adantr 481 . . . . . . 7 ((𝜑𝑗 ∈ (0...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1)))
67 etransclem35.d . . . . . . 7 𝐷 = (𝑗 ∈ (0...𝑀) ↦ if(𝑗 = 0, (𝑃 − 1), 0))
6866, 67fmptd 6988 . . . . . 6 (𝜑𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
69 ovex 7308 . . . . . . 7 (0...(𝑃 − 1)) ∈ V
70 ovex 7308 . . . . . . 7 (0...𝑀) ∈ V
7169, 70elmap 8659 . . . . . 6 (𝐷 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ↔ 𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
7268, 71sylibr 233 . . . . 5 (𝜑𝐷 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)))
739, 59eleqtrdi 2849 . . . . . . 7 (𝜑𝑀 ∈ (ℤ‘0))
74 fzsscn 42850 . . . . . . . 8 (0...(𝑃 − 1)) ⊆ ℂ
7568ffvelrnda 6961 . . . . . . . 8 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...(𝑃 − 1)))
7674, 75sselid 3919 . . . . . . 7 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
77 fveq2 6774 . . . . . . 7 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
7873, 76, 77fsum1p 15465 . . . . . 6 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
7967a1i 11 . . . . . . . 8 (𝜑𝐷 = (𝑗 ∈ (0...𝑀) ↦ if(𝑗 = 0, (𝑃 − 1), 0)))
80 simpr 485 . . . . . . . . 9 ((𝜑𝑗 = 0) → 𝑗 = 0)
8180iftrued 4467 . . . . . . . 8 ((𝜑𝑗 = 0) → if(𝑗 = 0, (𝑃 − 1), 0) = (𝑃 − 1))
82 eluzfz1 13263 . . . . . . . . 9 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
8373, 82syl 17 . . . . . . . 8 (𝜑 → 0 ∈ (0...𝑀))
8479, 81, 83, 12fvmptd 6882 . . . . . . 7 (𝜑 → (𝐷‘0) = (𝑃 − 1))
85 0p1e1 12095 . . . . . . . . . . 11 (0 + 1) = 1
8685oveq1i 7285 . . . . . . . . . 10 ((0 + 1)...𝑀) = (1...𝑀)
8786sumeq1i 15410 . . . . . . . . 9 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
8887a1i 11 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
8967fvmpt2 6886 . . . . . . . . . . 11 ((𝑗 ∈ (0...𝑀) ∧ if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1))) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
9051, 65, 89syl2anr 597 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
91 0red 10978 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑀) → 0 ∈ ℝ)
92 1red 10976 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 1 ∈ ℝ)
93 elfzelz 13256 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ ℤ)
9493zred 12426 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ ℝ)
95 0lt1 11497 . . . . . . . . . . . . . . . 16 0 < 1
9695a1i 11 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 0 < 1)
97 elfzle1 13259 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 1 ≤ 𝑗)
9891, 92, 94, 96, 97ltletrd 11135 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑀) → 0 < 𝑗)
9991, 98gtned 11110 . . . . . . . . . . . . 13 (𝑗 ∈ (1...𝑀) → 𝑗 ≠ 0)
10099neneqd 2948 . . . . . . . . . . . 12 (𝑗 ∈ (1...𝑀) → ¬ 𝑗 = 0)
101100iffalsed 4470 . . . . . . . . . . 11 (𝑗 ∈ (1...𝑀) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
102101adantl 482 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
10390, 102eqtrd 2778 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
104103sumeq2dv 15415 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
105 fzfi 13692 . . . . . . . . . 10 (1...𝑀) ∈ Fin
106105olci 863 . . . . . . . . 9 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
107 sumz 15434 . . . . . . . . 9 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
108106, 107mp1i 13 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ (1...𝑀)0 = 0)
10988, 104, 1083eqtrd 2782 . . . . . . 7 (𝜑 → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
11084, 109oveq12d 7293 . . . . . 6 (𝜑 → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
1118nncnd 11989 . . . . . . . 8 (𝜑𝑃 ∈ ℂ)
112 1cnd 10970 . . . . . . . 8 (𝜑 → 1 ∈ ℂ)
113111, 112subcld 11332 . . . . . . 7 (𝜑 → (𝑃 − 1) ∈ ℂ)
114113addid1d 11175 . . . . . 6 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
11578, 110, 1143eqtrd 2782 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
116 fveq1 6773 . . . . . . . 8 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
117116sumeq2sdv 15416 . . . . . . 7 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
118117eqeq1d 2740 . . . . . 6 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1) ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1)))
119118elrab 3624 . . . . 5 (𝐷 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)} ↔ (𝐷 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1)))
12072, 115, 119sylanbrc 583 . . . 4 (𝜑𝐷 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
121120, 21eleqtrrd 2842 . . 3 (𝜑𝐷 ∈ (𝐶‘(𝑃 − 1)))
122116fveq2d 6778 . . . . . 6 (𝑐 = 𝐷 → (!‘(𝑐𝑗)) = (!‘(𝐷𝑗)))
123122prodeq2ad 43133 . . . . 5 (𝑐 = 𝐷 → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) = ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)))
124123oveq2d 7291 . . . 4 (𝑐 = 𝐷 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) = ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
125 fveq1 6773 . . . . . . 7 (𝑐 = 𝐷 → (𝑐‘0) = (𝐷‘0))
126125breq2d 5086 . . . . . 6 (𝑐 = 𝐷 → ((𝑃 − 1) < (𝑐‘0) ↔ (𝑃 − 1) < (𝐷‘0)))
127125oveq2d 7291 . . . . . . . . 9 (𝑐 = 𝐷 → ((𝑃 − 1) − (𝑐‘0)) = ((𝑃 − 1) − (𝐷‘0)))
128127fveq2d 6778 . . . . . . . 8 (𝑐 = 𝐷 → (!‘((𝑃 − 1) − (𝑐‘0))) = (!‘((𝑃 − 1) − (𝐷‘0))))
129128oveq2d 7291 . . . . . . 7 (𝑐 = 𝐷 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) = ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))))
130127oveq2d 7291 . . . . . . 7 (𝑐 = 𝐷 → (0↑((𝑃 − 1) − (𝑐‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
131129, 130oveq12d 7293 . . . . . 6 (𝑐 = 𝐷 → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))))
132126, 131ifbieq2d 4485 . . . . 5 (𝑐 = 𝐷 → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))))
133116breq2d 5086 . . . . . . 7 (𝑐 = 𝐷 → (𝑃 < (𝑐𝑗) ↔ 𝑃 < (𝐷𝑗)))
134116oveq2d 7291 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑃 − (𝑐𝑗)) = (𝑃 − (𝐷𝑗)))
135134fveq2d 6778 . . . . . . . . 9 (𝑐 = 𝐷 → (!‘(𝑃 − (𝑐𝑗))) = (!‘(𝑃 − (𝐷𝑗))))
136135oveq2d 7291 . . . . . . . 8 (𝑐 = 𝐷 → ((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))))
137134oveq2d 7291 . . . . . . . 8 (𝑐 = 𝐷 → ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))) = ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))
138136, 137oveq12d 7293 . . . . . . 7 (𝑐 = 𝐷 → (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))
139133, 138ifbieq2d 4485 . . . . . 6 (𝑐 = 𝐷 → if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) = if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))
140139prodeq2ad 43133 . . . . 5 (𝑐 = 𝐷 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))
141132, 140oveq12d 7293 . . . 4 (𝑐 = 𝐷 → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))))
142124, 141oveq12d 7293 . . 3 (𝑐 = 𝐷 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))))
14317, 18, 19, 58, 121, 142fsumsplit1 15457 . 2 (𝜑 → Σ𝑐 ∈ (𝐶‘(𝑃 − 1))(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = ((((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) + Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))))))
14433, 75sselid 3919 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℕ0)
145144faccld 13998 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (!‘(𝐷𝑗)) ∈ ℕ)
146145nncnd 11989 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (!‘(𝐷𝑗)) ∈ ℂ)
14777fveq2d 6778 . . . . . . . . . 10 (𝑗 = 0 → (!‘(𝐷𝑗)) = (!‘(𝐷‘0)))
14873, 146, 147fprod1p 15678 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)) = ((!‘(𝐷‘0)) · ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗))))
14984fveq2d 6778 . . . . . . . . . 10 (𝜑 → (!‘(𝐷‘0)) = (!‘(𝑃 − 1)))
15086prodeq1i 15628 . . . . . . . . . . . 12 𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗))
151150a1i 11 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗)))
152103fveq2d 6778 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝐷𝑗)) = (!‘0))
153 fac0 13990 . . . . . . . . . . . . 13 (!‘0) = 1
154152, 153eqtrdi 2794 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝐷𝑗)) = 1)
155154prodeq2dv 15633 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)1)
156 prod1 15654 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → ∏𝑗 ∈ (1...𝑀)1 = 1)
157106, 156mp1i 13 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ (1...𝑀)1 = 1)
158151, 155, 1573eqtrd 2782 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = 1)
159149, 158oveq12d 7293 . . . . . . . . 9 (𝜑 → ((!‘(𝐷‘0)) · ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗))) = ((!‘(𝑃 − 1)) · 1))
16012faccld 13998 . . . . . . . . . . 11 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
161160nncnd 11989 . . . . . . . . . 10 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
162161mulid1d 10992 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
163148, 159, 1623eqtrd 2782 . . . . . . . 8 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)) = (!‘(𝑃 − 1)))
164163oveq2d 7291 . . . . . . 7 (𝜑 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘(𝑃 − 1)) / (!‘(𝑃 − 1))))
165160nnne0d 12023 . . . . . . . 8 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
166161, 165dividd 11749 . . . . . . 7 (𝜑 → ((!‘(𝑃 − 1)) / (!‘(𝑃 − 1))) = 1)
167164, 166eqtrd 2778 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = 1)
16812nn0red 12294 . . . . . . . . . . . . 13 (𝜑 → (𝑃 − 1) ∈ ℝ)
16984, 168eqeltrd 2839 . . . . . . . . . . . 12 (𝜑 → (𝐷‘0) ∈ ℝ)
170169, 168lttri3d 11115 . . . . . . . . . . 11 (𝜑 → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
17184, 170mpbid 231 . . . . . . . . . 10 (𝜑 → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
172171simprd 496 . . . . . . . . 9 (𝜑 → ¬ (𝑃 − 1) < (𝐷‘0))
173172iffalsed 4470 . . . . . . . 8 (𝜑 → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))))
17484eqcomd 2744 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) = (𝐷‘0))
175113, 174subeq0bd 11401 . . . . . . . . . . . . 13 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) = 0)
176175fveq2d 6778 . . . . . . . . . . . 12 (𝜑 → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
177176, 153eqtrdi 2794 . . . . . . . . . . 11 (𝜑 → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
178177oveq2d 7291 . . . . . . . . . 10 (𝜑 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
179161div1d 11743 . . . . . . . . . 10 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
180178, 179eqtrd 2778 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
181175oveq2d 7291 . . . . . . . . . 10 (𝜑 → (0↑((𝑃 − 1) − (𝐷‘0))) = (0↑0))
182 0cnd 10968 . . . . . . . . . . 11 (𝜑 → 0 ∈ ℂ)
183182exp0d 13858 . . . . . . . . . 10 (𝜑 → (0↑0) = 1)
184181, 183eqtrd 2778 . . . . . . . . 9 (𝜑 → (0↑((𝑃 − 1) − (𝐷‘0))) = 1)
185180, 184oveq12d 7293 . . . . . . . 8 (𝜑 → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
186173, 185, 1623eqtrd 2782 . . . . . . 7 (𝜑 → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
187 fzssre 42853 . . . . . . . . . . . 12 (0...(𝑃 − 1)) ⊆ ℝ
18868adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
18951adantl 482 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
190188, 189ffvelrnd 6962 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...(𝑃 − 1)))
191187, 190sselid 3919 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℝ)
1928nnred 11988 . . . . . . . . . . . 12 (𝜑𝑃 ∈ ℝ)
193192adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℝ)
1948nngt0d 12022 . . . . . . . . . . . . . 14 (𝜑 → 0 < 𝑃)
19515, 192, 194ltled 11123 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ 𝑃)
196195adantr 481 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → 0 ≤ 𝑃)
197103, 196eqbrtrd 5096 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ≤ 𝑃)
198191, 193, 197lensymd 11126 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ¬ 𝑃 < (𝐷𝑗))
199198iffalsed 4470 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))
200103oveq2d 7291 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑗)) = (𝑃 − 0))
201111adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℂ)
202201subid1d 11321 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − 0) = 𝑃)
203200, 202eqtrd 2778 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑗)) = 𝑃)
204203fveq2d 6778 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝑃 − (𝐷𝑗))) = (!‘𝑃))
205204oveq2d 7291 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘𝑃)))
2068nnnn0d 12293 . . . . . . . . . . . . . . 15 (𝜑𝑃 ∈ ℕ0)
207206faccld 13998 . . . . . . . . . . . . . 14 (𝜑 → (!‘𝑃) ∈ ℕ)
208207nncnd 11989 . . . . . . . . . . . . 13 (𝜑 → (!‘𝑃) ∈ ℂ)
209207nnne0d 12023 . . . . . . . . . . . . 13 (𝜑 → (!‘𝑃) ≠ 0)
210208, 209dividd 11749 . . . . . . . . . . . 12 (𝜑 → ((!‘𝑃) / (!‘𝑃)) = 1)
211210adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘𝑃)) = 1)
212205, 211eqtrd 2778 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = 1)
213 df-neg 11208 . . . . . . . . . . . . 13 -𝑗 = (0 − 𝑗)
214213eqcomi 2747 . . . . . . . . . . . 12 (0 − 𝑗) = -𝑗
215214a1i 11 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (0 − 𝑗) = -𝑗)
216215, 203oveq12d 7293 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))) = (-𝑗𝑃))
217212, 216oveq12d 7293 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))) = (1 · (-𝑗𝑃)))
21893znegcld 12428 . . . . . . . . . . . . 13 (𝑗 ∈ (1...𝑀) → -𝑗 ∈ ℤ)
219218zcnd 12427 . . . . . . . . . . . 12 (𝑗 ∈ (1...𝑀) → -𝑗 ∈ ℂ)
220219adantl 482 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → -𝑗 ∈ ℂ)
221206adantr 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ0)
222220, 221expcld 13864 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → (-𝑗𝑃) ∈ ℂ)
223222mulid2d 10993 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (1 · (-𝑗𝑃)) = (-𝑗𝑃))
224199, 217, 2233eqtrd 2782 . . . . . . . 8 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = (-𝑗𝑃))
225224prodeq2dv 15633 . . . . . . 7 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))
226186, 225oveq12d 7293 . . . . . 6 (𝜑 → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
227167, 226oveq12d 7293 . . . . 5 (𝜑 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) = (1 · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))))
228 fzfid 13693 . . . . . . . . 9 (𝜑 → (1...𝑀) ∈ Fin)
229 zexpcl 13797 . . . . . . . . . 10 ((-𝑗 ∈ ℤ ∧ 𝑃 ∈ ℕ0) → (-𝑗𝑃) ∈ ℤ)
230218, 206, 229syl2anr 597 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (-𝑗𝑃) ∈ ℤ)
231228, 230fprodzcl 15664 . . . . . . . 8 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) ∈ ℤ)
232231zcnd 12427 . . . . . . 7 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) ∈ ℂ)
233161, 232mulcld 10995 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) ∈ ℂ)
234233mulid2d 10993 . . . . 5 (𝜑 → (1 · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
235227, 234eqtrd 2778 . . . 4 (𝜑 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
236 eldifi 4061 . . . . . . . . . . . . . . 15 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → 𝑐 ∈ (𝐶‘(𝑃 − 1)))
23783adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ∈ (0...𝑀))
23844, 237ffvelrnd 6962 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑐‘0) ∈ (0...(𝑃 − 1)))
239236, 238sylan2 593 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ (0...(𝑃 − 1)))
240187, 239sselid 3919 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ ℝ)
241168adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ∈ ℝ)
242 elfzle2 13260 . . . . . . . . . . . . . 14 ((𝑐‘0) ∈ (0...(𝑃 − 1)) → (𝑐‘0) ≤ (𝑃 − 1))
243239, 242syl 17 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ≤ (𝑃 − 1))
244240, 241, 243lensymd 11126 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ¬ (𝑃 − 1) < (𝑐‘0))
245244iffalsed 4470 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))))
24612nn0zd 12424 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑃 − 1) ∈ ℤ)
247246adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ∈ ℤ)
248239elfzelzd 13257 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ ℤ)
249247, 248zsubcld 12431 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℤ)
25044ffnd 6601 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 Fn (0...𝑀))
251250adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 Fn (0...𝑀))
25268ffnd 6601 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐷 Fn (0...𝑀))
253252ad2antrr 723 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝐷 Fn (0...𝑀))
254 fveq2 6774 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = 0 → (𝑐𝑗) = (𝑐‘0))
255254adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝑐‘0))
256 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑃 − 1) = (𝑐‘0) → (𝑃 − 1) = (𝑐‘0))
257256eqcomd 2744 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑃 − 1) = (𝑐‘0) → (𝑐‘0) = (𝑃 − 1))
258257ad2antlr 724 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐‘0) = (𝑃 − 1))
25977adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 = 0) → (𝐷𝑗) = (𝐷‘0))
26084adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 = 0) → (𝐷‘0) = (𝑃 − 1))
261259, 260eqtr2d 2779 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑗 = 0) → (𝑃 − 1) = (𝐷𝑗))
262261adantlr 712 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑃 − 1) = (𝐷𝑗))
263255, 258, 2623eqtrd 2782 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
264263adantllr 716 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
265264adantlr 712 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
26626ad4antr 729 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
267168ad5antr 731 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) ∈ ℝ)
268168ad4antr 729 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) ∈ ℝ)
26944adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
27050sseli 3917 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
271270adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
272269, 271ffvelrnd 6962 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ (0...(𝑃 − 1)))
27333, 272sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℕ0)
27447, 273fsumnn0cl 15448 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℕ0)
275274nn0red 12294 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ)
276275ad3antrrr 727 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ)
277 0red 10978 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 ∈ ℝ)
27844ffvelrnda 6961 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ (0...(𝑃 − 1)))
279187, 278sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℝ)
280279ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ∈ ℝ)
281 nfv 1917 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 𝑘((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0)
282 nfcv 2907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 𝑘(𝑐𝑗)
283 fzfid 13693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (1...𝑀) ∈ Fin)
284 simp-4l 780 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (1...𝑀)) → (𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))))
28574, 272sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℂ)
286284, 285sylancom 588 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℂ)
287 1zzd 12351 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 1 ∈ ℤ)
288 elfzel2 13254 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑗 ∈ (0...𝑀) → 𝑀 ∈ ℤ)
289288adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑀 ∈ ℤ)
290 elfzelz 13256 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℤ)
291290adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℤ)
292 elfznn0 13349 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
293292adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℕ0)
294 neqne 2951 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 𝑗 = 0 → 𝑗 ≠ 0)
295294adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ≠ 0)
296 elnnne0 12247 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑗 ∈ ℕ ↔ (𝑗 ∈ ℕ0𝑗 ≠ 0))
297293, 295, 296sylanbrc 583 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℕ)
298297nnge1d 12021 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 1 ≤ 𝑗)
299 elfzle2 13260 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑗 ∈ (0...𝑀) → 𝑗𝑀)
300299adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗𝑀)
301287, 289, 291, 298, 300elfzd 13247 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ (1...𝑀))
302301adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑗 ∈ (1...𝑀))
303302adantlll 715 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑗 ∈ (1...𝑀))
304 fveq2 6774 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑘 = 𝑗 → (𝑐𝑘) = (𝑐𝑗))
305281, 282, 283, 286, 303, 304fsumsplit1 15457 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) = ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
306305eqcomd 2744 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
307306, 276eqeltrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)) ∈ ℝ)
308 elfzle1 13259 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑗) ∈ (0...(𝑃 − 1)) → 0 ≤ (𝑐𝑗))
309278, 308syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ≤ (𝑐𝑗))
310309ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 ≤ (𝑐𝑗))
311 neqne 2951 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (¬ (𝑐𝑗) = 0 → (𝑐𝑗) ≠ 0)
312311adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ≠ 0)
313277, 280, 310, 312leneltd 11129 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < (𝑐𝑗))
314 diffi 8962 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((1...𝑀) ∈ Fin → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
315105, 314mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
316 eldifi 4061 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑘 ∈ ((1...𝑀) ∖ {𝑗}) → 𝑘 ∈ (1...𝑀))
317316adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑘 ∈ (1...𝑀))
31850, 317sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑘 ∈ (0...𝑀))
31944ffvelrnda 6961 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ (0...(𝑃 − 1)))
320187, 319sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℝ)
321318, 320syldan 591 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → (𝑐𝑘) ∈ ℝ)
322 elfzle1 13259 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑐𝑘) ∈ (0...(𝑃 − 1)) → 0 ≤ (𝑐𝑘))
323319, 322syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → 0 ≤ (𝑐𝑘))
324318, 323syldan 591 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 0 ≤ (𝑐𝑘))
325315, 321, 324fsumge0 15507 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))
326325adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))
327315, 321fsumrecl 15446 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ∈ ℝ)
328327adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ∈ ℝ)
329279, 328addge01d 11563 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ↔ (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))))
330326, 329mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
331330ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
332277, 280, 307, 313, 331ltletrd 11135 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
333332, 306breqtrd 5100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
334276, 333elrpd 12769 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ+)
335268, 334ltaddrpd 12805 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
336335adantl3r 747 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
337 fveq2 6774 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 = 𝑘 → (𝑐𝑗) = (𝑐𝑘))
338337cbvsumv 15408 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑘 ∈ (0...𝑀)(𝑐𝑘)
339338a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑘 ∈ (0...𝑀)(𝑐𝑘))
34073ad5antr 731 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑀 ∈ (ℤ‘0))
341 simp-5l 782 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (0...𝑀)) → (𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))))
34274, 319sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℂ)
343341, 342sylancom 588 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℂ)
344 fveq2 6774 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑘 = 0 → (𝑐𝑘) = (𝑐‘0))
345340, 343, 344fsum1p 15465 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (0...𝑀)(𝑐𝑘) = ((𝑐‘0) + Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘)))
346257ad4antlr 730 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐‘0) = (𝑃 − 1))
34786sumeq1i 15410 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)
348347a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
349346, 348oveq12d 7293 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐‘0) + Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘)) = ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
350339, 345, 3493eqtrrd 2783 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)) = Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
351336, 350breqtrd 5100 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
352267, 351gtned 11110 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) ≠ (𝑃 − 1))
353352neneqd 2948 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ¬ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
354266, 353condan 815 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝑐𝑗) = 0)
355 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑗 ∈ (0...𝑀)) → 𝑗 ∈ (0...𝑀))
35633, 66sselid 3919 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑗 ∈ (0...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) ∈ ℕ0)
35767fvmpt2 6886 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ (0...𝑀) ∧ if(𝑗 = 0, (𝑃 − 1), 0) ∈ ℕ0) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
358355, 356, 357syl2anc 584 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
359358adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
360 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → ¬ 𝑗 = 0)
361360iffalsed 4470 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
362359, 361eqtr2d 2779 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
363362adantllr 716 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
364363adantllr 716 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
365354, 364eqtrd 2778 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
366265, 365pm2.61dan 810 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) = (𝐷𝑗))
367251, 253, 366eqfnfvd 6912 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 = 𝐷)
368236, 367sylanl2 678 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 = 𝐷)
369 eldifsni 4723 . . . . . . . . . . . . . . . . . . . 20 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → 𝑐𝐷)
370369neneqd 2948 . . . . . . . . . . . . . . . . . . 19 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → ¬ 𝑐 = 𝐷)
371370ad2antlr 724 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ (𝑃 − 1) = (𝑐‘0)) → ¬ 𝑐 = 𝐷)
372368, 371pm2.65da 814 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ¬ (𝑃 − 1) = (𝑐‘0))
373372neqned 2950 . . . . . . . . . . . . . . . 16 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ≠ (𝑐‘0))
374240, 241, 243, 373leneltd 11129 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) < (𝑃 − 1))
375240, 241posdifd 11562 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑐‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝑐‘0))))
376374, 375mpbid 231 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → 0 < ((𝑃 − 1) − (𝑐‘0)))
377 elnnz 12329 . . . . . . . . . . . . . 14 (((𝑃 − 1) − (𝑐‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝑐‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝑐‘0))))
378249, 376, 377sylanbrc 583 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℕ)
3793780expd 13857 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0↑((𝑃 − 1) − (𝑐‘0))) = 0)
380379oveq2d 7291 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · 0))
381161adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘(𝑃 − 1)) ∈ ℂ)
382378nnnn0d 12293 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℕ0)
383382faccld 13998 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ∈ ℕ)
384383nncnd 11989 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ∈ ℂ)
385383nnne0d 12023 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ≠ 0)
386381, 384, 385divcld 11751 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) ∈ ℂ)
387386mul01d 11174 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · 0) = 0)
388245, 380, 3873eqtrd 2782 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = 0)
389388oveq1d 7290 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))))
390236, 55sylan2 593 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
391390zcnd 12427 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℂ)
392391mul02d 11173 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = 0)
393389, 392eqtrd 2778 . . . . . . . 8 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = 0)
394393oveq2d 7291 . . . . . . 7 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · 0))
395 fzfid 13693 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0...𝑀) ∈ Fin)
39633, 278sselid 3919 . . . . . . . . . . . . 13 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℕ0)
397236, 396sylanl2 678 . . . . . . . . . . . 12 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℕ0)
398397faccld 13998 . . . . . . . . . . 11 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝑐𝑗)) ∈ ℕ)
399395, 398fprodnncl 15665 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ∈ ℕ)
400399nncnd 11989 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ∈ ℂ)
401399nnne0d 12023 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ≠ 0)
402381, 400, 401divcld 11751 . . . . . . . 8 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℂ)
403402mul01d 11174 . . . . . . 7 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · 0) = 0)
404394, 403eqtrd 2778 . . . . . 6 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = 0)
405404sumeq2dv 15415 . . . . 5 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0)
406 diffi 8962 . . . . . . . 8 ((𝐶‘(𝑃 − 1)) ∈ Fin → ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin)
40719, 406syl 17 . . . . . . 7 (𝜑 → ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin)
408407olcd 871 . . . . . 6 (𝜑 → (((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ⊆ (ℤ‘0) ∨ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin))
409 sumz 15434 . . . . . 6 ((((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ⊆ (ℤ‘0) ∨ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin) → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0 = 0)
410408, 409syl 17 . . . . 5 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0 = 0)
411405, 410eqtrd 2778 . . . 4 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = 0)
412235, 411oveq12d 7293 . . 3 (𝜑 → ((((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) + Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))))) = (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) + 0))
413233addid1d 11175 . . 3 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) + 0) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
414 nfv 1917 . . . . 5 𝑗𝜑
415414, 206, 228, 220fprodexp 43135 . . . 4 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) = (∏𝑗 ∈ (1...𝑀)-𝑗𝑃))
416415oveq2d 7291 . . 3 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
417412, 413, 4163eqtrd 2782 . 2 (𝜑 → ((((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) + Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))))) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
41816, 143, 4173eqtrd 2782 1 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  wo 844   = wceq 1539  wcel 2106  wne 2943  {crab 3068  Vcvv 3432  cdif 3884  wss 3887  ifcif 4459  {csn 4561  {cpr 4563   class class class wbr 5074  cmpt 5157  ran crn 5590   Fn wfn 6428  wf 6429  cfv 6433  (class class class)co 7275  m cmap 8615  Fincfn 8733  cc 10869  cr 10870  0cc0 10871  1c1 10872   + caddc 10874   · cmul 10876   < clt 11009  cle 11010  cmin 11205  -cneg 11206   / cdiv 11632  cn 11973  0cn0 12233  cz 12319  cuz 12582  (,)cioo 13079  ...cfz 13239  cexp 13782  !cfa 13987  Σcsu 15397  cprod 15615  t crest 17131  TopOpenctopn 17132  topGenctg 17148  fldccnfld 20597   D𝑛 cdvn 25028
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-inf2 9399  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948  ax-pre-sup 10949  ax-addf 10950  ax-mulf 10951
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-tp 4566  df-op 4568  df-uni 4840  df-int 4880  df-iun 4926  df-iin 4927  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-se 5545  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-isom 6442  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-of 7533  df-om 7713  df-1st 7831  df-2nd 7832  df-supp 7978  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-1o 8297  df-2o 8298  df-er 8498  df-map 8617  df-pm 8618  df-ixp 8686  df-en 8734  df-dom 8735  df-sdom 8736  df-fin 8737  df-fsupp 9129  df-fi 9170  df-sup 9201  df-inf 9202  df-oi 9269  df-card 9697  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-div 11633  df-nn 11974  df-2 12036  df-3 12037  df-4 12038  df-5 12039  df-6 12040  df-7 12041  df-8 12042  df-9 12043  df-n0 12234  df-z 12320  df-dec 12438  df-uz 12583  df-q 12689  df-rp 12731  df-xneg 12848  df-xadd 12849  df-xmul 12850  df-ioo 13083  df-ico 13085  df-icc 13086  df-fz 13240  df-fzo 13383  df-seq 13722  df-exp 13783  df-fac 13988  df-bc 14017  df-hash 14045  df-cj 14810  df-re 14811  df-im 14812  df-sqrt 14946  df-abs 14947  df-clim 15197  df-sum 15398  df-prod 15616  df-struct 16848  df-sets 16865  df-slot 16883  df-ndx 16895  df-base 16913  df-ress 16942  df-plusg 16975  df-mulr 16976  df-starv 16977  df-sca 16978  df-vsca 16979  df-ip 16980  df-tset 16981  df-ple 16982  df-ds 16984  df-unif 16985  df-hom 16986  df-cco 16987  df-rest 17133  df-topn 17134  df-0g 17152  df-gsum 17153  df-topgen 17154  df-pt 17155  df-prds 17158  df-xrs 17213  df-qtop 17218  df-imas 17219  df-xps 17221  df-mre 17295  df-mrc 17296  df-acs 17298  df-mgm 18326  df-sgrp 18375  df-mnd 18386  df-submnd 18431  df-mulg 18701  df-cntz 18923  df-cmn 19388  df-psmet 20589  df-xmet 20590  df-met 20591  df-bl 20592  df-mopn 20593  df-fbas 20594  df-fg 20595  df-cnfld 20598  df-top 22043  df-topon 22060  df-topsp 22082  df-bases 22096  df-cld 22170  df-ntr 22171  df-cls 22172  df-nei 22249  df-lp 22287  df-perf 22288  df-cn 22378  df-cnp 22379  df-haus 22466  df-tx 22713  df-hmeo 22906  df-fil 22997  df-fm 23089  df-flim 23090  df-flf 23091  df-xms 23473  df-ms 23474  df-tms 23475  df-cncf 24041  df-limc 25030  df-dv 25031  df-dvn 25032
This theorem is referenced by:  etransclem41  43816
  Copyright terms: Public domain W3C validator