pntleml - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > pntleml		Structured version Visualization version GIF version

Theorem pntleml 27595

Description: Lemma for pnt 27598. Equation 10.6.35 in [Shapiro], p. 436. (Contributed by Mario Carneiro, 14-Apr-2016.)

**Hypotheses**
Ref	Expression
pntlem3.r	⊢ 𝑅 = (𝑎 ∈ ℝ⁺ ↦ ((ψ‘𝑎) − 𝑎))
pntlem3.a	⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
pntlem3.A	⊢ (𝜑 → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
pntlemp.b	⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
pntlemp.l	⊢ (𝜑 → 𝐿 ∈ (0(,)1))
pntlemp.d	⊢ 𝐷 = (𝐴 + 1)
pntlemp.f	⊢ 𝐹 = ((1 − (1 / 𝐷)) · ((𝐿 / (;32 · 𝐵)) / (𝐷↑2)))
pntlemp.K	⊢ (𝜑 → ∀𝑒 ∈ (0(,)1)∃𝑥 ∈ ℝ⁺ ∀𝑘 ∈ ((exp‘(𝐵 / 𝑒))[,)+∞)∀𝑦 ∈ (𝑥(,)+∞)∃𝑧 ∈ ℝ⁺ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 · 𝑒)) · 𝑧) < (𝑘 · 𝑦)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝑒)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝑒))

**Assertion**
Ref	Expression
pntleml	⊢ (𝜑 → (𝑥 ∈ ℝ⁺ ↦ ((ψ‘𝑥) / 𝑥)) ⇝_𝑟 1)

Distinct variable groups: 𝑥,𝑦,𝑧,𝐴 𝑒,𝑎,𝑘,𝑢,𝑥,𝑦,𝑧,𝐷 𝑦,𝐹,𝑧 𝑅,𝑒,𝑘,𝑢,𝑥,𝑦,𝑧 𝑒,𝐿,𝑘,𝑢,𝑥,𝑦,𝑧 𝜑,𝑥,𝑦 𝐵,𝑒,𝑘,𝑥,𝑦,𝑧 𝜑,𝑧 Allowed substitution hints: 𝜑(𝑢,𝑒,𝑘,𝑎) 𝐴(𝑢,𝑒,𝑘,𝑎) 𝐵(𝑢,𝑎) 𝑅(𝑎) 𝐹(𝑥,𝑢,𝑒,𝑘,𝑎) 𝐿(𝑎)

