pntibndlem2 - Metamath Proof Explorer

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

Theorem pntibndlem2 26748

Description: Lemma for pntibnd 26750. The main work, after eliminating all the quantifiers. (Contributed by Mario Carneiro, 10-Apr-2016.)

**Hypotheses**
Ref	Expression
pntibnd.r	⊢ 𝑅 = (𝑎 ∈ ℝ⁺ ↦ ((ψ‘𝑎) − 𝑎))
pntibndlem1.1	⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
pntibndlem1.l	⊢ 𝐿 = ((1 / 4) / (𝐴 + 3))
pntibndlem3.2	⊢ (𝜑 → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
pntibndlem3.3	⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
pntibndlem3.k	⊢ 𝐾 = (exp‘(𝐵 / (𝐸 / 2)))
pntibndlem3.c	⊢ 𝐶 = ((2 · 𝐵) + (log‘2))
pntibndlem3.4	⊢ (𝜑 → 𝐸 ∈ (0(,)1))
pntibndlem3.6	⊢ (𝜑 → 𝑍 ∈ ℝ⁺)
pntibndlem2.10	⊢ (𝜑 → 𝑁 ∈ ℕ)
pntibndlem2.5	⊢ (𝜑 → 𝑇 ∈ ℝ⁺)
pntibndlem2.6	⊢ (𝜑 → ∀𝑥 ∈ (1(,)+∞)∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))))
pntibndlem2.7	⊢ 𝑋 = ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍)
pntibndlem2.8	⊢ (𝜑 → 𝑀 ∈ ((exp‘(𝐶 / 𝐸))[,)+∞))
pntibndlem2.9	⊢ (𝜑 → 𝑌 ∈ (𝑋(,)+∞))
pntibndlem2.11	⊢ (𝜑 → ((𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)) ∧ (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2)))

**Assertion**
Ref	Expression
pntibndlem2	⊢ (𝜑 → ∃𝑧 ∈ ℝ⁺ ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))

Distinct variable groups: 𝑢,𝑎,𝑥,𝑦,𝑧,𝐸 𝑢,𝐿,𝑥,𝑧 𝑁,𝑎,𝑢,𝑥,𝑦,𝑧 𝑢,𝐴,𝑥 𝑢,𝐶,𝑥,𝑦 𝑢,𝑅,𝑥,𝑦,𝑧 𝑧,𝑀 𝑥,𝑇,𝑦 𝑧,𝑌 𝑢,𝑍,𝑥,𝑦 𝜑,𝑢 Allowed substitution hints: 𝜑(𝑥,𝑦,𝑧,𝑎) 𝐴(𝑦,𝑧,𝑎) 𝐵(𝑥,𝑦,𝑧,𝑢,𝑎) 𝐶(𝑧,𝑎) 𝑅(𝑎) 𝑇(𝑧,𝑢,𝑎) 𝐾(𝑥,𝑦,𝑧,𝑢,𝑎) 𝐿(𝑦,𝑎) 𝑀(𝑥,𝑦,𝑢,𝑎) 𝑋(𝑥,𝑦,𝑧,𝑢,𝑎) 𝑌(𝑥,𝑦,𝑢,𝑎) 𝑍(𝑧,𝑎)

