Metamath Proof Explorer


Theorem etransclem33

Description: F is smooth. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem33.s ⊢ φ → S ∈ ℝ ℂ
etransclem33.x ⊢ φ → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
etransclem33.p ⊢ φ → P ∈ ℕ
etransclem33.m ⊢ φ → M ∈ ℕ 0
etransclem33.f ⊢ F = x ∈ X ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
etransclem33.n ⊢ φ → N ∈ ℕ 0
Assertion etransclem33 ⊢ φ → S D n F ⁡ N : X ⟶ ℂ

Proof

Step Hyp Ref Expression
1 etransclem33.s ⊢ φ → S ∈ ℝ ℂ
2 etransclem33.x ⊢ φ → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
3 etransclem33.p ⊢ φ → P ∈ ℕ
4 etransclem33.m ⊢ φ → M ∈ ℕ 0
5 etransclem33.f ⊢ F = x ∈ X ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
6 etransclem33.n ⊢ φ → N ∈ ℕ 0
7 eqidd ⊢ φ → 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
8 oveq2 ⊢ m = N → 0 … m = 0 … N
9 8 oveq1d ⊢ m = N → 0 … m 0 … M = 0 … N 0 … M
10 eqeq2 ⊢ m = N → ∑ k = 0 M d ⁡ k = m ↔ ∑ k = 0 M d ⁡ k = N
11 9 10 rabeqbidv ⊢ m = N → d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m = d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N
12 11 adantl ⊢ φ ∧ m = N → d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m = d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N
13 ovex ⊢ 0 … N 0 … M ∈ V
14 13 rabex ⊢ d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N ∈ V
15 14 a1i ⊢ φ → d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N ∈ V
16 7 12 6 15 fvmptd ⊢ φ → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N = d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N
17 fzfi ⊢ 0 … N ∈ Fin
18 fzfi ⊢ 0 … M ∈ Fin
19 mapfi ⊢ 0 … N ∈ Fin ∧ 0 … M ∈ Fin → 0 … N 0 … M ∈ Fin
20 17 18 19 mp2an ⊢ 0 … N 0 … M ∈ Fin
21 ssrab2 ⊢ d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N ⊆ 0 … N 0 … M
22 ssfi ⊢ 0 … N 0 … M ∈ Fin ∧ d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N ⊆ 0 … N 0 … M → d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N ∈ Fin
23 20 21 22 mp2an ⊢ d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N ∈ Fin
24 16 23 eqeltrdi ⊢ φ → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∈ Fin
25 24 adantr ⊢ φ ∧ x ∈ X → m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∈ Fin
26 6 faccld ⊢ φ → N ! ∈ ℕ
27 26 nncnd ⊢ φ → N ! ∈ ℂ
28 27 ad2antrr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∈ ℂ
29 18 a1i ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → 0 … M ∈ Fin
30 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
31 16 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 = d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N
32 30 31 eleqtrd ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → c ∈ d ∈ 0 … N 0 … M | ∑ k = 0 M d ⁡ k = N
33 21 32 sselid ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → c ∈ 0 … N 0 … M
34 elmapi ⊢ c ∈ 0 … N 0 … M → c : 0 … M ⟶ 0 … N
35 33 34 syl ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → c : 0 … M ⟶ 0 … N
36 35 ffvelcdmda ⊢ φ ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ∈ 0 … N
37 36 adantllr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ∈ 0 … N
38 elfznn0 ⊢ c ⁡ j ∈ 0 … N → c ⁡ j ∈ ℕ 0
39 37 38 syl ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ∈ ℕ 0
40 39 faccld ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ! ∈ ℕ
41 40 nncnd ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ! ∈ ℂ
42 29 41 fprodcl ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → ∏ j = 0 M c ⁡ j ! ∈ ℂ
43 40 nnne0d ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → c ⁡ j ! ≠ 0
44 29 41 43 fprodn0 ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → ∏ j = 0 M c ⁡ j ! ≠ 0
45 28 42 44 divcld ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → N ! ∏ j = 0 M c ⁡ j ! ∈ ℂ
46 1 ad3antrrr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → S ∈ ℝ ℂ
47 2 ad3antrrr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → X ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 S
48 3 ad3antrrr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → P ∈ ℕ
49 etransclem5 ⊢ k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P = w ∈ 0 … M ⟼ z ∈ X ⟼ z − w if w = 0 P − 1 P
50 simpr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → j ∈ 0 … M
51 46 47 48 49 50 39 etransclem20 ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → S D n k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j : X ⟶ ℂ
52 simpllr ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → x ∈ X
53 51 52 ffvelcdmd ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N ∧ j ∈ 0 … M → S D n k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x ∈ ℂ
54 29 53 fprodcl ⊢ φ ∧ x ∈ X ∧ c ∈ m ∈ ℕ 0 ⟼ d ∈ 0 … m 0 … M | ∑ k = 0 M d ⁡ k = m ⁡ N → ∏ j = 0 M S D n k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x ∈ ℂ
55 45 54 mulcld ⊢ φ ∧ 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x ∈ ℂ
56 25 55 fsumcl ⊢ φ ∧ 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x ∈ ℂ
57 eqid ⊢ 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x = 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x
58 56 57 fmptd ⊢ φ → 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x : X ⟶ ℂ
59 etransclem5 ⊢ k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P = j ∈ 0 … M ⟼ x ∈ X ⟼ x − j if j = 0 P − 1 P
60 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
61 1 2 3 4 5 6 59 60 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x
62 61 feq1d ⊢ φ → S D n F ⁡ N : X ⟶ ℂ ↔ 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 k ∈ 0 … M ⟼ y ∈ X ⟼ y − k if k = 0 P − 1 P ⁡ j ⁡ c ⁡ j ⁡ x : X ⟶ ℂ
63 58 62 mpbird ⊢ φ → S D n F ⁡ N : X ⟶ ℂ