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 40989
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 10220 . . . 4 ℝ ∈ {ℝ, ℂ}
21a1i 11 . . 3 (𝜑 → ℝ ∈ {ℝ, ℂ})
3 reopn 40000 . . . . 5 ℝ ∈ (topGen‘ran (,))
4 eqid 2760 . . . . . 6 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
54tgioo2 22807 . . . . 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 11526 . . . 4 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
128, 11syl 17 . . 3 (𝜑 → (𝑃 − 1) ∈ ℕ0)
13 etransclem5 40959 . . 3 (𝑘 ∈ (0...𝑀) ↦ (𝑦 ∈ ℝ ↦ ((𝑦𝑘)↑if(𝑘 = 0, (𝑃 − 1), 𝑃)))) = (𝑗 ∈ (0...𝑀) ↦ (𝑥 ∈ ℝ ↦ ((𝑥𝑗)↑if(𝑗 = 0, (𝑃 − 1), 𝑃))))
14 etransclem35.c . . 3 𝐶 = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
15 0red 10233 . . 3 (𝜑 → 0 ∈ ℝ)
162, 7, 8, 9, 10, 12, 13, 14, 15etransclem31 40985 . 2 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = Σ𝑐 ∈ (𝐶‘(𝑃 − 1))(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))))
17 nfv 1992 . . 3 𝑐𝜑
18 nfcv 2902 . . 3 𝑐(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))))
1914, 12etransclem16 40970 . . 3 (𝜑 → (𝐶‘(𝑃 − 1)) ∈ Fin)
20 simpr 479 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ (𝐶‘(𝑃 − 1)))
2114, 12etransclem12 40966 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘(𝑃 − 1)) = {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
2221adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝐶‘(𝑃 − 1)) = {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
2320, 22eleqtrd 2841 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
24 rabid 3254 . . . . . . . . . . . 12 (𝑐 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)} ↔ (𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)))
2523, 24sylib 208 . . . . . . . . . . 11 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)))
2625simprd 482 . . . . . . . . . 10 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
2726eqcomd 2766 . . . . . . . . 9 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑃 − 1) = Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
2827fveq2d 6356 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (!‘(𝑃 − 1)) = (!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)))
2928oveq1d 6828 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) = ((!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))))
30 nfcv 2902 . . . . . . . 8 𝑗𝑐
31 fzfid 12966 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (0...𝑀) ∈ Fin)
32 nn0ex 11490 . . . . . . . . . 10 0 ∈ V
33 fzssnn0 40031 . . . . . . . . . 10 (0...(𝑃 − 1)) ⊆ ℕ0
34 mapss 8066 . . . . . . . . . 10 ((ℕ0 ∈ V ∧ (0...(𝑃 − 1)) ⊆ ℕ0) → ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀)))
3532, 33, 34mp2an 710 . . . . . . . . 9 ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ⊆ (ℕ0𝑚 (0...𝑀))
3625simpld 477 . . . . . . . . 9 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)))
3735, 36sseldi 3742 . . . . . . . 8 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 ∈ (ℕ0𝑚 (0...𝑀)))
3830, 31, 37mccl 40333 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘Σ𝑗 ∈ (0...𝑀)(𝑐𝑗)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℕ)
3929, 38eqeltrd 2839 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℕ)
4039nnzd 11673 . . . . 5 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℤ)
418adantr 472 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑃 ∈ ℕ)
429adantr 472 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑀 ∈ ℕ0)
43 elmapi 8045 . . . . . . . 8 (𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
4436, 43syl 17 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
45 0zd 11581 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ∈ ℤ)
4641, 42, 44, 45etransclem10 40964 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) ∈ ℤ)
47 fzfid 12966 . . . . . . 7 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (1...𝑀) ∈ Fin)
488ad2antrr 764 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ)
4944adantr 472 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
50 fz1ssfz0 12629 . . . . . . . . . 10 (1...𝑀) ⊆ (0...𝑀)
5150sseli 3740 . . . . . . . . 9 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ (0...𝑀))
5251adantl 473 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
53 0zd 11581 . . . . . . . 8 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → 0 ∈ ℤ)
5448, 49, 52, 53etransclem3 40957 . . . . . . 7 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
5547, 54fprodzcl 14883 . . . . . 6 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
5646, 55zmulcld 11680 . . . . 5 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) ∈ ℤ)
5740, 56zmulcld 11680 . . . 4 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) ∈ ℤ)
5857zcnd 11675 . . 3 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) ∈ ℂ)
59 nn0uz 11915 . . . . . . . . . . 11 0 = (ℤ‘0)
6012, 59syl6eleq 2849 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ (ℤ‘0))
61 eluzfz2 12542 . . . . . . . . . 10 ((𝑃 − 1) ∈ (ℤ‘0) → (𝑃 − 1) ∈ (0...(𝑃 − 1)))
6260, 61syl 17 . . . . . . . . 9 (𝜑 → (𝑃 − 1) ∈ (0...(𝑃 − 1)))
63 eluzfz1 12541 . . . . . . . . . 10 ((𝑃 − 1) ∈ (ℤ‘0) → 0 ∈ (0...(𝑃 − 1)))
6460, 63syl 17 . . . . . . . . 9 (𝜑 → 0 ∈ (0...(𝑃 − 1)))
6562, 64ifcld 4275 . . . . . . . 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 6548 . . . . . 6 (𝜑𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
69 ovex 6841 . . . . . . 7 (0...(𝑃 − 1)) ∈ V
70 ovex 6841 . . . . . . 7 (0...𝑀) ∈ V
7169, 70elmap 8052 . . . . . 6 (𝐷 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ↔ 𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
7268, 71sylibr 224 . . . . 5 (𝜑𝐷 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)))
739, 59syl6eleq 2849 . . . . . . 7 (𝜑𝑀 ∈ (ℤ‘0))
74 fzsscn 40024 . . . . . . . 8 (0...(𝑃 − 1)) ⊆ ℂ
7568ffvelrnda 6522 . . . . . . . 8 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ (0...(𝑃 − 1)))
7674, 75sseldi 3742 . . . . . . 7 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℂ)
77 fveq2 6352 . . . . . . 7 (𝑗 = 0 → (𝐷𝑗) = (𝐷‘0))
7873, 76, 77fsum1p 14681 . . . . . 6 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)))
7967a1i 11 . . . . . . . 8 (𝜑𝐷 = (𝑗 ∈ (0...𝑀) ↦ if(𝑗 = 0, (𝑃 − 1), 0)))
80 simpr 479 . . . . . . . . 9 ((𝜑𝑗 = 0) → 𝑗 = 0)
8180iftrued 4238 . . . . . . . 8 ((𝜑𝑗 = 0) → if(𝑗 = 0, (𝑃 − 1), 0) = (𝑃 − 1))
82 eluzfz1 12541 . . . . . . . . 9 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
8373, 82syl 17 . . . . . . . 8 (𝜑 → 0 ∈ (0...𝑀))
8479, 81, 83, 12fvmptd 6450 . . . . . . 7 (𝜑 → (𝐷‘0) = (𝑃 − 1))
85 0p1e1 11324 . . . . . . . . . . 11 (0 + 1) = 1
8685oveq1i 6823 . . . . . . . . . 10 ((0 + 1)...𝑀) = (1...𝑀)
8786sumeq1i 14627 . . . . . . . . 9 Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗)
8887a1i 11 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)(𝐷𝑗))
8967fvmpt2 6453 . . . . . . . . . . 11 ((𝑗 ∈ (0...𝑀) ∧ if(𝑗 = 0, (𝑃 − 1), 0) ∈ (0...(𝑃 − 1))) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
9051, 65, 89syl2anr 496 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
91 0red 10233 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑀) → 0 ∈ ℝ)
92 1red 10247 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 1 ∈ ℝ)
93 elfzelz 12535 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ ℤ)
9493zred 11674 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 𝑗 ∈ ℝ)
95 0lt1 10742 . . . . . . . . . . . . . . . 16 0 < 1
9695a1i 11 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 0 < 1)
97 elfzle1 12537 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...𝑀) → 1 ≤ 𝑗)
9891, 92, 94, 96, 97ltletrd 10389 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...𝑀) → 0 < 𝑗)
9991, 98gtned 10364 . . . . . . . . . . . . 13 (𝑗 ∈ (1...𝑀) → 𝑗 ≠ 0)
10099neneqd 2937 . . . . . . . . . . . 12 (𝑗 ∈ (1...𝑀) → ¬ 𝑗 = 0)
101100iffalsed 4241 . . . . . . . . . . 11 (𝑗 ∈ (1...𝑀) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
102101adantl 473 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
10390, 102eqtrd 2794 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) = 0)
104103sumeq2dv 14632 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ (1...𝑀)(𝐷𝑗) = Σ𝑗 ∈ (1...𝑀)0)
105 fzfi 12965 . . . . . . . . . 10 (1...𝑀) ∈ Fin
106105olci 405 . . . . . . . . 9 ((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin)
107 sumz 14652 . . . . . . . . 9 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → Σ𝑗 ∈ (1...𝑀)0 = 0)
108106, 107mp1i 13 . . . . . . . 8 (𝜑 → Σ𝑗 ∈ (1...𝑀)0 = 0)
10988, 104, 1083eqtrd 2798 . . . . . . 7 (𝜑 → Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗) = 0)
11084, 109oveq12d 6831 . . . . . 6 (𝜑 → ((𝐷‘0) + Σ𝑗 ∈ ((0 + 1)...𝑀)(𝐷𝑗)) = ((𝑃 − 1) + 0))
1118nncnd 11228 . . . . . . . 8 (𝜑𝑃 ∈ ℂ)
112 1cnd 10248 . . . . . . . 8 (𝜑 → 1 ∈ ℂ)
113111, 112subcld 10584 . . . . . . 7 (𝜑 → (𝑃 − 1) ∈ ℂ)
114113addid1d 10428 . . . . . 6 (𝜑 → ((𝑃 − 1) + 0) = (𝑃 − 1))
11578, 110, 1143eqtrd 2798 . . . . 5 (𝜑 → Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1))
116 fveq1 6351 . . . . . . . 8 (𝑐 = 𝐷 → (𝑐𝑗) = (𝐷𝑗))
117116sumeq2ad 14633 . . . . . . 7 (𝑐 = 𝐷 → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑗 ∈ (0...𝑀)(𝐷𝑗))
118117eqeq1d 2762 . . . . . 6 (𝑐 = 𝐷 → (Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1) ↔ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1)))
119118elrab 3504 . . . . 5 (𝐷 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)} ↔ (𝐷 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∧ Σ𝑗 ∈ (0...𝑀)(𝐷𝑗) = (𝑃 − 1)))
12072, 115, 119sylanbrc 701 . . . 4 (𝜑𝐷 ∈ {𝑐 ∈ ((0...(𝑃 − 1)) ↑𝑚 (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1)})
121120, 21eleqtrrd 2842 . . 3 (𝜑𝐷 ∈ (𝐶‘(𝑃 − 1)))
122116fveq2d 6356 . . . . . 6 (𝑐 = 𝐷 → (!‘(𝑐𝑗)) = (!‘(𝐷𝑗)))
123122prodeq2ad 40327 . . . . 5 (𝑐 = 𝐷 → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) = ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)))
124123oveq2d 6829 . . . 4 (𝑐 = 𝐷 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) = ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))))
125 fveq1 6351 . . . . . . 7 (𝑐 = 𝐷 → (𝑐‘0) = (𝐷‘0))
126125breq2d 4816 . . . . . 6 (𝑐 = 𝐷 → ((𝑃 − 1) < (𝑐‘0) ↔ (𝑃 − 1) < (𝐷‘0)))
127125oveq2d 6829 . . . . . . . . 9 (𝑐 = 𝐷 → ((𝑃 − 1) − (𝑐‘0)) = ((𝑃 − 1) − (𝐷‘0)))
128127fveq2d 6356 . . . . . . . 8 (𝑐 = 𝐷 → (!‘((𝑃 − 1) − (𝑐‘0))) = (!‘((𝑃 − 1) − (𝐷‘0))))
129128oveq2d 6829 . . . . . . 7 (𝑐 = 𝐷 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) = ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))))
130127oveq2d 6829 . . . . . . 7 (𝑐 = 𝐷 → (0↑((𝑃 − 1) − (𝑐‘0))) = (0↑((𝑃 − 1) − (𝐷‘0))))
131129, 130oveq12d 6831 . . . . . 6 (𝑐 = 𝐷 → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))))
132126, 131ifbieq2d 4255 . . . . 5 (𝑐 = 𝐷 → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))))
133116breq2d 4816 . . . . . . 7 (𝑐 = 𝐷 → (𝑃 < (𝑐𝑗) ↔ 𝑃 < (𝐷𝑗)))
134116oveq2d 6829 . . . . . . . . . 10 (𝑐 = 𝐷 → (𝑃 − (𝑐𝑗)) = (𝑃 − (𝐷𝑗)))
135134fveq2d 6356 . . . . . . . . 9 (𝑐 = 𝐷 → (!‘(𝑃 − (𝑐𝑗))) = (!‘(𝑃 − (𝐷𝑗))))
136135oveq2d 6829 . . . . . . . 8 (𝑐 = 𝐷 → ((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) = ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))))
137134oveq2d 6829 . . . . . . . 8 (𝑐 = 𝐷 → ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))) = ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))
138136, 137oveq12d 6831 . . . . . . 7 (𝑐 = 𝐷 → (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))
139133, 138ifbieq2d 4255 . . . . . 6 (𝑐 = 𝐷 → if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) = if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))
140139prodeq2ad 40327 . . . . 5 (𝑐 = 𝐷 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) = ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))
141132, 140oveq12d 6831 . . . 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 6831 . . 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 40307 . 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 3742 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) ∈ ℕ0)
145144faccld 13265 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (0...𝑀)) → (!‘(𝐷𝑗)) ∈ ℕ)
146145nncnd 11228 . . . . . . . . . 10 ((𝜑𝑗 ∈ (0...𝑀)) → (!‘(𝐷𝑗)) ∈ ℂ)
14777fveq2d 6356 . . . . . . . . . 10 (𝑗 = 0 → (!‘(𝐷𝑗)) = (!‘(𝐷‘0)))
14873, 146, 147fprod1p 14897 . . . . . . . . 9 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)) = ((!‘(𝐷‘0)) · ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗))))
14984fveq2d 6356 . . . . . . . . . 10 (𝜑 → (!‘(𝐷‘0)) = (!‘(𝑃 − 1)))
15086prodeq1i 14847 . . . . . . . . . . . 12 𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗))
151150a1i 11 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗)))
152103fveq2d 6356 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝐷𝑗)) = (!‘0))
153 fac0 13257 . . . . . . . . . . . . 13 (!‘0) = 1
154152, 153syl6eq 2810 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝐷𝑗)) = 1)
155154prodeq2dv 14852 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ (1...𝑀)(!‘(𝐷𝑗)) = ∏𝑗 ∈ (1...𝑀)1)
156 prod1 14873 . . . . . . . . . . . 12 (((1...𝑀) ⊆ (ℤ𝐴) ∨ (1...𝑀) ∈ Fin) → ∏𝑗 ∈ (1...𝑀)1 = 1)
157106, 156mp1i 13 . . . . . . . . . . 11 (𝜑 → ∏𝑗 ∈ (1...𝑀)1 = 1)
158151, 155, 1573eqtrd 2798 . . . . . . . . . 10 (𝜑 → ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗)) = 1)
159149, 158oveq12d 6831 . . . . . . . . 9 (𝜑 → ((!‘(𝐷‘0)) · ∏𝑗 ∈ ((0 + 1)...𝑀)(!‘(𝐷𝑗))) = ((!‘(𝑃 − 1)) · 1))
16012faccld 13265 . . . . . . . . . . 11 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
161160nncnd 11228 . . . . . . . . . 10 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
162161mulid1d 10249 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) · 1) = (!‘(𝑃 − 1)))
163148, 159, 1623eqtrd 2798 . . . . . . . 8 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗)) = (!‘(𝑃 − 1)))
164163oveq2d 6829 . . . . . . 7 (𝜑 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = ((!‘(𝑃 − 1)) / (!‘(𝑃 − 1))))
165160nnne0d 11257 . . . . . . . 8 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
166161, 165dividd 10991 . . . . . . 7 (𝜑 → ((!‘(𝑃 − 1)) / (!‘(𝑃 − 1))) = 1)
167164, 166eqtrd 2794 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) = 1)
16812nn0red 11544 . . . . . . . . . . . . 13 (𝜑 → (𝑃 − 1) ∈ ℝ)
16984, 168eqeltrd 2839 . . . . . . . . . . . 12 (𝜑 → (𝐷‘0) ∈ ℝ)
170169, 168lttri3d 10369 . . . . . . . . . . 11 (𝜑 → ((𝐷‘0) = (𝑃 − 1) ↔ (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0))))
17184, 170mpbid 222 . . . . . . . . . 10 (𝜑 → (¬ (𝐷‘0) < (𝑃 − 1) ∧ ¬ (𝑃 − 1) < (𝐷‘0)))
172171simprd 482 . . . . . . . . 9 (𝜑 → ¬ (𝑃 − 1) < (𝐷‘0))
173172iffalsed 4241 . . . . . . . 8 (𝜑 → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))))
17484eqcomd 2766 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) = (𝐷‘0))
175113, 174subeq0bd 10648 . . . . . . . . . . . . 13 (𝜑 → ((𝑃 − 1) − (𝐷‘0)) = 0)
176175fveq2d 6356 . . . . . . . . . . . 12 (𝜑 → (!‘((𝑃 − 1) − (𝐷‘0))) = (!‘0))
177176, 153syl6eq 2810 . . . . . . . . . . 11 (𝜑 → (!‘((𝑃 − 1) − (𝐷‘0))) = 1)
178177oveq2d 6829 . . . . . . . . . 10 (𝜑 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) / 1))
179161div1d 10985 . . . . . . . . . 10 (𝜑 → ((!‘(𝑃 − 1)) / 1) = (!‘(𝑃 − 1)))
180178, 179eqtrd 2794 . . . . . . . . 9 (𝜑 → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) = (!‘(𝑃 − 1)))
181175oveq2d 6829 . . . . . . . . . 10 (𝜑 → (0↑((𝑃 − 1) − (𝐷‘0))) = (0↑0))
182 0cnd 10225 . . . . . . . . . . 11 (𝜑 → 0 ∈ ℂ)
183182exp0d 13196 . . . . . . . . . 10 (𝜑 → (0↑0) = 1)
184181, 183eqtrd 2794 . . . . . . . . 9 (𝜑 → (0↑((𝑃 − 1) − (𝐷‘0))) = 1)
185180, 184oveq12d 6831 . . . . . . . 8 (𝜑 → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0)))) = ((!‘(𝑃 − 1)) · 1))
186173, 185, 1623eqtrd 2798 . . . . . . 7 (𝜑 → if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) = (!‘(𝑃 − 1)))
187 fzssre 40027 . . . . . . . . . . . 12 (0...(𝑃 − 1)) ⊆ ℝ
18868adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → 𝐷:(0...𝑀)⟶(0...(𝑃 − 1)))
18951adantl 473 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑗 ∈ (0...𝑀))
190188, 189ffvelrnd 6523 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ (0...(𝑃 − 1)))
191187, 190sseldi 3742 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ∈ ℝ)
1928nnred 11227 . . . . . . . . . . . 12 (𝜑𝑃 ∈ ℝ)
193192adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℝ)
1948nngt0d 11256 . . . . . . . . . . . . . 14 (𝜑 → 0 < 𝑃)
19515, 192, 194ltled 10377 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ 𝑃)
196195adantr 472 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → 0 ≤ 𝑃)
197103, 196eqbrtrd 4826 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (𝐷𝑗) ≤ 𝑃)
198191, 193, 197lensymd 10380 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ¬ 𝑃 < (𝐷𝑗))
199198iffalsed 4241 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))
200103oveq2d 6829 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑗)) = (𝑃 − 0))
201111adantr 472 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℂ)
202201subid1d 10573 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − 0) = 𝑃)
203200, 202eqtrd 2794 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...𝑀)) → (𝑃 − (𝐷𝑗)) = 𝑃)
204203fveq2d 6356 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...𝑀)) → (!‘(𝑃 − (𝐷𝑗))) = (!‘𝑃))
205204oveq2d 6829 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = ((!‘𝑃) / (!‘𝑃)))
2068nnnn0d 11543 . . . . . . . . . . . . . . 15 (𝜑𝑃 ∈ ℕ0)
207206faccld 13265 . . . . . . . . . . . . . 14 (𝜑 → (!‘𝑃) ∈ ℕ)
208207nncnd 11228 . . . . . . . . . . . . 13 (𝜑 → (!‘𝑃) ∈ ℂ)
209207nnne0d 11257 . . . . . . . . . . . . 13 (𝜑 → (!‘𝑃) ≠ 0)
210208, 209dividd 10991 . . . . . . . . . . . 12 (𝜑 → ((!‘𝑃) / (!‘𝑃)) = 1)
211210adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘𝑃)) = 1)
212205, 211eqtrd 2794 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) = 1)
213 df-neg 10461 . . . . . . . . . . . . 13 -𝑗 = (0 − 𝑗)
214213eqcomi 2769 . . . . . . . . . . . 12 (0 − 𝑗) = -𝑗
215214a1i 11 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → (0 − 𝑗) = -𝑗)
216215, 203oveq12d 6831 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))) = (-𝑗𝑃))
217212, 216oveq12d 6831 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))) = (1 · (-𝑗𝑃)))
21893znegcld 11676 . . . . . . . . . . . . 13 (𝑗 ∈ (1...𝑀) → -𝑗 ∈ ℤ)
219218zcnd 11675 . . . . . . . . . . . 12 (𝑗 ∈ (1...𝑀) → -𝑗 ∈ ℂ)
220219adantl 473 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → -𝑗 ∈ ℂ)
221206adantr 472 . . . . . . . . . . 11 ((𝜑𝑗 ∈ (1...𝑀)) → 𝑃 ∈ ℕ0)
222220, 221expcld 13202 . . . . . . . . . 10 ((𝜑𝑗 ∈ (1...𝑀)) → (-𝑗𝑃) ∈ ℂ)
223222mulid2d 10250 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (1 · (-𝑗𝑃)) = (-𝑗𝑃))
224199, 217, 2233eqtrd 2798 . . . . . . . 8 ((𝜑𝑗 ∈ (1...𝑀)) → if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = (-𝑗𝑃))
225224prodeq2dv 14852 . . . . . . 7 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))) = ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))
226186, 225oveq12d 6831 . . . . . 6 (𝜑 → (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗)))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
227167, 226oveq12d 6831 . . . . 5 (𝜑 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) = (1 · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))))
228 fzfid 12966 . . . . . . . . 9 (𝜑 → (1...𝑀) ∈ Fin)
229 zexpcl 13069 . . . . . . . . . 10 ((-𝑗 ∈ ℤ ∧ 𝑃 ∈ ℕ0) → (-𝑗𝑃) ∈ ℤ)
230218, 206, 229syl2anr 496 . . . . . . . . 9 ((𝜑𝑗 ∈ (1...𝑀)) → (-𝑗𝑃) ∈ ℤ)
231228, 230fprodzcl 14883 . . . . . . . 8 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) ∈ ℤ)
232231zcnd 11675 . . . . . . 7 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) ∈ ℂ)
233161, 232mulcld 10252 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) ∈ ℂ)
234233mulid2d 10250 . . . . 5 (𝜑 → (1 · ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
235227, 234eqtrd 2794 . . . 4 (𝜑 → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐷𝑗))) · (if((𝑃 − 1) < (𝐷‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐷‘0)))) · (0↑((𝑃 − 1) − (𝐷‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐷𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐷𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝐷𝑗))))))) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
236 eldifi 3875 . . . . . . . . . . . . . . 15 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → 𝑐 ∈ (𝐶‘(𝑃 − 1)))
23783adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ∈ (0...𝑀))
23844, 237ffvelrnd 6523 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → (𝑐‘0) ∈ (0...(𝑃 − 1)))
239236, 238sylan2 492 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ (0...(𝑃 − 1)))
240187, 239sseldi 3742 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ ℝ)
241168adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ∈ ℝ)
242 elfzle2 12538 . . . . . . . . . . . . . 14 ((𝑐‘0) ∈ (0...(𝑃 − 1)) → (𝑐‘0) ≤ (𝑃 − 1))
243239, 242syl 17 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ≤ (𝑃 − 1))
244240, 241, 243lensymd 10380 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ¬ (𝑃 − 1) < (𝑐‘0))
245244iffalsed 4241 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))))
24612nn0zd 11672 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑃 − 1) ∈ ℤ)
247246adantr 472 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ∈ ℤ)
248239elfzelzd 40028 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) ∈ ℤ)
249247, 248zsubcld 11679 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℤ)
250 ffn 6206 . . . . . . . . . . . . . . . . . . . . . 22 (𝑐:(0...𝑀)⟶(0...(𝑃 − 1)) → 𝑐 Fn (0...𝑀))
25144, 250syl 17 . . . . . . . . . . . . . . . . . . . . 21 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 𝑐 Fn (0...𝑀))
252251adantr 472 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 Fn (0...𝑀))
253 ffn 6206 . . . . . . . . . . . . . . . . . . . . . 22 (𝐷:(0...𝑀)⟶(0...(𝑃 − 1)) → 𝐷 Fn (0...𝑀))
25468, 253syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐷 Fn (0...𝑀))
255254ad2antrr 764 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝐷 Fn (0...𝑀))
256 fveq2 6352 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = 0 → (𝑐𝑗) = (𝑐‘0))
257256adantl 473 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝑐‘0))
258 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑃 − 1) = (𝑐‘0) → (𝑃 − 1) = (𝑐‘0))
259258eqcomd 2766 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑃 − 1) = (𝑐‘0) → (𝑐‘0) = (𝑃 − 1))
260259ad2antlr 765 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐‘0) = (𝑃 − 1))
26177adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 = 0) → (𝐷𝑗) = (𝐷‘0))
26284adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 = 0) → (𝐷‘0) = (𝑃 − 1))
263261, 262eqtr2d 2795 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝜑𝑗 = 0) → (𝑃 − 1) = (𝐷𝑗))
264263adantlr 753 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑃 − 1) = (𝐷𝑗))
265257, 260, 2643eqtrd 2798 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝜑 ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
266265adantllr 757 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
267266adantlr 753 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
26826ad4antr 771 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
269168ad5antr 775 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) ∈ ℝ)
270168ad4antr 771 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) ∈ ℝ)
27144adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → 𝑐:(0...𝑀)⟶(0...(𝑃 − 1)))
27250sseli 3740 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑘 ∈ (1...𝑀) → 𝑘 ∈ (0...𝑀))
273272adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → 𝑘 ∈ (0...𝑀))
274271, 273ffvelrnd 6523 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ (0...(𝑃 − 1)))
27533, 274sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℕ0)
27647, 275fsumnn0cl 14666 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℕ0)
277276nn0red 11544 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ)
278277ad3antrrr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ)
279 0red 10233 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 ∈ ℝ)
28044ffvelrnda 6522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ (0...(𝑃 − 1)))
281187, 280sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℝ)
282281ad2antrr 764 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ∈ ℝ)
283 nfv 1992 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 𝑘((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0)
284 nfcv 2902 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 𝑘(𝑐𝑗)
285 fzfid 12966 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (1...𝑀) ∈ Fin)
286 simp-4l 825 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (1...𝑀)) → (𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))))
28774, 274sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℂ)
288286, 287sylancom 704 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (1...𝑀)) → (𝑐𝑘) ∈ ℂ)
289 1zzd 11600 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 1 ∈ ℤ)
290 elfzel2 12533 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ (0...𝑀) → 𝑀 ∈ ℤ)
291290adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑀 ∈ ℤ)
292 elfzelz 12535 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℤ)
293292adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℤ)
294289, 291, 2933jca 1123 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑗 ∈ ℤ))
295 elfznn0 12626 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 (𝑗 ∈ (0...𝑀) → 𝑗 ∈ ℕ0)
296295adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℕ0)
297 neqne 2940 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 𝑗 = 0 → 𝑗 ≠ 0)
298297adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ≠ 0)
299 elnnne0 11498 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 (𝑗 ∈ ℕ ↔ (𝑗 ∈ ℕ0𝑗 ≠ 0))
300296, 298, 299sylanbrc 701 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ ℕ)
301300nnge1d 11255 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 1 ≤ 𝑗)
302 elfzle2 12538 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 (𝑗 ∈ (0...𝑀) → 𝑗𝑀)
303302adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗𝑀)
304294, 301, 303jca32 559 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ (1 ≤ 𝑗𝑗𝑀)))
305 elfz2 12526 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑗 ∈ (1...𝑀) ↔ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑗 ∈ ℤ) ∧ (1 ≤ 𝑗𝑗𝑀)))
306304, 305sylibr 224 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) → 𝑗 ∈ (1...𝑀))
307306adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝑗 ∈ (0...𝑀) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑗 ∈ (1...𝑀))
308307adantlll 756 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑗 ∈ (1...𝑀))
309 fveq2 6352 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑘 = 𝑗 → (𝑐𝑘) = (𝑐𝑗))
310283, 284, 285, 288, 308, 309fsumsplit1 40307 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) = ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
311310eqcomd 2766 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
312311, 278eqeltrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)) ∈ ℝ)
313 elfzle1 12537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐𝑗) ∈ (0...(𝑃 − 1)) → 0 ≤ (𝑐𝑗))
314280, 313syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ≤ (𝑐𝑗))
315314ad2antrr 764 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 ≤ (𝑐𝑗))
316 neqne 2940 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (¬ (𝑐𝑗) = 0 → (𝑐𝑗) ≠ 0)
317316adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ≠ 0)
318279, 282, 315, 317leneltd 10383 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < (𝑐𝑗))
319 diffi 8357 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ((1...𝑀) ∈ Fin → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
320105, 319mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → ((1...𝑀) ∖ {𝑗}) ∈ Fin)
321 eldifi 3875 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑘 ∈ ((1...𝑀) ∖ {𝑗}) → 𝑘 ∈ (1...𝑀))
322321adantl 473 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑘 ∈ (1...𝑀))
32350, 322sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 𝑘 ∈ (0...𝑀))
32444ffvelrnda 6522 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ (0...(𝑃 − 1)))
325187, 324sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℝ)
326323, 325syldan 488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → (𝑐𝑘) ∈ ℝ)
327 elfzle1 12537 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ((𝑐𝑘) ∈ (0...(𝑃 − 1)) → 0 ≤ (𝑐𝑘))
328324, 327syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → 0 ≤ (𝑐𝑘))
329323, 328syldan 488 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ ((1...𝑀) ∖ {𝑗})) → 0 ≤ (𝑐𝑘))
330320, 326, 329fsumge0 14726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → 0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))
331330adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → 0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))
332320, 326fsumrecl 14664 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) → Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ∈ ℝ)
333332adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ∈ ℝ)
334281, 333addge01d 10807 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (0 ≤ Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘) ↔ (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘))))
335331, 334mpbid 222 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
336335ad2antrr 764 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐𝑗) ≤ ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
337279, 282, 312, 318, 336ltletrd 10389 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < ((𝑐𝑗) + Σ𝑘 ∈ ((1...𝑀) ∖ {𝑗})(𝑐𝑘)))
338337, 311breqtrd 4830 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 0 < Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
339278, 338elrpd 12062 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (1...𝑀)(𝑐𝑘) ∈ ℝ+)
340270, 339ltaddrpd 12098 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
341340adantl3r 803 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
342 fveq2 6352 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 = 𝑘 → (𝑐𝑗) = (𝑐𝑘))
343342cbvsumv 14625 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑘 ∈ (0...𝑀)(𝑐𝑘)
344343a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = Σ𝑘 ∈ (0...𝑀)(𝑐𝑘))
34573ad5antr 775 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → 𝑀 ∈ (ℤ‘0))
346 simp-5l 829 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (0...𝑀)) → (𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))))
34774, 324sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℂ)
348346, 347sylancom 704 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) ∧ 𝑘 ∈ (0...𝑀)) → (𝑐𝑘) ∈ ℂ)
349 fveq2 6352 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑘 = 0 → (𝑐𝑘) = (𝑐‘0))
350345, 348, 349fsum1p 14681 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ (0...𝑀)(𝑐𝑘) = ((𝑐‘0) + Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘)))
351259ad4antlr 773 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑐‘0) = (𝑃 − 1))
35286sumeq1i 14627 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)
353352a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘) = Σ𝑘 ∈ (1...𝑀)(𝑐𝑘))
354351, 353oveq12d 6831 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑐‘0) + Σ𝑘 ∈ ((0 + 1)...𝑀)(𝑐𝑘)) = ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)))
355344, 350, 3543eqtrrd 2799 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ((𝑃 − 1) + Σ𝑘 ∈ (1...𝑀)(𝑐𝑘)) = Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
356341, 355breqtrd 4830 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → (𝑃 − 1) < Σ𝑗 ∈ (0...𝑀)(𝑐𝑗))
357269, 356gtned 10364 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) ≠ (𝑃 − 1))
358357neneqd 2937 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) ∧ ¬ (𝑐𝑗) = 0) → ¬ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = (𝑃 − 1))
359268, 358condan 870 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝑐𝑗) = 0)
360 simpr 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑗 ∈ (0...𝑀)) → 𝑗 ∈ (0...𝑀))
36133, 66sseldi 3742 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝜑𝑗 ∈ (0...𝑀)) → if(𝑗 = 0, (𝑃 − 1), 0) ∈ ℕ0)
36267fvmpt2 6453 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ (0...𝑀) ∧ if(𝑗 = 0, (𝑃 − 1), 0) ∈ ℕ0) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
363360, 361, 362syl2anc 696 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝜑𝑗 ∈ (0...𝑀)) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
364363adantr 472 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝐷𝑗) = if(𝑗 = 0, (𝑃 − 1), 0))
365 simpr 479 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → ¬ 𝑗 = 0)
366365iffalsed 4241 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → if(𝑗 = 0, (𝑃 − 1), 0) = 0)
367364, 366eqtr2d 2795 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝜑𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
368367adantllr 757 . . . . . . . . . . . . . . . . . . . . . . 23 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
369368adantllr 757 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → 0 = (𝐷𝑗))
370359, 369eqtrd 2794 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) ∧ ¬ 𝑗 = 0) → (𝑐𝑗) = (𝐷𝑗))
371267, 370pm2.61dan 867 . . . . . . . . . . . . . . . . . . . 20 ((((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) = (𝐷𝑗))
372252, 255, 371eqfnfvd 6477 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 = 𝐷)
373236, 372sylanl2 686 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ (𝑃 − 1) = (𝑐‘0)) → 𝑐 = 𝐷)
374 eldifsni 4466 . . . . . . . . . . . . . . . . . . . 20 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → 𝑐𝐷)
375374neneqd 2937 . . . . . . . . . . . . . . . . . . 19 (𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) → ¬ 𝑐 = 𝐷)
376375ad2antlr 765 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ (𝑃 − 1) = (𝑐‘0)) → ¬ 𝑐 = 𝐷)
377373, 376pm2.65da 601 . . . . . . . . . . . . . . . . 17 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ¬ (𝑃 − 1) = (𝑐‘0))
378377neqned 2939 . . . . . . . . . . . . . . . 16 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑃 − 1) ≠ (𝑐‘0))
379240, 241, 243, 378leneltd 10383 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (𝑐‘0) < (𝑃 − 1))
380240, 241posdifd 10806 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑐‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝑐‘0))))
381379, 380mpbid 222 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → 0 < ((𝑃 − 1) − (𝑐‘0)))
382 elnnz 11579 . . . . . . . . . . . . . 14 (((𝑃 − 1) − (𝑐‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝑐‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝑐‘0))))
383249, 381, 382sylanbrc 701 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℕ)
3843830expd 13218 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0↑((𝑃 − 1) − (𝑐‘0))) = 0)
385384oveq2d 6829 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · 0))
386161adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘(𝑃 − 1)) ∈ ℂ)
387383nnnn0d 11543 . . . . . . . . . . . . . . 15 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((𝑃 − 1) − (𝑐‘0)) ∈ ℕ0)
388387faccld 13265 . . . . . . . . . . . . . 14 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ∈ ℕ)
389388nncnd 11228 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ∈ ℂ)
390388nnne0d 11257 . . . . . . . . . . . . 13 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (!‘((𝑃 − 1) − (𝑐‘0))) ≠ 0)
391386, 389, 390divcld 10993 . . . . . . . . . . . 12 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) ∈ ℂ)
392391mul01d 10427 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · 0) = 0)
393245, 385, 3923eqtrd 2798 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) = 0)
394393oveq1d 6828 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))))
395236, 55sylan2 492 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℤ)
396395zcnd 11675 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))) ∈ ℂ)
397396mul02d 10426 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = 0)
398394, 397eqtrd 2794 . . . . . . . 8 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗)))))) = 0)
399398oveq2d 6829 . . . . . . 7 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · 0))
400 fzfid 12966 . . . . . . . . . . 11 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (0...𝑀) ∈ Fin)
40133, 280sseldi 3742 . . . . . . . . . . . . 13 (((𝜑𝑐 ∈ (𝐶‘(𝑃 − 1))) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℕ0)
402236, 401sylanl2 686 . . . . . . . . . . . 12 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ 𝑗 ∈ (0...𝑀)) → (𝑐𝑗) ∈ ℕ0)
403402faccld 13265 . . . . . . . . . . 11 (((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝑐𝑗)) ∈ ℕ)
404400, 403fprodnncl 14884 . . . . . . . . . 10 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ∈ ℕ)
405404nncnd 11228 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ∈ ℂ)
406404nnne0d 11257 . . . . . . . . 9 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗)) ≠ 0)
407386, 405, 406divcld 10993 . . . . . . . 8 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → ((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) ∈ ℂ)
408407mul01d 10427 . . . . . . 7 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · 0) = 0)
409399, 408eqtrd 2794 . . . . . 6 ((𝜑𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})) → (((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = 0)
410409sumeq2dv 14632 . . . . 5 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0)
411 diffi 8357 . . . . . . . 8 ((𝐶‘(𝑃 − 1)) ∈ Fin → ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin)
41219, 411syl 17 . . . . . . 7 (𝜑 → ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin)
413412olcd 407 . . . . . 6 (𝜑 → (((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ⊆ (ℤ‘0) ∨ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin))
414 sumz 14652 . . . . . 6 ((((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ⊆ (ℤ‘0) ∨ ((𝐶‘(𝑃 − 1)) ∖ {𝐷}) ∈ Fin) → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0 = 0)
415413, 414syl 17 . . . . 5 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})0 = 0)
416410, 415eqtrd 2794 . . . 4 (𝜑 → Σ𝑐 ∈ ((𝐶‘(𝑃 − 1)) ∖ {𝐷})(((!‘(𝑃 − 1)) / ∏𝑗 ∈ (0...𝑀)(!‘(𝑐𝑗))) · (if((𝑃 − 1) < (𝑐‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝑐‘0)))) · (0↑((𝑃 − 1) − (𝑐‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝑐𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝑐𝑗)))) · ((0 − 𝑗)↑(𝑃 − (𝑐𝑗))))))) = 0)
417235, 416oveq12d 6831 . . 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))
418233addid1d 10428 . . 3 (𝜑 → (((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) + 0) = ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)))
419 nfv 1992 . . . . 5 𝑗𝜑
420419, 206, 228, 220fprodexp 40329 . . . 4 (𝜑 → ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃) = (∏𝑗 ∈ (1...𝑀)-𝑗𝑃))
421420oveq2d 6829 . . 3 (𝜑 → ((!‘(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)(-𝑗𝑃)) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
422417, 418, 4213eqtrd 2798 . 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...𝑀)-𝑗𝑃)))
42316, 143, 4223eqtrd 2798 1 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) = ((!‘(𝑃 − 1)) · (∏𝑗 ∈ (1...𝑀)-𝑗𝑃)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wo 382  wa 383  w3a 1072   = wceq 1632  wcel 2139  wne 2932  {crab 3054  Vcvv 3340  cdif 3712  wss 3715  ifcif 4230  {csn 4321  {cpr 4323   class class class wbr 4804  cmpt 4881  ran crn 5267   Fn wfn 6044  wf 6045  cfv 6049  (class class class)co 6813  𝑚 cmap 8023  Fincfn 8121  cc 10126  cr 10127  0cc0 10128  1c1 10129   + caddc 10131   · cmul 10133   < clt 10266  cle 10267  cmin 10458  -cneg 10459   / cdiv 10876  cn 11212  0cn0 11484  cz 11569  cuz 11879  (,)cioo 12368  ...cfz 12519  cexp 13054  !cfa 13254  Σcsu 14615  cprod 14834  t crest 16283  TopOpenctopn 16284  topGenctg 16300  fldccnfld 19948   D𝑛 cdvn 23827
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-rep 4923  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7114  ax-inf2 8711  ax-cnex 10184  ax-resscn 10185  ax-1cn 10186  ax-icn 10187  ax-addcl 10188  ax-addrcl 10189  ax-mulcl 10190  ax-mulrcl 10191  ax-mulcom 10192  ax-addass 10193  ax-mulass 10194  ax-distr 10195  ax-i2m1 10196  ax-1ne0 10197  ax-1rid 10198  ax-rnegex 10199  ax-rrecex 10200  ax-cnre 10201  ax-pre-lttri 10202  ax-pre-lttrn 10203  ax-pre-ltadd 10204  ax-pre-mulgt0 10205  ax-pre-sup 10206  ax-addf 10207  ax-mulf 10208
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-fal 1638  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-nel 3036  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-int 4628  df-iun 4674  df-iin 4675  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-se 5226  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-isom 6058  df-riota 6774  df-ov 6816  df-oprab 6817  df-mpt2 6818  df-of 7062  df-om 7231  df-1st 7333  df-2nd 7334  df-supp 7464  df-wrecs 7576  df-recs 7637  df-rdg 7675  df-1o 7729  df-2o 7730  df-oadd 7733  df-er 7911  df-map 8025  df-pm 8026  df-ixp 8075  df-en 8122  df-dom 8123  df-sdom 8124  df-fin 8125  df-fsupp 8441  df-fi 8482  df-sup 8513  df-inf 8514  df-oi 8580  df-card 8955  df-cda 9182  df-pnf 10268  df-mnf 10269  df-xr 10270  df-ltxr 10271  df-le 10272  df-sub 10460  df-neg 10461  df-div 10877  df-nn 11213  df-2 11271  df-3 11272  df-4 11273  df-5 11274  df-6 11275  df-7 11276  df-8 11277  df-9 11278  df-n0 11485  df-z 11570  df-dec 11686  df-uz 11880  df-q 11982  df-rp 12026  df-xneg 12139  df-xadd 12140  df-xmul 12141  df-ioo 12372  df-ico 12374  df-icc 12375  df-fz 12520  df-fzo 12660  df-seq 12996  df-exp 13055  df-fac 13255  df-bc 13284  df-hash 13312  df-cj 14038  df-re 14039  df-im 14040  df-sqrt 14174  df-abs 14175  df-clim 14418  df-sum 14616  df-prod 14835  df-struct 16061  df-ndx 16062  df-slot 16063  df-base 16065  df-sets 16066  df-ress 16067  df-plusg 16156  df-mulr 16157  df-starv 16158  df-sca 16159  df-vsca 16160  df-ip 16161  df-tset 16162  df-ple 16163  df-ds 16166  df-unif 16167  df-hom 16168  df-cco 16169  df-rest 16285  df-topn 16286  df-0g 16304  df-gsum 16305  df-topgen 16306  df-pt 16307  df-prds 16310  df-xrs 16364  df-qtop 16369  df-imas 16370  df-xps 16372  df-mre 16448  df-mrc 16449  df-acs 16451  df-mgm 17443  df-sgrp 17485  df-mnd 17496  df-submnd 17537  df-mulg 17742  df-cntz 17950  df-cmn 18395  df-psmet 19940  df-xmet 19941  df-met 19942  df-bl 19943  df-mopn 19944  df-fbas 19945  df-fg 19946  df-cnfld 19949  df-top 20901  df-topon 20918  df-topsp 20939  df-bases 20952  df-cld 21025  df-ntr 21026  df-cls 21027  df-nei 21104  df-lp 21142  df-perf 21143  df-cn 21233  df-cnp 21234  df-haus 21321  df-tx 21567  df-hmeo 21760  df-fil 21851  df-fm 21943  df-flim 21944  df-flf 21945  df-xms 22326  df-ms 22327  df-tms 22328  df-cncf 22882  df-limc 23829  df-dv 23830  df-dvn 23831
This theorem is referenced by:  etransclem41  40995
  Copyright terms: Public domain W3C validator