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 41123
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...𝑛) ↑𝑚 (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 10281 . . . 4 ℝ ∈ {ℝ, ℂ}
21a1i 11 . . 3 (𝜑 → ℝ ∈ {ℝ, ℂ})
3 reopn 40141 . . . . 5 ℝ ∈ (topGen‘ran (,))
4 eqid 2765 . . . . . 6 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
54tgioo2 22885 . . . . 5 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
63, 5eleqtri 2842 . . . 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 11581 . . . 4 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
128, 11syl 17 . . 3 (𝜑 → (𝑃 − 1) ∈ ℕ0)
13 etransclem5 41093 . . 3 (𝑘 ∈ (0...𝑀) ↦ (𝑦 ∈ ℝ ↦ ((𝑦𝑘)↑if(𝑘 = 0, (𝑃 − 1), 𝑃)))) = (𝑗 ∈ (0...𝑀) ↦ (𝑥 ∈ ℝ ↦ ((𝑥𝑗)↑if(𝑗 = 0, (𝑃 − 1), 𝑃))))
14 etransclem35.c . . 3 𝐶 = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
15 0red 10297 . . 3 (𝜑 → 0 ∈ ℝ)
162, 7, 8, 9, 10, 12, 13, 14, 15etransclem31 41119 . 2 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = Σ𝑐 ∈ (𝐶‘(𝑃 − 1))(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))))
17 nfv 2009 . . 3 𝑐𝜑
18 nfcv 2907 . . 3 𝑐(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))))
1914, 12etransclem16 41104 . . 3 (𝜑 → (𝐶‘(𝑃 − 1)) ∈ Fin)
20 simpr 477 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ (𝐶‘(𝑃 − 1)))
2114, 12etransclem12 41100 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘(𝑃 − 1)) = {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
2221adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝐶‘(𝑃 − 1)) = {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
2320, 22eleqtrd 2846 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
24 rabid 3263 . . . . . . . . . . . 12 (𝑐 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)} ↔ (𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)))
2523, 24sylib 209 . . . . . . . . . . 11 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)))
2625simprd 489 . . . . . . . . . 10 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
2726eqcomd 2771 . . . . . . . . 9 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑃 − 1) = Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
2827fveq2d 6379 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (!‘(𝑃 − 1)) = (!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)))
2928oveq1d 6857 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))))
30 nfcv 2907 . . . . . . . 8 𝑗𝑐
31 fzfid 12980 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (0...𝑀) ∈ Fin)
32 nn0ex 11545 . . . . . . . . . 10 0 ∈ V
33 fzssnn0 40171 . . . . . . . . . 10 (0...(𝑃 − 1)) ⊆ ℕ0
34 mapss 8105 . . . . . . . . . 10 ((ℕ0 ∈ V ∧ (0...(𝑃 − 1)) ⊆ ℕ0) → ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀)))
3532, 33, 34mp2an 683 . . . . . . . . 9 ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀))
3625simpld 488 . . . . . . . . 9 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)))
3735, 36sseldi 3759 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ (ℕ0𝑚 (0...𝑀)))
3830, 31, 37mccl 40468 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℕ)
3929, 38eqeltrd 2844 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℕ)
4039nnzd 11728 . . . . 5 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℤ)
418adantr 472 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑃 ∈ ℕ)
429adantr 472 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑀 ∈ ℕ0)
43 elmapi 8082 . . . . . . . 8 (𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
4436, 43syl 17 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
45 0zd 11636 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ∈ ℤ)
4641, 42, 44, 45etransclem10 41098 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) ∈ ℤ)
47 fzfid 12980 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (1...𝑀) ∈ Fin)
488ad2antrr 717 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
4944adantr 472 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
50 fz1ssfz0 12643 . . . . . . . . . 10 (1...𝑀) ⊆ (0...𝑀)
5150sseli 3757 . . . . . . . . 9 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
5251adantl 473 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
53 0zd 11636 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 0 ∈ ℤ)
5448, 49, 52, 53etransclem3 41091 . . . . . . 7 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
5547, 54fprodzcl 14967 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
5646, 55zmulcld 11735 . . . . 5 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) ∈ ℤ)
5740, 56zmulcld 11735 . . . 4 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) ∈ ℤ)
5857zcnd 11730 . . 3 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) ∈ ℂ)
59 nn0uz 11922 . . . . . . . . . . 11 0 = (ℤ‘0)
6012, 59syl6eleq 2854 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ (ℤ‘0))
61 eluzfz2 12556 . . . . . . . . . 10 ((𝑃 − 1) ∈ (ℤ‘0) → (𝑃 − 1) ∈ (0...(𝑃 − 1)))
6260, 61syl 17 . . . . . . . . 9 (𝜑 → (𝑃 − 1) ∈ (0...(𝑃 − 1)))
63 eluzfz1 12555 . . . . . . . . . 10 ((𝑃 − 1) ∈ (ℤ‘0) → 0 ∈ (0...(𝑃 − 1)))
6460, 63syl 17 . . . . . . . . 9 (𝜑 → 0 ∈ (0...(𝑃 − 1)))
6562, 64ifcld 4288 . . . . . . . 8 (𝜑 → if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1)))
6665adantr 472 . . . . . . 7 ((𝜑𝑗 ∈ (0...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1)))
67 etransclem35.d . . . . . . 7 𝐷 = (𝑗 ∈ (0...𝑀) ↦ if(𝑗 = 0, (𝑃 − 1), 0))
6866, 67fmptd 6574 . . . . . 6 (𝜑𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
69 ovex 6874 . . . . . . 7 (0...(𝑃 − 1)) ∈ V
70 ovex 6874 . . . . . . 7 (0...𝑀) ∈ V
7169, 70elmap 8089 . . . . . 6 (𝐷 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ↔ 𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
7268, 71sylibr 225 . . . . 5 (𝜑𝐷 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)))
739, 59syl6eleq 2854 . . . . . . 7 (𝜑𝑀 ∈ (ℤ‘0))
74 fzsscn 40164 . . . . . . . 8 (0...(𝑃 − 1)) ⊆ ℂ
7568ffvelrnda 6549 . . . . . . . 8 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...(𝑃 − 1)))
7674, 75sseldi 3759 . . . . . . 7 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
77 fveq2 6375 . . . . . . 7 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
7873, 76, 77fsum1p 14767 . . . . . 6 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
7967a1i 11 . . . . . . . 8 (𝜑𝐷 = (𝑗 ∈ (0...𝑀) ↦ if(𝑗 = 0, (𝑃 − 1), 0)))
80 simpr 477 . . . . . . . . 9 ((𝜑𝑗 = 0) → 𝑗 = 0)
8180iftrued 4251 . . . . . . . 8 ((𝜑𝑗 = 0) → if(𝑗 = 0, (𝑃 − 1), 0) = (𝑃 − 1))
82 eluzfz1 12555 . . . . . . . . 9 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
8373, 82syl 17 . . . . . . . 8 (𝜑 → 0 ∈ (0...𝑀))
8479, 81, 83, 12fvmptd 6477 . . . . . . 7 (𝜑 → (𝐷‘0) = (𝑃 − 1))
85 0p1e1 11401 . . . . . . . . . . 11 (0 + 1) = 1
8685oveq1i 6852 . . . . . . . . . 10 ((0 + 1)...𝑀) = (1...𝑀)
8786sumeq1i 14713 . . . . . . . . 9 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
8887a1i 11 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
8967fvmpt2 6480 . . . . . . . . . . 11 ((𝑗 ∈ (0...𝑀) ∧ if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1))) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
9051, 65, 89syl2anr 590 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
91 0red 10297 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑀) → 0 ∈ ℝ)
92 1red 10294 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 1 ∈ ℝ)
93 elfzelz 12549 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ ℤ)
9493zred 11729 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ ℝ)
95 0lt1 10804 . . . . . . . . . . . . . . . 16 0 < 1
9695a1i 11 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 0 < 1)
97 elfzle1 12551 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 1 ≤ 𝑗)
9891, 92, 94, 96, 97ltletrd 10451 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑀) → 0 < 𝑗)
9991, 98gtned 10426 . . . . . . . . . . . . 13 (𝑗 ∈ (1...𝑀) → 𝑗 ≠ 0)
10099neneqd 2942 . . . . . . . . . . . 12 (𝑗 ∈ (1...𝑀) → ¬ 𝑗 = 0)
101100iffalsed 4254 . . . . . . . . . . 11 (𝑗 ∈ (1...𝑀) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
102101adantl 473 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
10390, 102eqtrd 2799 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
104103sumeq2dv 14718 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
105 fzfi 12979 . . . . . . . . . 10 (1...𝑀) ∈ Fin
106105olci 892 . . . . . . . . 9 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
107 sumz 14738 . . . . . . . . 9 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
108106, 107mp1i 13 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ (1...𝑀)0 = 0)
10988, 104, 1083eqtrd 2803 . . . . . . 7 (𝜑 → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
11084, 109oveq12d 6860 . . . . . 6 (𝜑 → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
1118nncnd 11292 . . . . . . . 8 (𝜑𝑃 ∈ ℂ)
112 1cnd 10288 . . . . . . . 8 (𝜑 → 1 ∈ ℂ)
113111, 112subcld 10646 . . . . . . 7 (𝜑 → (𝑃 − 1) ∈ ℂ)
114113addid1d 10490 . . . . . 6 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
11578, 110, 1143eqtrd 2803 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
116 fveq1 6374 . . . . . . . 8 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
117116sumeq2ad 14719 . . . . . . 7 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
118117eqeq1d 2767 . . . . . 6 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1) ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1)))
119118elrab 3519 . . . . 5 (𝐷 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)} ↔ (𝐷 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1)))
12072, 115, 119sylanbrc 578 . . . 4 (𝜑𝐷 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
121120, 21eleqtrrd 2847 . . 3 (𝜑𝐷 ∈ (𝐶‘(𝑃 − 1)))
122116fveq2d 6379 . . . . . 6 (𝑐 = 𝐷 → (!‘(𝑐𝑗)) = (!‘(𝐷𝑗)))
123122prodeq2ad 40462 . . . . 5 (𝑐 = 𝐷 → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) = ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)))
124123oveq2d 6858 . . . 4 (𝑐 = 𝐷 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) = ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
125 fveq1 6374 . . . . . . 7 (𝑐 = 𝐷 → (𝑐‘0) = (𝐷‘0))
126125breq2d 4821 . . . . . 6 (𝑐 = 𝐷 → ((𝑃 − 1) < (𝑐‘0) ↔ (𝑃 − 1) < (𝐷‘0)))
127125oveq2d 6858 . . . . . . . . 9 (𝑐 = 𝐷 → ((𝑃 − 1) − (𝑐‘0)) = ((𝑃 − 1) − (𝐷‘0)))
128127fveq2d 6379 . . . . . . . 8 (𝑐 = 𝐷 → (!‘((𝑃 − 1) − (𝑐‘0))) = (!‘((𝑃 − 1) − (𝐷‘0))))
129128oveq2d 6858 . . . . . . 7 (𝑐 = 𝐷 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) = ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))))
130127oveq2d 6858 . . . . . . 7 (𝑐 = 𝐷 → (0↑((𝑃 − 1) − (𝑐‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
131129, 130oveq12d 6860 . . . . . 6 (𝑐 = 𝐷 → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))))
132126, 131ifbieq2d 4268 . . . . 5 (𝑐 = 𝐷 → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))))
133116breq2d 4821 . . . . . . 7 (𝑐 = 𝐷 → (𝑃 < (𝑐𝑗) ↔ 𝑃 < (𝐷𝑗)))
134116oveq2d 6858 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑃 − (𝑐𝑗)) = (𝑃 − (𝐷𝑗)))
135134fveq2d 6379 . . . . . . . . 9 (𝑐 = 𝐷 → (!‘(𝑃 − (𝑐𝑗))) = (!‘(𝑃 − (𝐷𝑗))))
136135oveq2d 6858 . . . . . . . 8 (𝑐 = 𝐷 → ((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))))
137134oveq2d 6858 . . . . . . . 8 (𝑐 = 𝐷 → ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))) = ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))
138136, 137oveq12d 6860 . . . . . . 7 (𝑐 = 𝐷 → (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))
139133, 138ifbieq2d 4268 . . . . . 6 (𝑐 = 𝐷 → if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) = if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))
140139prodeq2ad 40462 . . . . 5 (𝑐 = 𝐷 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))
141132, 140oveq12d 6860 . . . 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 6860 . . 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 40442 . 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, 75sseldi 3759 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℕ0)
145144faccld 13275 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (!‘(𝐷𝑗)) ∈ ℕ)
146145nncnd 11292 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (!‘(𝐷𝑗)) ∈ ℂ)
14777fveq2d 6379 . . . . . . . . . 10 (𝑗 = 0 → (!‘(𝐷𝑗)) = (!‘(𝐷‘0)))
14873, 146, 147fprod1p 14981 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)) = ((!‘(𝐷‘0)) · ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗))))
14984fveq2d 6379 . . . . . . . . . 10 (𝜑 → (!‘(𝐷‘0)) = (!‘(𝑃 − 1)))
15086prodeq1i 14931 . . . . . . . . . . . 12 𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗))
151150a1i 11 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗)))
152103fveq2d 6379 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝐷𝑗)) = (!‘0))
153 fac0 13267 . . . . . . . . . . . . 13 (!‘0) = 1
154152, 153syl6eq 2815 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝐷𝑗)) = 1)
155154prodeq2dv 14936 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)1)
156 prod1 14957 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → ∏𝑗 ∈ (1...𝑀)1 = 1)
157106, 156mp1i 13 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ (1...𝑀)1 = 1)
158151, 155, 1573eqtrd 2803 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = 1)
159149, 158oveq12d 6860 . . . . . . . . 9 (𝜑 → ((!‘(𝐷‘0)) · ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗))) = ((!‘(𝑃 − 1)) · 1))
16012faccld 13275 . . . . . . . . . . 11 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
161160nncnd 11292 . . . . . . . . . 10 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
162161mulid1d 10311 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
163148, 159, 1623eqtrd 2803 . . . . . . . 8 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)) = (!‘(𝑃 − 1)))
164163oveq2d 6858 . . . . . . 7 (𝜑 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘(𝑃 − 1)) / (!‘(𝑃 − 1))))
165160nnne0d 11322 . . . . . . . 8 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
166161, 165dividd 11053 . . . . . . 7 (𝜑 → ((!‘(𝑃 − 1)) / (!‘(𝑃 − 1))) = 1)
167164, 166eqtrd 2799 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = 1)
16812nn0red 11599 . . . . . . . . . . . . 13 (𝜑 → (𝑃 − 1) ∈ ℝ)
16984, 168eqeltrd 2844 . . . . . . . . . . . 12 (𝜑 → (𝐷‘0) ∈ ℝ)
170169, 168lttri3d 10431 . . . . . . . . . . 11 (𝜑 → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
17184, 170mpbid 223 . . . . . . . . . 10 (𝜑 → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
172171simprd 489 . . . . . . . . 9 (𝜑 → ¬ (𝑃 − 1) < (𝐷‘0))
173172iffalsed 4254 . . . . . . . 8 (𝜑 → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))))
17484eqcomd 2771 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) = (𝐷‘0))
175113, 174subeq0bd 10710 . . . . . . . . . . . . 13 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) = 0)
176175fveq2d 6379 . . . . . . . . . . . 12 (𝜑 → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
177176, 153syl6eq 2815 . . . . . . . . . . 11 (𝜑 → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
178177oveq2d 6858 . . . . . . . . . 10 (𝜑 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
179161div1d 11047 . . . . . . . . . 10 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
180178, 179eqtrd 2799 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
181175oveq2d 6858 . . . . . . . . . 10 (𝜑 → (0↑((𝑃 − 1) − (𝐷‘0))) = (0↑0))
182 0cnd 10286 . . . . . . . . . . 11 (𝜑 → 0 ∈ ℂ)
183182exp0d 13209 . . . . . . . . . 10 (𝜑 → (0↑0) = 1)
184181, 183eqtrd 2799 . . . . . . . . 9 (𝜑 → (0↑((𝑃 − 1) − (𝐷‘0))) = 1)
185180, 184oveq12d 6860 . . . . . . . 8 (𝜑 → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
186173, 185, 1623eqtrd 2803 . . . . . . 7 (𝜑 → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
187 fzssre 40167 . . . . . . . . . . . 12 (0...(𝑃 − 1)) ⊆ ℝ
18868adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
18951adantl 473 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
190188, 189ffvelrnd 6550 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...(𝑃 − 1)))
191187, 190sseldi 3759 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℝ)
1928nnred 11291 . . . . . . . . . . . 12 (𝜑𝑃 ∈ ℝ)
193192adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℝ)
1948nngt0d 11321 . . . . . . . . . . . . . 14 (𝜑 → 0 < 𝑃)
19515, 192, 194ltled 10439 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ 𝑃)
196195adantr 472 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → 0 ≤ 𝑃)
197103, 196eqbrtrd 4831 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ≤ 𝑃)
198191, 193, 197lensymd 10442 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ¬ 𝑃 < (𝐷𝑗))
199198iffalsed 4254 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))
200103oveq2d 6858 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑗)) = (𝑃 − 0))
201111adantr 472 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℂ)
202201subid1d 10635 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − 0) = 𝑃)
203200, 202eqtrd 2799 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑗)) = 𝑃)
204203fveq2d 6379 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝑃 − (𝐷𝑗))) = (!‘𝑃))
205204oveq2d 6858 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘𝑃)))
2068nnnn0d 11598 . . . . . . . . . . . . . . 15 (𝜑𝑃 ∈ ℕ0)
207206faccld 13275 . . . . . . . . . . . . . 14 (𝜑 → (!‘𝑃) ∈ ℕ)
208207nncnd 11292 . . . . . . . . . . . . 13 (𝜑 → (!‘𝑃) ∈ ℂ)
209207nnne0d 11322 . . . . . . . . . . . . 13 (𝜑 → (!‘𝑃) ≠ 0)
210208, 209dividd 11053 . . . . . . . . . . . 12 (𝜑 → ((!‘𝑃) / (!‘𝑃)) = 1)
211210adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘𝑃)) = 1)
212205, 211eqtrd 2799 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = 1)
213 df-neg 10523 . . . . . . . . . . . . 13 -𝑗 = (0 − 𝑗)
214213eqcomi 2774 . . . . . . . . . . . 12 (0 − 𝑗) = -𝑗
215214a1i 11 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (0 − 𝑗) = -𝑗)
216215, 203oveq12d 6860 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))) = (-𝑗𝑃))
217212, 216oveq12d 6860 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))) = (1 · (-𝑗𝑃)))
21893znegcld 11731 . . . . . . . . . . . . 13 (𝑗 ∈ (1...𝑀) → -𝑗 ∈ ℤ)
219218zcnd 11730 . . . . . . . . . . . 12 (𝑗 ∈ (1...𝑀) → -𝑗 ∈ ℂ)
220219adantl 473 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → -𝑗 ∈ ℂ)
221206adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ0)
222220, 221expcld 13215 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → (-𝑗𝑃) ∈ ℂ)
223222mulid2d 10312 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (1 · (-𝑗𝑃)) = (-𝑗𝑃))
224199, 217, 2233eqtrd 2803 . . . . . . . 8 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = (-𝑗𝑃))
225224prodeq2dv 14936 . . . . . . 7 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))
226186, 225oveq12d 6860 . . . . . 6 (𝜑 → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
227167, 226oveq12d 6860 . . . . 5 (𝜑 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) = (1 · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))))
228 fzfid 12980 . . . . . . . . 9 (𝜑 → (1...𝑀) ∈ Fin)
229 zexpcl 13082 . . . . . . . . . 10 ((-𝑗 ∈ ℤ ∧ 𝑃 ∈ ℕ0) → (-𝑗𝑃) ∈ ℤ)
230218, 206, 229syl2anr 590 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (-𝑗𝑃) ∈ ℤ)
231228, 230fprodzcl 14967 . . . . . . . 8 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) ∈ ℤ)
232231zcnd 11730 . . . . . . 7 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) ∈ ℂ)
233161, 232mulcld 10314 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) ∈ ℂ)
234233mulid2d 10312 . . . . 5 (𝜑 → (1 · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
235227, 234eqtrd 2799 . . . 4 (𝜑 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
236 eldifi 3894 . . . . . . . . . . . . . . 15 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → 𝑐 ∈ (𝐶‘(𝑃 − 1)))
23783adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ∈ (0...𝑀))
23844, 237ffvelrnd 6550 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑐‘0) ∈ (0...(𝑃 − 1)))
239236, 238sylan2 586 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ (0...(𝑃 − 1)))
240187, 239sseldi 3759 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ ℝ)
241168adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ∈ ℝ)
242 elfzle2 12552 . . . . . . . . . . . . . 14 ((𝑐‘0) ∈ (0...(𝑃 − 1)) → (𝑐‘0) ≤ (𝑃 − 1))
243239, 242syl 17 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ≤ (𝑃 − 1))
244240, 241, 243lensymd 10442 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ¬ (𝑃 − 1) < (𝑐‘0))
245244iffalsed 4254 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))))
24612nn0zd 11727 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑃 − 1) ∈ ℤ)
247246adantr 472 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ∈ ℤ)
248239elfzelzd 40168 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ ℤ)
249247, 248zsubcld 11734 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℤ)
25044ffnd 6224 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 Fn (0...𝑀))
251250adantr 472 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 Fn (0...𝑀))
25268ffnd 6224 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐷 Fn (0...𝑀))
253252ad2antrr 717 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝐷 Fn (0...𝑀))
254 fveq2 6375 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = 0 → (𝑐𝑗) = (𝑐‘0))
255254adantl 473 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝑐‘0))
256 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑃 − 1) = (𝑐‘0) → (𝑃 − 1) = (𝑐‘0))
257256eqcomd 2771 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑃 − 1) = (𝑐‘0) → (𝑐‘0) = (𝑃 − 1))
258257ad2antlr 718 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐‘0) = (𝑃 − 1))
25977adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 = 0) → (𝐷𝑗) = (𝐷‘0))
26084adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 = 0) → (𝐷‘0) = (𝑃 − 1))
261259, 260eqtr2d 2800 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑗 = 0) → (𝑃 − 1) = (𝐷𝑗))
262261adantlr 706 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑃 − 1) = (𝐷𝑗))
263255, 258, 2623eqtrd 2803 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
264263adantllr 710 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
265264adantlr 706 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
26626ad4antr 724 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
267168ad5antr 728 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) ∈ ℝ)
268168ad4antr 724 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) ∈ ℝ)
26944adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
27050sseli 3757 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
271270adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
272269, 271ffvelrnd 6550 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ (0...(𝑃 − 1)))
27333, 272sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℕ0)
27447, 273fsumnn0cl 14752 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℕ0)
275274nn0red 11599 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ)
276275ad3antrrr 721 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ)
277 0red 10297 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 ∈ ℝ)
27844ffvelrnda 6549 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ (0...(𝑃 − 1)))
279187, 278sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℝ)
280279ad2antrr 717 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ∈ ℝ)
281 nfv 2009 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 𝑘((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0)
282 nfcv 2907 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 𝑘(𝑐𝑗)
283 fzfid 12980 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (1...𝑀) ∈ Fin)
284 simp-4l 801 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (1...𝑀)) → (𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))))
28574, 272sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℂ)
286284, 285sylancom 582 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℂ)
287 1zzd 11655 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 1 ∈ ℤ)
288 elfzel2 12547 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ (0...𝑀) → 𝑀 ∈ ℤ)
289288adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑀 ∈ ℤ)
290 elfzelz 12549 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℤ)
291290adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℤ)
292287, 289, 2913jca 1158 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑗 ∈ ℤ))
293 elfznn0 12640 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
294293adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℕ0)
295 neqne 2945 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 𝑗 = 0 → 𝑗 ≠ 0)
296295adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ≠ 0)
297 elnnne0 11554 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ ℕ ↔ (𝑗 ∈ ℕ0𝑗 ≠ 0))
298294, 296, 297sylanbrc 578 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℕ)
299298nnge1d 11320 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 1 ≤ 𝑗)
300 elfzle2 12552 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑗 ∈ (0...𝑀) → 𝑗𝑀)
301300adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗𝑀)
302292, 299, 301jca32 511 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ (1 ≤ 𝑗𝑗𝑀)))
303 elfz2 12540 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑗 ∈ (1...𝑀) ↔ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ (1 ≤ 𝑗𝑗𝑀)))
304302, 303sylibr 225 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ (1...𝑀))
305304adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑗 ∈ (1...𝑀))
306305adantlll 709 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑗 ∈ (1...𝑀))
307 fveq2 6375 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑘 = 𝑗 → (𝑐𝑘) = (𝑐𝑗))
308281, 282, 283, 286, 306, 307fsumsplit1 40442 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) = ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
309308eqcomd 2771 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
310309, 276eqeltrd 2844 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)) ∈ ℝ)
311 elfzle1 12551 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑗) ∈ (0...(𝑃 − 1)) → 0 ≤ (𝑐𝑗))
312278, 311syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ≤ (𝑐𝑗))
313312ad2antrr 717 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 ≤ (𝑐𝑗))
314 neqne 2945 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (¬ (𝑐𝑗) = 0 → (𝑐𝑗) ≠ 0)
315314adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ≠ 0)
316277, 280, 313, 315leneltd 10445 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < (𝑐𝑗))
317 diffi 8399 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((1...𝑀) ∈ Fin → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
318105, 317mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
319 eldifi 3894 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑘 ∈ ((1...𝑀) ∖ {𝑗}) → 𝑘 ∈ (1...𝑀))
320319adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑘 ∈ (1...𝑀))
32150, 320sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑘 ∈ (0...𝑀))
32244ffvelrnda 6549 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ (0...(𝑃 − 1)))
323187, 322sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℝ)
324321, 323syldan 585 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → (𝑐𝑘) ∈ ℝ)
325 elfzle1 12551 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑐𝑘) ∈ (0...(𝑃 − 1)) → 0 ≤ (𝑐𝑘))
326322, 325syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → 0 ≤ (𝑐𝑘))
327321, 326syldan 585 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 0 ≤ (𝑐𝑘))
328318, 324, 327fsumge0 14811 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))
329328adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))
330318, 324fsumrecl 14750 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ∈ ℝ)
331330adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ∈ ℝ)
332279, 331addge01d 10869 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ↔ (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))))
333329, 332mpbid 223 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
334333ad2antrr 717 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
335277, 280, 310, 316, 334ltletrd 10451 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
336335, 309breqtrd 4835 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
337276, 336elrpd 12067 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ+)
338268, 337ltaddrpd 12103 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
339338adantl3r 756 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
340 fveq2 6375 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 = 𝑘 → (𝑐𝑗) = (𝑐𝑘))
341340cbvsumv 14711 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑘 ∈ (0...𝑀)(𝑐𝑘)
342341a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑘 ∈ (0...𝑀)(𝑐𝑘))
34373ad5antr 728 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑀 ∈ (ℤ‘0))
344 simp-5l 805 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (0...𝑀)) → (𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))))
34574, 322sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℂ)
346344, 345sylancom 582 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℂ)
347 fveq2 6375 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑘 = 0 → (𝑐𝑘) = (𝑐‘0))
348343, 346, 347fsum1p 14767 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (0...𝑀)(𝑐𝑘) = ((𝑐‘0) + Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘)))
349257ad4antlr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐‘0) = (𝑃 − 1))
35086sumeq1i 14713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)
351350a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
352349, 351oveq12d 6860 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐‘0) + Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘)) = ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
353342, 348, 3523eqtrrd 2804 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)) = Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
354339, 353breqtrd 4835 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
355267, 354gtned 10426 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) ≠ (𝑃 − 1))
356355neneqd 2942 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ¬ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
357266, 356condan 852 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝑐𝑗) = 0)
358 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑗 ∈ (0...𝑀)) → 𝑗 ∈ (0...𝑀))
35933, 66sseldi 3759 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑗 ∈ (0...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) ∈ ℕ0)
36067fvmpt2 6480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ (0...𝑀) ∧ if(𝑗 = 0, (𝑃 − 1), 0) ∈ ℕ0) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
361358, 359, 360syl2anc 579 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
362361adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
363 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → ¬ 𝑗 = 0)
364363iffalsed 4254 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
365362, 364eqtr2d 2800 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
366365adantllr 710 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
367366adantllr 710 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
368357, 367eqtrd 2799 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
369265, 368pm2.61dan 847 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) = (𝐷𝑗))
370251, 253, 369eqfnfvd 6504 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 = 𝐷)
371236, 370sylanl2 671 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 = 𝐷)
372 eldifsni 4476 . . . . . . . . . . . . . . . . . . . 20 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → 𝑐𝐷)
373372neneqd 2942 . . . . . . . . . . . . . . . . . . 19 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → ¬ 𝑐 = 𝐷)
374373ad2antlr 718 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ (𝑃 − 1) = (𝑐‘0)) → ¬ 𝑐 = 𝐷)
375371, 374pm2.65da 851 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ¬ (𝑃 − 1) = (𝑐‘0))
376375neqned 2944 . . . . . . . . . . . . . . . 16 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ≠ (𝑐‘0))
377240, 241, 243, 376leneltd 10445 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) < (𝑃 − 1))
378240, 241posdifd 10868 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑐‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝑐‘0))))
379377, 378mpbid 223 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → 0 < ((𝑃 − 1) − (𝑐‘0)))
380 elnnz 11634 . . . . . . . . . . . . . 14 (((𝑃 − 1) − (𝑐‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝑐‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝑐‘0))))
381249, 379, 380sylanbrc 578 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℕ)
3823810expd 13231 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0↑((𝑃 − 1) − (𝑐‘0))) = 0)
383382oveq2d 6858 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · 0))
384161adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘(𝑃 − 1)) ∈ ℂ)
385381nnnn0d 11598 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℕ0)
386385faccld 13275 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ∈ ℕ)
387386nncnd 11292 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ∈ ℂ)
388386nnne0d 11322 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ≠ 0)
389384, 387, 388divcld 11055 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) ∈ ℂ)
390389mul01d 10489 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · 0) = 0)
391245, 383, 3903eqtrd 2803 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = 0)
392391oveq1d 6857 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))))
393236, 55sylan2 586 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
394393zcnd 11730 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℂ)
395394mul02d 10488 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = 0)
396392, 395eqtrd 2799 . . . . . . . 8 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = 0)
397396oveq2d 6858 . . . . . . 7 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · 0))
398 fzfid 12980 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0...𝑀) ∈ Fin)
39933, 278sseldi 3759 . . . . . . . . . . . . 13 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℕ0)
400236, 399sylanl2 671 . . . . . . . . . . . 12 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℕ0)
401400faccld 13275 . . . . . . . . . . 11 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝑐𝑗)) ∈ ℕ)
402398, 401fprodnncl 14968 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ∈ ℕ)
403402nncnd 11292 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ∈ ℂ)
404402nnne0d 11322 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ≠ 0)
405384, 403, 404divcld 11055 . . . . . . . 8 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℂ)
406405mul01d 10489 . . . . . . 7 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · 0) = 0)
407397, 406eqtrd 2799 . . . . . 6 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = 0)
408407sumeq2dv 14718 . . . . 5 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0)
409 diffi 8399 . . . . . . . 8 ((𝐶‘(𝑃 − 1)) ∈ Fin → ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin)
41019, 409syl 17 . . . . . . 7 (𝜑 → ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin)
411410olcd 900 . . . . . 6 (𝜑 → (((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ⊆ (ℤ‘0) ∨ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin))
412 sumz 14738 . . . . . 6 ((((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ⊆ (ℤ‘0) ∨ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin) → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0 = 0)
413411, 412syl 17 . . . . 5 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0 = 0)
414408, 413eqtrd 2799 . . . 4 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = 0)
415235, 414oveq12d 6860 . . 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))
416233addid1d 10490 . . 3 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) + 0) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
417 nfv 2009 . . . . 5 𝑗𝜑
418417, 206, 228, 220fprodexp 40464 . . . 4 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) = (∏𝑗 ∈ (1...𝑀)-𝑗𝑃))
419418oveq2d 6858 . . 3 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
420415, 416, 4193eqtrd 2803 . 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...𝑀)-𝑗𝑃)))
42116, 143, 4203eqtrd 2803 1 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 384  wo 873  w3a 1107   = wceq 1652  wcel 2155  wne 2937  {crab 3059  Vcvv 3350  cdif 3729  wss 3732  ifcif 4243  {csn 4334  {cpr 4336   class class class wbr 4809  cmpt 4888  ran crn 5278   Fn wfn 6063  wf 6064  cfv 6068  (class class class)co 6842  𝑚 cmap 8060  Fincfn 8160  cc 10187  cr 10188  0cc0 10189  1c1 10190   + caddc 10192   · cmul 10194   < clt 10328  cle 10329  cmin 10520  -cneg 10521   / cdiv 10938  cn 11274  0cn0 11538  cz 11624  cuz 11886  (,)cioo 12377  ...cfz 12533  cexp 13067  !cfa 13264  Σcsu 14701  cprod 14918  t crest 16347  TopOpenctopn 16348  topGenctg 16364  fldccnfld 20019   D𝑛 cdvn 23919
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-inf2 8753  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266  ax-pre-sup 10267  ax-addf 10268  ax-mulf 10269
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-fal 1666  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-iin 4679  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-se 5237  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-isom 6077  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-of 7095  df-om 7264  df-1st 7366  df-2nd 7367  df-supp 7498  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-2o 7765  df-oadd 7768  df-er 7947  df-map 8062  df-pm 8063  df-ixp 8114  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-fsupp 8483  df-fi 8524  df-sup 8555  df-inf 8556  df-oi 8622  df-card 9016  df-cda 9243  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-div 10939  df-nn 11275  df-2 11335  df-3 11336  df-4 11337  df-5 11338  df-6 11339  df-7 11340  df-8 11341  df-9 11342  df-n0 11539  df-z 11625  df-dec 11741  df-uz 11887  df-q 11990  df-rp 12029  df-xneg 12146  df-xadd 12147  df-xmul 12148  df-ioo 12381  df-ico 12383  df-icc 12384  df-fz 12534  df-fzo 12674  df-seq 13009  df-exp 13068  df-fac 13265  df-bc 13294  df-hash 13322  df-cj 14124  df-re 14125  df-im 14126  df-sqrt 14260  df-abs 14261  df-clim 14504  df-sum 14702  df-prod 14919  df-struct 16132  df-ndx 16133  df-slot 16134  df-base 16136  df-sets 16137  df-ress 16138  df-plusg 16227  df-mulr 16228  df-starv 16229  df-sca 16230  df-vsca 16231  df-ip 16232  df-tset 16233  df-ple 16234  df-ds 16236  df-unif 16237  df-hom 16238  df-cco 16239  df-rest 16349  df-topn 16350  df-0g 16368  df-gsum 16369  df-topgen 16370  df-pt 16371  df-prds 16374  df-xrs 16428  df-qtop 16433  df-imas 16434  df-xps 16436  df-mre 16512  df-mrc 16513  df-acs 16515  df-mgm 17508  df-sgrp 17550  df-mnd 17561  df-submnd 17602  df-mulg 17808  df-cntz 18013  df-cmn 18461  df-psmet 20011  df-xmet 20012  df-met 20013  df-bl 20014  df-mopn 20015  df-fbas 20016  df-fg 20017  df-cnfld 20020  df-top 20978  df-topon 20995  df-topsp 21017  df-bases 21030  df-cld 21103  df-ntr 21104  df-cls 21105  df-nei 21182  df-lp 21220  df-perf 21221  df-cn 21311  df-cnp 21312  df-haus 21399  df-tx 21645  df-hmeo 21838  df-fil 21929  df-fm 22021  df-flim 22022  df-flf 22023  df-xms 22404  df-ms 22405  df-tms 22406  df-cncf 22960  df-limc 23921  df-dv 23922  df-dvn 23923
This theorem is referenced by:  etransclem41  41129
  Copyright terms: Public domain W3C validator