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 27578

Description: Lemma for pnt 27581. 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 2736	. 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 27561	. . 3 ⊢ (𝜑 → (𝐿 ∈ ℝ⁺ ∧ 𝐷 ∈ ℝ⁺ ∧ 𝐹 ∈ ℝ⁺))
10	9	simp3d 1144	. 2 ⊢ (𝜑 → 𝐹 ∈ ℝ⁺)
11		0m0e0 12260	. . . . 5 ⊢ (0 − 0) = 0
12		simpr 484	. . . . . 6 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → 𝑟 = 0)
13	12	oveq1d 7373	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟↑3) = (0↑3))
14		3nn 12224	. . . . . . . . . 10 ⊢ 3 ∈ ℕ
15		0exp 14020	. . . . . . . . . 10 ⊢ (3 ∈ ℕ → (0↑3) = 0)
16	14, 15	ax-mp 5	. . . . . . . . 9 ⊢ (0↑3) = 0
17	13, 16	eqtrdi 2787	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟↑3) = 0)
18	17	oveq2d 7374	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝐹 · (𝑟↑3)) = (𝐹 · 0))
19	10	rpcnd 12951	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ ℂ)
20	19	mul01d 11332	. . . . . . . 8 ⊢ (𝜑 → (𝐹 · 0) = 0)
21	20	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝐹 · 0) = 0)
22	18, 21	eqtrd 2771	. . . . . 6 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝐹 · (𝑟↑3)) = 0)
23	12, 22	oveq12d 7376	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟 − (𝐹 · (𝑟↑3))) = (0 − 0))
24	11, 23, 12	3eqtr4a 2797	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟 − (𝐹 · (𝑟↑3))) = 𝑟)
25		simplr 768	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
26	24, 25	eqeltrd 2836	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 = 0) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
27		oveq1 7365	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑠 → (𝑦[,)+∞) = (𝑠[,)+∞))
28	27	raleqdv 3296	. . . . . . . . . 10 ⊢ (𝑦 = 𝑠 → (∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 ↔ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
29	28	cbvrexvw 3215	. . . . . . . . 9 ⊢ (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 ↔ ∃𝑠 ∈ ℝ⁺ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)
30		simplrr 777	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ∈ (0[,]𝐴))
31		0re 11134	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℝ
32	2	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐴 ∈ ℝ⁺)
33	32	rpred 12949	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐴 ∈ ℝ)
34		elicc2 13327	. . . . . . . . . . . . . . . 16 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝑟 ∈ (0[,]𝐴) ↔ (𝑟 ∈ ℝ ∧ 0 ≤ 𝑟 ∧ 𝑟 ≤ 𝐴)))
35	31, 33, 34	sylancr 587	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 ∈ (0[,]𝐴) ↔ (𝑟 ∈ ℝ ∧ 0 ≤ 𝑟 ∧ 𝑟 ≤ 𝐴)))
36	30, 35	mpbid 232	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 ∈ ℝ ∧ 0 ≤ 𝑟 ∧ 𝑟 ≤ 𝐴))
37	36	simp1d 1142	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ∈ ℝ)
38	10	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐹 ∈ ℝ⁺)
39	36	simp2d 1143	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ 𝑟)
40		simplrl 776	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ≠ 0)
41	37, 39, 40	ne0gt0d 11270	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 < 𝑟)
42	37, 41	elrpd 12946	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ∈ ℝ⁺)
43		3z 12524	. . . . . . . . . . . . . . . 16 ⊢ 3 ∈ ℤ
44		rpexpcl 14003	. . . . . . . . . . . . . . . 16 ⊢ ((𝑟 ∈ ℝ⁺ ∧ 3 ∈ ℤ) → (𝑟↑3) ∈ ℝ⁺)
45	42, 43, 44	sylancl 586	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟↑3) ∈ ℝ⁺)
46	38, 45	rpmulcld 12965	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝐹 · (𝑟↑3)) ∈ ℝ⁺)
47	46	rpred 12949	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝐹 · (𝑟↑3)) ∈ ℝ)
48	37, 47	resubcld 11565	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ)
49	3	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
50	5	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐵 ∈ ℝ⁺)
51	6	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝐿 ∈ (0(,)1))
52		pntlemp.K	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ∀𝑒 ∈ (0(,)1)∃𝑥 ∈ ℝ⁺ ∀𝑘 ∈ ((exp‘(𝐵 / 𝑒))[,)+∞)∀𝑦 ∈ (𝑥(,)+∞)∃𝑧 ∈ ℝ⁺ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 · 𝑒)) · 𝑧) < (𝑘 · 𝑦)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝑒)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝑒))
53	52	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑒 ∈ (0(,)1)∃𝑥 ∈ ℝ⁺ ∀𝑘 ∈ ((exp‘(𝐵 / 𝑒))[,)+∞)∀𝑦 ∈ (𝑥(,)+∞)∃𝑧 ∈ ℝ⁺ ((𝑦 < 𝑧 ∧ ((1 + (𝐿 · 𝑒)) · 𝑧) < (𝑘 · 𝑦)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝑒)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝑒))
54	36	simp3d 1144	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑟 ≤ 𝐴)
55		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (𝑟 / 𝐷) = (𝑟 / 𝐷)
56		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (exp‘(𝐵 / (𝑟 / 𝐷))) = (exp‘(𝐵 / (𝑟 / 𝐷)))
57		simprl 770	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ∈ ℝ⁺)
58		1rp 12909	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℝ⁺
59		rpaddcl 12929	. . . . . . . . . . . . . . . 16 ⊢ ((𝑠 ∈ ℝ⁺ ∧ 1 ∈ ℝ⁺) → (𝑠 + 1) ∈ ℝ⁺)
60	57, 58, 59	sylancl 586	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑠 + 1) ∈ ℝ⁺)
61	57	rpge0d 12953	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ 𝑠)
62		1re 11132	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ
63	57	rpred 12949	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ∈ ℝ)
64		addge02 11648	. . . . . . . . . . . . . . . . 17 ⊢ ((1 ∈ ℝ ∧ 𝑠 ∈ ℝ) → (0 ≤ 𝑠 ↔ 1 ≤ (𝑠 + 1)))
65	62, 63, 64	sylancr 587	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (0 ≤ 𝑠 ↔ 1 ≤ (𝑠 + 1)))
66	61, 65	mpbid 232	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 1 ≤ (𝑠 + 1))
67	60, 66	jca 511	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑠 + 1) ∈ ℝ⁺ ∧ 1 ≤ (𝑠 + 1)))
68	57	rpxrd 12950	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ∈ ℝ^*)
69	63	lep1d 12073	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 𝑠 ≤ (𝑠 + 1))
70		df-ico 13267	. . . . . . . . . . . . . . . . 17 ⊢ [,) = (𝑡 ∈ ℝ^, 𝑟 ∈ ℝ^ ↦ {𝑤 ∈ ℝ^* ∣ (𝑡 ≤ 𝑤 ∧ 𝑤 < 𝑟)})
71		xrletr 13072	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑠 ∈ ℝ^* ∧ (𝑠 + 1) ∈ ℝ^* ∧ 𝑣 ∈ ℝ^*) → ((𝑠 ≤ (𝑠 + 1) ∧ (𝑠 + 1) ≤ 𝑣) → 𝑠 ≤ 𝑣))
72	70, 70, 71	ixxss1 13279	. . . . . . . . . . . . . . . 16 ⊢ ((𝑠 ∈ ℝ^* ∧ 𝑠 ≤ (𝑠 + 1)) → ((𝑠 + 1)[,)+∞) ⊆ (𝑠[,)+∞))
73	68, 69, 72	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑠 + 1)[,)+∞) ⊆ (𝑠[,)+∞))
74		simprr 772	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)
75		ssralv 4002	. . . . . . . . . . . . . . 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 27577	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))
78		rpre 12914	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ⁺ → 𝑤 ∈ ℝ)
79	78	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ ℝ)
80	79	leidd 11703	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ≤ 𝑤)
81		elicopnf 13361	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑤 ∈ ℝ → (𝑤 ∈ (𝑤[,)+∞) ↔ (𝑤 ∈ ℝ ∧ 𝑤 ≤ 𝑤)))
82	79, 81	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (𝑤 ∈ (𝑤[,)+∞) ↔ (𝑤 ∈ ℝ ∧ 𝑤 ≤ 𝑤)))
83	79, 80, 82	mpbir2and 713	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 𝑤 ∈ (𝑤[,)+∞))
84		fveq2 6834	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑣 = 𝑤 → (𝑅‘𝑣) = (𝑅‘𝑤))
85		id 22	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑣 = 𝑤 → 𝑣 = 𝑤)
86	84, 85	oveq12d 7376	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑣 = 𝑤 → ((𝑅‘𝑣) / 𝑣) = ((𝑅‘𝑤) / 𝑤))
87	86	fveq2d 6838	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑣 = 𝑤 → (abs‘((𝑅‘𝑣) / 𝑣)) = (abs‘((𝑅‘𝑤) / 𝑤)))
88	87	breq1d 5108	. . . . . . . . . . . . . . . . 17 ⊢ (𝑣 = 𝑤 → ((abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
89	88	rspcv 3572	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 ∈ (𝑤[,)+∞) → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
90	83, 89	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
91	1	pntrf 27530	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑅:ℝ⁺⟶ℝ
92	91	ffvelcdmi 7028	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑤 ∈ ℝ⁺ → (𝑅‘𝑤) ∈ ℝ)
93		rerpdivcl 12937	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑅‘𝑤) ∈ ℝ ∧ 𝑤 ∈ ℝ⁺) → ((𝑅‘𝑤) / 𝑤) ∈ ℝ)
94	92, 93	mpancom 688	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑤 ∈ ℝ⁺ → ((𝑅‘𝑤) / 𝑤) ∈ ℝ)
95	94	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((𝑅‘𝑤) / 𝑤) ∈ ℝ)
96	95	recnd 11160	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((𝑅‘𝑤) / 𝑤) ∈ ℂ)
97	96	absge0d 15370	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → 0 ≤ (abs‘((𝑅‘𝑤) / 𝑤)))
98	96	abscld 15362	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (abs‘((𝑅‘𝑤) / 𝑤)) ∈ ℝ)
99	48	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ)
100		letr 11227	. . . . . . . . . . . . . . . . 17 ⊢ ((0 ∈ ℝ ∧ (abs‘((𝑅‘𝑤) / 𝑤)) ∈ ℝ ∧ (𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ) → ((0 ≤ (abs‘((𝑅‘𝑤) / 𝑤)) ∧ (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
101	31, 98, 99, 100	mp3an2i 1468	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((0 ≤ (abs‘((𝑅‘𝑤) / 𝑤)) ∧ (abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
102	97, 101	mpand 695	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → ((abs‘((𝑅‘𝑤) / 𝑤)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
103	90, 102	syld 47	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) ∧ 𝑤 ∈ ℝ⁺) → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
104	103	rexlimdva 3137	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
105	77, 104	mpd 15	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ (𝑟 − (𝐹 · (𝑟↑3))))
106	46	rpge0d 12953	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → 0 ≤ (𝐹 · (𝑟↑3)))
107	37, 47	subge02d 11729	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (0 ≤ (𝐹 · (𝑟↑3)) ↔ (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝑟))
108	106, 107	mpbid 232	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝑟)
109	48, 37, 33, 108, 54	letrd 11290	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝐴)
110		elicc2 13327	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ↔ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ ∧ 0 ≤ (𝑟 − (𝐹 · (𝑟↑3))) ∧ (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝐴)))
111	31, 33, 110	sylancr 587	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ↔ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ ℝ ∧ 0 ≤ (𝑟 − (𝐹 · (𝑟↑3))) ∧ (𝑟 − (𝐹 · (𝑟↑3))) ≤ 𝐴)))
112	48, 105, 109, 111	mpbir3and 1343	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴))
113	112, 77	jca 511	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) ∧ (𝑠 ∈ ℝ⁺ ∧ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟)) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
114	113	rexlimdvaa 3138	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) → (∃𝑠 ∈ ℝ⁺ ∀𝑧 ∈ (𝑠[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
115	29, 114	biimtrid 242	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑟 ≠ 0 ∧ 𝑟 ∈ (0[,]𝐴))) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
116	115	anassrs 467	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑟 ≠ 0) ∧ 𝑟 ∈ (0[,]𝐴)) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟 → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
117	116	expimpd 453	. . . . . 6 ⊢ ((𝜑 ∧ 𝑟 ≠ 0) → ((𝑟 ∈ (0[,]𝐴) ∧ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟) → ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))))
118		breq2 5102	. . . . . . . 8 ⊢ (𝑡 = 𝑟 → ((abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ (abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
119	118	rexralbidv 3202	. . . . . . 7 ⊢ (𝑡 = 𝑟 → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
120	119	elrab 3646	. . . . . 6 ⊢ (𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} ↔ (𝑟 ∈ (0[,]𝐴) ∧ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑟))
121		breq2 5102	. . . . . . . . 9 ⊢ (𝑡 = (𝑟 − (𝐹 · (𝑟↑3))) → ((abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ (abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
122	121	rexralbidv 3202	. . . . . . . 8 ⊢ (𝑡 = (𝑟 − (𝐹 · (𝑟↑3))) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
123		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑣 = 𝑧 → (𝑅‘𝑣) = (𝑅‘𝑧))
124		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑣 = 𝑧 → 𝑣 = 𝑧)
125	123, 124	oveq12d 7376	. . . . . . . . . . . . 13 ⊢ (𝑣 = 𝑧 → ((𝑅‘𝑣) / 𝑣) = ((𝑅‘𝑧) / 𝑧))
126	125	fveq2d 6838	. . . . . . . . . . . 12 ⊢ (𝑣 = 𝑧 → (abs‘((𝑅‘𝑣) / 𝑣)) = (abs‘((𝑅‘𝑧) / 𝑧)))
127	126	breq1d 5108	. . . . . . . . . . 11 ⊢ (𝑣 = 𝑧 → ((abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ (abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
128	127	cbvralvw 3214	. . . . . . . . . 10 ⊢ (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∀𝑧 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))
129		oveq1 7365	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑦 → (𝑤[,)+∞) = (𝑦[,)+∞))
130	129	raleqdv 3296	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (∀𝑧 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
131	128, 130	bitrid 283	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
132	131	cbvrexvw 3215	. . . . . . . 8 ⊢ (∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3))) ↔ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ (𝑟 − (𝐹 · (𝑟↑3))))
133	122, 132	bitr4di 289	. . . . . . 7 ⊢ (𝑡 = (𝑟 − (𝐹 · (𝑟↑3))) → (∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡 ↔ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
134	133	elrab 3646	. . . . . 6 ⊢ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} ↔ ((𝑟 − (𝐹 · (𝑟↑3))) ∈ (0[,]𝐴) ∧ ∃𝑤 ∈ ℝ⁺ ∀𝑣 ∈ (𝑤[,)+∞)(abs‘((𝑅‘𝑣) / 𝑣)) ≤ (𝑟 − (𝐹 · (𝑟↑3)))))
135	117, 120, 134	3imtr4g 296	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ≠ 0) → (𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡} → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}))
136	135	imp 406	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ≠ 0) ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
137	136	an32s 652	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) ∧ 𝑟 ≠ 0) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
138	26, 137	pm2.61dane 3019	. 2 ⊢ ((𝜑 ∧ 𝑟 ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡}) → (𝑟 − (𝐹 · (𝑟↑3))) ∈ {𝑡 ∈ (0[,]𝐴) ∣ ∃𝑦 ∈ ℝ⁺ ∀𝑧 ∈ (𝑦[,)+∞)(abs‘((𝑅‘𝑧) / 𝑧)) ≤ 𝑡})
139	1, 2, 3, 4, 10, 138	pntlem3 27576	1 ⊢ (𝜑 → (𝑥 ∈ ℝ⁺ ↦ ((ψ‘𝑥) / 𝑥)) ⇝_𝑟 1)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ≠ wne 2932 ∀wral 3051 ∃wrex 3060 {crab 3399 ⊆ wss 3901 class class class wbr 5098 ↦ cmpt 5179 ‘cfv 6492 (class class class)co 7358 ℝcr 11025 0cc0 11026 1c1 11027 + caddc 11029 · cmul 11031 +∞cpnf 11163 ℝ^*cxr 11165 < clt 11166 ≤ cle 11167 − cmin 11364 / cdiv 11794 ℕcn 12145 2c2 12200 3c3 12201 ℤcz 12488 cdc 12607 ℝ⁺crp 12905 (,)cioo 13261 [,)cico 13263 [,]cicc 13264 ↑cexp 13984 abscabs 15157 ⇝_𝑟 crli 15408 expce 15984 ψcchp 27059

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2184 ax-ext 2708 ax-rep 5224 ax-sep 5241 ax-nul 5251 ax-pow 5310 ax-pr 5377 ax-un 7680 ax-inf2 9550 ax-cnex 11082 ax-resscn 11083 ax-1cn 11084 ax-icn 11085 ax-addcl 11086 ax-addrcl 11087 ax-mulcl 11088 ax-mulrcl 11089 ax-mulcom 11090 ax-addass 11091 ax-mulass 11092 ax-distr 11093 ax-i2m1 11094 ax-1ne0 11095 ax-1rid 11096 ax-rnegex 11097 ax-rrecex 11098 ax-cnre 11099 ax-pre-lttri 11100 ax-pre-lttrn 11101 ax-pre-ltadd 11102 ax-pre-mulgt0 11103 ax-pre-sup 11104 ax-addf 11105

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3350 df-reu 3351 df-rab 3400 df-v 3442 df-sbc 3741 df-csb 3850 df-dif 3904 df-un 3906 df-in 3908 df-ss 3918 df-pss 3921 df-nul 4286 df-if 4480 df-pw 4556 df-sn 4581 df-pr 4583 df-tp 4585 df-op 4587 df-uni 4864 df-int 4903 df-iun 4948 df-iin 4949 df-disj 5066 df-br 5099 df-opab 5161 df-mpt 5180 df-tr 5206 df-id 5519 df-eprel 5524 df-po 5532 df-so 5533 df-fr 5577 df-se 5578 df-we 5579 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-rn 5635 df-res 5636 df-ima 5637 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-isom 6501 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-of 7622 df-om 7809 df-1st 7933 df-2nd 7934 df-supp 8103 df-frecs 8223 df-wrecs 8254 df-recs 8303 df-rdg 8341 df-1o 8397 df-2o 8398 df-oadd 8401 df-er 8635 df-map 8765 df-pm 8766 df-ixp 8836 df-en 8884 df-dom 8885 df-sdom 8886 df-fin 8887 df-fsupp 9265 df-fi 9314 df-sup 9345 df-inf 9346 df-oi 9415 df-dju 9813 df-card 9851 df-pnf 11168 df-mnf 11169 df-xr 11170 df-ltxr 11171 df-le 11172 df-sub 11366 df-neg 11367 df-div 11795 df-nn 12146 df-2 12208 df-3 12209 df-4 12210 df-5 12211 df-6 12212 df-7 12213 df-8 12214 df-9 12215 df-n0 12402 df-xnn0 12475 df-z 12489 df-dec 12608 df-uz 12752 df-q 12862 df-rp 12906 df-xneg 13026 df-xadd 13027 df-xmul 13028 df-ioo 13265 df-ioc 13266 df-ico 13267 df-icc 13268 df-fz 13424 df-fzo 13571 df-fl 13712 df-mod 13790 df-seq 13925 df-exp 13985 df-fac 14197 df-bc 14226 df-hash 14254 df-shft 14990 df-cj 15022 df-re 15023 df-im 15024 df-sqrt 15158 df-abs 15159 df-limsup 15394 df-clim 15411 df-rlim 15412 df-o1 15413 df-lo1 15414 df-sum 15610 df-ef 15990 df-e 15991 df-sin 15992 df-cos 15993 df-tan 15994 df-pi 15995 df-dvds 16180 df-gcd 16422 df-prm 16599 df-pc 16765 df-struct 17074 df-sets 17091 df-slot 17109 df-ndx 17121 df-base 17137 df-ress 17158 df-plusg 17190 df-mulr 17191 df-starv 17192 df-sca 17193 df-vsca 17194 df-ip 17195 df-tset 17196 df-ple 17197 df-ds 17199 df-unif 17200 df-hom 17201 df-cco 17202 df-rest 17342 df-topn 17343 df-0g 17361 df-gsum 17362 df-topgen 17363 df-pt 17364 df-prds 17367 df-xrs 17423 df-qtop 17428 df-imas 17429 df-xps 17431 df-mre 17505 df-mrc 17506 df-acs 17508 df-mgm 18565 df-sgrp 18644 df-mnd 18660 df-submnd 18709 df-mulg 18998 df-cntz 19246 df-cmn 19711 df-psmet 21301 df-xmet 21302 df-met 21303 df-bl 21304 df-mopn 21305 df-fbas 21306 df-fg 21307 df-cnfld 21310 df-top 22838 df-topon 22855 df-topsp 22877 df-bases 22890 df-cld 22963 df-ntr 22964 df-cls 22965 df-nei 23042 df-lp 23080 df-perf 23081 df-cn 23171 df-cnp 23172 df-haus 23259 df-cmp 23331 df-tx 23506 df-hmeo 23699 df-fil 23790 df-fm 23882 df-flim 23883 df-flf 23884 df-xms 24264 df-ms 24265 df-tms 24266 df-cncf 24827 df-limc 25823 df-dv 25824 df-ulm 26342 df-log 26521 df-cxp 26522 df-atan 26833 df-em 26959 df-cht 27063 df-vma 27064 df-chp 27065 df-ppi 27066 df-mu 27067

This theorem is referenced by: pnt3 27579

W3C validator