Proof of Theorem pntleml Dummy variables 𝑠 𝑟 𝑡 𝑣 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pntlem3.r	. 2 ⊢ 𝑅 = (𝑎 ∈ ℝ⁺ ↦ ((ψ‘𝑎) − 𝑎))
2		pntlem3.a	. 2 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
3		pntlem3.A	. 2 ⊢ (𝜑 → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
4		eqid 2741	. 2 ⊢ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} = {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}
5		pntlemp.b	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
6		pntlemp.l	. . . 4 ⊢ (𝜑 → 𝐿 ∈ (0(,)1))
7		pntlemp.d	. . . 4 ⊢ 𝐷 = (𝐴 + 1)
8		pntlemp.f	. . . 4 ⊢ 𝐹 = ((1 − (1 / 𝐷)) · ((𝐿 / (;32 · 𝐵)) / (𝐷↑2)))
9	1, 2, 5, 6, 7, 8	pntlemd 27578	. . 3 ⊢ (𝜑 → (𝐿 ∈ ℝ⁺ ∧ 𝐷 ∈ ℝ⁺ ∧ 𝐹 ∈ ℝ⁺))
10	9	simp3d 1151	. 2 ⊢ (𝜑 → 𝐹 ∈ ℝ⁺)
11		0m0e0 12291	. . . . 5 ⊢ (0 − 0) = 0
12		simpr 486	. . . . . 6 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → 𝑟 = 0)
13	12	oveq1d 7374	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟↑3) = (0↑3))
14		3nn 12255	. . . . . . . . . 10 ⊢ 3 ∈ ℕ
15		0exp 14054	. . . . . . . . . 10 ⊢ (3 ∈ ℕ → (0↑3) = 0)
16	14, 15	ax-mp 5	. . . . . . . . 9 ⊢ (0↑3) = 0
17	13, 16	eqtrdi 2792	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟↑3) = 0)
18	17	oveq2d 7375	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝐹 · (𝑟↑3)) = (𝐹 · 0))
19	10	rpcnd 12983	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ ℂ)
20	19	mul01d 11341	. . . . . . . 8 ⊢ (𝜑 → (𝐹 · 0) = 0)
21	20	ad2antrr 733	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝐹 · 0) = 0)
22	18, 21	eqtrd 2776	. . . . . 6 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝐹 · (𝑟↑3)) = 0)
23	12, 22	oveq12d 7377	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟 − (𝐹 · (𝑟↑3))) = (0 − 0))
24	11, 23, 12	3eqtr4a 2802	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟 − (𝐹 · (𝑟↑3))) = 𝑟)
25		simplr 775	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
26	24, 25	eqeltrd 2841	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
27		oveq1 7366	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑠 → (𝑦[,)+∞) = (𝑠[,)+∞))
28	27	raleqdv 3299	. . . . . . . . . 10 ⊢ (𝑦 = 𝑠 → (∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 ↔ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
29	28	cbvrexvw 3220	. . . . . . . . 9 ⊢ (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 ↔ ∃𝑠 ∈ ℝ⁺ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)
30		simplrr 784	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ∈ (0[,]𝐴))
31		0re 11142	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℝ
32	2	ad2antrr 733	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐴 ∈ ℝ⁺)
33	32	rpred 12981	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐴 ∈ ℝ)
34		elicc2 13359	. . . . . . . . . . . . . . . 16 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝑟 ∈ (0[,]𝐴) ↔ (𝑟 ∈ ℝ ∧ 0 ≤ 𝑟 ∧ 𝑟 ≤ 𝐴)))
35	31, 33, 34	sylancr 594	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 ∈ (0[,]𝐴) ↔ (𝑟 ∈ ℝ ∧ 0 ≤ 𝑟 ∧ 𝑟 ≤ 𝐴)))
36	30, 35	mpbid 234	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 ∈ ℝ ∧ 0 ≤ 𝑟 ∧ 𝑟 ≤ 𝐴))
37	36	simp1d 1149	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ∈ ℝ)
38	10	ad2antrr 733	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐹 ∈ ℝ⁺)
39	36	simp2d 1150	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ 𝑟)
40		simplrl 783	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ≠ 0)
41	37, 39, 40	ne0gt0d 11279	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 < 𝑟)
42	37, 41	elrpd 12978	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ∈ ℝ⁺)
43		3z 12555	. . . . . . . . . . . . . . . 16 ⊢ 3 ∈ ℤ
44		rpexpcl 14037	. . . . . . . . . . . . . . . 16 ⊢ ((𝑟 ∈ ℝ⁺ ∧ 3 ∈ ℤ) → (𝑟↑3) ∈ ℝ⁺)
45	42, 43, 44	sylancl 593	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟↑3) ∈ ℝ⁺)
46	38, 45	rpmulcld 12997	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝐹 · (𝑟↑3)) ∈ ℝ⁺)
47	46	rpred 12981	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝐹 · (𝑟↑3)) ∈ ℝ)
48	37, 47	resubcld 11574	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ)
49	3	ad2antrr 733	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
50	5	ad2antrr 733	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐵 ∈ ℝ⁺)
51	6	ad2antrr 733	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐿 ∈ (0(,)1))
52		pntlemp.K	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ∀𝑒 ∈ (0(,)1)∃𝑥 ∈ ℝ⁺ ∀𝑘 ∈ ((exp‘(𝐵 / 𝑒))[,)+∞)∀𝑦 ∈ (𝑥(,)+∞)∃𝑧 ∈ ℝ⁺ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 · 𝑒)) · 𝑧) < (𝑘 · 𝑦)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝑒)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝑒))
53	52	ad2antrr 733	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑒 ∈ (0(,)1)∃𝑥 ∈ ℝ⁺ ∀𝑘 ∈ ((exp‘(𝐵 / 𝑒))[,)+∞)∀𝑦 ∈ (𝑥(,)+∞)∃𝑧 ∈ ℝ⁺ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 · 𝑒)) · 𝑧) < (𝑘 · 𝑦)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝑒)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝑒))
54	36	simp3d 1151	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ≤ 𝐴)
55		eqid 2741	. . . . . . . . . . . . . 14 ⊢ (𝑟 / 𝐷) = (𝑟 / 𝐷)
56		eqid 2741	. . . . . . . . . . . . . 14 ⊢ (exp‘(𝐵 / (𝑟 / 𝐷))) = (exp‘(𝐵 / (𝑟 / 𝐷)))
57		simprl 777	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ∈ ℝ⁺)
58		1rp 12941	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ⁺
59		rpaddcl 12961	. . . . . . . . . . . . . . . 16 ⊢ ((𝑠 ∈ ℝ⁺ ∧ 1 ∈ ℝ⁺) → (𝑠 + 1) ∈ ℝ⁺)
60	57, 58, 59	sylancl 593	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑠 + 1) ∈ ℝ⁺)
61	57	rpge0d 12985	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ 𝑠)
62		1re 11140	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ
63	57	rpred 12981	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ∈ ℝ)
64		addge02 11657	. . . . . . . . . . . . . . . . 17 ⊢ ((1 ∈ ℝ ∧ 𝑠 ∈ ℝ) → (0 ≤ 𝑠 ↔ 1 ≤ (𝑠 + 1)))
65	62, 63, 64	sylancr 594	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (0 ≤ 𝑠 ↔ 1 ≤ (𝑠 + 1)))
66	61, 65	mpbid 234	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 1 ≤ (𝑠 + 1))
67	60, 66	jca 517	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑠 + 1) ∈ ℝ⁺ ∧ 1 ≤ (𝑠 + 1)))
68	57	rpxrd 12982	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ∈ ℝ^*)
69	63	lep1d 12082	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ≤ (𝑠 + 1))
70		df-ico 13299	. . . . . . . . . . . . . . . . 17 ⊢ [,) = (𝑡 ∈ ℝ^, 𝑟 ∈ ℝ^ ↦ {𝑤 ∈ ℝ^* ∣ (𝑡 ≤ 𝑤 ∧ 𝑤 < 𝑟)})
71		xrletr 13104	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑠 ∈ ℝ^* ∧ (𝑠 + 1) ∈ ℝ^* ∧ 𝑣 ∈ ℝ^*) → ((𝑠 ≤ (𝑠 + 1) ∧ (𝑠 + 1) ≤ 𝑣) → 𝑠 ≤ 𝑣))
72	70, 70, 71	ixxss1 13311	. . . . . . . . . . . . . . . 16 ⊢ ((𝑠 ∈ ℝ^* ∧ 𝑠 ≤ (𝑠 + 1)) → ((𝑠 + 1)[,)+∞) ⊆ (𝑠[,)+∞))
73	68, 69, 72	syl2anc 591	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑠 + 1)[,)+∞) ⊆ (𝑠[,)+∞))
74		simprr 779	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)
75		ssralv 3985	. . . . . . . . . . . . . . 15 ⊢ (((𝑠 + 1)[,)+∞) ⊆ (𝑠[,)+∞) → (∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ∀𝑧 ∈ ((𝑠 + 1)[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
76	73, 74, 75	sylc 65	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑧 ∈ ((𝑠 + 1)[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)
77	1, 32, 49, 50, 51, 7, 8, 53, 42, 54, 55, 56, 67, 76	pntlemp 27594	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))
78		rpre 12946	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℝ)
79	78	adantl 483	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℝ)
80	79	leidd 11712	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ≤ 𝑤)
81		elicopnf 13393	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ → (𝑤 ∈ (𝑤[,)+∞) ↔ (𝑤 ∈ ℝ ∧ 𝑤 ≤ 𝑤)))
82	79, 81	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 ∈ (𝑤[,)+∞) ↔ (𝑤 ∈ ℝ ∧ 𝑤 ≤ 𝑤)))
83	79, 80, 82	mpbir2and 720	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ (𝑤[,)+∞))
84		fveq2 6830	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑣 = 𝑤 → (𝑅‘𝑣) = (𝑅‘𝑤))
85		id 22	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑣 = 𝑤 → 𝑣 = 𝑤)
86	84, 85	oveq12d 7377	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑣 = 𝑤 → ((𝑅‘𝑣) / 𝑣) = ((𝑅‘𝑤) / 𝑤))
87	86	fveq2d 6834	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑣 = 𝑤 → (abs‘((𝑅‘𝑣) / 𝑣)) = (abs‘((𝑅‘𝑤) / 𝑤)))
88	87	breq1d 5084	. . . . . . . . . . . . . . . . 17 ⊢ (𝑣 = 𝑤 → ((abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
89	88	rspcv 3557	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ (𝑤[,)+∞) → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
90	83, 89	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
91	1	pntrf 27547	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑅:ℝ⁺⟶ℝ
92	91	ffvelcdmi 7027	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑤 ∈ ℝ⁺ → (𝑅‘𝑤) ∈ ℝ)
93		rerpdivcl 12969	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑅‘𝑤) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → ((𝑅‘𝑤) / 𝑤) ∈ ℝ)
94	92, 93	mpancom 695	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑤 ∈ ℝ⁺ → ((𝑅‘𝑤) / 𝑤) ∈ ℝ)
95	94	adantl 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((𝑅‘𝑤) / 𝑤) ∈ ℝ)
96	95	recnd 11169	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((𝑅‘𝑤) / 𝑤) ∈ ℂ)
97	96	absge0d 15404	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 0 ≤ (abs‘((𝑅‘𝑤) / 𝑤)))
98	96	abscld 15396	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (abs‘((𝑅‘𝑤) / 𝑤)) ∈ ℝ)
99	48	adantr 482	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ)
100		letr 11236	. . . . . . . . . . . . . . . . 17 ⊢ ((0 ∈ ℝ ∧ (abs‘((𝑅‘𝑤) / 𝑤)) ∈ ℝ ∧ (𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ) → ((0 ≤ (abs‘((𝑅‘𝑤) / 𝑤)) ∧ (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
101	31, 98, 99, 100	mp3an2i 1475	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((0 ≤ (abs‘((𝑅‘𝑤) / 𝑤)) ∧ (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
102	97, 101	mpand 702	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
103	90, 102	syld 47	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
104	103	rexlimdva 3142	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
105	77, 104	mpd 15	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3))))
106	46	rpge0d 12985	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ (𝐹 · (𝑟↑3)))
107	37, 47	subge02d 11738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (0 ≤ (𝐹 · (𝑟↑3)) ↔ (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝑟))
108	106, 107	mpbid 234	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝑟)
109	48, 37, 33, 108, 54	letrd 11299	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝐴)
110		elicc2 13359	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ↔ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ ∧ 0 ≤ (𝑟 − (𝐹 · (𝑟↑3))) ∧ (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝐴)))
111	31, 33, 110	sylancr 594	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ↔ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ ∧ 0 ≤ (𝑟 − (𝐹 · (𝑟↑3))) ∧ (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝐴)))
112	48, 105, 109, 111	mpbir3and 1350	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴))
113	112, 77	jca 517	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
114	113	rexlimdvaa 3143	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) → (∃𝑠 ∈ ℝ⁺ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
115	29, 114	biimtrid 244	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
116	115	anassrs 469	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ≠ 0) ∧ 𝑟 ∈ (0[,]𝐴)) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
117	116	expimpd 455	. . . . . 6 ⊢ ((𝜑 ∧ 𝑟 ≠ 0) → ((𝑟 ∈ (0[,]𝐴) ∧ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
118		breq2 5078	. . . . . . . 8 ⊢ (𝑡 = 𝑟 → ((abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ (abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
119	118	rexralbidv 3207	. . . . . . 7 ⊢ (𝑡 = 𝑟 → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
120	119	elrab 3630	. . . . . 6 ⊢ (𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} ↔ (𝑟 ∈ (0[,]𝐴) ∧ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
121		breq2 5078	. . . . . . . . 9 ⊢ (𝑡 = (𝑟 − (𝐹 · (𝑟↑3))) → ((abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ (abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
122	121	rexralbidv 3207	. . . . . . . 8 ⊢ (𝑡 = (𝑟 − (𝐹 · (𝑟↑3))) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
123		fveq2 6830	. . . . . . . . . . . . . 14 ⊢ (𝑣 = 𝑧 → (𝑅‘𝑣) = (𝑅‘𝑧))
124		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑣 = 𝑧 → 𝑣 = 𝑧)
125	123, 124	oveq12d 7377	. . . . . . . . . . . . 13 ⊢ (𝑣 = 𝑧 → ((𝑅‘𝑣) / 𝑣) = ((𝑅‘𝑧) / 𝑧))
126	125	fveq2d 6834	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑧 → (abs‘((𝑅‘𝑣) / 𝑣)) = (abs‘((𝑅‘𝑧) / 𝑧)))
127	126	breq1d 5084	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑧 → ((abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ (abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
128	127	cbvralvw 3219	. . . . . . . . . 10 ⊢ (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∀𝑧 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))
129		oveq1 7366	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑦 → (𝑤[,)+∞) = (𝑦[,)+∞))
130	129	raleqdv 3299	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (∀𝑧 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
131	128, 130	bitrid 285	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
132	131	cbvrexvw 3220	. . . . . . . 8 ⊢ (∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))
133	122, 132	bitr4di 291	. . . . . . 7 ⊢ (𝑡 = (𝑟 − (𝐹 · (𝑟↑3))) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
134	133	elrab 3630	. . . . . 6 ⊢ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} ↔ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
135	117, 120, 134	3imtr4g 298	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ≠ 0) → (𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}))
136	135	imp 408	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ≠ 0) ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
137	136	an32s 659	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 ≠ 0) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
138	26, 137	pm2.61dane 3023	. 2 ⊢ ((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
139	1, 2, 3, 4, 10, 138	pntlem3 27593	1 ⊢ (𝜑 → (𝑥 ∈ ℝ⁺ ↦ ((ψ‘𝑥) / 𝑥)) ⇝_𝑟 1)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 397 ∧ w3a 1093 = wceq 1548 ∈ wcel 2121 ≠ wne 2936 ∀wral 3055 ∃wrex 3065 {crab 3393 ⊆ wss 3884 class class class wbr 5074 ↦ cmpt 5155 ‘cfv 6488 (class class class)co 7359 ℝcr 11033 0cc0 11034 1c1 11035 + caddc 11037 · cmul 11039 +∞cpnf 11172 ℝ^*cxr 11174 < clt 11175 ≤ cle 11176 − cmin 11373 / cdiv 11803 ℕcn 12169 2c2 12231 3c3 12232 ℤcz 12519 cdc 12639 ℝ⁺crp 12937 (,)cioo 13293 [,)cico 13295 [,]cicc 13296 ↑cexp 14018 abscabs 15191 ⇝_𝑟 crli 15442 expce 16021 ψcchp 27077

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 1975 ax-7 2016 ax-8 2123 ax-9 2131 ax-10 2154 ax-11 2170 ax-12 2191 ax-ext 2713 ax-rep 5201 ax-sep 5220 ax-nul 5230 ax-pow 5296 ax-pr 5364 ax-un 7681 ax-inf2 9557 ax-cnex 11090 ax-resscn 11091 ax-1cn 11092 ax-icn 11093 ax-addcl 11094 ax-addrcl 11095 ax-mulcl 11096 ax-mulrcl 11097 ax-mulcom 11098 ax-addass 11099 ax-mulass 11100 ax-distr 11101 ax-i2m1 11102 ax-1ne0 11103 ax-1rid 11104 ax-rnegex 11105 ax-rrecex 11106 ax-cnre 11107 ax-pre-lttri 11108 ax-pre-lttrn 11109 ax-pre-ltadd 11110 ax-pre-mulgt0 11111 ax-pre-sup 11112 ax-addf 11113

This theorem depends on definitions: df-bi 209 df-an 398 df-or 855 df-3or 1094 df-3an 1095 df-tru 1551 df-fal 1561 df-ex 1788 df-nf 1792 df-sb 2075 df-mo 2545 df-eu 2575 df-clab 2720 df-cleq 2733 df-clel 2816 df-nfc 2890 df-ne 2937 df-nel 3041 df-ral 3056 df-rex 3066 df-rmo 3346 df-reu 3347 df-rab 3394 df-v 3435 df-sbc 3725 df-csb 3833 df-dif 3887 df-un 3889 df-in 3891 df-ss 3901 df-pss 3904 df-nul 4264 df-if 4457 df-pw 4533 df-sn 4558 df-pr 4560 df-tp 4562 df-op 4564 df-uni 4841 df-int 4880 df-iun 4925 df-iin 4926 df-disj 5042 df-br 5075 df-opab 5137 df-mpt 5156 df-tr 5182 df-id 5515 df-eprel 5520 df-po 5528 df-so 5529 df-fr 5573 df-se 5574 df-we 5575 df-xp 5626 df-rel 5627 df-cnv 5628 df-co 5629 df-dm 5630 df-rn 5631 df-res 5632 df-ima 5633 df-pred 6255 df-ord 6316 df-on 6317 df-lim 6318 df-suc 6319 df-iota 6444 df-fun 6490 df-fn 6491 df-f 6492 df-f1 6493 df-fo 6494 df-f1o 6495 df-fv 6496 df-isom 6497 df-riota 7316 df-ov 7362 df-oprab 7363 df-mpo 7364 df-of 7623 df-om 7810 df-1st 7933 df-2nd 7934 df-supp 8103 df-frecs 8224 df-wrecs 8255 df-recs 8304 df-rdg 8343 df-1o 8399 df-2o 8400 df-oadd 8403 df-er 8637 df-map 8769 df-pm 8770 df-ixp 8840 df-en 8888 df-dom 8889 df-sdom 8890 df-fin 8891 df-fsupp 9269 df-fi 9318 df-sup 9349 df-inf 9350 df-oi 9419 df-dju 9820 df-card 9858 df-pnf 11177 df-mnf 11178 df-xr 11179 df-ltxr 11180 df-le 11181 df-sub 11375 df-neg 11376 df-div 11804 df-nn 12170 df-2 12239 df-3 12240 df-4 12241 df-5 12242 df-6 12243 df-7 12244 df-8 12245 df-9 12246 df-n0 12433 df-xnn0 12506 df-z 12520 df-dec 12640 df-uz 12784 df-q 12894 df-rp 12938 df-xneg 13058 df-xadd 13059 df-xmul 13060 df-ioo 13297 df-ioc 13298 df-ico 13299 df-icc 13300 df-fz 13457 df-fzo 13604 df-fl 13746 df-mod 13824 df-seq 13959 df-exp 14019 df-fac 14231 df-bc 14260 df-hash 14288 df-shft 15024 df-cj 15056 df-re 15057 df-im 15058 df-sqrt 15192 df-abs 15193 df-limsup 15428 df-clim 15445 df-rlim 15446 df-o1 15447 df-lo1 15448 df-sum 15644 df-ef 16027 df-e 16028 df-sin 16029 df-cos 16030 df-tan 16031 df-pi 16032 df-dvds 16217 df-gcd 16459 df-prm 16636 df-pc 16803 df-struct 17112 df-sets 17129 df-slot 17147 df-ndx 17159 df-base 17175 df-ress 17196 df-plusg 17228 df-mulr 17229 df-starv 17230 df-sca 17231 df-vsca 17232 df-ip 17233 df-tset 17234 df-ple 17235 df-ds 17237 df-unif 17238 df-hom 17239 df-cco 17240 df-rest 17380 df-topn 17381 df-0g 17399 df-gsum 17400 df-topgen 17401 df-pt 17402 df-prds 17405 df-xrs 17461 df-qtop 17466 df-imas 17467 df-xps 17469 df-mre 17543 df-mrc 17544 df-acs 17546 df-mgm 18603 df-sgrp 18682 df-mnd 18698 df-submnd 18747 df-mulg 19039 df-cntz 19286 df-cmn 19751 df-psmet 21342 df-xmet 21343 df-met 21344 df-bl 21345 df-mopn 21346 df-fbas 21347 df-fg 21348 df-cnfld 21351 df-top 22880 df-topon 22897 df-topsp 22919 df-bases 22932 df-cld 23005 df-ntr 23006 df-cls 23007 df-nei 23084 df-lp 23122 df-perf 23123 df-cn 23213 df-cnp 23214 df-haus 23301 df-cmp 23373 df-tx 23548 df-hmeo 23741 df-fil 23832 df-fm 23924 df-flim 23925 df-flf 23926 df-xms 24306 df-ms 24307 df-tms 24308 df-cncf 24866 df-limc 25854 df-dv 25855 df-ulm 26363 df-log 26541 df-cxp 26542 df-atan 26852 df-em 26977 df-cht 27081 df-vma 27082 df-chp 27083 df-ppi 27084 df-mu 27085

This theorem is referenced by: pnt3 27596

W3C validator