Proof of Theorem etransclem15
Step | Hyp | Ref
| Expression |
1 | | etransclem15.t |
. . 3
⊢ 𝑇 = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))))) |
2 | 1 | a1i 11 |
. 2
⊢ (𝜑 → 𝑇 = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))))) |
3 | | iftrue 4465 |
. . . . . . 7
⊢ ((𝑃 − 1) < (𝐶‘0) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0) |
4 | 3 | adantl 482 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑃 − 1) < (𝐶‘0)) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0) |
5 | | iffalse 4468 |
. . . . . . . 8
⊢ (¬
(𝑃 − 1) < (𝐶‘0) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) |
6 | 5 | adantl 482 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) |
7 | | etransclem15.j |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐽 = 0) |
8 | 7 | oveq1d 7290 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = (0↑((𝑃 − 1) − (𝐶‘0)))) |
9 | 8 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = (0↑((𝑃 − 1) − (𝐶‘0)))) |
10 | | etransclem15.p |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑃 ∈ ℕ) |
11 | 10 | nnzd 12425 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑃 ∈ ℤ) |
12 | | 1zzd 12351 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 1 ∈
ℤ) |
13 | 11, 12 | zsubcld 12431 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑃 − 1) ∈ ℤ) |
14 | | etransclem15.c |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝐶:(0...𝑀)⟶(0...𝑁)) |
15 | | etransclem15.m |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → 𝑀 ∈
ℕ0) |
16 | | nn0uz 12620 |
. . . . . . . . . . . . . . . . 17
⊢
ℕ0 = (ℤ≥‘0) |
17 | 15, 16 | eleqtrdi 2849 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 𝑀 ∈
(ℤ≥‘0)) |
18 | | eluzfz1 13263 |
. . . . . . . . . . . . . . . 16
⊢ (𝑀 ∈
(ℤ≥‘0) → 0 ∈ (0...𝑀)) |
19 | 17, 18 | syl 17 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 0 ∈ (0...𝑀)) |
20 | 14, 19 | ffvelrnd 6962 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝐶‘0) ∈ (0...𝑁)) |
21 | 20 | elfzelzd 13257 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝐶‘0) ∈ ℤ) |
22 | 13, 21 | zsubcld 12431 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((𝑃 − 1) − (𝐶‘0)) ∈ ℤ) |
23 | 22 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℤ) |
24 | 21 | zred 12426 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝐶‘0) ∈ ℝ) |
25 | 24 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) ∈ ℝ) |
26 | 13 | zred 12426 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃 − 1) ∈ ℝ) |
27 | 26 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝑃 − 1) ∈ ℝ) |
28 | | simpr 485 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ¬ (𝑃 − 1) < (𝐶‘0)) |
29 | 25, 27, 28 | nltled 11125 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) ≤ (𝑃 − 1)) |
30 | | etransclem15.cpm1 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝐶‘0) ≠ (𝑃 − 1)) |
31 | 30 | necomd 2999 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃 − 1) ≠ (𝐶‘0)) |
32 | 31 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝑃 − 1) ≠ (𝐶‘0)) |
33 | 25, 27, 29, 32 | leneltd 11129 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) < (𝑃 − 1)) |
34 | 25, 27 | posdifd 11562 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝐶‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐶‘0)))) |
35 | 33, 34 | mpbid 231 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → 0 < ((𝑃 − 1) − (𝐶‘0))) |
36 | | elnnz 12329 |
. . . . . . . . . . 11
⊢ (((𝑃 − 1) − (𝐶‘0)) ∈ ℕ ↔
(((𝑃 − 1) −
(𝐶‘0)) ∈ ℤ
∧ 0 < ((𝑃 − 1)
− (𝐶‘0)))) |
37 | 23, 35, 36 | sylanbrc 583 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℕ) |
38 | 37 | 0expd 13857 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (0↑((𝑃 − 1) − (𝐶‘0))) =
0) |
39 | 9, 38 | eqtrd 2778 |
. . . . . . . 8
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = 0) |
40 | 39 | oveq2d 7291 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · 0)) |
41 | | nnm1nn0 12274 |
. . . . . . . . . . . . 13
⊢ (𝑃 ∈ ℕ → (𝑃 − 1) ∈
ℕ0) |
42 | 10, 41 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑃 − 1) ∈
ℕ0) |
43 | 42 | faccld 13998 |
. . . . . . . . . . 11
⊢ (𝜑 → (!‘(𝑃 − 1)) ∈
ℕ) |
44 | 43 | nncnd 11989 |
. . . . . . . . . 10
⊢ (𝜑 → (!‘(𝑃 − 1)) ∈
ℂ) |
45 | 44 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘(𝑃 − 1)) ∈
ℂ) |
46 | 37 | nnnn0d 12293 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈
ℕ0) |
47 | 46 | faccld 13998 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ∈
ℕ) |
48 | 47 | nncnd 11989 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ∈
ℂ) |
49 | 47 | nnne0d 12023 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ≠
0) |
50 | 45, 48, 49 | divcld 11751 |
. . . . . . . 8
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) ∈
ℂ) |
51 | 50 | mul01d 11174 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · 0) =
0) |
52 | 6, 40, 51 | 3eqtrd 2782 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0) |
53 | 4, 52 | pm2.61dan 810 |
. . . . 5
⊢ (𝜑 → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0) |
54 | 53 | oveq1d 7290 |
. . . 4
⊢ (𝜑 → (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))))) |
55 | 7, 19 | eqeltrd 2839 |
. . . . . . 7
⊢ (𝜑 → 𝐽 ∈ (0...𝑀)) |
56 | 10, 14, 55 | etransclem7 43782 |
. . . . . 6
⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))) ∈ ℤ) |
57 | 56 | zcnd 12427 |
. . . . 5
⊢ (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))) ∈ ℂ) |
58 | 57 | mul02d 11173 |
. . . 4
⊢ (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = 0) |
59 | 54, 58 | eqtrd 2778 |
. . 3
⊢ (𝜑 → (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = 0) |
60 | 59 | oveq2d 7291 |
. 2
⊢ (𝜑 → (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))))) = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · 0)) |
61 | | etransclem15.n |
. . . . . 6
⊢ (𝜑 → 𝑁 ∈
ℕ0) |
62 | 61 | faccld 13998 |
. . . . 5
⊢ (𝜑 → (!‘𝑁) ∈ ℕ) |
63 | 62 | nncnd 11989 |
. . . 4
⊢ (𝜑 → (!‘𝑁) ∈ ℂ) |
64 | | fzfid 13693 |
. . . . 5
⊢ (𝜑 → (0...𝑀) ∈ Fin) |
65 | | fzssnn0 42856 |
. . . . . . . 8
⊢
(0...𝑁) ⊆
ℕ0 |
66 | 14 | ffvelrnda 6961 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐶‘𝑗) ∈ (0...𝑁)) |
67 | 65, 66 | sselid 3919 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐶‘𝑗) ∈
ℕ0) |
68 | 67 | faccld 13998 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ∈ ℕ) |
69 | 68 | nncnd 11989 |
. . . . 5
⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ∈ ℂ) |
70 | 64, 69 | fprodcl 15662 |
. . . 4
⊢ (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗)) ∈ ℂ) |
71 | 68 | nnne0d 12023 |
. . . . 5
⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ≠ 0) |
72 | 64, 69, 71 | fprodn0 15689 |
. . . 4
⊢ (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗)) ≠ 0) |
73 | 63, 70, 72 | divcld 11751 |
. . 3
⊢ (𝜑 → ((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) ∈ ℂ) |
74 | 73 | mul01d 11174 |
. 2
⊢ (𝜑 → (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · 0) = 0) |
75 | 2, 60, 74 | 3eqtrd 2782 |
1
⊢ (𝜑 → 𝑇 = 0) |