Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  etransclem15 Structured version   Visualization version   GIF version

Theorem etransclem15 47532
Description: Value of the term 𝑇, when 𝐽 = 0 and (𝐶‘0) = 𝑃 − 1 (Contributed by Glauco Siliprandi, 5-Apr-2020.)
Hypotheses
Ref Expression
etransclem15.p (𝜑 → 𝑃 ∈ ℕ)
etransclem15.m (𝜑 → 𝑀 ∈ ℕ0)
etransclem15.n (𝜑 → 𝑁 ∈ ℕ0)
etransclem15.c (𝜑 → 𝐶:(0...𝑀)⟶(0...𝑁))
etransclem15.t 𝑇 = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))))
etransclem15.j (𝜑 → 𝐽 = 0)
etransclem15.cpm1 (𝜑 → (𝐶‘0) ≠ (𝑃 − 1))
Assertion
Ref Expression
etransclem15 (𝜑 → 𝑇 = 0)
Distinct variable groups:   𝑗,𝑀   𝜑,𝑗
Allowed substitution hints:   𝐶(𝑗)   𝑃(𝑗)   𝑇(𝑗)   𝐽(𝑗)   𝑁(𝑗)

Proof of Theorem etransclem15
StepHypRef Expression
1 etransclem15.t . . 3 𝑇 = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))))
21a1i 11 . 2 (𝜑 → 𝑇 = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))))))
3 iftrue 4491 . . . . . . 7 ((𝑃 − 1) < (𝐶‘0) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0)
43adantl 487 . . . . . 6 ((𝜑 ∧ (𝑃 − 1) < (𝐶‘0)) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0)
5 iffalse 4494 . . . . . . . 8 (¬ (𝑃 − 1) < (𝐶‘0) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0)))))
65adantl 487 . . . . . . 7 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0)))))
7 etransclem15.j . . . . . . . . . . 11 (𝜑 → 𝐽 = 0)
87oveq1d 7466 . . . . . . . . . 10 (𝜑 → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = (0↑((𝑃 − 1) − (𝐶‘0))))
98adantr 486 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = (0↑((𝑃 − 1) − (𝐶‘0))))
10 etransclem15.p . . . . . . . . . . . . . . 15 (𝜑 → 𝑃 ∈ ℕ)
1110nnzd 12759 . . . . . . . . . . . . . 14 (𝜑 → 𝑃 ∈ ℤ)
12 1zzd 12767 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℤ)
1311, 12zsubcld 12848 . . . . . . . . . . . . 13 (𝜑 → (𝑃 − 1) ∈ ℤ)
14 etransclem15.c . . . . . . . . . . . . . . 15 (𝜑 → 𝐶:(0...𝑀)⟶(0...𝑁))
15 etransclem15.m . . . . . . . . . . . . . . . . 17 (𝜑 → 𝑀 ∈ ℕ0)
16 nn0uz 13043 . . . . . . . . . . . . . . . . 17 ℕ0 = (ℤ≥‘0)
1715, 16eleqtrdi 2874 . . . . . . . . . . . . . . . 16 (𝜑 → 𝑀 ∈ (ℤ≥‘0))
18 eluzfz1 13704 . . . . . . . . . . . . . . . 16 (𝑀 ∈ (ℤ≥‘0) → 0 ∈ (0...𝑀))
1917, 18syl 18 . . . . . . . . . . . . . . 15 (𝜑 → 0 ∈ (0...𝑀))
2014, 19ffvelcdmd 7117 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘0) ∈ (0...𝑁))
2120elfzelzd 13697 . . . . . . . . . . . . 13 (𝜑 → (𝐶‘0) ∈ ℤ)
2213, 21zsubcld 12848 . . . . . . . . . . . 12 (𝜑 → ((𝑃 − 1) − (𝐶‘0)) ∈ ℤ)
2322adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℤ)
2421zred 12843 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘0) ∈ ℝ)
2524adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) ∈ ℝ)
2613zred 12843 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) ∈ ℝ)
2726adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝑃 − 1) ∈ ℝ)
28 simpr 490 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ¬ (𝑃 − 1) < (𝐶‘0))
2925, 27, 28nltled 11499 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) ≤ (𝑃 − 1))
30 etransclem15.cpm1 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶‘0) ≠ (𝑃 − 1))
3130necomd 3014 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) ≠ (𝐶‘0))
3231adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝑃 − 1) ≠ (𝐶‘0))
3325, 27, 29, 32leneltd 11503 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) < (𝑃 − 1))
3425, 27posdifd 11943 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝐶‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐶‘0))))
3533, 34mpbid 235 . . . . . . . . . . 11 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → 0 < ((𝑃 − 1) − (𝐶‘0)))
36 elnnz 12743 . . . . . . . . . . 11 (((𝑃 − 1) − (𝐶‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐶‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐶‘0))))
3723, 35, 36sylanbrc 595 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℕ)
38370expd 14322 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (0↑((𝑃 − 1) − (𝐶‘0))) = 0)
399, 38eqtrd 2798 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = 0)
4039oveq2d 7467 . . . . . . 7 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · 0))
41 nnm1nn0 12687 . . . . . . . . . . . . 13 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
4210, 41syl 18 . . . . . . . . . . . 12 (𝜑 → (𝑃 − 1) ∈ ℕ0)
4342faccld 14469 . . . . . . . . . . 11 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
4443nncnd 12391 . . . . . . . . . 10 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
4544adantr 486 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘(𝑃 − 1)) ∈ ℂ)
4637nnnn0d 12707 . . . . . . . . . . 11 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℕ0)
4746faccld 14469 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ∈ ℕ)
4847nncnd 12391 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ∈ ℂ)
4947nnne0d 12428 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ≠ 0)
5045, 48, 49divcld 12133 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) ∈ ℂ)
5150mul01d 11548 . . . . . . 7 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · 0) = 0)
526, 40, 513eqtrd 2802 . . . . . 6 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0)
534, 52pm2.61dan 825 . . . . 5 (𝜑 → if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) = 0)
5453oveq1d 7466 . . . 4 (𝜑 → (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))))
557, 19eqeltrd 2864 . . . . . . 7 (𝜑 → 𝐽 ∈ (0...𝑀))
5610, 14, 55etransclem7 47524 . . . . . 6 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))) ∈ ℤ)
5756zcnd 12844 . . . . 5 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))) ∈ ℂ)
5857mul02d 11547 . . . 4 (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = 0)
5954, 58eqtrd 2798 . . 3 (𝜑 → (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = 0)
6059oveq2d 7467 . 2 (𝜑 → (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))))) = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · 0))
61 etransclem15.n . . . . . 6 (𝜑 → 𝑁 ∈ ℕ0)
6261faccld 14469 . . . . 5 (𝜑 → (!‘𝑁) ∈ ℕ)
6362nncnd 12391 . . . 4 (𝜑 → (!‘𝑁) ∈ ℂ)
64 fzfid 14156 . . . . 5 (𝜑 → (0...𝑀) ∈ Fin)
65 fzssnn0 46604 . . . . . . . 8 (0...𝑁) ⊆ ℕ0
6614ffvelcdmda 7116 . . . . . . . 8 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐶‘𝑗) ∈ (0...𝑁))
6765, 66sselid 3911 . . . . . . 7 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐶‘𝑗) ∈ ℕ0)
6867faccld 14469 . . . . . 6 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ∈ ℕ)
6968nncnd 12391 . . . . 5 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ∈ ℂ)
7064, 69fprodcl 16163 . . . 4 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗)) ∈ ℂ)
7168nnne0d 12428 . . . . 5 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ≠ 0)
7264, 69, 71fprodn0 16190 . . . 4 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗)) ≠ 0)
7363, 70, 72divcld 12133 . . 3 (𝜑 → ((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) ∈ ℂ)
7473mul01d 11548 . 2 (𝜑 → (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · 0) = 0)
752, 60, 743eqtrd 2802 1 (𝜑 → 𝑇 = 0)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ifcif 4485   class class class wbr 5108  ⟶wf 6562  ‘cfv 6566  (class class class)co 7451  ℂcc 11237  ℝcr 11238  0cc0 11239  1c1 11240   · cmul 11244   < clt 11382   − cmin 11580   / cdiv 12013  ℕcn 12375  ℕ0cn0 12646  ℤcz 12733  ℤ≥cuz 13005  ...cfz 13679  ↑cexp 14244  !cfa 14458  ∏cprod 16116
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5238  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783  ax-inf2 9679  ax-cnex 11295  ax-resscn 11296  ax-1cn 11297  ax-icn 11298  ax-addcl 11299  ax-addrcl 11300  ax-mulcl 11301  ax-mulrcl 11302  ax-mulcom 11303  ax-addass 11304  ax-mulass 11305  ax-distr 11306  ax-i2m1 11307  ax-1ne0 11308  ax-1rid 11309  ax-rnegex 11310  ax-rrecex 11311  ax-cnre 11312  ax-pre-lttri 11313  ax-pre-lttrn 11314  ax-pre-ltadd 11315  ax-pre-mulgt0 11316  ax-pre-sup 11317
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-uni 4873  df-int 4913  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-se 5612  df-we 5613  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-pred 6330  df-ord 6391  df-on 6392  df-lim 6393  df-suc 6394  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-isom 6575  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-om 7912  df-1st 8035  df-2nd 8036  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-1o 8514  df-er 8755  df-en 9012  df-dom 9013  df-sdom 9014  df-fin 9015  df-sup 9471  df-oi 9541  df-card 10057  df-pnf 11384  df-mnf 11385  df-xr 11386  df-ltxr 11387  df-le 11388  df-sub 11582  df-neg 11583  df-div 12014  df-nn 12376  df-2 12445  df-3 12446  df-n0 12647  df-z 12734  df-uz 13006  df-rp 13161  df-fz 13680  df-fzo 13829  df-seq 14185  df-exp 14245  df-fac 14459  df-bc 14488  df-hash 14516  df-cj 15309  df-re 15310  df-im 15311  df-sqrt 15445  df-abs 15446  df-clim 15699  df-prod 16117
This theorem is used by:  etransclem28  47545
  Copyright terms: Public domain W3C validator