**Proof of Theorem pntibndlem2**
Step	Hyp	Ref	Expression
1		pntibndlem2.10	. . 3 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2	1	nnrpd 12779	. 2 ⊢ (𝜑 → 𝑁 ∈ ℝ⁺)
3		pntibndlem2.11	. . . . 5 ⊢ (𝜑 → ((𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)) ∧ (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2)))
4	3	simpld 495	. . . 4 ⊢ (𝜑 → (𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)))
5	4	simpld 495	. . 3 ⊢ (𝜑 → 𝑌 < 𝑁)
6		1red 10985	. . . . . 6 ⊢ (𝜑 → 1 ∈ ℝ)
7		ioossre 13149	. . . . . . . 8 ⊢ (0(,)1) ⊆ ℝ
8		pntibnd.r	. . . . . . . . 9 ⊢ 𝑅 = (𝑎 ∈ ℝ⁺ ↦ ((ψ‘𝑎) − 𝑎))
9		pntibndlem1.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
10		pntibndlem1.l	. . . . . . . . 9 ⊢ 𝐿 = ((1 / 4) / (𝐴 + 3))
11	8, 9, 10	pntibndlem1 26746	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ (0(,)1))
12	7, 11	sselid 3920	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ ℝ)
13		pntibndlem3.4	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ (0(,)1))
14	7, 13	sselid 3920	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℝ)
15	12, 14	remulcld 11014	. . . . . 6 ⊢ (𝜑 → (𝐿 · 𝐸) ∈ ℝ)
16	6, 15	readdcld 11013	. . . . 5 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) ∈ ℝ)
17	1	nnred 11997	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ℝ)
18	16, 17	remulcld 11014	. . . 4 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) ∈ ℝ)
19		2re 12056	. . . . 5 ⊢ 2 ∈ ℝ
20		remulcl 10965	. . . . 5 ⊢ ((2 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (2 · 𝑁) ∈ ℝ)
21	19, 17, 20	sylancr 587	. . . 4 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
22		pntibndlem3.c	. . . . . . . . . 10 ⊢ 𝐶 = ((2 · 𝐵) + (log‘2))
23		pntibndlem3.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
24	23	rpred 12781	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25		remulcl 10965	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2 · 𝐵) ∈ ℝ)
26	19, 24, 25	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝐵) ∈ ℝ)
27		2rp 12744	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ⁺
28	27	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ ℝ⁺)
29	28	relogcld 25787	. . . . . . . . . . 11 ⊢ (𝜑 → (log‘2) ∈ ℝ)
30	26, 29	readdcld 11013	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝐵) + (log‘2)) ∈ ℝ)
31	22, 30	eqeltrid 2844	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ ℝ)
32		eliooord 13147	. . . . . . . . . . . 12 ⊢ (𝐸 ∈ (0(,)1) → (0 < 𝐸 ∧ 𝐸 < 1))
33	13, 32	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (0 < 𝐸 ∧ 𝐸 < 1))
34	33	simpld 495	. . . . . . . . . 10 ⊢ (𝜑 → 0 < 𝐸)
35	14, 34	elrpd 12778	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ ℝ⁺)
36	31, 35	rerpdivcld 12812	. . . . . . . 8 ⊢ (𝜑 → (𝐶 / 𝐸) ∈ ℝ)
37	36	reefcld 15806	. . . . . . 7 ⊢ (𝜑 → (exp‘(𝐶 / 𝐸)) ∈ ℝ)
38		pnfxr 11038	. . . . . . 7 ⊢ +∞ ∈ ℝ^*
39		icossre 13169	. . . . . . 7 ⊢ (((exp‘(𝐶 / 𝐸)) ∈ ℝ ∧ +∞ ∈ ℝ^*) → ((exp‘(𝐶 / 𝐸))[,)+∞) ⊆ ℝ)
40	37, 38, 39	sylancl 586	. . . . . 6 ⊢ (𝜑 → ((exp‘(𝐶 / 𝐸))[,)+∞) ⊆ ℝ)
41		pntibndlem2.8	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ((exp‘(𝐶 / 𝐸))[,)+∞))
42	40, 41	sseldd 3923	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℝ)
43		ioossre 13149	. . . . . 6 ⊢ (𝑋(,)+∞) ⊆ ℝ
44		pntibndlem2.9	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,)+∞))
45	43, 44	sselid 3920	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ ℝ)
46	42, 45	remulcld 11014	. . . 4 ⊢ (𝜑 → (𝑀 · 𝑌) ∈ ℝ)
47	19	a1i 11	. . . . 5 ⊢ (𝜑 → 2 ∈ ℝ)
48		eliooord 13147	. . . . . . . . . . . . 13 ⊢ (𝐿 ∈ (0(,)1) → (0 < 𝐿 ∧ 𝐿 < 1))
49	11, 48	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (0 < 𝐿 ∧ 𝐿 < 1))
50	49	simpld 495	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < 𝐿)
51	12, 50	elrpd 12778	. . . . . . . . . 10 ⊢ (𝜑 → 𝐿 ∈ ℝ⁺)
52	51	rpge0d 12785	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐿)
53	49	simprd 496	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 < 1)
54	35	rpge0d 12785	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐸)
55	33	simprd 496	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 < 1)
56	12, 6, 14, 6, 52, 53, 54, 55	ltmul12ad 11925	. . . . . . . 8 ⊢ (𝜑 → (𝐿 · 𝐸) < (1 · 1))
57		1t1e1 12144	. . . . . . . 8 ⊢ (1 · 1) = 1
58	56, 57	breqtrdi 5116	. . . . . . 7 ⊢ (𝜑 → (𝐿 · 𝐸) < 1)
59	15, 6, 6, 58	ltadd2dd 11143	. . . . . 6 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) < (1 + 1))
60		df-2 12045	. . . . . 6 ⊢ 2 = (1 + 1)
61	59, 60	breqtrrdi 5117	. . . . 5 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) < 2)
62	16, 47, 2, 61	ltmul1dd 12836	. . . 4 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) < (2 · 𝑁))
63	4	simprd 496	. . . . . 6 ⊢ (𝜑 → 𝑁 ≤ ((𝑀 / 2) · 𝑌))
64	42	recnd 11012	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℂ)
65	45	recnd 11012	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ ℂ)
66		rpcnne0 12757	. . . . . . . 8 ⊢ (2 ∈ ℝ⁺ → (2 ∈ ℂ ∧ 2 ≠ 0))
67	27, 66	mp1i 13	. . . . . . 7 ⊢ (𝜑 → (2 ∈ ℂ ∧ 2 ≠ 0))
68		div23 11661	. . . . . . 7 ⊢ ((𝑀 ∈ ℂ ∧ 𝑌 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → ((𝑀 · 𝑌) / 2) = ((𝑀 / 2) · 𝑌))
69	64, 65, 67, 68	syl3anc 1370	. . . . . 6 ⊢ (𝜑 → ((𝑀 · 𝑌) / 2) = ((𝑀 / 2) · 𝑌))
70	63, 69	breqtrrd 5103	. . . . 5 ⊢ (𝜑 → 𝑁 ≤ ((𝑀 · 𝑌) / 2))
71	17, 46, 28	lemuldiv2d 12831	. . . . 5 ⊢ (𝜑 → ((2 · 𝑁) ≤ (𝑀 · 𝑌) ↔ 𝑁 ≤ ((𝑀 · 𝑌) / 2)))
72	70, 71	mpbird 256	. . . 4 ⊢ (𝜑 → (2 · 𝑁) ≤ (𝑀 · 𝑌))
73	18, 21, 46, 62, 72	ltletrd 11144	. . 3 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌))
74		pntibndlem3.2	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
75		pntibndlem3.k	. . . . . . . . . . . 12 ⊢ 𝐾 = (exp‘(𝐵 / (𝐸 / 2)))
76	8, 9, 10, 74, 23, 75, 22, 13, 9, 1	pntibndlem2a 26747	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁)))
77	76	simp1d 1141	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℝ)
78	2	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℝ⁺)
79	76	simp2d 1142	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ≤ 𝑢)
80	77, 78, 79	rpgecld 12820	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℝ⁺)
81	8	pntrf 26720	. . . . . . . . . 10 ⊢ 𝑅:ℝ⁺⟶ℝ
82	81	ffvelrni 6969	. . . . . . . . 9 ⊢ (𝑢 ∈ ℝ⁺ → (𝑅‘𝑢) ∈ ℝ)
83	80, 82	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) ∈ ℝ)
84	83, 80	rerpdivcld 12812	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑢) ∈ ℝ)
85	84	recnd 11012	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑢) ∈ ℂ)
86	85	abscld 15157	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
87	81	ffvelrni 6969	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℝ⁺ → (𝑅‘𝑁) ∈ ℝ)
88	2, 87	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅‘𝑁) ∈ ℝ)
89	88, 1	nndivred 12036	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅‘𝑁) / 𝑁) ∈ ℝ)
90	89	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑁) / 𝑁) ∈ ℝ)
91	90	recnd 11012	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑁) / 𝑁) ∈ ℂ)
92	85, 91	subcld 11341	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)) ∈ ℂ)
93	92	abscld 15157	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ∈ ℝ)
94	91	abscld 15157	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑁) / 𝑁)) ∈ ℝ)
95	93, 94	readdcld 11013	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ∈ ℝ)
96	14	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℝ)
97	85, 91	abs2difd 15178	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) − (abs‘((𝑅‘𝑁) / 𝑁))) ≤ (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))))
98	86, 94, 93	lesubaddd 11581	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) − (abs‘((𝑅‘𝑁) / 𝑁))) ≤ (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ↔ (abs‘((𝑅‘𝑢) / 𝑢)) ≤ ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁)))))
99	97, 98	mpbid 231	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))))
100	96	rehalfcld 12229	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 2) ∈ ℝ)
101	17	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℝ)
102	77, 101	resubcld 11412	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 − 𝑁) ∈ ℝ)
103	102, 78	rerpdivcld 12812	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ∈ ℝ)
104		3re 12062	. . . . . . . . . . . 12 ⊢ 3 ∈ ℝ
105	104	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 3 ∈ ℝ)
106	86, 105	readdcld 11013	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ∈ ℝ)
107	103, 106	remulcld 11014	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ∈ ℝ)
108		pntibndlem2.5	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ ℝ⁺)
109	108	rpred 12781	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ∈ ℝ)
110	109	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ)
111		1red 10985	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 ∈ ℝ)
112		4nn 12065	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ∈ ℕ
113		nnrp 12750	. . . . . . . . . . . . . . . . . 18 ⊢ (4 ∈ ℕ → 4 ∈ ℝ⁺)
114	112, 113	mp1i 13	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 4 ∈ ℝ⁺)
115	35, 114	rpdivcld 12798	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐸 / 4) ∈ ℝ⁺)
116	108, 115	rpdivcld 12798	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇 / (𝐸 / 4)) ∈ ℝ⁺)
117	116	rpred 12781	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 / (𝐸 / 4)) ∈ ℝ)
118	117	reefcld 15806	. . . . . . . . . . . . 13 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) ∈ ℝ)
119	118	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) ∈ ℝ)
120		efgt1 15834	. . . . . . . . . . . . . 14 ⊢ ((𝑇 / (𝐸 / 4)) ∈ ℝ⁺ → 1 < (exp‘(𝑇 / (𝐸 / 4))))
121	116, 120	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 < (exp‘(𝑇 / (𝐸 / 4))))
122	121	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 < (exp‘(𝑇 / (𝐸 / 4))))
123		pntibndlem2.7	. . . . . . . . . . . . . . . 16 ⊢ 𝑋 = ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍)
124		pntibndlem3.6	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑍 ∈ ℝ⁺)
125	124	rpred 12781	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑍 ∈ ℝ)
126	118, 125	readdcld 11013	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍) ∈ ℝ)
127	123, 126	eqeltrid 2844	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ ℝ)
128	118, 124	ltaddrpd 12814	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍))
129	128, 123	breqtrrdi 5117	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑋)
130		eliooord 13147	. . . . . . . . . . . . . . . . 17 ⊢ (𝑌 ∈ (𝑋(,)+∞) → (𝑋 < 𝑌 ∧ 𝑌 < +∞))
131	44, 130	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑋 < 𝑌 ∧ 𝑌 < +∞))
132	131	simpld 495	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 < 𝑌)
133	118, 127, 45, 129, 132	lttrd 11145	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑌)
134	118, 45, 17, 133, 5	lttrd 11145	. . . . . . . . . . . . 13 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑁)
135	134	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) < 𝑁)
136	111, 119, 101, 122, 135	lttrd 11145	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 < 𝑁)
137	101, 136	rplogcld 25793	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (log‘𝑁) ∈ ℝ⁺)
138	110, 137	rerpdivcld 12812	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℝ)
139	107, 138	readdcld 11013	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ∈ ℝ)
140		peano2re 11157	. . . . . . . . . . . 12 ⊢ ((abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℝ → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℝ)
141	86, 140	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℝ)
142	103, 141	remulcld 11014	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) ∈ ℝ)
143		chpcl 26282	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → (ψ‘𝑢) ∈ ℝ)
144	77, 143	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑢) ∈ ℝ)
145		chpcl 26282	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (ψ‘𝑁) ∈ ℝ)
146	101, 145	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ∈ ℝ)
147	144, 146	resubcld 11412	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ∈ ℝ)
148	147, 78	rerpdivcld 12812	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ∈ ℝ)
149	142, 148	readdcld 11013	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ∈ ℝ)
150	103, 86	remulcld 11014	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) ∈ ℝ)
151	88	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) ∈ ℝ)
152	83, 151	resubcld 11412	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) ∈ ℝ)
153	152	recnd 11012	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) ∈ ℂ)
154	153	abscld 15157	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) ∈ ℝ)
155	154, 78	rerpdivcld 12812	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁) ∈ ℝ)
156	150, 155	readdcld 11013	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ∈ ℝ)
157	103, 84	remulcld 11014	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
158	157	renegcld 11411	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
159	158	recnd 11012	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
160	152, 78	rerpdivcld 12812	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) ∈ ℝ)
161	160	recnd 11012	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) ∈ ℂ)
162	159, 161	abstrid 15177	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) ≤ ((abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) + (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))))
163	77	recnd 11012	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℂ)
164	101	recnd 11012	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℂ)
165	78	rpne0d 12786	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ≠ 0)
166	163, 164, 164, 165	divsubdird 11799	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) = ((𝑢 / 𝑁) − (𝑁 / 𝑁)))
167	164, 165	dividd 11758	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 / 𝑁) = 1)
168	167	oveq2d 7300	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) − (𝑁 / 𝑁)) = ((𝑢 / 𝑁) − 1))
169	166, 168	eqtrd 2779	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) = ((𝑢 / 𝑁) − 1))
170	169	oveq1d 7299	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑢 / 𝑁) − 1) · ((𝑅‘𝑢) / 𝑢)))
171	77, 78	rerpdivcld 12812	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ∈ ℝ)
172	171	recnd 11012	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ∈ ℂ)
173		1cnd 10979	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 ∈ ℂ)
174	172, 173, 85	subdird 11441	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) − 1) · ((𝑅‘𝑢) / 𝑢)) = (((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) − (1 · ((𝑅‘𝑢) / 𝑢))))
175	80	rpcnne0d 12790	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ ℂ ∧ 𝑢 ≠ 0))
176	78	rpcnne0d 12790	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0))
177	83	recnd 11012	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) ∈ ℂ)
178		dmdcan 11694	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑢 ∈ ℂ ∧ 𝑢 ≠ 0) ∧ (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0) ∧ (𝑅‘𝑢) ∈ ℂ) → ((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑁))
179	175, 176, 177, 178	syl3anc 1370	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑁))
180	85	mulid2d 11002	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑢))
181	179, 180	oveq12d 7302	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) − (1 · ((𝑅‘𝑢) / 𝑢))) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
182	170, 174, 181	3eqtrd 2783	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
183	182	negeqd 11224	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = -(((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
184	83, 78	rerpdivcld 12812	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑁) ∈ ℝ)
185	184	recnd 11012	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑁) ∈ ℂ)
186	185, 85	negsubdi2d 11357	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)))
187	183, 186	eqtrd 2779	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)))
188	151	recnd 11012	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) ∈ ℂ)
189	177, 188, 164, 165	divsubdird 11799	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁)))
190	187, 189	oveq12d 7302	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)) + (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁))))
191	85, 185, 91	npncand 11365	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)) + (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁))) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)))
192	190, 191	eqtrd 2779	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)))
193	192	fveq2d 6787	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) = (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))))
194	157	recnd 11012	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
195	194	absnegd 15170	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = (abs‘(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))))
196	103	recnd 11012	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ∈ ℂ)
197	196, 85	absmuld 15175	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = ((abs‘((𝑢 − 𝑁) / 𝑁)) · (abs‘((𝑅‘𝑢) / 𝑢))))
198	77, 101	subge0d 11574	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (0 ≤ (𝑢 − 𝑁) ↔ 𝑁 ≤ 𝑢))
199	79, 198	mpbird 256	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 0 ≤ (𝑢 − 𝑁))
200	102, 78, 199	divge0d 12821	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 0 ≤ ((𝑢 − 𝑁) / 𝑁))
201	103, 200	absidd 15143	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑢 − 𝑁) / 𝑁)) = ((𝑢 − 𝑁) / 𝑁))
202	201	oveq1d 7299	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑢 − 𝑁) / 𝑁)) · (abs‘((𝑅‘𝑢) / 𝑢))) = (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))))
203	195, 197, 202	3eqtrd 2783	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))))
204	153, 164, 165	absdivd 15176	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / (abs‘𝑁)))
205	78	rprege0d 12788	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 ∈ ℝ ∧ 0 ≤ 𝑁))
206		absid 15017	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℝ ∧ 0 ≤ 𝑁) → (abs‘𝑁) = 𝑁)
207	205, 206	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘𝑁) = 𝑁)
208	207	oveq2d 7300	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / (abs‘𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁))
209	204, 208	eqtrd 2779	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁))
210	203, 209	oveq12d 7302	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) + (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)))
211	162, 193, 210	3brtr3d 5106	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)))
212	102, 147	readdcld 11013	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) ∈ ℝ)
213	212, 78	rerpdivcld 12812	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁) ∈ ℝ)
214	147	recnd 11012	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ∈ ℂ)
215	164, 163	subcld 11341	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 − 𝑢) ∈ ℂ)
216	214, 215	abstrid 15177	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢))) ≤ ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))))
217	8	pntrval 26719	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ ℝ⁺ → (𝑅‘𝑢) = ((ψ‘𝑢) − 𝑢))
218	80, 217	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) = ((ψ‘𝑢) − 𝑢))
219	8	pntrval 26719	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℝ⁺ → (𝑅‘𝑁) = ((ψ‘𝑁) − 𝑁))
220	78, 219	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) = ((ψ‘𝑁) − 𝑁))
221	218, 220	oveq12d 7302	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) = (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)))
222	144	recnd 11012	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑢) ∈ ℂ)
223	146	recnd 11012	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ∈ ℂ)
224		subadd4 11274	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − (ψ‘𝑁)) − (𝑢 − 𝑁)) = (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)))
225		sub4 11275	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − (ψ‘𝑁)) − (𝑢 − 𝑁)) = (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)))
226		addsub4 11273	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ 𝑁 ∈ ℂ) ∧ ((ψ‘𝑁) ∈ ℂ ∧ 𝑢 ∈ ℂ)) → (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
227	226	an42s 658	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
228	224, 225, 227	3eqtr3d 2787	. . . . . . . . . . . . . . . . 17 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
229	222, 223, 163, 164, 228	syl22anc 836	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
230	221, 229	eqtr2d 2780	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)) = ((𝑅‘𝑢) − (𝑅‘𝑁)))
231	230	fveq2d 6787	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢))) = (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))))
232	102	recnd 11012	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 − 𝑁) ∈ ℂ)
233		chpwordi 26315	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℝ ∧ 𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢) → (ψ‘𝑁) ≤ (ψ‘𝑢))
234	101, 77, 79, 233	syl3anc 1370	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ≤ (ψ‘𝑢))
235	146, 144, 234	abssubge0d 15152	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((ψ‘𝑢) − (ψ‘𝑁))) = ((ψ‘𝑢) − (ψ‘𝑁)))
236	101, 77, 79	abssuble0d 15153	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(𝑁 − 𝑢)) = (𝑢 − 𝑁))
237	235, 236	oveq12d 7302	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑢 − 𝑁)))
238	214, 232, 237	comraddd 11198	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))) = ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))))
239	216, 231, 238	3brtr3d 5106	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) ≤ ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))))
240	154, 212, 78, 239	lediv1dd 12839	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁) ≤ (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁))
241	155, 213, 150, 240	leadd2dd 11599	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)))
242	150	recnd 11012	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) ∈ ℂ)
243	148	recnd 11012	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ∈ ℂ)
244	242, 196, 243	addassd 11006	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁))))
245	86	recnd 11012	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
246	196, 245, 173	adddid 11008	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) · 1)))
247	196	mulid1d 11001	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · 1) = ((𝑢 − 𝑁) / 𝑁))
248	247	oveq2d 7300	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) · 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)))
249	246, 248	eqtrd 2779	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)))
250	249	oveq1d 7299	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = (((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
251	232, 214, 164, 165	divdird 11798	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁) = (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
252	251	oveq2d 7300	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁))))
253	244, 250, 252	3eqtr4d 2789	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)))
254	241, 253	breqtrrd 5103	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
255	93, 156, 149, 211, 254	letrd 11141	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
256		remulcl 10965	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ ((𝑢 − 𝑁) / 𝑁) ∈ ℝ) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℝ)
257	19, 103, 256	sylancr 587	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℝ)
258	257, 138	readdcld 11013	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))) ∈ ℝ)
259		remulcl 10965	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℝ ∧ (𝑢 − 𝑁) ∈ ℝ) → (2 · (𝑢 − 𝑁)) ∈ ℝ)
260	19, 102, 259	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · (𝑢 − 𝑁)) ∈ ℝ)
261	101, 137	rerpdivcld 12812	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 / (log‘𝑁)) ∈ ℝ)
262	110, 261	remulcld 11014	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℝ)
263	260, 262	readdcld 11013	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) ∈ ℝ)
264		fveq2 6783	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑢 → (ψ‘𝑦) = (ψ‘𝑢))
265	264	oveq1d 7299	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑢 → ((ψ‘𝑦) − (ψ‘𝑁)) = ((ψ‘𝑢) − (ψ‘𝑁)))
266		oveq1 7291	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑢 → (𝑦 − 𝑁) = (𝑢 − 𝑁))
267	266	oveq2d 7300	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑢 → (2 · (𝑦 − 𝑁)) = (2 · (𝑢 − 𝑁)))
268	267	oveq1d 7299	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑢 → ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) = ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
269	265, 268	breq12d 5088	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑢 → (((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) ↔ ((ψ‘𝑢) − (ψ‘𝑁)) ≤ ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
270		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → 𝑥 = 𝑁)
271		oveq2 7292	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → (2 · 𝑥) = (2 · 𝑁))
272	270, 271	oveq12d 7302	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → (𝑥[,](2 · 𝑥)) = (𝑁[,](2 · 𝑁)))
273		fveq2 6783	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (ψ‘𝑥) = (ψ‘𝑁))
274	273	oveq2d 7300	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → ((ψ‘𝑦) − (ψ‘𝑥)) = ((ψ‘𝑦) − (ψ‘𝑁)))
275		oveq2 7292	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑁 → (𝑦 − 𝑥) = (𝑦 − 𝑁))
276	275	oveq2d 7300	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (2 · (𝑦 − 𝑥)) = (2 · (𝑦 − 𝑁)))
277		fveq2 6783	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑁 → (log‘𝑥) = (log‘𝑁))
278	270, 277	oveq12d 7302	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑁 → (𝑥 / (log‘𝑥)) = (𝑁 / (log‘𝑁)))
279	278	oveq2d 7300	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (𝑇 · (𝑥 / (log‘𝑥))) = (𝑇 · (𝑁 / (log‘𝑁))))
280	276, 279	oveq12d 7302	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) = ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
281	274, 280	breq12d 5088	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → (((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) ↔ ((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
282	272, 281	raleqbidv 3337	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑁 → (∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) ↔ ∀𝑦 ∈ (𝑁[,](2 · 𝑁))((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
283		pntibndlem2.6	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑥 ∈ (1(,)+∞)∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))))
284	283	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑥 ∈ (1(,)+∞)∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))))
285		1xr 11043	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ^*
286		elioopnf 13184	. . . . . . . . . . . . . . . . 17 ⊢ (1 ∈ ℝ^* → (𝑁 ∈ (1(,)+∞) ↔ (𝑁 ∈ ℝ ∧ 1 < 𝑁)))
287	285, 286	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (1(,)+∞) ↔ (𝑁 ∈ ℝ ∧ 1 < 𝑁))
288	101, 136, 287	sylanbrc 583	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ (1(,)+∞))
289	282, 284, 288	rspcdva 3563	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑦 ∈ (𝑁[,](2 · 𝑁))((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
290	18	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) · 𝑁) ∈ ℝ)
291	21	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · 𝑁) ∈ ℝ)
292	76	simp3d 1143	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁))
293		ltle 11072	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1 + (𝐿 · 𝐸)) ∈ ℝ ∧ 2 ∈ ℝ) → ((1 + (𝐿 · 𝐸)) < 2 → (1 + (𝐿 · 𝐸)) ≤ 2))
294	16, 19, 293	sylancl 586	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) < 2 → (1 + (𝐿 · 𝐸)) ≤ 2))
295	61, 294	mpd 15	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) ≤ 2)
296	295	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) ≤ 2)
297	16	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) ∈ ℝ)
298	19	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ∈ ℝ)
299	297, 298, 78	lemul1d 12824	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) ≤ 2 ↔ ((1 + (𝐿 · 𝐸)) · 𝑁) ≤ (2 · 𝑁)))
300	296, 299	mpbid 231	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) · 𝑁) ≤ (2 · 𝑁))
301	77, 290, 291, 292, 300	letrd 11141	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ≤ (2 · 𝑁))
302		elicc2 13153	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ) → (𝑢 ∈ (𝑁[,](2 · 𝑁)) ↔ (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ (2 · 𝑁))))
303	101, 291, 302	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ (𝑁[,](2 · 𝑁)) ↔ (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ (2 · 𝑁))))
304	77, 79, 301, 303	mpbir3and 1341	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ (𝑁[,](2 · 𝑁)))
305	269, 289, 304	rspcdva 3563	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ≤ ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
306	147, 263, 78, 305	lediv1dd 12839	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ≤ (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁))
307	260	recnd 11012	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · (𝑢 − 𝑁)) ∈ ℂ)
308	108	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ⁺)
309	308	rpred 12781	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ)
310	309, 261	remulcld 11014	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℝ)
311	310	recnd 11012	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℂ)
312		divdir 11667	. . . . . . . . . . . . . 14 ⊢ (((2 · (𝑢 − 𝑁)) ∈ ℂ ∧ (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℂ ∧ (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0)) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)))
313	307, 311, 176, 312	syl3anc 1370	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)))
314		2cnd 12060	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ∈ ℂ)
315	314, 232, 164, 165	divassd 11795	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · (𝑢 − 𝑁)) / 𝑁) = (2 · ((𝑢 − 𝑁) / 𝑁)))
316	110	recnd 11012	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℂ)
317	137	rpcnne0d 12790	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((log‘𝑁) ∈ ℂ ∧ (log‘𝑁) ≠ 0))
318		div12 11664	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑇 ∈ ℂ ∧ 𝑁 ∈ ℂ ∧ ((log‘𝑁) ∈ ℂ ∧ (log‘𝑁) ≠ 0)) → (𝑇 · (𝑁 / (log‘𝑁))) = (𝑁 · (𝑇 / (log‘𝑁))))
319	316, 164, 317, 318	syl3anc 1370	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) = (𝑁 · (𝑇 / (log‘𝑁))))
320	319	oveq1d 7299	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁) = ((𝑁 · (𝑇 / (log‘𝑁))) / 𝑁))
321	308, 137	rpdivcld 12798	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℝ⁺)
322	321	rpcnd 12783	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℂ)
323	322, 164, 165	divcan3d 11765	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑁 · (𝑇 / (log‘𝑁))) / 𝑁) = (𝑇 / (log‘𝑁)))
324	320, 323	eqtrd 2779	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁) = (𝑇 / (log‘𝑁)))
325	315, 324	oveq12d 7302	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)) = ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
326	313, 325	eqtrd 2779	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
327	306, 326	breqtrd 5101	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ≤ ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
328	148, 258, 142, 327	leadd2dd 11599	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))))
329	142	recnd 11012	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) ∈ ℂ)
330	257	recnd 11012	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℂ)
331	138	recnd 11012	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℂ)
332	329, 330, 331	addassd 11006	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) + (𝑇 / (log‘𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))))
333		2cn 12057	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℂ
334		mulcom 10966	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℂ ∧ ((𝑢 − 𝑁) / 𝑁) ∈ ℂ) → (2 · ((𝑢 − 𝑁) / 𝑁)) = (((𝑢 − 𝑁) / 𝑁) · 2))
335	333, 196, 334	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) = (((𝑢 − 𝑁) / 𝑁) · 2))
336	335	oveq2d 7300	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((𝑢 − 𝑁) / 𝑁) · 2)))
337	141	recnd 11012	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℂ)
338	196, 337, 314	adddid 11008	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2)) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((𝑢 − 𝑁) / 𝑁) · 2)))
339	245, 173, 314	addassd 11006	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2) = ((abs‘((𝑅‘𝑢) / 𝑢)) + (1 + 2)))
340		1p2e3 12125	. . . . . . . . . . . . . . . 16 ⊢ (1 + 2) = 3
341	340	oveq2i 7295	. . . . . . . . . . . . . . 15 ⊢ ((abs‘((𝑅‘𝑢) / 𝑢)) + (1 + 2)) = ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)
342	339, 341	eqtrdi 2795	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2) = ((abs‘((𝑅‘𝑢) / 𝑢)) + 3))
343	342	oveq2d 7300	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2)) = (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)))
344	336, 338, 343	3eqtr2d 2785	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) = (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)))
345	344	oveq1d 7299	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) + (𝑇 / (log‘𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
346	332, 345	eqtr3d 2781	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
347	328, 346	breqtrd 5101	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
348	93, 149, 139, 255, 347	letrd 11141	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
349	100	rehalfcld 12229	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) ∈ ℝ)
350	77, 297, 78	ledivmul2d 12835	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) ≤ (1 + (𝐿 · 𝐸)) ↔ 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁)))
351	292, 350	mpbird 256	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ≤ (1 + (𝐿 · 𝐸)))
352		ax-1cn 10938	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℂ
353	15	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) ∈ ℝ)
354	353	recnd 11012	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) ∈ ℂ)
355		addcom 11170	. . . . . . . . . . . . . . . 16 ⊢ ((1 ∈ ℂ ∧ (𝐿 · 𝐸) ∈ ℂ) → (1 + (𝐿 · 𝐸)) = ((𝐿 · 𝐸) + 1))
356	352, 354, 355	sylancr 587	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) = ((𝐿 · 𝐸) + 1))
357	351, 356	breqtrd 5101	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ≤ ((𝐿 · 𝐸) + 1))
358	171, 111, 353	lesubaddd 11581	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) − 1) ≤ (𝐿 · 𝐸) ↔ (𝑢 / 𝑁) ≤ ((𝐿 · 𝐸) + 1)))
359	357, 358	mpbird 256	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) − 1) ≤ (𝐿 · 𝐸))
360	169, 359	eqbrtrd 5097	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸))
361	9	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐴 ∈ ℝ⁺)
362	361	rpred 12781	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐴 ∈ ℝ)
363		fveq2 6783	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑢 → (𝑅‘𝑥) = (𝑅‘𝑢))
364		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑢 → 𝑥 = 𝑢)
365	363, 364	oveq12d 7302	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑢 → ((𝑅‘𝑥) / 𝑥) = ((𝑅‘𝑢) / 𝑢))
366	365	fveq2d 6787	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑢 → (abs‘((𝑅‘𝑥) / 𝑥)) = (abs‘((𝑅‘𝑢) / 𝑢)))
367	366	breq1d 5085	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑢 → ((abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴 ↔ (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐴))
368	74	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
369	367, 368, 80	rspcdva 3563	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐴)
370	86, 362, 105, 369	leadd1dd 11598	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3))
371	103, 200	jca 512	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) ∈ ℝ ∧ 0 ≤ ((𝑢 − 𝑁) / 𝑁)))
372		3rp 12745	. . . . . . . . . . . . . . 15 ⊢ 3 ∈ ℝ⁺
373		rpaddcl 12761	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 3 ∈ ℝ⁺) → (𝐴 + 3) ∈ ℝ⁺)
374	361, 372, 373	sylancl 586	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ∈ ℝ⁺)
375	374	rprege0d 12788	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐴 + 3) ∈ ℝ ∧ 0 ≤ (𝐴 + 3)))
376		lemul12b 11841	. . . . . . . . . . . . 13 ⊢ ((((((𝑢 − 𝑁) / 𝑁) ∈ ℝ ∧ 0 ≤ ((𝑢 − 𝑁) / 𝑁)) ∧ (𝐿 · 𝐸) ∈ ℝ) ∧ (((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ∈ ℝ ∧ ((𝐴 + 3) ∈ ℝ ∧ 0 ≤ (𝐴 + 3)))) → ((((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸) ∧ ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3)) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3))))
377	371, 353, 106, 375, 376	syl22anc 836	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸) ∧ ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3)) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3))))
378	360, 370, 377	mp2and 696	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3)))
379	35	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℝ⁺)
380	112, 113	mp1i 13	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ∈ ℝ⁺)
381	379, 380	rpdivcld 12798	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) ∈ ℝ⁺)
382	381	rpcnd 12783	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) ∈ ℂ)
383	374	rpcnd 12783	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ∈ ℂ)
384	374	rpne0d 12786	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ≠ 0)
385	382, 383, 384	divcan1d 11761	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝐸 / 4) / (𝐴 + 3)) · (𝐴 + 3)) = (𝐸 / 4))
386	14	recnd 11012	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐸 ∈ ℂ)
387	386	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℂ)
388	380	rpcnd 12783	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ∈ ℂ)
389	380	rpne0d 12786	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ≠ 0)
390	387, 388, 389	divrec2d 11764	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) = ((1 / 4) · 𝐸))
391	390	oveq1d 7299	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 4) / (𝐴 + 3)) = (((1 / 4) · 𝐸) / (𝐴 + 3)))
392		4cn 12067	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ∈ ℂ
393		4ne0 12090	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ≠ 0
394	392, 393	reccli 11714	. . . . . . . . . . . . . . . . 17 ⊢ (1 / 4) ∈ ℂ
395	394	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 / 4) ∈ ℂ)
396	395, 387, 383, 384	div23d 11797	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((1 / 4) · 𝐸) / (𝐴 + 3)) = (((1 / 4) / (𝐴 + 3)) · 𝐸))
397	10	oveq1i 7294	. . . . . . . . . . . . . . 15 ⊢ (𝐿 · 𝐸) = (((1 / 4) / (𝐴 + 3)) · 𝐸)
398	396, 397	eqtr4di 2797	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((1 / 4) · 𝐸) / (𝐴 + 3)) = (𝐿 · 𝐸))
399	391, 398	eqtr2d 2780	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) = ((𝐸 / 4) / (𝐴 + 3)))
400	399	oveq1d 7299	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐿 · 𝐸) · (𝐴 + 3)) = (((𝐸 / 4) / (𝐴 + 3)) · (𝐴 + 3)))
401		2ne0 12086	. . . . . . . . . . . . . . 15 ⊢ 2 ≠ 0
402	401	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ≠ 0)
403	387, 314, 314, 402, 402	divdiv1d 11791	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) = (𝐸 / (2 · 2)))
404		2t2e4 12146	. . . . . . . . . . . . . 14 ⊢ (2 · 2) = 4
405	404	oveq2i 7295	. . . . . . . . . . . . 13 ⊢ (𝐸 / (2 · 2)) = (𝐸 / 4)
406	403, 405	eqtrdi 2795	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) = (𝐸 / 4))
407	385, 400, 406	3eqtr4d 2789	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐿 · 𝐸) · (𝐴 + 3)) = ((𝐸 / 2) / 2))
408	378, 407	breqtrd 5101	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐸 / 2) / 2))
409	117	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) ∈ ℝ)
410	137	rpred 12781	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (log‘𝑁) ∈ ℝ)
411	78	reeflogd 25788	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(log‘𝑁)) = 𝑁)
412	135, 411	breqtrrd 5103	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁)))
413		eflt 15835	. . . . . . . . . . . . . . 15 ⊢ (((𝑇 / (𝐸 / 4)) ∈ ℝ ∧ (log‘𝑁) ∈ ℝ) → ((𝑇 / (𝐸 / 4)) < (log‘𝑁) ↔ (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁))))
414	409, 410, 413	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 / (𝐸 / 4)) < (log‘𝑁) ↔ (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁))))
415	412, 414	mpbird 256	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) < (log‘𝑁))
416	409, 410, 415	ltled 11132	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) ≤ (log‘𝑁))
417	110, 381, 137, 416	lediv23d 12849	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ≤ (𝐸 / 4))
418	417, 406	breqtrrd 5103	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ≤ ((𝐸 / 2) / 2))
419	107, 138, 349, 349, 408, 418	le2addd 11603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ≤ (((𝐸 / 2) / 2) + ((𝐸 / 2) / 2)))
420	100	recnd 11012	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 2) ∈ ℂ)
421	420	2halvesd 12228	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝐸 / 2) / 2) + ((𝐸 / 2) / 2)) = (𝐸 / 2))
422	419, 421	breqtrd 5101	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ≤ (𝐸 / 2))
423	93, 139, 100, 348, 422	letrd 11141	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ (𝐸 / 2))
424	3	simprd 496	. . . . . . . 8 ⊢ (𝜑 → (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2))
425	424	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2))
426	93, 94, 100, 100, 423, 425	le2addd 11603	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ≤ ((𝐸 / 2) + (𝐸 / 2)))
427	387	2halvesd 12228	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) + (𝐸 / 2)) = 𝐸)
428	426, 427	breqtrd 5101	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ≤ 𝐸)
429	86, 95, 96, 99, 428	letrd 11141	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)
430	429	ralrimiva 3104	. . 3 ⊢ (𝜑 → ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)
431	5, 73, 430	jca31 515	. 2 ⊢ (𝜑 → ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
432		breq2 5079	. . . . 5 ⊢ (𝑧 = 𝑁 → (𝑌 < 𝑧 ↔ 𝑌 < 𝑁))
433		oveq2 7292	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((1 + (𝐿 · 𝐸)) · 𝑧) = ((1 + (𝐿 · 𝐸)) · 𝑁))
434	433	breq1d 5085	. . . . 5 ⊢ (𝑧 = 𝑁 → (((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌) ↔ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)))
435	432, 434	anbi12d 631	. . . 4 ⊢ (𝑧 = 𝑁 → ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ↔ (𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌))))
436		id 22	. . . . . 6 ⊢ (𝑧 = 𝑁 → 𝑧 = 𝑁)
437	436, 433	oveq12d 7302	. . . . 5 ⊢ (𝑧 = 𝑁 → (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧)) = (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁)))
438	437	raleqdv 3349	. . . 4 ⊢ (𝑧 = 𝑁 → (∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸 ↔ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
439	435, 438	anbi12d 631	. . 3 ⊢ (𝑧 = 𝑁 → (((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸) ↔ ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)))
440	439	rspcev 3562	. 2 ⊢ ((𝑁 ∈ ℝ⁺ ∧ ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)) → ∃𝑧 ∈ ℝ⁺ ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
441	2, 431, 440	syl2anc 584	1 ⊢ (𝜑 → ∃𝑧 ∈ ℝ⁺ ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1086 = wceq 1539 ∈ wcel 2107 ≠ wne 2944 ∀wral 3065 ∃wrex 3066 ⊆ wss 3888 class class class wbr 5075 ↦ cmpt 5158 ‘cfv 6437 (class class class)co 7284 ℂcc 10878 ℝcr 10879 0cc0 10880 1c1 10881 + caddc 10883 · cmul 10885 +∞cpnf 11015 ℝ^*cxr 11017 < clt 11018 ≤ cle 11019 − cmin 11214 -cneg 11215 / cdiv 11641 ℕcn 11982 2c2 12037 3c3 12038 4c4 12039 ℝ⁺crp 12739 (,)cioo 13088 [,)cico 13090 [,]cicc 13091 abscabs 14954 expce 15780 logclog 25719 ψcchp 26251

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2710 ax-rep 5210 ax-sep 5224 ax-nul 5231 ax-pow 5289 ax-pr 5353 ax-un 7597 ax-inf2 9408 ax-cnex 10936 ax-resscn 10937 ax-1cn 10938 ax-icn 10939 ax-addcl 10940 ax-addrcl 10941 ax-mulcl 10942 ax-mulrcl 10943 ax-mulcom 10944 ax-addass 10945 ax-mulass 10946 ax-distr 10947 ax-i2m1 10948 ax-1ne0 10949 ax-1rid 10950 ax-rnegex 10951 ax-rrecex 10952 ax-cnre 10953 ax-pre-lttri 10954 ax-pre-lttrn 10955 ax-pre-ltadd 10956 ax-pre-mulgt0 10957 ax-pre-sup 10958 ax-addf 10959 ax-mulf 10960

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2541 df-eu 2570 df-clab 2717 df-cleq 2731 df-clel 2817 df-nfc 2890 df-ne 2945 df-nel 3051 df-ral 3070 df-rex 3071 df-rmo 3072 df-reu 3073 df-rab 3074 df-v 3435 df-sbc 3718 df-csb 3834 df-dif 3891 df-un 3893 df-in 3895 df-ss 3905 df-pss 3907 df-nul 4258 df-if 4461 df-pw 4536 df-sn 4563 df-pr 4565 df-tp 4567 df-op 4569 df-uni 4841 df-int 4881 df-iun 4927 df-iin 4928 df-br 5076 df-opab 5138 df-mpt 5159 df-tr 5193 df-id 5490 df-eprel 5496 df-po 5504 df-so 5505 df-fr 5545 df-se 5546 df-we 5547 df-xp 5596 df-rel 5597 df-cnv 5598 df-co 5599 df-dm 5600 df-rn 5601 df-res 5602 df-ima 5603 df-pred 6206 df-ord 6273 df-on 6274 df-lim 6275 df-suc 6276 df-iota 6395 df-fun 6439 df-fn 6440 df-f 6441 df-f1 6442 df-fo 6443 df-f1o 6444 df-fv 6445 df-isom 6446 df-riota 7241 df-ov 7287 df-oprab 7288 df-mpo 7289 df-of 7542 df-om 7722 df-1st 7840 df-2nd 7841 df-supp 7987 df-frecs 8106 df-wrecs 8137 df-recs 8211 df-rdg 8250 df-1o 8306 df-2o 8307 df-oadd 8310 df-er 8507 df-map 8626 df-pm 8627 df-ixp 8695 df-en 8743 df-dom 8744 df-sdom 8745 df-fin 8746 df-fsupp 9138 df-fi 9179 df-sup 9210 df-inf 9211 df-oi 9278 df-dju 9668 df-card 9706 df-pnf 11020 df-mnf 11021 df-xr 11022 df-ltxr 11023 df-le 11024 df-sub 11216 df-neg 11217 df-div 11642 df-nn 11983 df-2 12045 df-3 12046 df-4 12047 df-5 12048 df-6 12049 df-7 12050 df-8 12051 df-9 12052 df-n0 12243 df-z 12329 df-dec 12447 df-uz 12592 df-q 12698 df-rp 12740 df-xneg 12857 df-xadd 12858 df-xmul 12859 df-ioo 13092 df-ioc 13093 df-ico 13094 df-icc 13095 df-fz 13249 df-fzo 13392 df-fl 13521 df-mod 13599 df-seq 13731 df-exp 13792 df-fac 13997 df-bc 14026 df-hash 14054 df-shft 14787 df-cj 14819 df-re 14820 df-im 14821 df-sqrt 14955 df-abs 14956 df-limsup 15189 df-clim 15206 df-rlim 15207 df-sum 15407 df-ef 15786 df-sin 15788 df-cos 15789 df-pi 15791 df-dvds 15973 df-gcd 16211 df-prm 16386 df-pc 16547 df-struct 16857 df-sets 16874 df-slot 16892 df-ndx 16904 df-base 16922 df-ress 16951 df-plusg 16984 df-mulr 16985 df-starv 16986 df-sca 16987 df-vsca 16988 df-ip 16989 df-tset 16990 df-ple 16991 df-ds 16993 df-unif 16994 df-hom 16995 df-cco 16996 df-rest 17142 df-topn 17143 df-0g 17161 df-gsum 17162 df-topgen 17163 df-pt 17164 df-prds 17167 df-xrs 17222 df-qtop 17227 df-imas 17228 df-xps 17230 df-mre 17304 df-mrc 17305 df-acs 17307 df-mgm 18335 df-sgrp 18384 df-mnd 18395 df-submnd 18440 df-mulg 18710 df-cntz 18932 df-cmn 19397 df-psmet 20598 df-xmet 20599 df-met 20600 df-bl 20601 df-mopn 20602 df-fbas 20603 df-fg 20604 df-cnfld 20607 df-top 22052 df-topon 22069 df-topsp 22091 df-bases 22105 df-cld 22179 df-ntr 22180 df-cls 22181 df-nei 22258 df-lp 22296 df-perf 22297 df-cn 22387 df-cnp 22388 df-haus 22475 df-tx 22722 df-hmeo 22915 df-fil 23006 df-fm 23098 df-flim 23099 df-flf 23100 df-xms 23482 df-ms 23483 df-tms 23484 df-cncf 24050 df-limc 25039 df-dv 25040 df-log 25721 df-vma 26256 df-chp 26257

This theorem is referenced by: pntibndlem3 26749

W3C validator