Theorem eflegeo 15645

Description: The exponential function on the reals between 0 and 1 lies below the comparable geometric series sum. (Contributed by Paul Chapman, 11-Sep-2007.)

Hypotheses

Ref	Expression
eflegeo.1	⊢ (𝜑 → 𝐴 ∈ ℝ)
eflegeo.2	⊢ (𝜑 → 0 ≤ 𝐴)
eflegeo.3	⊢ (𝜑 → 𝐴 < 1)

Assertion

Ref	Expression
eflegeo	⊢ (𝜑 → (exp‘𝐴) ≤ (1 / (1 − 𝐴)))

Proof of Theorem eflegeo

Dummy variables 𝑘 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nn0uz 12441	. . 3 ⊢ ℕ0 = (ℤ≥‘0)
2		0zd 12153	. . 3 ⊢ (𝜑 → 0 ∈ ℤ)
3		eqid 2736	. . . . 5 ⊢ (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))
4	3	eftval 15601	. . . 4 ⊢ (𝑘 ∈ ℕ0 → ((𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))‘𝑘) = ((𝐴↑𝑘) / (!‘𝑘)))
5	4	adantl 485	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))‘𝑘) = ((𝐴↑𝑘) / (!‘𝑘)))
6		eflegeo.1	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ)
7		reeftcl 15599	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝑘 ∈ ℕ0) → ((𝐴↑𝑘) / (!‘𝑘)) ∈ ℝ)
8	6, 7	sylan 583	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝐴↑𝑘) / (!‘𝑘)) ∈ ℝ)
9		oveq2 7199	. . . . 5 ⊢ (𝑛 = 𝑘 → (𝐴↑𝑛) = (𝐴↑𝑘))
10		eqid 2736	. . . . 5 ⊢ (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛)) = (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))
11		ovex 7224	. . . . 5 ⊢ (𝐴↑𝑘) ∈ V
12	9, 10, 11	fvmpt 6796	. . . 4 ⊢ (𝑘 ∈ ℕ0 → ((𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))‘𝑘) = (𝐴↑𝑘))
13	12	adantl 485	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))‘𝑘) = (𝐴↑𝑘))
14		reexpcl 13617	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ∈ ℝ)
15	6, 14	sylan 583	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ∈ ℝ)
16		faccl 13814	. . . . . . 7 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ)
17	16	adantl 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℕ)
18	17	nnred 11810	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℝ)
19	6	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝐴 ∈ ℝ)
20		simpr 488	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
21		eflegeo.2	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝐴)
22	21	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 0 ≤ 𝐴)
23	19, 20, 22	expge0d 13699	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 0 ≤ (𝐴↑𝑘))
24	17	nnge1d 11843	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 1 ≤ (!‘𝑘))
25	15, 18, 23, 24	lemulge12d 11735	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ≤ ((!‘𝑘) · (𝐴↑𝑘)))
26	17	nngt0d 11844	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 0 < (!‘𝑘))
27		ledivmul 11673	. . . . 5 ⊢ (((𝐴↑𝑘) ∈ ℝ ∧ (𝐴↑𝑘) ∈ ℝ ∧ ((!‘𝑘) ∈ ℝ ∧ 0 < (!‘𝑘))) → (((𝐴↑𝑘) / (!‘𝑘)) ≤ (𝐴↑𝑘) ↔ (𝐴↑𝑘) ≤ ((!‘𝑘) · (𝐴↑𝑘))))
28	15, 15, 18, 26, 27	syl112anc 1376	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (((𝐴↑𝑘) / (!‘𝑘)) ≤ (𝐴↑𝑘) ↔ (𝐴↑𝑘) ≤ ((!‘𝑘) · (𝐴↑𝑘))))
29	25, 28	mpbird 260	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝐴↑𝑘) / (!‘𝑘)) ≤ (𝐴↑𝑘))
30	6	recnd 10826	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℂ)
31	3	efcllem 15602	. . . 4 ⊢ (𝐴 ∈ ℂ → seq0( + , (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
32	30, 31	syl 17	. . 3 ⊢ (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
33	6, 21	absidd 14951	. . . . . 6 ⊢ (𝜑 → (abs‘𝐴) = 𝐴)
34		eflegeo.3	. . . . . 6 ⊢ (𝜑 → 𝐴 < 1)
35	33, 34	eqbrtrd 5061	. . . . 5 ⊢ (𝜑 → (abs‘𝐴) < 1)
36	30, 35, 13	geolim 15397	. . . 4 ⊢ (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))) ⇝ (1 / (1 − 𝐴)))
37		seqex 13541	. . . . 5 ⊢ seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))) ∈ V
38		ovex 7224	. . . . 5 ⊢ (1 / (1 − 𝐴)) ∈ V
39	37, 38	breldm 5762	. . . 4 ⊢ (seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))) ⇝ (1 / (1 − 𝐴)) → seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))) ∈ dom ⇝ )
40	36, 39	syl 17	. . 3 ⊢ (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ (𝐴↑𝑛))) ∈ dom ⇝ )
41	1, 2, 5, 8, 13, 15, 29, 32, 40	isumle 15371	. 2 ⊢ (𝜑 → Σ𝑘 ∈ ℕ0 ((𝐴↑𝑘) / (!‘𝑘)) ≤ Σ𝑘 ∈ ℕ0 (𝐴↑𝑘))
42		efval 15604	. . 3 ⊢ (𝐴 ∈ ℂ → (exp‘𝐴) = Σ𝑘 ∈ ℕ0 ((𝐴↑𝑘) / (!‘𝑘)))
43	30, 42	syl 17	. 2 ⊢ (𝜑 → (exp‘𝐴) = Σ𝑘 ∈ ℕ0 ((𝐴↑𝑘) / (!‘𝑘)))
44		expcl 13618	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ∈ ℂ)
45	30, 44	sylan 583	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ∈ ℂ)
46	1, 2, 13, 45, 36	isumclim 15284	. . 3 ⊢ (𝜑 → Σ𝑘 ∈ ℕ0 (𝐴↑𝑘) = (1 / (1 − 𝐴)))
47	46	eqcomd 2742	. 2 ⊢ (𝜑 → (1 / (1 − 𝐴)) = Σ𝑘 ∈ ℕ0 (𝐴↑𝑘))
48	41, 43, 47	3brtr4d 5071	1 ⊢ (𝜑 → (exp‘𝐴) ≤ (1 / (1 − 𝐴)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   = wceq 1543   ∈ wcel 2112   class class class wbr 5039   ↦ cmpt 5120  dom cdm 5536  ‘cfv 6358  (class class class)co 7191  ℂcc 10692  ℝcr 10693  0cc0 10694  1c1 10695   + caddc 10697   · cmul 10699   < clt 10832   ≤ cle 10833   − cmin 11027   / cdiv 11454  ℕcn 11795  ℕ₀cn0 12055  seqcseq 13539  ↑cexp 13600  !cfa 13804  abscabs 14762   ⇝ cli 15010  Σcsu 15214  expce 15586

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2160  ax-12 2177  ax-ext 2708  ax-rep 5164  ax-sep 5177  ax-nul 5184  ax-pow 5243  ax-pr 5307  ax-un 7501  ax-inf2 9234  ax-cnex 10750  ax-resscn 10751  ax-1cn 10752  ax-icn 10753  ax-addcl 10754  ax-addrcl 10755  ax-mulcl 10756  ax-mulrcl 10757  ax-mulcom 10758  ax-addass 10759  ax-mulass 10760  ax-distr 10761  ax-i2m1 10762  ax-1ne0 10763  ax-1rid 10764  ax-rnegex 10765  ax-rrecex 10766  ax-cnre 10767  ax-pre-lttri 10768  ax-pre-lttrn 10769  ax-pre-ltadd 10770  ax-pre-mulgt0 10771  ax-pre-sup 10772

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2073  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2728  df-clel 2809  df-nfc 2879  df-ne 2933  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rmo 3059  df-rab 3060  df-v 3400  df-sbc 3684  df-csb 3799  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-pss 3872  df-nul 4224  df-if 4426  df-pw 4501  df-sn 4528  df-pr 4530  df-tp 4532  df-op 4534  df-uni 4806  df-int 4846  df-iun 4892  df-br 5040  df-opab 5102  df-mpt 5121  df-tr 5147  df-id 5440  df-eprel 5445  df-po 5453  df-so 5454  df-fr 5494  df-se 5495  df-we 5496  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-pred 6140  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6316  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isom 6367  df-riota 7148  df-ov 7194  df-oprab 7195  df-mpo 7196  df-om 7623  df-1st 7739  df-2nd 7740  df-wrecs 8025  df-recs 8086  df-rdg 8124  df-1o 8180  df-er 8369  df-pm 8489  df-en 8605  df-dom 8606  df-sdom 8607  df-fin 8608  df-sup 9036  df-inf 9037  df-oi 9104  df-card 9520  df-pnf 10834  df-mnf 10835  df-xr 10836  df-ltxr 10837  df-le 10838  df-sub 11029  df-neg 11030  df-div 11455  df-nn 11796  df-2 11858  df-3 11859  df-n0 12056  df-z 12142  df-uz 12404  df-rp 12552  df-ico 12906  df-fz 13061  df-fzo 13204  df-fl 13332  df-seq 13540  df-exp 13601  df-fac 13805  df-hash 13862  df-shft 14595  df-cj 14627  df-re 14628  df-im 14629  df-sqrt 14763  df-abs 14764  df-limsup 14997  df-clim 15014  df-rlim 15015  df-sum 15215  df-ef 15592

This theorem is referenced by:  birthdaylem3  25790  logdiflbnd  25831  emcllem2  25833