Metamath Proof Explorer


Theorem etransclem46

Description: This is the proof for equation *(7) in Juillerat p. 12. The proven equality will lead to a contradiction, because the left-hand side goes to 0 for large P , but the right-hand side is a nonzero integer. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem46.q ⊢ φ → Q ∈ Poly ⁡ ℤ ∖ 0 𝑝
etransclem46.qe0 ⊢ φ → Q ⁡ e = 0
etransclem46.a ⊢ A = coeff ⁡ Q
etransclem46.m ⊢ M = deg ⁡ Q
etransclem46.rex ⊢ φ → ℝ ⊆ ℝ
etransclem46.s ⊢ φ → ℝ ∈ ℝ ℂ
etransclem46.x ⊢ φ → ℝ ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
etransclem46.p ⊢ φ → P ∈ ℕ
etransclem46.f ⊢ F = x ∈ ℝ ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
etransclem46.l ⊢ L = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ ∫ 0 j e − x ⁢ F ⁡ x dx
etransclem46.r ⊢ R = M ⁢ P + P - 1
etransclem46.g ⊢ G = x ∈ ℝ ⟼ ∑ i = 0 R ℝ D n F ⁡ i ⁡ x
etransclem46.h ⊢ O = x ∈ 0 j ⟼ − e − x ⁢ G ⁡ x
Assertion etransclem46 ⊢ φ → L P − 1 ! = − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k P − 1 !

Proof

