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 47258
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 4488 . . . . . . 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 4491 . . . . . . . 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 7435 . . . . . . . . . 10 (𝜑 → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = (0↑((𝑃 − 1) − (𝐶‘0))))
98adantr 486 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = (0↑((𝑃 − 1) − (𝐶‘0))))
10 etransclem15.p . . . . . . . . . . . . . . 15 (𝜑 → 𝑃 ∈ ℕ)
1110nnzd 12719 . . . . . . . . . . . . . 14 (𝜑 → 𝑃 ∈ ℤ)
12 1zzd 12727 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℤ)
1311, 12zsubcld 12808 . . . . . . . . . . . . 13 (𝜑 → (𝑃 − 1) ∈ ℤ)
14 etransclem15.c . . . . . . . . . . . . . . 15 (𝜑 → 𝐶:(0...𝑀)⟶(0...𝑁))
15 etransclem15.m . . . . . . . . . . . . . . . . 17 (𝜑 → 𝑀 ∈ ℕ0)
16 nn0uz 13003 . . . . . . . . . . . . . . . . 17 ℕ0 = (ℤ≥‘0)
1715, 16eleqtrdi 2871 . . . . . . . . . . . . . . . 16 (𝜑 → 𝑀 ∈ (ℤ≥‘0))
18 eluzfz1 13664 . . . . . . . . . . . . . . . 16 (𝑀 ∈ (ℤ≥‘0) → 0 ∈ (0...𝑀))
1917, 18syl 18 . . . . . . . . . . . . . . 15 (𝜑 → 0 ∈ (0...𝑀))
2014, 19ffvelcdmd 7085 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘0) ∈ (0...𝑁))
2120elfzelzd 13657 . . . . . . . . . . . . 13 (𝜑 → (𝐶‘0) ∈ ℤ)
2213, 21zsubcld 12808 . . . . . . . . . . . 12 (𝜑 → ((𝑃 − 1) − (𝐶‘0)) ∈ ℤ)
2322adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℤ)
2421zred 12803 . . . . . . . . . . . . . 14 (𝜑 → (𝐶‘0) ∈ ℝ)
2524adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) ∈ ℝ)
2613zred 12803 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) ∈ ℝ)
2726adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝑃 − 1) ∈ ℝ)
28 simpr 490 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ¬ (𝑃 − 1) < (𝐶‘0))
2925, 27, 28nltled 11460 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) ≤ (𝑃 − 1))
30 etransclem15.cpm1 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶‘0) ≠ (𝑃 − 1))
3130necomd 3011 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 1) ≠ (𝐶‘0))
3231adantr 486 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝑃 − 1) ≠ (𝐶‘0))
3325, 27, 29, 32leneltd 11464 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐶‘0) < (𝑃 − 1))
3425, 27posdifd 11903 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝐶‘0) < (𝑃 − 1) ↔ 0 < ((𝑃 − 1) − (𝐶‘0))))
3533, 34mpbid 235 . . . . . . . . . . 11 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → 0 < ((𝑃 − 1) − (𝐶‘0)))
36 elnnz 12703 . . . . . . . . . . 11 (((𝑃 − 1) − (𝐶‘0)) ∈ ℕ ↔ (((𝑃 − 1) − (𝐶‘0)) ∈ ℤ ∧ 0 < ((𝑃 − 1) − (𝐶‘0))))
3723, 35, 36sylanbrc 595 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℕ)
38370expd 14282 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (0↑((𝑃 − 1) − (𝐶‘0))) = 0)
399, 38eqtrd 2796 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (𝐽↑((𝑃 − 1) − (𝐶‘0))) = 0)
4039oveq2d 7436 . . . . . . 7 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0)))) = (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · 0))
41 nnm1nn0 12647 . . . . . . . . . . . . 13 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
4210, 41syl 18 . . . . . . . . . . . 12 (𝜑 → (𝑃 − 1) ∈ ℕ0)
4342faccld 14428 . . . . . . . . . . 11 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
4443nncnd 12351 . . . . . . . . . 10 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
4544adantr 486 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘(𝑃 − 1)) ∈ ℂ)
4637nnnn0d 12667 . . . . . . . . . . 11 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((𝑃 − 1) − (𝐶‘0)) ∈ ℕ0)
4746faccld 14428 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ∈ ℕ)
4847nncnd 12351 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ∈ ℂ)
4947nnne0d 12388 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (!‘((𝑃 − 1) − (𝐶‘0))) ≠ 0)
5045, 48, 49divcld 12093 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → ((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) ∈ ℂ)
5150mul01d 11509 . . . . . . 7 ((𝜑 ∧ ¬ (𝑃 − 1) < (𝐶‘0)) → (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · 0) = 0)
526, 40, 513eqtrd 2800 . . . . . 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 7435 . . . 4 (𝜑 → (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))))
557, 19eqeltrd 2861 . . . . . . 7 (𝜑 → 𝐽 ∈ (0...𝑀))
5610, 14, 55etransclem7 47250 . . . . . 6 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))) ∈ ℤ)
5756zcnd 12804 . . . . 5 (𝜑 → ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))) ∈ ℂ)
5857mul02d 11508 . . . 4 (𝜑 → (0 · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = 0)
5954, 58eqtrd 2796 . . 3 (𝜑 → (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗)))))) = 0)
6059oveq2d 7436 . 2 (𝜑 → (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · (if((𝑃 − 1) < (𝐶‘0), 0, (((!‘(𝑃 − 1)) / (!‘((𝑃 − 1) − (𝐶‘0)))) · (𝐽↑((𝑃 − 1) − (𝐶‘0))))) · ∏𝑗 ∈ (1...𝑀)if(𝑃 < (𝐶‘𝑗), 0, (((!‘𝑃) / (!‘(𝑃 − (𝐶‘𝑗)))) · ((𝐽 − 𝑗)↑(𝑃 − (𝐶‘𝑗))))))) = (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · 0))
61 etransclem15.n . . . . . 6 (𝜑 → 𝑁 ∈ ℕ0)
6261faccld 14428 . . . . 5 (𝜑 → (!‘𝑁) ∈ ℕ)
6362nncnd 12351 . . . 4 (𝜑 → (!‘𝑁) ∈ ℂ)
64 fzfid 14116 . . . . 5 (𝜑 → (0...𝑀) ∈ Fin)
65 fzssnn0 46330 . . . . . . . 8 (0...𝑁) ⊆ ℕ0
6614ffvelcdmda 7084 . . . . . . . 8 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐶‘𝑗) ∈ (0...𝑁))
6765, 66sselid 3929 . . . . . . 7 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (𝐶‘𝑗) ∈ ℕ0)
6867faccld 14428 . . . . . 6 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ∈ ℕ)
6968nncnd 12351 . . . . 5 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ∈ ℂ)
7064, 69fprodcl 16119 . . . 4 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗)) ∈ ℂ)
7168nnne0d 12388 . . . . 5 ((𝜑 ∧ 𝑗 ∈ (0...𝑀)) → (!‘(𝐶‘𝑗)) ≠ 0)
7264, 69, 71fprodn0 16146 . . . 4 (𝜑 → ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗)) ≠ 0)
7363, 70, 72divcld 12093 . . 3 (𝜑 → ((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) ∈ ℂ)
7473mul01d 11509 . 2 (𝜑 → (((!‘𝑁) / ∏𝑗 ∈ (0...𝑀)(!‘(𝐶‘𝑗))) · 0) = 0)
752, 60, 743eqtrd 2800 1 (𝜑 → 𝑇 = 0)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2145   ≠ wne 2956  ifcif 4482   class class class wbr 5103  ⟶wf 6534  ‘cfv 6538  (class class class)co 7420  ℂcc 11198  ℝcr 11199  0cc0 11200  1c1 11201   · cmul 11205   < clt 11343   − cmin 11541   / cdiv 11973  ℕcn 12335  ℕ0cn0 12606  ℤcz 12693  ℤ≥cuz 12965  ...cfz 13639  ↑cexp 14204  !cfa 14417  ∏cprod 16072
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 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7751  ax-inf2 9642  ax-cnex 11256  ax-resscn 11257  ax-1cn 11258  ax-icn 11259  ax-addcl 11260  ax-addrcl 11261  ax-mulcl 11262  ax-mulrcl 11263  ax-mulcom 11264  ax-addass 11265  ax-mulass 11266  ax-distr 11267  ax-i2m1 11268  ax-1ne0 11269  ax-1rid 11270  ax-rnegex 11271  ax-rrecex 11272  ax-cnre 11273  ax-pre-lttri 11274  ax-pre-lttrn 11275  ax-pre-ltadd 11276  ax-pre-mulgt0 11277  ax-pre-sup 11278
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 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7878  df-1st 8001  df-2nd 8002  df-frecs 8299  df-wrecs 8330  df-recs 8379  df-rdg 8418  df-1o 8476  df-er 8717  df-en 8974  df-dom 8975  df-sdom 8976  df-fin 8977  df-sup 9434  df-oi 9504  df-card 10020  df-pnf 11345  df-mnf 11346  df-xr 11347  df-ltxr 11348  df-le 11349  df-sub 11543  df-neg 11544  df-div 11974  df-nn 12336  df-2 12405  df-3 12406  df-n0 12607  df-z 12694  df-uz 12966  df-rp 13121  df-fz 13640  df-fzo 13789  df-seq 14145  df-exp 14205  df-fac 14418  df-bc 14447  df-hash 14475  df-cj 15266  df-re 15267  df-im 15268  df-sqrt 15402  df-abs 15403  df-clim 15655  df-prod 16073
This theorem is used by:  etransclem28  47271
  Copyright terms: Public domain W3C validator