Theorem pntlemd 27884

Description: Lemma for pnt 27904. Closure for the constants used in the proof. For comparison with Equation 10.6.27 of [Shapiro], p. 434, 𝐴 is C^*, 𝐵 is c₁, 𝐿 is λ, 𝐷 is c₂, and 𝐹 is c₃. (Contributed by Mario Carneiro, 13-Apr-2016.)

Hypotheses

Ref	Expression
pntlem1.r	⊢ 𝑅 = (𝑎 ∈ ℝ+ ↦ ((ψ‘𝑎) − 𝑎))
pntlem1.a	⊢ (𝜑 → 𝐴 ∈ ℝ+)
pntlem1.b	⊢ (𝜑 → 𝐵 ∈ ℝ+)
pntlem1.l	⊢ (𝜑 → 𝐿 ∈ (0(,)1))
pntlem1.d	⊢ 𝐷 = (𝐴 + 1)
pntlem1.f	⊢ 𝐹 = ((1 − (1 / 𝐷)) · ((𝐿 / (;32 · 𝐵)) / (𝐷↑2)))

Assertion

Ref	Expression
pntlemd	⊢ (𝜑 → (𝐿 ∈ ℝ+ ∧ 𝐷 ∈ ℝ+ ∧ 𝐹 ∈ ℝ+))

Proof of Theorem pntlemd