Step Hyp Ref Expression
1 etransclem46.q ⊢ φ → Q ∈ Poly ⁡ ℤ ∖ 0 𝑝
2 etransclem46.qe0 ⊢ φ → Q ⁡ e = 0
3 etransclem46.a ⊢ A = coeff ⁡ Q
4 etransclem46.m ⊢ M = deg ⁡ Q
5 etransclem46.rex ⊢ φ → ℝ ⊆ ℝ
6 etransclem46.s ⊢ φ → ℝ ∈ ℝ ℂ
7 etransclem46.x ⊢ φ → ℝ ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
8 etransclem46.p ⊢ φ → P ∈ ℕ
9 etransclem46.f ⊢ F = x ∈ ℝ ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P
10 etransclem46.l ⊢ L = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ ∫ 0 j e − x ⁢ F ⁡ x dx
11 etransclem46.r ⊢ R = M ⁢ P + P - 1
12 etransclem46.g ⊢ G = x ∈ ℝ ⟼ ∑ i = 0 R ℝ D n F ⁡ i ⁡ x
13 etransclem46.h ⊢ O = x ∈ 0 j ⟼ − e − x ⁢ G ⁡ x
14 10 a1i ⊢ φ → L = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ ∫ 0 j e − x ⁢ F ⁡ x dx
15 13 oveq2i ⊢ ℝ D O = dx ∈ 0 j − e − x ⁢ G ⁡ x d ℝ x
16 15 a1i ⊢ φ ∧ j ∈ 0 … M → ℝ D O = dx ∈ 0 j − e − x ⁢ G ⁡ x d ℝ x
17 6 adantr ⊢ φ ∧ j ∈ 0 … M → ℝ ∈ ℝ ℂ
18 ere ⊢ e ∈ ℝ
19 18 recni ⊢ e ∈ ℂ
20 19 a1i ⊢ x ∈ ℝ → e ∈ ℂ
21 recn ⊢ x ∈ ℝ → x ∈ ℂ
22 21 negcld ⊢ x ∈ ℝ → − x ∈ ℂ
23 20 22 cxpcld ⊢ x ∈ ℝ → e − x ∈ ℂ
24 23 adantl ⊢ φ ∧ x ∈ ℝ → e − x ∈ ℂ
25 simpr ⊢ φ ∧ x ∈ ℝ → x ∈ ℝ
26 fzfid ⊢ φ ∧ x ∈ ℝ → 0 … R ∈ Fin
27 elfznn0 ⊢ i ∈ 0 … R → i ∈ ℕ 0
28 6 adantr ⊢ φ ∧ i ∈ ℕ 0 → ℝ ∈ ℝ ℂ
29 7 adantr ⊢ φ ∧ i ∈ ℕ 0 → ℝ ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
30 8 adantr ⊢ φ ∧ i ∈ ℕ 0 → P ∈ ℕ
31 1 eldifad ⊢ φ → Q ∈ Poly ⁡ ℤ
32 dgrcl ⊢ Q ∈ Poly ⁡ ℤ → deg ⁡ Q ∈ ℕ 0
33 31 32 syl ⊢ φ → deg ⁡ Q ∈ ℕ 0
34 4 33 eqeltrid ⊢ φ → M ∈ ℕ 0
35 34 adantr ⊢ φ ∧ i ∈ ℕ 0 → M ∈ ℕ 0
36 simpr ⊢ φ ∧ i ∈ ℕ 0 → i ∈ ℕ 0
37 28 29 30 35 9 36 etransclem33 ⊢ φ ∧ i ∈ ℕ 0 → ℝ D n F ⁡ i : ℝ ⟶ ℂ
38 27 37 sylan2 ⊢ φ ∧ i ∈ 0 … R → ℝ D n F ⁡ i : ℝ ⟶ ℂ
39 38 adantlr ⊢ φ ∧ x ∈ ℝ ∧ i ∈ 0 … R → ℝ D n F ⁡ i : ℝ ⟶ ℂ
40 simplr ⊢ φ ∧ x ∈ ℝ ∧ i ∈ 0 … R → x ∈ ℝ
41 39 40 ffvelcdmd ⊢ φ ∧ x ∈ ℝ ∧ i ∈ 0 … R → ℝ D n F ⁡ i ⁡ x ∈ ℂ
42 26 41 fsumcl ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i ⁡ x ∈ ℂ
43 12 fvmpt2 ⊢ x ∈ ℝ ∧ ∑ i = 0 R ℝ D n F ⁡ i ⁡ x ∈ ℂ → G ⁡ x = ∑ i = 0 R ℝ D n F ⁡ i ⁡ x
44 25 42 43 syl2anc ⊢ φ ∧ x ∈ ℝ → G ⁡ x = ∑ i = 0 R ℝ D n F ⁡ i ⁡ x
45 44 42 eqeltrd ⊢ φ ∧ x ∈ ℝ → G ⁡ x ∈ ℂ
46 24 45 mulcld ⊢ φ ∧ x ∈ ℝ → e − x ⁢ G ⁡ x ∈ ℂ
47 46 negcld ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x ∈ ℂ
48 47 adantlr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x ∈ ℂ
49 6 7 dvdmsscn ⊢ φ → ℝ ⊆ ℂ
50 49 8 9 etransclem8 ⊢ φ → F : ℝ ⟶ ℂ
51 50 ffvelcdmda ⊢ φ ∧ x ∈ ℝ → F ⁡ x ∈ ℂ
52 24 51 mulcld ⊢ φ ∧ x ∈ ℝ → e − x ⁢ F ⁡ x ∈ ℂ
53 52 negcld ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ F ⁡ x ∈ ℂ
54 53 negcld ⊢ φ ∧ x ∈ ℝ → − − e − x ⁢ F ⁡ x ∈ ℂ
55 54 adantlr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ ℝ → − − e − x ⁢ F ⁡ x ∈ ℂ
56 18 a1i ⊢ x ∈ ℝ → e ∈ ℝ
57 0re ⊢ 0 ∈ ℝ
58 epos ⊢ 0 < e
59 57 18 58 ltleii ⊢ 0 ≤ e
60 59 a1i ⊢ x ∈ ℝ → 0 ≤ e
61 renegcl ⊢ x ∈ ℝ → − x ∈ ℝ
62 56 60 61 recxpcld ⊢ x ∈ ℝ → e − x ∈ ℝ
63 62 renegcld ⊢ x ∈ ℝ → − e − x ∈ ℝ
64 63 adantl ⊢ φ ∧ x ∈ ℝ → − e − x ∈ ℝ
65 reelprrecn ⊢ ℝ ∈ ℝ ℂ
66 65 a1i ⊢ ⊤ → ℝ ∈ ℝ ℂ
67 cnelprrecn ⊢ ℂ ∈ ℝ ℂ
68 67 a1i ⊢ ⊤ → ℂ ∈ ℝ ℂ
69 22 adantl ⊢ ⊤ ∧ x ∈ ℝ → − x ∈ ℂ
70 neg1rr ⊢ − 1 ∈ ℝ
71 70 a1i ⊢ ⊤ ∧ x ∈ ℝ → − 1 ∈ ℝ
72 19 a1i ⊢ y ∈ ℂ → e ∈ ℂ
73 id ⊢ y ∈ ℂ → y ∈ ℂ
74 72 73 cxpcld ⊢ y ∈ ℂ → e y ∈ ℂ
75 74 adantl ⊢ ⊤ ∧ y ∈ ℂ → e y ∈ ℂ
76 21 adantl ⊢ ⊤ ∧ x ∈ ℝ → x ∈ ℂ
77 1red ⊢ ⊤ ∧ x ∈ ℝ → 1 ∈ ℝ
78 66 dvmptid ⊢ ⊤ → dx ∈ ℝ x d ℝ x = x ∈ ℝ ⟼ 1
79 66 76 77 78 dvmptneg ⊢ ⊤ → dx ∈ ℝ − x d ℝ x = x ∈ ℝ ⟼ − 1
80 epr ⊢ e ∈ ℝ +
81 dvcxp2 ⊢ e ∈ ℝ + → dy ∈ ℂ e y d ℂ y = y ∈ ℂ ⟼ log ⁡ e ⁢ e y
82 80 81 ax-mp ⊢ dy ∈ ℂ e y d ℂ y = y ∈ ℂ ⟼ log ⁡ e ⁢ e y
83 loge ⊢ log ⁡ e = 1
84 83 oveq1i ⊢ log ⁡ e ⁢ e y = 1 ⁢ e y
85 74 mullidd ⊢ y ∈ ℂ → 1 ⁢ e y = e y
86 84 85 eqtrid ⊢ y ∈ ℂ → log ⁡ e ⁢ e y = e y
87 86 mpteq2ia ⊢ y ∈ ℂ ⟼ log ⁡ e ⁢ e y = y ∈ ℂ ⟼ e y
88 82 87 eqtri ⊢ dy ∈ ℂ e y d ℂ y = y ∈ ℂ ⟼ e y
89 88 a1i ⊢ ⊤ → dy ∈ ℂ e y d ℂ y = y ∈ ℂ ⟼ e y
90 oveq2 ⊢ y = − x → e y = e − x
91 66 68 69 71 75 75 79 89 90 90 dvmptco ⊢ ⊤ → dx ∈ ℝ e − x d ℝ x = x ∈ ℝ ⟼ e − x ⁢ -1
92 91 mptru ⊢ dx ∈ ℝ e − x d ℝ x = x ∈ ℝ ⟼ e − x ⁢ -1
93 70 a1i ⊢ x ∈ ℝ → − 1 ∈ ℝ
94 93 recnd ⊢ x ∈ ℝ → − 1 ∈ ℂ
95 23 94 mulcomd ⊢ x ∈ ℝ → e − x ⁢ -1 = -1 ⁢ e − x
96 23 mulm1d ⊢ x ∈ ℝ → -1 ⁢ e − x = − e − x
97 95 96 eqtrd ⊢ x ∈ ℝ → e − x ⁢ -1 = − e − x
98 97 mpteq2ia ⊢ x ∈ ℝ ⟼ e − x ⁢ -1 = x ∈ ℝ ⟼ − e − x
99 92 98 eqtri ⊢ dx ∈ ℝ e − x d ℝ x = x ∈ ℝ ⟼ − e − x
100 99 a1i ⊢ φ → dx ∈ ℝ e − x d ℝ x = x ∈ ℝ ⟼ − e − x
101 27 adantl ⊢ φ ∧ i ∈ 0 … R → i ∈ ℕ 0
102 peano2nn0 ⊢ i ∈ ℕ 0 → i + 1 ∈ ℕ 0
103 101 102 syl ⊢ φ ∧ i ∈ 0 … R → i + 1 ∈ ℕ 0
104 ovex ⊢ i + 1 ∈ V
105 eleq1 ⊢ j = i + 1 → j ∈ ℕ 0 ↔ i + 1 ∈ ℕ 0
106 105 anbi2d ⊢ j = i + 1 → φ ∧ j ∈ ℕ 0 ↔ φ ∧ i + 1 ∈ ℕ 0
107 fveq2 ⊢ j = i + 1 → ℝ D n F ⁡ j = ℝ D n F ⁡ i + 1
108 107 feq1d ⊢ j = i + 1 → ℝ D n F ⁡ j : ℝ ⟶ ℂ ↔ ℝ D n F ⁡ i + 1 : ℝ ⟶ ℂ
109 106 108 imbi12d ⊢ j = i + 1 → φ ∧ j ∈ ℕ 0 → ℝ D n F ⁡ j : ℝ ⟶ ℂ ↔ φ ∧ i + 1 ∈ ℕ 0 → ℝ D n F ⁡ i + 1 : ℝ ⟶ ℂ
110 eleq1 ⊢ i = j → i ∈ ℕ 0 ↔ j ∈ ℕ 0
111 110 anbi2d ⊢ i = j → φ ∧ i ∈ ℕ 0 ↔ φ ∧ j ∈ ℕ 0
112 fveq2 ⊢ i = j → ℝ D n F ⁡ i = ℝ D n F ⁡ j
113 112 feq1d ⊢ i = j → ℝ D n F ⁡ i : ℝ ⟶ ℂ ↔ ℝ D n F ⁡ j : ℝ ⟶ ℂ
114 111 113 imbi12d ⊢ i = j → φ ∧ i ∈ ℕ 0 → ℝ D n F ⁡ i : ℝ ⟶ ℂ ↔ φ ∧ j ∈ ℕ 0 → ℝ D n F ⁡ j : ℝ ⟶ ℂ
115 114 37 chvarvv ⊢ φ ∧ j ∈ ℕ 0 → ℝ D n F ⁡ j : ℝ ⟶ ℂ
116 104 109 115 vtocl ⊢ φ ∧ i + 1 ∈ ℕ 0 → ℝ D n F ⁡ i + 1 : ℝ ⟶ ℂ
117 103 116 syldan ⊢ φ ∧ i ∈ 0 … R → ℝ D n F ⁡ i + 1 : ℝ ⟶ ℂ
118 117 adantlr ⊢ φ ∧ x ∈ ℝ ∧ i ∈ 0 … R → ℝ D n F ⁡ i + 1 : ℝ ⟶ ℂ
119 118 40 ffvelcdmd ⊢ φ ∧ x ∈ ℝ ∧ i ∈ 0 … R → ℝ D n F ⁡ i + 1 ⁡ x ∈ ℂ
120 26 119 fsumcl ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ∈ ℂ
121 8 34 9 12 etransclem39 ⊢ φ → G : ℝ ⟶ ℂ
122 121 feqmptd ⊢ φ → G = x ∈ ℝ ⟼ G ⁡ x
123 122 eqcomd ⊢ φ → x ∈ ℝ ⟼ G ⁡ x = G
124 123 oveq2d ⊢ φ → dx ∈ ℝ G ⁡ x d ℝ x = ℝ D G
125 nfcv ⊢ Ⅎ _ x F
126 elfznn0 ⊢ i ∈ 0 … R + 1 → i ∈ ℕ 0
127 126 37 sylan2 ⊢ φ ∧ i ∈ 0 … R + 1 → ℝ D n F ⁡ i : ℝ ⟶ ℂ
128 125 50 127 12 etransclem2 ⊢ φ → ℝ D G = x ∈ ℝ ⟼ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x
129 124 128 eqtrd ⊢ φ → dx ∈ ℝ G ⁡ x d ℝ x = x ∈ ℝ ⟼ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x
130 6 24 64 100 45 120 129 dvmptmul ⊢ φ → dx ∈ ℝ e − x ⁢ G ⁡ x d ℝ x = x ∈ ℝ ⟼ − e − x ⁢ G ⁡ x + ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ⁢ e − x
131 120 24 mulcomd ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ⁢ e − x = e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x
132 131 oveq2d ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x + ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ⁢ e − x = − e − x ⁢ G ⁡ x + e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x
133 24 negcld ⊢ φ ∧ x ∈ ℝ → − e − x ∈ ℂ
134 133 45 mulcld ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x ∈ ℂ
135 24 120 mulcld ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ∈ ℂ
136 134 135 addcomd ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x + e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x = e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x + − e − x ⁢ G ⁡ x
137 135 46 negsubd ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x + − e − x ⁢ G ⁡ x = e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − e − x ⁢ G ⁡ x
138 24 45 mulneg1d ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x = − e − x ⁢ G ⁡ x
139 138 oveq2d ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x + − e − x ⁢ G ⁡ x = e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x + − e − x ⁢ G ⁡ x
140 24 120 45 subdid ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − G ⁡ x = e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − e − x ⁢ G ⁡ x
141 137 139 140 3eqtr4d ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x + − e − x ⁢ G ⁡ x = e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − G ⁡ x
142 44 oveq2d ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − G ⁡ x = ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − ∑ i = 0 R ℝ D n F ⁡ i ⁡ x
143 26 119 41 fsumsub ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − ℝ D n F ⁡ i ⁡ x = ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − ∑ i = 0 R ℝ D n F ⁡ i ⁡ x
144 fveq2 ⊢ j = i → ℝ D n F ⁡ j = ℝ D n F ⁡ i
145 144 fveq1d ⊢ j = i → ℝ D n F ⁡ j ⁡ x = ℝ D n F ⁡ i ⁡ x
146 107 fveq1d ⊢ j = i + 1 → ℝ D n F ⁡ j ⁡ x = ℝ D n F ⁡ i + 1 ⁡ x
147 fveq2 ⊢ j = 0 → ℝ D n F ⁡ j = ℝ D n F ⁡ 0
148 147 fveq1d ⊢ j = 0 → ℝ D n F ⁡ j ⁡ x = ℝ D n F ⁡ 0 ⁡ x
149 fveq2 ⊢ j = R + 1 → ℝ D n F ⁡ j = ℝ D n F ⁡ R + 1
150 149 fveq1d ⊢ j = R + 1 → ℝ D n F ⁡ j ⁡ x = ℝ D n F ⁡ R + 1 ⁡ x
151 8 nnnn0d ⊢ φ → P ∈ ℕ 0
152 34 151 nn0mulcld ⊢ φ → M ⁢ P ∈ ℕ 0
153 nnm1nn0 ⊢ P ∈ ℕ → P − 1 ∈ ℕ 0
154 8 153 syl ⊢ φ → P − 1 ∈ ℕ 0
155 152 154 nn0addcld ⊢ φ → M ⁢ P + P - 1 ∈ ℕ 0
156 11 155 eqeltrid ⊢ φ → R ∈ ℕ 0
157 156 adantr ⊢ φ ∧ x ∈ ℝ → R ∈ ℕ 0
158 157 nn0zd ⊢ φ ∧ x ∈ ℝ → R ∈ ℤ
159 peano2nn0 ⊢ R ∈ ℕ 0 → R + 1 ∈ ℕ 0
160 156 159 syl ⊢ φ → R + 1 ∈ ℕ 0
161 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
162 160 161 eleqtrdi ⊢ φ → R + 1 ∈ ℤ ≥ 0
163 162 adantr ⊢ φ ∧ x ∈ ℝ → R + 1 ∈ ℤ ≥ 0
164 elfznn0 ⊢ j ∈ 0 … R + 1 → j ∈ ℕ 0
165 164 115 sylan2 ⊢ φ ∧ j ∈ 0 … R + 1 → ℝ D n F ⁡ j : ℝ ⟶ ℂ
166 165 adantlr ⊢ φ ∧ x ∈ ℝ ∧ j ∈ 0 … R + 1 → ℝ D n F ⁡ j : ℝ ⟶ ℂ
167 simplr ⊢ φ ∧ x ∈ ℝ ∧ j ∈ 0 … R + 1 → x ∈ ℝ
168 166 167 ffvelcdmd ⊢ φ ∧ x ∈ ℝ ∧ j ∈ 0 … R + 1 → ℝ D n F ⁡ j ⁡ x ∈ ℂ
169 145 146 148 150 158 163 168 telfsum2 ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − ℝ D n F ⁡ i ⁡ x = ℝ D n F ⁡ R + 1 ⁡ x − ℝ D n F ⁡ 0 ⁡ x
170 142 143 169 3eqtr2d ⊢ φ ∧ x ∈ ℝ → ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − G ⁡ x = ℝ D n F ⁡ R + 1 ⁡ x − ℝ D n F ⁡ 0 ⁡ x
171 170 oveq2d ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x − G ⁡ x = e − x ⁢ ℝ D n F ⁡ R + 1 ⁡ x − ℝ D n F ⁡ 0 ⁡ x
172 156 nn0red ⊢ φ → R ∈ ℝ
173 172 ltp1d ⊢ φ → R < R + 1
174 11 173 eqbrtrrid ⊢ φ → M ⁢ P + P - 1 < R + 1
175 etransclem5 ⊢ k ∈ 0 … M ⟼ y ∈ ℝ ⟼ y − k if k = 0 P − 1 P = j ∈ 0 … M ⟼ x ∈ ℝ ⟼ x − j if j = 0 P − 1 P
176 6 7 8 34 9 160 174 175 etransclem32 ⊢ φ → ℝ D n F ⁡ R + 1 = x ∈ ℝ ⟼ 0
177 176 fveq1d ⊢ φ → ℝ D n F ⁡ R + 1 ⁡ x = x ∈ ℝ ⟼ 0 ⁡ x
178 eqid ⊢ x ∈ ℝ ⟼ 0 = x ∈ ℝ ⟼ 0
179 178 fvmpt2 ⊢ x ∈ ℝ ∧ 0 ∈ ℝ → x ∈ ℝ ⟼ 0 ⁡ x = 0
180 57 179 mpan2 ⊢ x ∈ ℝ → x ∈ ℝ ⟼ 0 ⁡ x = 0
181 177 180 sylan9eq ⊢ φ ∧ x ∈ ℝ → ℝ D n F ⁡ R + 1 ⁡ x = 0
182 cnex ⊢ ℂ ∈ V
183 182 a1i ⊢ φ → ℂ ∈ V
184 6 5 ssexd ⊢ φ → ℝ ∈ V
185 elpm2r ⊢ ℂ ∈ V ∧ ℝ ∈ V ∧ F : ℝ ⟶ ℂ ∧ ℝ ⊆ ℝ → F ∈ ℂ ↑ 𝑝𝑚 ℝ
186 183 184 50 5 185 syl22anc ⊢ φ → F ∈ ℂ ↑ 𝑝𝑚 ℝ
187 dvn0 ⊢ ℝ ⊆ ℂ ∧ F ∈ ℂ ↑ 𝑝𝑚 ℝ → ℝ D n F ⁡ 0 = F
188 49 186 187 syl2anc ⊢ φ → ℝ D n F ⁡ 0 = F
189 188 fveq1d ⊢ φ → ℝ D n F ⁡ 0 ⁡ x = F ⁡ x
190 189 adantr ⊢ φ ∧ x ∈ ℝ → ℝ D n F ⁡ 0 ⁡ x = F ⁡ x
191 181 190 oveq12d ⊢ φ ∧ x ∈ ℝ → ℝ D n F ⁡ R + 1 ⁡ x − ℝ D n F ⁡ 0 ⁡ x = 0 − F ⁡ x
192 df-neg ⊢ − F ⁡ x = 0 − F ⁡ x
193 191 192 eqtr4di ⊢ φ ∧ x ∈ ℝ → ℝ D n F ⁡ R + 1 ⁡ x − ℝ D n F ⁡ 0 ⁡ x = − F ⁡ x
194 193 oveq2d ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ℝ D n F ⁡ R + 1 ⁡ x − ℝ D n F ⁡ 0 ⁡ x = e − x ⁢ − F ⁡ x
195 141 171 194 3eqtrd ⊢ φ ∧ x ∈ ℝ → e − x ⁢ ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x + − e − x ⁢ G ⁡ x = e − x ⁢ − F ⁡ x
196 132 136 195 3eqtrd ⊢ φ ∧ x ∈ ℝ → − e − x ⁢ G ⁡ x + ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ⁢ e − x = e − x ⁢ − F ⁡ x
197 196 mpteq2dva ⊢ φ → x ∈ ℝ ⟼ − e − x ⁢ G ⁡ x + ∑ i = 0 R ℝ D n F ⁡ i + 1 ⁡ x ⁢ e − x = x ∈ ℝ ⟼ e − x ⁢ − F ⁡ x
198 24 51 mulneg2d ⊢ φ ∧ x ∈ ℝ → e − x ⁢ − F ⁡ x = − e − x ⁢ F ⁡ x
199 198 mpteq2dva ⊢ φ → x ∈ ℝ ⟼ e − x ⁢ − F ⁡ x = x ∈ ℝ ⟼ − e − x ⁢ F ⁡ x
200 130 197 199 3eqtrd ⊢ φ → dx ∈ ℝ e − x ⁢ G ⁡ x d ℝ x = x ∈ ℝ ⟼ − e − x ⁢ F ⁡ x
201 6 46 53 200 dvmptneg ⊢ φ → dx ∈ ℝ − e − x ⁢ G ⁡ x d ℝ x = x ∈ ℝ ⟼ − − e − x ⁢ F ⁡ x
202 201 adantr ⊢ φ ∧ j ∈ 0 … M → dx ∈ ℝ − e − x ⁢ G ⁡ x d ℝ x = x ∈ ℝ ⟼ − − e − x ⁢ F ⁡ x
203 0red ⊢ φ ∧ j ∈ 0 … M → 0 ∈ ℝ
204 elfzelz ⊢ j ∈ 0 … M → j ∈ ℤ
205 204 zred ⊢ j ∈ 0 … M → j ∈ ℝ
206 205 adantl ⊢ φ ∧ j ∈ 0 … M → j ∈ ℝ
207 203 206 iccssred ⊢ φ ∧ j ∈ 0 … M → 0 j ⊆ ℝ
208 tgioo4 ⊢ topGen ⁡ ran ⁡ . = TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
209 eqid ⊢ TopOpen ⁡ ℂ fld = TopOpen ⁡ ℂ fld
210 0red ⊢ j ∈ 0 … M → 0 ∈ ℝ
211 iccntr ⊢ 0 ∈ ℝ ∧ j ∈ ℝ → int ⁡ topGen ⁡ ran ⁡ . ⁡ 0 j = 0 j
212 210 205 211 syl2anc ⊢ j ∈ 0 … M → int ⁡ topGen ⁡ ran ⁡ . ⁡ 0 j = 0 j
213 212 adantl ⊢ φ ∧ j ∈ 0 … M → int ⁡ topGen ⁡ ran ⁡ . ⁡ 0 j = 0 j
214 17 48 55 202 207 208 209 213 dvmptres2 ⊢ φ ∧ j ∈ 0 … M → dx ∈ 0 j − e − x ⁢ G ⁡ x d ℝ x = x ∈ 0 j ⟼ − − e − x ⁢ F ⁡ x
215 19 a1i ⊢ φ ∧ x ∈ 0 j → e ∈ ℂ
216 elioore ⊢ x ∈ 0 j → x ∈ ℝ
217 216 recnd ⊢ x ∈ 0 j → x ∈ ℂ
218 217 adantl ⊢ φ ∧ x ∈ 0 j → x ∈ ℂ
219 218 negcld ⊢ φ ∧ x ∈ 0 j → − x ∈ ℂ
220 215 219 cxpcld ⊢ φ ∧ x ∈ 0 j → e − x ∈ ℂ
221 50 adantr ⊢ φ ∧ x ∈ 0 j → F : ℝ ⟶ ℂ
222 216 adantl ⊢ φ ∧ x ∈ 0 j → x ∈ ℝ
223 221 222 ffvelcdmd ⊢ φ ∧ x ∈ 0 j → F ⁡ x ∈ ℂ
224 220 223 mulcld ⊢ φ ∧ x ∈ 0 j → e − x ⁢ F ⁡ x ∈ ℂ
225 224 negnegd ⊢ φ ∧ x ∈ 0 j → − − e − x ⁢ F ⁡ x = e − x ⁢ F ⁡ x
226 225 mpteq2dva ⊢ φ → x ∈ 0 j ⟼ − − e − x ⁢ F ⁡ x = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x
227 226 adantr ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ − − e − x ⁢ F ⁡ x = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x
228 16 214 227 3eqtrd ⊢ φ ∧ j ∈ 0 … M → ℝ D O = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x
229 228 fveq1d ⊢ φ ∧ j ∈ 0 … M → O ℝ ′ ⁡ x = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x ⁡ x
230 229 adantr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → O ℝ ′ ⁡ x = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x ⁡ x
231 simpr ⊢ φ ∧ x ∈ 0 j → x ∈ 0 j
232 eqid ⊢ x ∈ 0 j ⟼ e − x ⁢ F ⁡ x = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x
233 232 fvmpt2 ⊢ x ∈ 0 j ∧ e − x ⁢ F ⁡ x ∈ ℂ → x ∈ 0 j ⟼ e − x ⁢ F ⁡ x ⁡ x = e − x ⁢ F ⁡ x
234 231 224 233 syl2anc ⊢ φ ∧ x ∈ 0 j → x ∈ 0 j ⟼ e − x ⁢ F ⁡ x ⁡ x = e − x ⁢ F ⁡ x
235 234 adantlr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → x ∈ 0 j ⟼ e − x ⁢ F ⁡ x ⁡ x = e − x ⁢ F ⁡ x
236 230 235 eqtr2d ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → e − x ⁢ F ⁡ x = O ℝ ′ ⁡ x
237 236 itgeq2dv ⊢ φ ∧ j ∈ 0 … M → ∫ 0 j e − x ⁢ F ⁡ x dx = ∫ 0 j O ℝ ′ ⁡ x dx
238 elfzle1 ⊢ j ∈ 0 … M → 0 ≤ j
239 238 adantl ⊢ φ ∧ j ∈ 0 … M → 0 ≤ j
240 eqid ⊢ x ∈ 0 j ⟼ e − x ⁢ F ⁡ x = x ∈ 0 j ⟼ e − x ⁢ F ⁡ x
241 eqidd ⊢ j ∈ 0 … M ∧ x ∈ 0 j → y ∈ ℂ ⟼ e y = y ∈ ℂ ⟼ e y
242 90 adantl ⊢ j ∈ 0 … M ∧ x ∈ 0 j ∧ y = − x → e y = e − x
243 210 205 iccssred ⊢ j ∈ 0 … M → 0 j ⊆ ℝ
244 ax-resscn ⊢ ℝ ⊆ ℂ
245 243 244 sstrdi ⊢ j ∈ 0 … M → 0 j ⊆ ℂ
246 245 sselda ⊢ j ∈ 0 … M ∧ x ∈ 0 j → x ∈ ℂ
247 246 negcld ⊢ j ∈ 0 … M ∧ x ∈ 0 j → − x ∈ ℂ
248 19 a1i ⊢ x ∈ ℂ → e ∈ ℂ
249 negcl ⊢ x ∈ ℂ → − x ∈ ℂ
250 248 249 cxpcld ⊢ x ∈ ℂ → e − x ∈ ℂ
251 246 250 syl ⊢ j ∈ 0 … M ∧ x ∈ 0 j → e − x ∈ ℂ
252 241 242 247 251 fvmptd ⊢ j ∈ 0 … M ∧ x ∈ 0 j → y ∈ ℂ ⟼ e y ⁡ − x = e − x
253 252 eqcomd ⊢ j ∈ 0 … M ∧ x ∈ 0 j → e − x = y ∈ ℂ ⟼ e y ⁡ − x
254 253 adantll ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → e − x = y ∈ ℂ ⟼ e y ⁡ − x
255 254 mpteq2dva ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ e − x = x ∈ 0 j ⟼ y ∈ ℂ ⟼ e y ⁡ − x
256 mnfxr ⊢ −∞ ∈ ℝ *
257 256 a1i ⊢ e ∈ ℝ + → −∞ ∈ ℝ *
258 0red ⊢ e ∈ ℝ + → 0 ∈ ℝ
259 rpxr ⊢ e ∈ ℝ + → e ∈ ℝ *
260 rpgt0 ⊢ e ∈ ℝ + → 0 < e
261 257 258 259 260 gtnelioc ⊢ e ∈ ℝ + → ¬ e ∈ −∞ 0
262 80 261 ax-mp ⊢ ¬ e ∈ −∞ 0
263 eldif ⊢ e ∈ ℂ ∖ −∞ 0 ↔ e ∈ ℂ ∧ ¬ e ∈ −∞ 0
264 19 262 263 mpbir2an ⊢ e ∈ ℂ ∖ −∞ 0
265 cxpcncf2 ⊢ e ∈ ℂ ∖ −∞ 0 → y ∈ ℂ ⟼ e y : ℂ ⟶cn ℂ
266 264 265 mp1i ⊢ φ ∧ j ∈ 0 … M → y ∈ ℂ ⟼ e y : ℂ ⟶cn ℂ
267 eqid ⊢ x ∈ 0 j ⟼ − x = x ∈ 0 j ⟼ − x
268 267 negcncf ⊢ 0 j ⊆ ℂ → x ∈ 0 j ⟼ − x : 0 j ⟶cn ℂ
269 245 268 syl ⊢ j ∈ 0 … M → x ∈ 0 j ⟼ − x : 0 j ⟶cn ℂ
270 269 adantl ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ − x : 0 j ⟶cn ℂ
271 266 270 cncfmpt1f ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ y ∈ ℂ ⟼ e y ⁡ − x : 0 j ⟶cn ℂ
272 255 271 eqeltrd ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ e − x : 0 j ⟶cn ℂ
273 244 a1i ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → ℝ ⊆ ℂ
274 8 ad2antrr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → P ∈ ℕ
275 34 ad2antrr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → M ∈ ℕ 0
276 etransclem6 ⊢ x ∈ ℝ ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P = y ∈ ℝ ⟼ y P − 1 ⁢ ∏ k = 1 M y − k P
277 9 276 eqtri ⊢ F = y ∈ ℝ ⟼ y P − 1 ⁢ ∏ k = 1 M y − k P
278 243 sselda ⊢ j ∈ 0 … M ∧ x ∈ 0 j → x ∈ ℝ
279 278 adantll ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → x ∈ ℝ
280 273 274 275 277 279 etransclem13 ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → F ⁡ x = ∏ k = 0 M x − k if k = 0 P − 1 P
281 280 mpteq2dva ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ F ⁡ x = x ∈ 0 j ⟼ ∏ k = 0 M x − k if k = 0 P − 1 P
282 245 adantl ⊢ φ ∧ j ∈ 0 … M → 0 j ⊆ ℂ
283 fzfid ⊢ φ ∧ j ∈ 0 … M → 0 … M ∈ Fin
284 279 recnd ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → x ∈ ℂ
285 284 3adant3 ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j ∧ k ∈ 0 … M → x ∈ ℂ
286 elfzelz ⊢ k ∈ 0 … M → k ∈ ℤ
287 286 zcnd ⊢ k ∈ 0 … M → k ∈ ℂ
288 287 3ad2ant3 ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j ∧ k ∈ 0 … M → k ∈ ℂ
289 285 288 subcld ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j ∧ k ∈ 0 … M → x − k ∈ ℂ
290 8 adantr ⊢ φ ∧ x ∈ 0 j → P ∈ ℕ
291 290 153 syl ⊢ φ ∧ x ∈ 0 j → P − 1 ∈ ℕ 0
292 151 adantr ⊢ φ ∧ x ∈ 0 j → P ∈ ℕ 0
293 291 292 ifcld ⊢ φ ∧ x ∈ 0 j → if k = 0 P − 1 P ∈ ℕ 0
294 293 3adant3 ⊢ φ ∧ x ∈ 0 j ∧ k ∈ 0 … M → if k = 0 P − 1 P ∈ ℕ 0
295 294 3adant1r ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j ∧ k ∈ 0 … M → if k = 0 P − 1 P ∈ ℕ 0
296 289 295 expcld ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j ∧ k ∈ 0 … M → x − k if k = 0 P − 1 P ∈ ℂ
297 nfv ⊢ Ⅎ x φ ∧ j ∈ 0 … M ∧ k ∈ 0 … M
298 245 adantr ⊢ j ∈ 0 … M ∧ k ∈ 0 … M → 0 j ⊆ ℂ
299 ssid ⊢ ℂ ⊆ ℂ
300 299 a1i ⊢ j ∈ 0 … M ∧ k ∈ 0 … M → ℂ ⊆ ℂ
301 298 300 idcncfg ⊢ j ∈ 0 … M ∧ k ∈ 0 … M → x ∈ 0 j ⟼ x : 0 j ⟶cn ℂ
302 287 adantl ⊢ j ∈ 0 … M ∧ k ∈ 0 … M → k ∈ ℂ
303 298 302 300 constcncfg ⊢ j ∈ 0 … M ∧ k ∈ 0 … M → x ∈ 0 j ⟼ k : 0 j ⟶cn ℂ
304 301 303 subcncf ⊢ j ∈ 0 … M ∧ k ∈ 0 … M → x ∈ 0 j ⟼ x − k : 0 j ⟶cn ℂ
305 304 adantll ⊢ φ ∧ j ∈ 0 … M ∧ k ∈ 0 … M → x ∈ 0 j ⟼ x − k : 0 j ⟶cn ℂ
306 154 151 ifcld ⊢ φ → if k = 0 P − 1 P ∈ ℕ 0
307 expcncf ⊢ if k = 0 P − 1 P ∈ ℕ 0 → y ∈ ℂ ⟼ y if k = 0 P − 1 P : ℂ ⟶cn ℂ
308 306 307 syl ⊢ φ → y ∈ ℂ ⟼ y if k = 0 P − 1 P : ℂ ⟶cn ℂ
309 308 ad2antrr ⊢ φ ∧ j ∈ 0 … M ∧ k ∈ 0 … M → y ∈ ℂ ⟼ y if k = 0 P − 1 P : ℂ ⟶cn ℂ
310 299 a1i ⊢ φ ∧ j ∈ 0 … M ∧ k ∈ 0 … M → ℂ ⊆ ℂ
311 oveq1 ⊢ y = x − k → y if k = 0 P − 1 P = x − k if k = 0 P − 1 P
312 297 305 309 310 311 cncfcompt2 ⊢ φ ∧ j ∈ 0 … M ∧ k ∈ 0 … M → x ∈ 0 j ⟼ x − k if k = 0 P − 1 P : 0 j ⟶cn ℂ
313 282 283 296 312 fprodcncf ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ ∏ k = 0 M x − k if k = 0 P − 1 P : 0 j ⟶cn ℂ
314 281 313 eqeltrd ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ F ⁡ x : 0 j ⟶cn ℂ
315 272 314 mulcncf ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ e − x ⁢ F ⁡ x : 0 j ⟶cn ℂ
316 ioossicc ⊢ 0 j ⊆ 0 j
317 316 a1i ⊢ φ ∧ j ∈ 0 … M → 0 j ⊆ 0 j
318 299 a1i ⊢ φ ∧ j ∈ 0 … M → ℂ ⊆ ℂ
319 224 adantlr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → e − x ⁢ F ⁡ x ∈ ℂ
320 240 315 317 318 319 cncfmptssg ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ e − x ⁢ F ⁡ x : 0 j ⟶cn ℂ
321 228 320 eqeltrd ⊢ φ ∧ j ∈ 0 … M → O ℝ ′ : 0 j ⟶cn ℂ
322 7 adantr ⊢ φ ∧ j ∈ 0 … M → ℝ ∈ TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
323 8 adantr ⊢ φ ∧ j ∈ 0 … M → P ∈ ℕ
324 34 adantr ⊢ φ ∧ j ∈ 0 … M → M ∈ ℕ 0
325 oveq2 ⊢ j = k → x − j = x − k
326 325 oveq1d ⊢ j = k → x − j P = x − k P
327 326 cbvprodv ⊢ ∏ j = 1 M x − j P = ∏ k = 1 M x − k P
328 327 oveq2i ⊢ x P − 1 ⁢ ∏ j = 1 M x − j P = x P − 1 ⁢ ∏ k = 1 M x − k P
329 328 mpteq2i ⊢ x ∈ ℝ ⟼ x P − 1 ⁢ ∏ j = 1 M x − j P = x ∈ ℝ ⟼ x P − 1 ⁢ ∏ k = 1 M x − k P
330 9 329 eqtri ⊢ F = x ∈ ℝ ⟼ x P − 1 ⁢ ∏ k = 1 M x − k P
331 17 322 323 324 330 203 206 etransclem18 ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ e − x ⁢ F ⁡ x ∈ 𝐿 1
332 228 331 eqeltrd ⊢ φ ∧ j ∈ 0 … M → ℝ D O ∈ 𝐿 1
333 eqid ⊢ x ∈ ℝ ⟼ G ⁡ x = x ∈ ℝ ⟼ G ⁡ x
334 6 7 8 34 9 12 etransclem43 ⊢ φ → G : ℝ ⟶cn ℂ
335 123 334 eqeltrd ⊢ φ → x ∈ ℝ ⟼ G ⁡ x : ℝ ⟶cn ℂ
336 335 adantr ⊢ φ ∧ j ∈ 0 … M → x ∈ ℝ ⟼ G ⁡ x : ℝ ⟶cn ℂ
337 121 ad2antrr ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → G : ℝ ⟶ ℂ
338 337 279 ffvelcdmd ⊢ φ ∧ j ∈ 0 … M ∧ x ∈ 0 j → G ⁡ x ∈ ℂ
339 333 336 207 318 338 cncfmptssg ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ G ⁡ x : 0 j ⟶cn ℂ
340 272 339 mulcncf ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ e − x ⁢ G ⁡ x : 0 j ⟶cn ℂ
341 340 negcncfg ⊢ φ ∧ j ∈ 0 … M → x ∈ 0 j ⟼ − e − x ⁢ G ⁡ x : 0 j ⟶cn ℂ
342 13 341 eqeltrid ⊢ φ ∧ j ∈ 0 … M → O : 0 j ⟶cn ℂ
343 203 206 239 321 332 342 ftc2 ⊢ φ ∧ j ∈ 0 … M → ∫ 0 j O ℝ ′ ⁡ x dx = O ⁡ j − O ⁡ 0
344 negeq ⊢ x = j → − x = − j
345 344 oveq2d ⊢ x = j → e − x = e − j
346 fveq2 ⊢ x = j → G ⁡ x = G ⁡ j
347 345 346 oveq12d ⊢ x = j → e − x ⁢ G ⁡ x = e − j ⁢ G ⁡ j
348 347 negeqd ⊢ x = j → − e − x ⁢ G ⁡ x = − e − j ⁢ G ⁡ j
349 203 rexrd ⊢ φ ∧ j ∈ 0 … M → 0 ∈ ℝ *
350 206 rexrd ⊢ φ ∧ j ∈ 0 … M → j ∈ ℝ *
351 ubicc2 ⊢ 0 ∈ ℝ * ∧ j ∈ ℝ * ∧ 0 ≤ j → j ∈ 0 j
352 349 350 239 351 syl3anc ⊢ φ ∧ j ∈ 0 … M → j ∈ 0 j
353 19 a1i ⊢ j ∈ 0 … M → e ∈ ℂ
354 205 recnd ⊢ j ∈ 0 … M → j ∈ ℂ
355 354 negcld ⊢ j ∈ 0 … M → − j ∈ ℂ
356 353 355 cxpcld ⊢ j ∈ 0 … M → e − j ∈ ℂ
357 356 adantl ⊢ φ ∧ j ∈ 0 … M → e − j ∈ ℂ
358 121 adantr ⊢ φ ∧ j ∈ 0 … M → G : ℝ ⟶ ℂ
359 358 206 ffvelcdmd ⊢ φ ∧ j ∈ 0 … M → G ⁡ j ∈ ℂ
360 357 359 mulcld ⊢ φ ∧ j ∈ 0 … M → e − j ⁢ G ⁡ j ∈ ℂ
361 360 negcld ⊢ φ ∧ j ∈ 0 … M → − e − j ⁢ G ⁡ j ∈ ℂ
362 13 348 352 361 fvmptd3 ⊢ φ ∧ j ∈ 0 … M → O ⁡ j = − e − j ⁢ G ⁡ j
363 13 a1i ⊢ φ ∧ j ∈ 0 … M → O = x ∈ 0 j ⟼ − e − x ⁢ G ⁡ x
364 negeq ⊢ x = 0 → − x = − 0
365 364 oveq2d ⊢ x = 0 → e − x = e − 0
366 neg0 ⊢ − 0 = 0
367 366 oveq2i ⊢ e − 0 = e 0
368 cxp0 ⊢ e ∈ ℂ → e 0 = 1
369 19 368 ax-mp ⊢ e 0 = 1
370 367 369 eqtri ⊢ e − 0 = 1
371 365 370 eqtrdi ⊢ x = 0 → e − x = 1
372 fveq2 ⊢ x = 0 → G ⁡ x = G ⁡ 0
373 371 372 oveq12d ⊢ x = 0 → e − x ⁢ G ⁡ x = 1 ⁢ G ⁡ 0
374 0red ⊢ φ → 0 ∈ ℝ
375 121 374 ffvelcdmd ⊢ φ → G ⁡ 0 ∈ ℂ
376 375 mullidd ⊢ φ → 1 ⁢ G ⁡ 0 = G ⁡ 0
377 373 376 sylan9eqr ⊢ φ ∧ x = 0 → e − x ⁢ G ⁡ x = G ⁡ 0
378 377 negeqd ⊢ φ ∧ x = 0 → − e − x ⁢ G ⁡ x = − G ⁡ 0
379 378 adantlr ⊢ φ ∧ j ∈ 0 … M ∧ x = 0 → − e − x ⁢ G ⁡ x = − G ⁡ 0
380 lbicc2 ⊢ 0 ∈ ℝ * ∧ j ∈ ℝ * ∧ 0 ≤ j → 0 ∈ 0 j
381 349 350 239 380 syl3anc ⊢ φ ∧ j ∈ 0 … M → 0 ∈ 0 j
382 375 negcld ⊢ φ → − G ⁡ 0 ∈ ℂ
383 382 adantr ⊢ φ ∧ j ∈ 0 … M → − G ⁡ 0 ∈ ℂ
384 363 379 381 383 fvmptd ⊢ φ ∧ j ∈ 0 … M → O ⁡ 0 = − G ⁡ 0
385 362 384 oveq12d ⊢ φ ∧ j ∈ 0 … M → O ⁡ j − O ⁡ 0 = - e − j ⁢ G ⁡ j - − G ⁡ 0
386 375 adantr ⊢ φ ∧ j ∈ 0 … M → G ⁡ 0 ∈ ℂ
387 361 386 subnegd ⊢ φ ∧ j ∈ 0 … M → - e − j ⁢ G ⁡ j - − G ⁡ 0 = - e − j ⁢ G ⁡ j + G ⁡ 0
388 361 386 addcomd ⊢ φ ∧ j ∈ 0 … M → - e − j ⁢ G ⁡ j + G ⁡ 0 = G ⁡ 0 + − e − j ⁢ G ⁡ j
389 386 360 negsubd ⊢ φ ∧ j ∈ 0 … M → G ⁡ 0 + − e − j ⁢ G ⁡ j = G ⁡ 0 − e − j ⁢ G ⁡ j
390 388 389 eqtrd ⊢ φ ∧ j ∈ 0 … M → - e − j ⁢ G ⁡ j + G ⁡ 0 = G ⁡ 0 − e − j ⁢ G ⁡ j
391 385 387 390 3eqtrd ⊢ φ ∧ j ∈ 0 … M → O ⁡ j − O ⁡ 0 = G ⁡ 0 − e − j ⁢ G ⁡ j
392 237 343 391 3eqtrd ⊢ φ ∧ j ∈ 0 … M → ∫ 0 j e − x ⁢ F ⁡ x dx = G ⁡ 0 − e − j ⁢ G ⁡ j
393 392 oveq2d ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ ∫ 0 j e − x ⁢ F ⁡ x dx = A ⁡ j ⁢ e j ⁢ G ⁡ 0 − e − j ⁢ G ⁡ j
394 31 adantr ⊢ φ ∧ j ∈ 0 … M → Q ∈ Poly ⁡ ℤ
395 0zd ⊢ φ ∧ j ∈ 0 … M → 0 ∈ ℤ
396 3 coef2 ⊢ Q ∈ Poly ⁡ ℤ ∧ 0 ∈ ℤ → A : ℕ 0 ⟶ ℤ
397 394 395 396 syl2anc ⊢ φ ∧ j ∈ 0 … M → A : ℕ 0 ⟶ ℤ
398 elfznn0 ⊢ j ∈ 0 … M → j ∈ ℕ 0
399 398 adantl ⊢ φ ∧ j ∈ 0 … M → j ∈ ℕ 0
400 397 399 ffvelcdmd ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ∈ ℤ
401 400 zcnd ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ∈ ℂ
402 353 354 cxpcld ⊢ j ∈ 0 … M → e j ∈ ℂ
403 402 adantl ⊢ φ ∧ j ∈ 0 … M → e j ∈ ℂ
404 401 403 mulcld ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ∈ ℂ
405 404 386 360 subdid ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ G ⁡ 0 − e − j ⁢ G ⁡ j = A ⁡ j ⁢ e j ⁢ G ⁡ 0 − A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j
406 393 405 eqtrd ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ ∫ 0 j e − x ⁢ F ⁡ x dx = A ⁡ j ⁢ e j ⁢ G ⁡ 0 − A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j
407 406 sumeq2dv ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ ∫ 0 j e − x ⁢ F ⁡ x dx = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 − A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j
408 fzfid ⊢ φ → 0 … M ∈ Fin
409 404 386 mulcld ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ G ⁡ 0 ∈ ℂ
410 404 360 mulcld ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j ∈ ℂ
411 408 409 410 fsumsub ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 − A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 − ∑ j = 0 M A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j
412 2 eqcomd ⊢ φ → 0 = Q ⁡ e
413 3 4 coeid2 ⊢ Q ∈ Poly ⁡ ℤ ∧ e ∈ ℂ → Q ⁡ e = ∑ j = 0 M A ⁡ j ⁢ e j
414 31 19 413 sylancl ⊢ φ → Q ⁡ e = ∑ j = 0 M A ⁡ j ⁢ e j
415 cxpexp ⊢ e ∈ ℂ ∧ j ∈ ℕ 0 → e j = e j
416 353 398 415 syl2anc ⊢ j ∈ 0 … M → e j = e j
417 416 eqcomd ⊢ j ∈ 0 … M → e j = e j
418 417 oveq2d ⊢ j ∈ 0 … M → A ⁡ j ⁢ e j = A ⁡ j ⁢ e j
419 418 adantl ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j = A ⁡ j ⁢ e j
420 419 sumeq2dv ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j = ∑ j = 0 M A ⁡ j ⁢ e j
421 412 414 420 3eqtrd ⊢ φ → 0 = ∑ j = 0 M A ⁡ j ⁢ e j
422 421 oveq1d ⊢ φ → 0 ⋅ G ⁡ 0 = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0
423 375 mul02d ⊢ φ → 0 ⋅ G ⁡ 0 = 0
424 408 375 404 fsummulc1 ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 = ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0
425 422 423 424 3eqtr3rd ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 = 0
426 fveq2 ⊢ x = j → ℝ D n F ⁡ i ⁡ x = ℝ D n F ⁡ i ⁡ j
427 426 sumeq2sdv ⊢ x = j → ∑ i = 0 R ℝ D n F ⁡ i ⁡ x = ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
428 fzfid ⊢ φ ∧ j ∈ 0 … M → 0 … R ∈ Fin
429 38 adantlr ⊢ φ ∧ j ∈ 0 … M ∧ i ∈ 0 … R → ℝ D n F ⁡ i : ℝ ⟶ ℂ
430 206 adantr ⊢ φ ∧ j ∈ 0 … M ∧ i ∈ 0 … R → j ∈ ℝ
431 429 430 ffvelcdmd ⊢ φ ∧ j ∈ 0 … M ∧ i ∈ 0 … R → ℝ D n F ⁡ i ⁡ j ∈ ℂ
432 428 431 fsumcl ⊢ φ ∧ j ∈ 0 … M → ∑ i = 0 R ℝ D n F ⁡ i ⁡ j ∈ ℂ
433 12 427 206 432 fvmptd3 ⊢ φ ∧ j ∈ 0 … M → G ⁡ j = ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
434 433 oveq2d ⊢ φ ∧ j ∈ 0 … M → e − j ⁢ G ⁡ j = e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
435 434 oveq2d ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = A ⁡ j ⁢ e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
436 357 432 mulcld ⊢ φ ∧ j ∈ 0 … M → e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j ∈ ℂ
437 401 403 436 mulassd ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = A ⁡ j ⁢ e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
438 369 eqcomi ⊢ 1 = e 0
439 438 a1i ⊢ j ∈ 0 … M → 1 = e 0
440 354 negidd ⊢ j ∈ 0 … M → j + − j = 0
441 440 eqcomd ⊢ j ∈ 0 … M → 0 = j + − j
442 441 oveq2d ⊢ j ∈ 0 … M → e 0 = e j + − j
443 57 58 gtneii ⊢ e ≠ 0
444 443 a1i ⊢ j ∈ 0 … M → e ≠ 0
445 353 444 354 355 cxpaddd ⊢ j ∈ 0 … M → e j + − j = e j ⁢ e − j
446 439 442 445 3eqtrd ⊢ j ∈ 0 … M → 1 = e j ⁢ e − j
447 446 oveq1d ⊢ j ∈ 0 … M → 1 ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
448 447 adantl ⊢ φ ∧ j ∈ 0 … M → 1 ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
449 432 mullidd ⊢ φ ∧ j ∈ 0 … M → 1 ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
450 403 357 432 mulassd ⊢ φ ∧ j ∈ 0 … M → e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
451 448 449 450 3eqtr3rd ⊢ φ ∧ j ∈ 0 … M → e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
452 451 oveq2d ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = A ⁡ j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j
453 428 401 431 fsummulc2 ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = ∑ i = 0 R A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j
454 452 453 eqtrd ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ e − j ⁢ ∑ i = 0 R ℝ D n F ⁡ i ⁡ j = ∑ i = 0 R A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j
455 435 437 454 3eqtrd ⊢ φ ∧ j ∈ 0 … M → A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = ∑ i = 0 R A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j
456 455 sumeq2dv ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = ∑ j = 0 M ∑ i = 0 R A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j
457 vex ⊢ j ∈ V
458 vex ⊢ i ∈ V
459 457 458 op1std ⊢ k = j i → 1 st ⁡ k = j
460 459 fveq2d ⊢ k = j i → A ⁡ 1 st ⁡ k = A ⁡ j
461 457 458 op2ndd ⊢ k = j i → 2 nd ⁡ k = i
462 461 fveq2d ⊢ k = j i → ℝ D n F ⁡ 2 nd ⁡ k = ℝ D n F ⁡ i
463 462 459 fveq12d ⊢ k = j i → ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k = ℝ D n F ⁡ i ⁡ j
464 460 463 oveq12d ⊢ k = j i → A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k = A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j
465 fzfid ⊢ φ → 0 … R ∈ Fin
466 401 adantrr ⊢ φ ∧ j ∈ 0 … M ∧ i ∈ 0 … R → A ⁡ j ∈ ℂ
467 431 anasss ⊢ φ ∧ j ∈ 0 … M ∧ i ∈ 0 … R → ℝ D n F ⁡ i ⁡ j ∈ ℂ
468 466 467 mulcld ⊢ φ ∧ j ∈ 0 … M ∧ i ∈ 0 … R → A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j ∈ ℂ
469 464 408 465 468 fsumxp ⊢ φ → ∑ j = 0 M ∑ i = 0 R A ⁡ j ⁢ ℝ D n F ⁡ i ⁡ j = ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
470 456 469 eqtrd ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
471 425 470 oveq12d ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 − ∑ j = 0 M A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = 0 − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
472 df-neg ⊢ − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k = 0 − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
473 472 eqcomi ⊢ 0 − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k = − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
474 473 a1i ⊢ φ → 0 − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k = − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
475 411 471 474 3eqtrd ⊢ φ → ∑ j = 0 M A ⁡ j ⁢ e j ⁢ G ⁡ 0 − A ⁡ j ⁢ e j ⁢ e − j ⁢ G ⁡ j = − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
476 14 407 475 3eqtrd ⊢ φ → L = − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k
477 476 oveq1d ⊢ φ → L P − 1 ! = − ∑ k ∈ 0 … M × 0 … R A ⁡ 1 st ⁡ k ⁢ ℝ D n F ⁡ 2 nd ⁡ k ⁡ 1 st ⁡ k P − 1 !