Metamath Proof Explorer


Theorem etransclem32

Description: This is the proof for the last equation in the proof of the derivative calculated in Juillerat p. 12, just after equation *(6) . (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem32.s ⊢ φ → S ∈ ℝ ℂ
etransclem32.x ⊢ φ → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
etransclem32.p ⊢ φ → P ∈ ℕ
etransclem32.m ⊢ φ → M ∈ ℕ 0
etransclem32.f ⊢ F = x ∈ X ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
etransclem32.n ⊢ φ → N ∈ ℕ 0
etransclem32.ngt ⊢ φ → M ⁢ P + P - 1 < N
etransclem32.h ⊢ H = j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P
Assertion etransclem32 ⊢ φ → S D n F ⁡ N = x ∈ X ⟼ 0

Proof

Step Hyp Ref Expression
1 etransclem32.s ⊢ φ → S ∈ ℝ ℂ
2 etransclem32.x ⊢ φ → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
3 etransclem32.p ⊢ φ → P ∈ ℕ
4 etransclem32.m ⊢ φ → M ∈ ℕ 0
5 etransclem32.f ⊢ F = x ∈ X ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
6 etransclem32.n ⊢ φ → N ∈ ℕ 0
7 etransclem32.ngt ⊢ φ → M ⁢ P + P - 1 < N
8 etransclem32.h ⊢ H = j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P
9 etransclem11 ⊢ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m = n ∈ ℕ 0 ⟼ c ∈ 0 … n 0 … M | ∑ j = 0 M c ⁡ j = n
10 1 2 3 4 5 6 8 9 etransclem30 ⊢ φ → S D n F ⁡ N = x ∈ X ⟼ ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N N ! ∏ j = 0 M c ⁡ j ! ⁢ ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x
11 simpr ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N
12 9 6 etransclem12 ⊢ φ → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N = c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
13 12 adantr ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N = c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
14 11 13 eleqtrd ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
15 14 adantlr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
16 nfv ⊢ Ⅎ k φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
17 nfre1 ⊢ Ⅎ k ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k
18 17 nfn ⊢ Ⅎ k ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k
19 16 18 nfan ⊢ Ⅎ k φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k
20 fzssre ⊢ 0 … N ⊆ ℝ
21 rabid ⊢ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ↔ c ∈ 0 … N 0 … M ∧ ∑ j = 0 M c ⁡ j = N
22 21 simplbi ⊢ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → c ∈ 0 … N 0 … M
23 elmapi ⊢ c ∈ 0 … N 0 … M → c : 0 … M ⟶ 0 … N
24 22 23 syl ⊢ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → c : 0 … M ⟶ 0 … N
25 24 adantl ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → c : 0 … M ⟶ 0 … N
26 25 ffvelcdmda ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M → c ⁡ k ∈ 0 … N
27 20 26 sselid ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M → c ⁡ k ∈ ℝ
28 27 adantlr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k ∧ k ∈ 0 … M → c ⁡ k ∈ ℝ
29 nnm1nn0 ⊢ P ∈ ℕ → P − 1 ∈ ℕ 0
30 3 29 syl ⊢ φ → P − 1 ∈ ℕ 0
31 30 nn0red ⊢ φ → P − 1 ∈ ℝ
32 3 nnred ⊢ φ → P ∈ ℝ
33 31 32 ifcld ⊢ φ → if k = 0 P − 1 P ∈ ℝ
34 33 ad3antrrr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k ∧ k ∈ 0 … M → if k = 0 P − 1 P ∈ ℝ
35 ralnex ⊢ ∀ k ∈ 0 … M ¬ if k = 0 P − 1 P < c ⁡ k ↔ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k
36 35 biimpri ⊢ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k → ∀ k ∈ 0 … M ¬ if k = 0 P − 1 P < c ⁡ k
37 36 r19.21bi ⊢ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k ∧ k ∈ 0 … M → ¬ if k = 0 P − 1 P < c ⁡ k
38 37 adantll ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k ∧ k ∈ 0 … M → ¬ if k = 0 P − 1 P < c ⁡ k
39 28 34 38 nltled ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k ∧ k ∈ 0 … M → c ⁡ k ≤ if k = 0 P − 1 P
40 39 ex ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k → k ∈ 0 … M → c ⁡ k ≤ if k = 0 P − 1 P
41 19 40 ralrimi ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k → ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P
42 21 simprbi ⊢ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → ∑ j = 0 M c ⁡ j = N
43 fveq2 ⊢ j = k → c ⁡ j = c ⁡ k
44 43 cbvsumv ⊢ ∑ j = 0 M c ⁡ j = ∑ k = 0 M c ⁡ k
45 42 44 eqtr3di ⊢ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → N = ∑ k = 0 M c ⁡ k
46 45 ad2antlr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → N = ∑ k = 0 M c ⁡ k
47 fveq2 ⊢ k = h → c ⁡ k = c ⁡ h
48 47 cbvsumv ⊢ ∑ k = 0 M c ⁡ k = ∑ h = 0 M c ⁡ h
49 fzfid ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → 0 … M ∈ Fin
50 25 ffvelcdmda ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ h ∈ 0 … M → c ⁡ h ∈ 0 … N
51 20 50 sselid ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ h ∈ 0 … M → c ⁡ h ∈ ℝ
52 51 adantlr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P ∧ h ∈ 0 … M → c ⁡ h ∈ ℝ
53 31 32 ifcld ⊢ φ → if h = 0 P − 1 P ∈ ℝ
54 53 ad3antrrr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P ∧ h ∈ 0 … M → if h = 0 P − 1 P ∈ ℝ
55 eqeq1 ⊢ k = h → k = 0 ↔ h = 0
56 55 ifbid ⊢ k = h → if k = 0 P − 1 P = if h = 0 P − 1 P
57 47 56 breq12d ⊢ k = h → c ⁡ k ≤ if k = 0 P − 1 P ↔ c ⁡ h ≤ if h = 0 P − 1 P
58 57 rspccva ⊢ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P ∧ h ∈ 0 … M → c ⁡ h ≤ if h = 0 P − 1 P
59 58 adantll ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P ∧ h ∈ 0 … M → c ⁡ h ≤ if h = 0 P − 1 P
60 49 52 54 59 fsumle ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → ∑ h = 0 M c ⁡ h ≤ ∑ h = 0 M if h = 0 P − 1 P
61 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
62 4 61 eleqtrdi ⊢ φ → M ∈ ℤ ≥ 0
63 3 nnnn0d ⊢ φ → P ∈ ℕ 0
64 30 63 ifcld ⊢ φ → if h = 0 P − 1 P ∈ ℕ 0
65 64 adantr ⊢ φ ∧ h ∈ 0 … M → if h = 0 P − 1 P ∈ ℕ 0
66 65 nn0cnd ⊢ φ ∧ h ∈ 0 … M → if h = 0 P − 1 P ∈ ℂ
67 iftrue ⊢ h = 0 → if h = 0 P − 1 P = P − 1
68 62 66 67 fsum1p ⊢ φ → ∑ h = 0 M if h = 0 P − 1 P = P - 1 + ∑ h = 0 + 1 M if h = 0 P − 1 P
69 0p1e1 ⊢ 0 + 1 = 1
70 69 oveq1i ⊢ 0 + 1 … M = 1 … M
71 70 a1i ⊢ φ → 0 + 1 … M = 1 … M
72 71 sumeq1d ⊢ φ → ∑ h = 0 + 1 M if h = 0 P − 1 P = ∑ h = 1 M if h = 0 P − 1 P
73 0red ⊢ h ∈ 1 … M → 0 ∈ ℝ
74 1red ⊢ h ∈ 1 … M → 1 ∈ ℝ
75 elfzelz ⊢ h ∈ 1 … M → h ∈ ℤ
76 75 zred ⊢ h ∈ 1 … M → h ∈ ℝ
77 0lt1 ⊢ 0 < 1
78 77 a1i ⊢ h ∈ 1 … M → 0 < 1
79 elfzle1 ⊢ h ∈ 1 … M → 1 ≤ h
80 73 74 76 78 79 ltletrd ⊢ h ∈ 1 … M → 0 < h
81 80 gt0ne0d ⊢ h ∈ 1 … M → h ≠ 0
82 81 neneqd ⊢ h ∈ 1 … M → ¬ h = 0
83 82 iffalsed ⊢ h ∈ 1 … M → if h = 0 P − 1 P = P
84 83 adantl ⊢ φ ∧ h ∈ 1 … M → if h = 0 P − 1 P = P
85 84 sumeq2dv ⊢ φ → ∑ h = 1 M if h = 0 P − 1 P = ∑ h = 1 M P
86 fzfid ⊢ φ → 1 … M ∈ Fin
87 3 nncnd ⊢ φ → P ∈ ℂ
88 fsumconst ⊢ 1 … M ∈ Fin ∧ P ∈ ℂ → ∑ h = 1 M P = 1 … M ⁢ P
89 86 87 88 syl2anc ⊢ φ → ∑ h = 1 M P = 1 … M ⁢ P
90 hashfz1 ⊢ M ∈ ℕ 0 → 1 … M = M
91 4 90 syl ⊢ φ → 1 … M = M
92 91 oveq1d ⊢ φ → 1 … M ⁢ P = M ⁢ P
93 89 92 eqtrd ⊢ φ → ∑ h = 1 M P = M ⁢ P
94 72 85 93 3eqtrd ⊢ φ → ∑ h = 0 + 1 M if h = 0 P − 1 P = M ⁢ P
95 94 oveq2d ⊢ φ → P - 1 + ∑ h = 0 + 1 M if h = 0 P − 1 P = P - 1 + M ⁢ P
96 30 nn0cnd ⊢ φ → P − 1 ∈ ℂ
97 4 63 nn0mulcld ⊢ φ → M ⁢ P ∈ ℕ 0
98 97 nn0cnd ⊢ φ → M ⁢ P ∈ ℂ
99 96 98 addcomd ⊢ φ → P - 1 + M ⁢ P = M ⁢ P + P - 1
100 68 95 99 3eqtrd ⊢ φ → ∑ h = 0 M if h = 0 P − 1 P = M ⁢ P + P - 1
101 100 ad2antrr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → ∑ h = 0 M if h = 0 P − 1 P = M ⁢ P + P - 1
102 60 101 breqtrd ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → ∑ h = 0 M c ⁡ h ≤ M ⁢ P + P - 1
103 48 102 eqbrtrid ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → ∑ k = 0 M c ⁡ k ≤ M ⁢ P + P - 1
104 46 103 eqbrtrd ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ∀ k ∈ 0 … M c ⁡ k ≤ if k = 0 P − 1 P → N ≤ M ⁢ P + P - 1
105 41 104 syldan ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k → N ≤ M ⁢ P + P - 1
106 97 30 nn0addcld ⊢ φ → M ⁢ P + P - 1 ∈ ℕ 0
107 106 nn0red ⊢ φ → M ⁢ P + P - 1 ∈ ℝ
108 6 nn0red ⊢ φ → N ∈ ℝ
109 107 108 ltnled ⊢ φ → M ⁢ P + P - 1 < N ↔ ¬ N ≤ M ⁢ P + P - 1
110 7 109 mpbid ⊢ φ → ¬ N ≤ M ⁢ P + P - 1
111 110 ad2antrr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ ¬ ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k → ¬ N ≤ M ⁢ P + P - 1
112 105 111 condan ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k
113 112 adantlr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k
114 nfv ⊢ Ⅎ j φ ∧ x ∈ X
115 nfcv ⊢ Ⅎ _ j 0 … M
116 115 nfsum1 ⊢ Ⅎ _ j ∑ j = 0 M c ⁡ j
117 116 nfeq1 ⊢ Ⅎ j ∑ j = 0 M c ⁡ j = N
118 nfcv ⊢ Ⅎ _ j 0 … N 0 … M
119 117 118 nfrabw ⊢ Ⅎ _ j c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
120 119 nfcri ⊢ Ⅎ j c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
121 114 120 nfan ⊢ Ⅎ j φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
122 nfv ⊢ Ⅎ j k ∈ 0 … M
123 nfv ⊢ Ⅎ j if k = 0 P − 1 P < c ⁡ k
124 121 122 123 nf3an ⊢ Ⅎ j φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k
125 nfcv ⊢ Ⅎ _ j S D n H ⁡ k ⁡ c ⁡ k ⁡ x
126 fzfid ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → 0 … M ∈ Fin
127 1 ad3antrrr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → S ∈ ℝ ℂ
128 2 ad3antrrr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
129 3 ad3antrrr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → P ∈ ℕ
130 etransclem5 ⊢ j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P = k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P
131 8 130 eqtri ⊢ H = k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P
132 simpr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → j ∈ 0 … M
133 24 ad2antlr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → c : 0 … M ⟶ 0 … N
134 simpr ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → j ∈ 0 … M
135 133 134 ffvelcdmd ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → c ⁡ j ∈ 0 … N
136 135 adantllr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → c ⁡ j ∈ 0 … N
137 elfznn0 ⊢ c ⁡ j ∈ 0 … N → c ⁡ j ∈ ℕ 0
138 136 137 syl ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → c ⁡ j ∈ ℕ 0
139 127 128 129 131 132 138 etransclem20 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → S D n H ⁡ j ⁡ c ⁡ j : X ⟶ ℂ
140 simpllr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → x ∈ X
141 139 140 ffvelcdmd ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ j ∈ 0 … M → S D n H ⁡ j ⁡ c ⁡ j ⁡ x ∈ ℂ
142 141 3ad2antl1 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k ∧ j ∈ 0 … M → S D n H ⁡ j ⁡ c ⁡ j ⁡ x ∈ ℂ
143 fveq2 ⊢ j = k → H ⁡ j = H ⁡ k
144 143 oveq2d ⊢ j = k → S D n H ⁡ j = S D n H ⁡ k
145 144 43 fveq12d ⊢ j = k → S D n H ⁡ j ⁡ c ⁡ j = S D n H ⁡ k ⁡ c ⁡ k
146 145 fveq1d ⊢ j = k → S D n H ⁡ j ⁡ c ⁡ j ⁡ x = S D n H ⁡ k ⁡ c ⁡ k ⁡ x
147 simp2 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → k ∈ 0 … M
148 1 ad2antrr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → S ∈ ℝ ℂ
149 148 3ad2ant1 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → S ∈ ℝ ℂ
150 2 ad2antrr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
151 150 3ad2ant1 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
152 3 ad2antrr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → P ∈ ℕ
153 152 3ad2ant1 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → P ∈ ℕ
154 etransclem5 ⊢ j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P = h ∈ 0 … M ⟼ y ∈ X ⟼ y − h if h = 0 P − 1 P
155 8 154 eqtri ⊢ H = h ∈ 0 … M ⟼ y ∈ X ⟼ y − h if h = 0 P − 1 P
156 26 elfzelzd ⊢ φ ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M → c ⁡ k ∈ ℤ
157 156 adantllr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M → c ⁡ k ∈ ℤ
158 157 3adant3 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → c ⁡ k ∈ ℤ
159 simp3 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → if k = 0 P − 1 P < c ⁡ k
160 149 151 153 155 147 158 159 etransclem19 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → S D n H ⁡ k ⁡ c ⁡ k = y ∈ X ⟼ 0
161 eqidd ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k ∧ y = x → 0 = 0
162 simp1lr ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → x ∈ X
163 0red ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → 0 ∈ ℝ
164 160 161 162 163 fvmptd ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → S D n H ⁡ k ⁡ c ⁡ k ⁡ x = 0
165 124 125 126 142 146 147 164 fprod0 ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N ∧ k ∈ 0 … M ∧ if k = 0 P − 1 P < c ⁡ k → ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = 0
166 165 rexlimdv3a ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → ∃ k ∈ 0 … M if k = 0 P − 1 P < c ⁡ k → ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = 0
167 113 166 mpd ⊢ φ ∧ x ∈ X ∧ c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N → ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = 0
168 15 167 syldan ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = 0
169 168 oveq2d ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∏ j = 0 M c ⁡ j ! ⁢ ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = N ! ∏ j = 0 M c ⁡ j ! ⋅ 0
170 6 faccld ⊢ φ → N ! ∈ ℕ
171 170 nncnd ⊢ φ → N ! ∈ ℂ
172 171 adantr ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∈ ℂ
173 fzfid ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → 0 … M ∈ Fin
174 simpll ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → φ
175 14 adantr ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ∈ c ∈ 0 … N 0 … M | ∑ j = 0 M c ⁡ j = N
176 simpr ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → j ∈ 0 … M
177 174 175 176 135 syl21anc ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ∈ 0 … N
178 177 137 syl ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ∈ ℕ 0
179 178 faccld ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ! ∈ ℕ
180 179 nncnd ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ! ∈ ℂ
181 173 180 fprodcl ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → ∏ j = 0 M c ⁡ j ! ∈ ℂ
182 179 nnne0d ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ! ≠ 0
183 173 180 182 fprodn0 ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → ∏ j = 0 M c ⁡ j ! ≠ 0
184 172 181 183 divcld ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∏ j = 0 M c ⁡ j ! ∈ ℂ
185 184 mul01d ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∏ j = 0 M c ⁡ j ! ⋅ 0 = 0
186 185 adantlr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∏ j = 0 M c ⁡ j ! ⋅ 0 = 0
187 169 186 eqtrd ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∏ j = 0 M c ⁡ j ! ⁢ ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = 0
188 187 sumeq2dv ⊢ φ ∧ x ∈ X → ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N N ! ∏ j = 0 M c ⁡ j ! ⁢ ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N 0
189 eqid ⊢ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m = m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m
190 189 6 etransclem16 ⊢ φ → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∈ Fin
191 190 olcd ⊢ φ → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ⊆ ℤ ≥ A ∨ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∈ Fin
192 191 adantr ⊢ φ ∧ x ∈ X → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ⊆ ℤ ≥ A ∨ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∈ Fin
193 sumz ⊢ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ⊆ ℤ ≥ A ∨ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∈ Fin → ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N 0 = 0
194 192 193 syl ⊢ φ ∧ x ∈ X → ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N 0 = 0
195 188 194 eqtrd ⊢ φ ∧ x ∈ X → ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N N ! ∏ j = 0 M c ⁡ j ! ⁢ ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = 0
196 195 mpteq2dva ⊢ φ → x ∈ X ⟼ ∑ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N N ! ∏ j = 0 M c ⁡ j ! ⁢ ∏ j = 0 M S D n H ⁡ j ⁡ c ⁡ j ⁡ x = x ∈ X ⟼ 0
197 10 196 eqtrd ⊢ φ → S D n F ⁡ N = x ∈ X ⟼ 0