Step	Hyp	Ref	Expression
1		ioossre 13507	. . . 4 ⊢ (0(,)1) ⊆ ℝ
2		pntlem1.l	. . . 4 ⊢ (𝜑 → 𝐿 ∈ (0(,)1))
3	1, 2	sselid 3928	. . 3 ⊢ (𝜑 → 𝐿 ∈ ℝ)
4		eliooord 13505	. . . . 5 ⊢ (𝐿 ∈ (0(,)1) → (0 < 𝐿 ∧ 𝐿 < 1))
5	2, 4	syl 18	. . . 4 ⊢ (𝜑 → (0 < 𝐿 ∧ 𝐿 < 1))
6	5	simpld 500	. . 3 ⊢ (𝜑 → 0 < 𝐿)
7	3, 6	elrpd 13130	. 2 ⊢ (𝜑 → 𝐿 ∈ ℝ+)
8		pntlem1.d	. . 3 ⊢ 𝐷 = (𝐴 + 1)
9		pntlem1.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ+)
10		1rp 13093	. . . 4 ⊢ 1 ∈ ℝ+
11		rpaddcl 13113	. . . 4 ⊢ ((𝐴 ∈ ℝ+ ∧ 1 ∈ ℝ+) → (𝐴 + 1) ∈ ℝ+)
12	9, 10, 11	sylancl 598	. . 3 ⊢ (𝜑 → (𝐴 + 1) ∈ ℝ+)
13	8, 12	eqeltrid 2864	. 2 ⊢ (𝜑 → 𝐷 ∈ ℝ+)
14		pntlem1.f	. . 3 ⊢ 𝐹 = ((1 − (1 / 𝐷)) · ((𝐿 / (;32 · 𝐵)) / (𝐷↑2)))
15		1re 11279	. . . . . . . 8 ⊢ 1 ∈ ℝ
16		ltaddrp 13128	. . . . . . . 8 ⊢ ((1 ∈ ℝ ∧ 𝐴 ∈ ℝ+) → 1 < (1 + 𝐴))
17	15, 9, 16	sylancr 599	. . . . . . 7 ⊢ (𝜑 → 1 < (1 + 𝐴))
18	9	rpcnd 13135	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
19		ax-1cn 11229	. . . . . . . . 9 ⊢ 1 ∈ ℂ
20		addcom 11467	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 1 ∈ ℂ) → (𝐴 + 1) = (1 + 𝐴))
21	18, 19, 20	sylancl 598	. . . . . . . 8 ⊢ (𝜑 → (𝐴 + 1) = (1 + 𝐴))
22	8, 21	eqtrid 2807	. . . . . . 7 ⊢ (𝜑 → 𝐷 = (1 + 𝐴))
23	17, 22	breqtrrd 5132	. . . . . 6 ⊢ (𝜑 → 1 < 𝐷)
24	13	recgt1d 13147	. . . . . 6 ⊢ (𝜑 → (1 < 𝐷 ↔ (1 / 𝐷) < 1))
25	23, 24	mpbid 235	. . . . 5 ⊢ (𝜑 → (1 / 𝐷) < 1)
26	13	rprecred 13144	. . . . . 6 ⊢ (𝜑 → (1 / 𝐷) ∈ ℝ)
27		difrp 13129	. . . . . 6 ⊢ (((1 / 𝐷) ∈ ℝ ∧ 1 ∈ ℝ) → ((1 / 𝐷) < 1 ↔ (1 − (1 / 𝐷)) ∈ ℝ+))
28	26, 15, 27	sylancl 598	. . . . 5 ⊢ (𝜑 → ((1 / 𝐷) < 1 ↔ (1 − (1 / 𝐷)) ∈ ℝ+))
29	25, 28	mpbid 235	. . . 4 ⊢ (𝜑 → (1 − (1 / 𝐷)) ∈ ℝ+)
30		3nn0 12593	. . . . . . . . 9 ⊢ 3 ∈ ℕ0
31		2nn 12385	. . . . . . . . 9 ⊢ 2 ∈ ℕ
32	30, 31	decnncl 12807	. . . . . . . 8 ⊢ ;32 ∈ ℕ
33		nnrp 13101	. . . . . . . 8 ⊢ (;32 ∈ ℕ → ;32 ∈ ℝ+)
34	32, 33	ax-mp 5	. . . . . . 7 ⊢ ;32 ∈ ℝ+
35		pntlem1.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℝ+)
36		rpmulcl 13114	. . . . . . 7 ⊢ ((;32 ∈ ℝ+ ∧ 𝐵 ∈ ℝ+) → (;32 · 𝐵) ∈ ℝ+)
37	34, 35, 36	sylancr 599	. . . . . 6 ⊢ (𝜑 → (;32 · 𝐵) ∈ ℝ+)
38	7, 37	rpdivcld 13150	. . . . 5 ⊢ (𝜑 → (𝐿 / (;32 · 𝐵)) ∈ ℝ+)
39		2z 12697	. . . . . 6 ⊢ 2 ∈ ℤ
40		rpexpcl 14191	. . . . . 6 ⊢ ((𝐷 ∈ ℝ+ ∧ 2 ∈ ℤ) → (𝐷↑2) ∈ ℝ+)
41	13, 39, 40	sylancl 598	. . . . 5 ⊢ (𝜑 → (𝐷↑2) ∈ ℝ+)
42	38, 41	rpdivcld 13150	. . . 4 ⊢ (𝜑 → ((𝐿 / (;32 · 𝐵)) / (𝐷↑2)) ∈ ℝ+)
43	29, 42	rpmulcld 13149	. . 3 ⊢ (𝜑 → ((1 − (1 / 𝐷)) · ((𝐿 / (;32 · 𝐵)) / (𝐷↑2))) ∈ ℝ+)
44	14, 43	eqeltrid 2864	. 2 ⊢ (𝜑 → 𝐹 ∈ ℝ+)
45	7, 13, 44	3jca 1146	1 ⊢ (𝜑 → (𝐿 ∈ ℝ+ ∧ 𝐷 ∈ ℝ+ ∧ 𝐹 ∈ ℝ+))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145   class class class wbr 5102   ↦ cmpt 5185  ‘cfv 6527  (class class class)co 7408  ℂcc 11169  ℝcr 11170  0cc0 11171  1c1 11172   + caddc 11174   · cmul 11176   < clt 11314   − cmin 11512   / cdiv 11942  ℕcn 12304  2c2 12366  3c3 12367  ℤcz 12662  ;cdc 12783  ℝ⁺crp 13089  (,)cioo 13445  ↑cexp 14172  ψcchp 27383

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 2732  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-cnex 11227  ax-resscn 11228  ax-1cn 11229  ax-icn 11230  ax-addcl 11231  ax-addrcl 11232  ax-mulcl 11233  ax-mulrcl 11234  ax-mulcom 11235  ax-addass 11236  ax-mulass 11237  ax-distr 11238  ax-i2m1 11239  ax-1ne0 11240  ax-1rid 11241  ax-rnegex 11242  ax-rrecex 11243  ax-cnre 11244  ax-pre-lttri 11245  ax-pre-lttrn 11246  ax-pre-ltadd 11247  ax-pre-mulgt0 11248

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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6293  df-ord 6354  df-on 6355  df-lim 6356  df-suc 6357  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7861  df-1st 7984  df-2nd 7985  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-er 8695  df-en 8952  df-dom 8953  df-sdom 8954  df-pnf 11316  df-mnf 11317  df-xr 11318  df-ltxr 11319  df-le 11320  df-sub 11514  df-neg 11515  df-div 11943  df-nn 12305  df-2 12374  df-3 12375  df-4 12376  df-5 12377  df-6 12378  df-7 12379  df-8 12380  df-9 12381  df-n0 12576  df-z 12663  df-dec 12784  df-uz 12935  df-rp 13090  df-ioo 13449  df-seq 14113  df-exp 14173

This theorem is used by:  pntlemc  27885  pntlema  27886  pntlemb  27887  pntlemq  27891  pntlemr  27892  pntlemj  27893  pntlemf  27895  pntlemo  27897  pntleml  27901