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 27552

Description: Lemma for pntibnd 27554. 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 13047	. 2 ⊢ (𝜑 → 𝑁 ∈ ℝ⁺)
3		pntibndlem2.11	. . . . 5 ⊢ (𝜑 → ((𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)) ∧ (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2)))
4	3	simpld 494	. . . 4 ⊢ (𝜑 → (𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)))
5	4	simpld 494	. . 3 ⊢ (𝜑 → 𝑌 < 𝑁)
6		1red 11234	. . . . . 6 ⊢ (𝜑 → 1 ∈ ℝ)
7		ioossre 13422	. . . . . . . 8 ⊢ (0(,)1) ⊆ ℝ
8		pntibnd.r	. . . . . . . . 9 ⊢ 𝑅 = (𝑎 ∈ ℝ⁺ ↦ ((ψ‘𝑎) − 𝑎))
9		pntibndlem1.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
10		pntibndlem1.l	. . . . . . . . 9 ⊢ 𝐿 = ((1 / 4) / (𝐴 + 3))
11	8, 9, 10	pntibndlem1 27550	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ (0(,)1))
12	7, 11	sselid 3956	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ ℝ)
13		pntibndlem3.4	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ (0(,)1))
14	7, 13	sselid 3956	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℝ)
15	12, 14	remulcld 11263	. . . . . 6 ⊢ (𝜑 → (𝐿 · 𝐸) ∈ ℝ)
16	6, 15	readdcld 11262	. . . . 5 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) ∈ ℝ)
17	1	nnred 12253	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ℝ)
18	16, 17	remulcld 11263	. . . 4 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) ∈ ℝ)
19		2re 12312	. . . . 5 ⊢ 2 ∈ ℝ
20		remulcl 11212	. . . . 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 13049	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25		remulcl 11212	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2 · 𝐵) ∈ ℝ)
26	19, 24, 25	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝐵) ∈ ℝ)
27		2rp 13011	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ⁺
28	27	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ ℝ⁺)
29	28	relogcld 26582	. . . . . . . . . . 11 ⊢ (𝜑 → (log‘2) ∈ ℝ)
30	26, 29	readdcld 11262	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝐵) + (log‘2)) ∈ ℝ)
31	22, 30	eqeltrid 2838	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ ℝ)
32		eliooord 13420	. . . . . . . . . . . 12 ⊢ (𝐸 ∈ (0(,)1) → (0 < 𝐸 ∧ 𝐸 < 1))
33	13, 32	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (0 < 𝐸 ∧ 𝐸 < 1))
34	33	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 0 < 𝐸)
35	14, 34	elrpd 13046	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ ℝ⁺)
36	31, 35	rerpdivcld 13080	. . . . . . . 8 ⊢ (𝜑 → (𝐶 / 𝐸) ∈ ℝ)
37	36	reefcld 16102	. . . . . . 7 ⊢ (𝜑 → (exp‘(𝐶 / 𝐸)) ∈ ℝ)
38		pnfxr 11287	. . . . . . 7 ⊢ +∞ ∈ ℝ^*
39		icossre 13443	. . . . . . 7 ⊢ (((exp‘(𝐶 / 𝐸)) ∈ ℝ ∧ +∞ ∈ ℝ^*) → ((exp‘(𝐶 / 𝐸))[,)+∞) ⊆ ℝ)
40	37, 38, 39	sylancl 586	. . . . . 6 ⊢ (𝜑 → ((exp‘(𝐶 / 𝐸))[,)+∞) ⊆ ℝ)
41		pntibndlem2.8	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ((exp‘(𝐶 / 𝐸))[,)+∞))
42	40, 41	sseldd 3959	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℝ)
43		ioossre 13422	. . . . . 6 ⊢ (𝑋(,)+∞) ⊆ ℝ
44		pntibndlem2.9	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,)+∞))
45	43, 44	sselid 3956	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ ℝ)
46	42, 45	remulcld 11263	. . . 4 ⊢ (𝜑 → (𝑀 · 𝑌) ∈ ℝ)
47	19	a1i 11	. . . . 5 ⊢ (𝜑 → 2 ∈ ℝ)
48		eliooord 13420	. . . . . . . . . . . . 13 ⊢ (𝐿 ∈ (0(,)1) → (0 < 𝐿 ∧ 𝐿 < 1))
49	11, 48	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (0 < 𝐿 ∧ 𝐿 < 1))
50	49	simpld 494	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < 𝐿)
51	12, 50	elrpd 13046	. . . . . . . . . 10 ⊢ (𝜑 → 𝐿 ∈ ℝ⁺)
52	51	rpge0d 13053	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐿)
53	49	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 < 1)
54	35	rpge0d 13053	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐸)
55	33	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 < 1)
56	12, 6, 14, 6, 52, 53, 54, 55	ltmul12ad 12181	. . . . . . . 8 ⊢ (𝜑 → (𝐿 · 𝐸) < (1 · 1))
57		1t1e1 12400	. . . . . . . 8 ⊢ (1 · 1) = 1
58	56, 57	breqtrdi 5160	. . . . . . 7 ⊢ (𝜑 → (𝐿 · 𝐸) < 1)
59	15, 6, 6, 58	ltadd2dd 11392	. . . . . 6 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) < (1 + 1))
60		df-2 12301	. . . . . 6 ⊢ 2 = (1 + 1)
61	59, 60	breqtrrdi 5161	. . . . 5 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) < 2)
62	16, 47, 2, 61	ltmul1dd 13104	. . . 4 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) < (2 · 𝑁))
63	4	simprd 495	. . . . . 6 ⊢ (𝜑 → 𝑁 ≤ ((𝑀 / 2) · 𝑌))
64	42	recnd 11261	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℂ)
65	45	recnd 11261	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ ℂ)
66		rpcnne0 13025	. . . . . . . 8 ⊢ (2 ∈ ℝ⁺ → (2 ∈ ℂ ∧ 2 ≠ 0))
67	27, 66	mp1i 13	. . . . . . 7 ⊢ (𝜑 → (2 ∈ ℂ ∧ 2 ≠ 0))
68		div23 11913	. . . . . . 7 ⊢ ((𝑀 ∈ ℂ ∧ 𝑌 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → ((𝑀 · 𝑌) / 2) = ((𝑀 / 2) · 𝑌))
69	64, 65, 67, 68	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → ((𝑀 · 𝑌) / 2) = ((𝑀 / 2) · 𝑌))
70	63, 69	breqtrrd 5147	. . . . 5 ⊢ (𝜑 → 𝑁 ≤ ((𝑀 · 𝑌) / 2))
71	17, 46, 28	lemuldiv2d 13099	. . . . 5 ⊢ (𝜑 → ((2 · 𝑁) ≤ (𝑀 · 𝑌) ↔ 𝑁 ≤ ((𝑀 · 𝑌) / 2)))
72	70, 71	mpbird 257	. . . 4 ⊢ (𝜑 → (2 · 𝑁) ≤ (𝑀 · 𝑌))
73	18, 21, 46, 62, 72	ltletrd 11393	. . 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 27551	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁)))
77	76	simp1d 1142	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℝ)
78	2	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℝ⁺)
79	76	simp2d 1143	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ≤ 𝑢)
80	77, 78, 79	rpgecld 13088	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℝ⁺)
81	8	pntrf 27524	. . . . . . . . . 10 ⊢ 𝑅:ℝ⁺⟶ℝ
82	81	ffvelcdmi 7072	. . . . . . . . 9 ⊢ (𝑢 ∈ ℝ⁺ → (𝑅‘𝑢) ∈ ℝ)
83	80, 82	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) ∈ ℝ)
84	83, 80	rerpdivcld 13080	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑢) ∈ ℝ)
85	84	recnd 11261	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑢) ∈ ℂ)
86	85	abscld 15453	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
87	81	ffvelcdmi 7072	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℝ⁺ → (𝑅‘𝑁) ∈ ℝ)
88	2, 87	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅‘𝑁) ∈ ℝ)
89	88, 1	nndivred 12292	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅‘𝑁) / 𝑁) ∈ ℝ)
90	89	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑁) / 𝑁) ∈ ℝ)
91	90	recnd 11261	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑁) / 𝑁) ∈ ℂ)
92	85, 91	subcld 11592	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)) ∈ ℂ)
93	92	abscld 15453	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ∈ ℝ)
94	91	abscld 15453	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑁) / 𝑁)) ∈ ℝ)
95	93, 94	readdcld 11262	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ∈ ℝ)
96	14	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℝ)
97	85, 91	abs2difd 15474	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) − (abs‘((𝑅‘𝑁) / 𝑁))) ≤ (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))))
98	86, 94, 93	lesubaddd 11832	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) − (abs‘((𝑅‘𝑁) / 𝑁))) ≤ (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ↔ (abs‘((𝑅‘𝑢) / 𝑢)) ≤ ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁)))))
99	97, 98	mpbid 232	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))))
100	96	rehalfcld 12486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 2) ∈ ℝ)
101	17	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℝ)
102	77, 101	resubcld 11663	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 − 𝑁) ∈ ℝ)
103	102, 78	rerpdivcld 13080	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ∈ ℝ)
104		3re 12318	. . . . . . . . . . . 12 ⊢ 3 ∈ ℝ
105	104	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 3 ∈ ℝ)
106	86, 105	readdcld 11262	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ∈ ℝ)
107	103, 106	remulcld 11263	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ∈ ℝ)
108		pntibndlem2.5	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ ℝ⁺)
109	108	rpred 13049	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ∈ ℝ)
110	109	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ)
111		1red 11234	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 ∈ ℝ)
112		4nn 12321	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ∈ ℕ
113		nnrp 13018	. . . . . . . . . . . . . . . . . 18 ⊢ (4 ∈ ℕ → 4 ∈ ℝ⁺)
114	112, 113	mp1i 13	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 4 ∈ ℝ⁺)
115	35, 114	rpdivcld 13066	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐸 / 4) ∈ ℝ⁺)
116	108, 115	rpdivcld 13066	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇 / (𝐸 / 4)) ∈ ℝ⁺)
117	116	rpred 13049	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 / (𝐸 / 4)) ∈ ℝ)
118	117	reefcld 16102	. . . . . . . . . . . . 13 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) ∈ ℝ)
119	118	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) ∈ ℝ)
120		efgt1 16132	. . . . . . . . . . . . . 14 ⊢ ((𝑇 / (𝐸 / 4)) ∈ ℝ⁺ → 1 < (exp‘(𝑇 / (𝐸 / 4))))
121	116, 120	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 < (exp‘(𝑇 / (𝐸 / 4))))
122	121	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 < (exp‘(𝑇 / (𝐸 / 4))))
123		pntibndlem2.7	. . . . . . . . . . . . . . . 16 ⊢ 𝑋 = ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍)
124		pntibndlem3.6	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑍 ∈ ℝ⁺)
125	124	rpred 13049	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑍 ∈ ℝ)
126	118, 125	readdcld 11262	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍) ∈ ℝ)
127	123, 126	eqeltrid 2838	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ ℝ)
128	118, 124	ltaddrpd 13082	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍))
129	128, 123	breqtrrdi 5161	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑋)
130		eliooord 13420	. . . . . . . . . . . . . . . . 17 ⊢ (𝑌 ∈ (𝑋(,)+∞) → (𝑋 < 𝑌 ∧ 𝑌 < +∞))
131	44, 130	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑋 < 𝑌 ∧ 𝑌 < +∞))
132	131	simpld 494	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 < 𝑌)
133	118, 127, 45, 129, 132	lttrd 11394	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑌)
134	118, 45, 17, 133, 5	lttrd 11394	. . . . . . . . . . . . 13 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑁)
135	134	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) < 𝑁)
136	111, 119, 101, 122, 135	lttrd 11394	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 < 𝑁)
137	101, 136	rplogcld 26588	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (log‘𝑁) ∈ ℝ⁺)
138	110, 137	rerpdivcld 13080	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℝ)
139	107, 138	readdcld 11262	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ∈ ℝ)
140		peano2re 11406	. . . . . . . . . . . 12 ⊢ ((abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℝ → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℝ)
141	86, 140	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℝ)
142	103, 141	remulcld 11263	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) ∈ ℝ)
143		chpcl 27084	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → (ψ‘𝑢) ∈ ℝ)
144	77, 143	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑢) ∈ ℝ)
145		chpcl 27084	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (ψ‘𝑁) ∈ ℝ)
146	101, 145	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ∈ ℝ)
147	144, 146	resubcld 11663	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ∈ ℝ)
148	147, 78	rerpdivcld 13080	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ∈ ℝ)
149	142, 148	readdcld 11262	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ∈ ℝ)
150	103, 86	remulcld 11263	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) ∈ ℝ)
151	88	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) ∈ ℝ)
152	83, 151	resubcld 11663	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) ∈ ℝ)
153	152	recnd 11261	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) ∈ ℂ)
154	153	abscld 15453	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) ∈ ℝ)
155	154, 78	rerpdivcld 13080	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁) ∈ ℝ)
156	150, 155	readdcld 11262	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ∈ ℝ)
157	103, 84	remulcld 11263	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
158	157	renegcld 11662	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
159	158	recnd 11261	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
160	152, 78	rerpdivcld 13080	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) ∈ ℝ)
161	160	recnd 11261	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) ∈ ℂ)
162	159, 161	abstrid 15473	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) ≤ ((abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) + (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))))
163	77	recnd 11261	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℂ)
164	101	recnd 11261	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℂ)
165	78	rpne0d 13054	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ≠ 0)
166	163, 164, 164, 165	divsubdird 12054	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) = ((𝑢 / 𝑁) − (𝑁 / 𝑁)))
167	164, 165	dividd 12013	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 / 𝑁) = 1)
168	167	oveq2d 7419	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) − (𝑁 / 𝑁)) = ((𝑢 / 𝑁) − 1))
169	166, 168	eqtrd 2770	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) = ((𝑢 / 𝑁) − 1))
170	169	oveq1d 7418	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑢 / 𝑁) − 1) · ((𝑅‘𝑢) / 𝑢)))
171	77, 78	rerpdivcld 13080	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ∈ ℝ)
172	171	recnd 11261	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ∈ ℂ)
173		1cnd 11228	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 ∈ ℂ)
174	172, 173, 85	subdird 11692	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) − 1) · ((𝑅‘𝑢) / 𝑢)) = (((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) − (1 · ((𝑅‘𝑢) / 𝑢))))
175	80	rpcnne0d 13058	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ ℂ ∧ 𝑢 ≠ 0))
176	78	rpcnne0d 13058	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0))
177	83	recnd 11261	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) ∈ ℂ)
178		dmdcan 11949	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑢 ∈ ℂ ∧ 𝑢 ≠ 0) ∧ (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0) ∧ (𝑅‘𝑢) ∈ ℂ) → ((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑁))
179	175, 176, 177, 178	syl3anc 1373	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑁))
180	85	mullidd 11251	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑢))
181	179, 180	oveq12d 7421	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) − (1 · ((𝑅‘𝑢) / 𝑢))) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
182	170, 174, 181	3eqtrd 2774	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
183	182	negeqd 11474	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = -(((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
184	83, 78	rerpdivcld 13080	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑁) ∈ ℝ)
185	184	recnd 11261	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑁) ∈ ℂ)
186	185, 85	negsubdi2d 11608	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)))
187	183, 186	eqtrd 2770	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)))
188	151	recnd 11261	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) ∈ ℂ)
189	177, 188, 164, 165	divsubdird 12054	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁)))
190	187, 189	oveq12d 7421	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)) + (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁))))
191	85, 185, 91	npncand 11616	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)) + (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁))) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)))
192	190, 191	eqtrd 2770	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)))
193	192	fveq2d 6879	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) = (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))))
194	157	recnd 11261	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
195	194	absnegd 15466	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = (abs‘(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))))
196	103	recnd 11261	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ∈ ℂ)
197	196, 85	absmuld 15471	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = ((abs‘((𝑢 − 𝑁) / 𝑁)) · (abs‘((𝑅‘𝑢) / 𝑢))))
198	77, 101	subge0d 11825	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (0 ≤ (𝑢 − 𝑁) ↔ 𝑁 ≤ 𝑢))
199	79, 198	mpbird 257	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 0 ≤ (𝑢 − 𝑁))
200	102, 78, 199	divge0d 13089	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 0 ≤ ((𝑢 − 𝑁) / 𝑁))
201	103, 200	absidd 15439	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑢 − 𝑁) / 𝑁)) = ((𝑢 − 𝑁) / 𝑁))
202	201	oveq1d 7418	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑢 − 𝑁) / 𝑁)) · (abs‘((𝑅‘𝑢) / 𝑢))) = (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))))
203	195, 197, 202	3eqtrd 2774	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))))
204	153, 164, 165	absdivd 15472	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / (abs‘𝑁)))
205	78	rprege0d 13056	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 ∈ ℝ ∧ 0 ≤ 𝑁))
206		absid 15313	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℝ ∧ 0 ≤ 𝑁) → (abs‘𝑁) = 𝑁)
207	205, 206	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘𝑁) = 𝑁)
208	207	oveq2d 7419	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / (abs‘𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁))
209	204, 208	eqtrd 2770	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁))
210	203, 209	oveq12d 7421	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) + (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)))
211	162, 193, 210	3brtr3d 5150	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)))
212	102, 147	readdcld 11262	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) ∈ ℝ)
213	212, 78	rerpdivcld 13080	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁) ∈ ℝ)
214	147	recnd 11261	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ∈ ℂ)
215	164, 163	subcld 11592	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 − 𝑢) ∈ ℂ)
216	214, 215	abstrid 15473	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢))) ≤ ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))))
217	8	pntrval 27523	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ ℝ⁺ → (𝑅‘𝑢) = ((ψ‘𝑢) − 𝑢))
218	80, 217	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) = ((ψ‘𝑢) − 𝑢))
219	8	pntrval 27523	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℝ⁺ → (𝑅‘𝑁) = ((ψ‘𝑁) − 𝑁))
220	78, 219	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) = ((ψ‘𝑁) − 𝑁))
221	218, 220	oveq12d 7421	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) = (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)))
222	144	recnd 11261	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑢) ∈ ℂ)
223	146	recnd 11261	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ∈ ℂ)
224		subadd4 11525	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − (ψ‘𝑁)) − (𝑢 − 𝑁)) = (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)))
225		sub4 11526	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − (ψ‘𝑁)) − (𝑢 − 𝑁)) = (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)))
226		addsub4 11524	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ 𝑁 ∈ ℂ) ∧ ((ψ‘𝑁) ∈ ℂ ∧ 𝑢 ∈ ℂ)) → (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
227	226	an42s 661	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
228	224, 225, 227	3eqtr3d 2778	. . . . . . . . . . . . . . . . 17 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
229	222, 223, 163, 164, 228	syl22anc 838	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
230	221, 229	eqtr2d 2771	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)) = ((𝑅‘𝑢) − (𝑅‘𝑁)))
231	230	fveq2d 6879	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢))) = (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))))
232	102	recnd 11261	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 − 𝑁) ∈ ℂ)
233		chpwordi 27117	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℝ ∧ 𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢) → (ψ‘𝑁) ≤ (ψ‘𝑢))
234	101, 77, 79, 233	syl3anc 1373	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ≤ (ψ‘𝑢))
235	146, 144, 234	abssubge0d 15448	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((ψ‘𝑢) − (ψ‘𝑁))) = ((ψ‘𝑢) − (ψ‘𝑁)))
236	101, 77, 79	abssuble0d 15449	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(𝑁 − 𝑢)) = (𝑢 − 𝑁))
237	235, 236	oveq12d 7421	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑢 − 𝑁)))
238	214, 232, 237	comraddd 11447	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))) = ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))))
239	216, 231, 238	3brtr3d 5150	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) ≤ ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))))
240	154, 212, 78, 239	lediv1dd 13107	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁) ≤ (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁))
241	155, 213, 150, 240	leadd2dd 11850	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)))
242	150	recnd 11261	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) ∈ ℂ)
243	148	recnd 11261	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ∈ ℂ)
244	242, 196, 243	addassd 11255	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁))))
245	86	recnd 11261	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
246	196, 245, 173	adddid 11257	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) · 1)))
247	196	mulridd 11250	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · 1) = ((𝑢 − 𝑁) / 𝑁))
248	247	oveq2d 7419	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) · 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)))
249	246, 248	eqtrd 2770	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)))
250	249	oveq1d 7418	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = (((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
251	232, 214, 164, 165	divdird 12053	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁) = (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
252	251	oveq2d 7419	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁))))
253	244, 250, 252	3eqtr4d 2780	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)))
254	241, 253	breqtrrd 5147	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
255	93, 156, 149, 211, 254	letrd 11390	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
256		remulcl 11212	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ ((𝑢 − 𝑁) / 𝑁) ∈ ℝ) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℝ)
257	19, 103, 256	sylancr 587	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℝ)
258	257, 138	readdcld 11262	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))) ∈ ℝ)
259		remulcl 11212	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℝ ∧ (𝑢 − 𝑁) ∈ ℝ) → (2 · (𝑢 − 𝑁)) ∈ ℝ)
260	19, 102, 259	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · (𝑢 − 𝑁)) ∈ ℝ)
261	101, 137	rerpdivcld 13080	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 / (log‘𝑁)) ∈ ℝ)
262	110, 261	remulcld 11263	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℝ)
263	260, 262	readdcld 11262	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) ∈ ℝ)
264		fveq2 6875	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑢 → (ψ‘𝑦) = (ψ‘𝑢))
265	264	oveq1d 7418	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑢 → ((ψ‘𝑦) − (ψ‘𝑁)) = ((ψ‘𝑢) − (ψ‘𝑁)))
266		oveq1 7410	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑢 → (𝑦 − 𝑁) = (𝑢 − 𝑁))
267	266	oveq2d 7419	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑢 → (2 · (𝑦 − 𝑁)) = (2 · (𝑢 − 𝑁)))
268	267	oveq1d 7418	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑢 → ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) = ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
269	265, 268	breq12d 5132	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑢 → (((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) ↔ ((ψ‘𝑢) − (ψ‘𝑁)) ≤ ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
270		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → 𝑥 = 𝑁)
271		oveq2 7411	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → (2 · 𝑥) = (2 · 𝑁))
272	270, 271	oveq12d 7421	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → (𝑥[,](2 · 𝑥)) = (𝑁[,](2 · 𝑁)))
273		fveq2 6875	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (ψ‘𝑥) = (ψ‘𝑁))
274	273	oveq2d 7419	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → ((ψ‘𝑦) − (ψ‘𝑥)) = ((ψ‘𝑦) − (ψ‘𝑁)))
275		oveq2 7411	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑁 → (𝑦 − 𝑥) = (𝑦 − 𝑁))
276	275	oveq2d 7419	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (2 · (𝑦 − 𝑥)) = (2 · (𝑦 − 𝑁)))
277		fveq2 6875	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑁 → (log‘𝑥) = (log‘𝑁))
278	270, 277	oveq12d 7421	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑁 → (𝑥 / (log‘𝑥)) = (𝑁 / (log‘𝑁)))
279	278	oveq2d 7419	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (𝑇 · (𝑥 / (log‘𝑥))) = (𝑇 · (𝑁 / (log‘𝑁))))
280	276, 279	oveq12d 7421	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) = ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
281	274, 280	breq12d 5132	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → (((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) ↔ ((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
282	272, 281	raleqbidv 3325	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑁 → (∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) ↔ ∀𝑦 ∈ (𝑁[,](2 · 𝑁))((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
283		pntibndlem2.6	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑥 ∈ (1(,)+∞)∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))))
284	283	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑥 ∈ (1(,)+∞)∀𝑦 ∈ (𝑥[,](2 · 𝑥))((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))))
285		1xr 11292	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ^*
286		elioopnf 13458	. . . . . . . . . . . . . . . . 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 3602	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑦 ∈ (𝑁[,](2 · 𝑁))((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
290	18	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) · 𝑁) ∈ ℝ)
291	21	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · 𝑁) ∈ ℝ)
292	76	simp3d 1144	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁))
293		ltle 11321	. . . . . . . . . . . . . . . . . . . 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 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) ≤ 2)
297	16	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) ∈ ℝ)
298	19	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ∈ ℝ)
299	297, 298, 78	lemul1d 13092	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) ≤ 2 ↔ ((1 + (𝐿 · 𝐸)) · 𝑁) ≤ (2 · 𝑁)))
300	296, 299	mpbid 232	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) · 𝑁) ≤ (2 · 𝑁))
301	77, 290, 291, 292, 300	letrd 11390	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ≤ (2 · 𝑁))
302		elicc2 13426	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ) → (𝑢 ∈ (𝑁[,](2 · 𝑁)) ↔ (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ (2 · 𝑁))))
303	101, 291, 302	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ (𝑁[,](2 · 𝑁)) ↔ (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ (2 · 𝑁))))
304	77, 79, 301, 303	mpbir3and 1343	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ (𝑁[,](2 · 𝑁)))
305	269, 289, 304	rspcdva 3602	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ≤ ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
306	147, 263, 78, 305	lediv1dd 13107	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ≤ (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁))
307	260	recnd 11261	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · (𝑢 − 𝑁)) ∈ ℂ)
308	108	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ⁺)
309	308	rpred 13049	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ)
310	309, 261	remulcld 11263	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℝ)
311	310	recnd 11261	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℂ)
312		divdir 11919	. . . . . . . . . . . . . 14 ⊢ (((2 · (𝑢 − 𝑁)) ∈ ℂ ∧ (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℂ ∧ (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0)) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)))
313	307, 311, 176, 312	syl3anc 1373	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)))
314		2cnd 12316	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ∈ ℂ)
315	314, 232, 164, 165	divassd 12050	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · (𝑢 − 𝑁)) / 𝑁) = (2 · ((𝑢 − 𝑁) / 𝑁)))
316	110	recnd 11261	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℂ)
317	137	rpcnne0d 13058	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((log‘𝑁) ∈ ℂ ∧ (log‘𝑁) ≠ 0))
318		div12 11916	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑇 ∈ ℂ ∧ 𝑁 ∈ ℂ ∧ ((log‘𝑁) ∈ ℂ ∧ (log‘𝑁) ≠ 0)) → (𝑇 · (𝑁 / (log‘𝑁))) = (𝑁 · (𝑇 / (log‘𝑁))))
319	316, 164, 317, 318	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) = (𝑁 · (𝑇 / (log‘𝑁))))
320	319	oveq1d 7418	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁) = ((𝑁 · (𝑇 / (log‘𝑁))) / 𝑁))
321	308, 137	rpdivcld 13066	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℝ⁺)
322	321	rpcnd 13051	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℂ)
323	322, 164, 165	divcan3d 12020	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑁 · (𝑇 / (log‘𝑁))) / 𝑁) = (𝑇 / (log‘𝑁)))
324	320, 323	eqtrd 2770	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁) = (𝑇 / (log‘𝑁)))
325	315, 324	oveq12d 7421	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)) = ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
326	313, 325	eqtrd 2770	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
327	306, 326	breqtrd 5145	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ≤ ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
328	148, 258, 142, 327	leadd2dd 11850	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))))
329	142	recnd 11261	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) ∈ ℂ)
330	257	recnd 11261	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℂ)
331	138	recnd 11261	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℂ)
332	329, 330, 331	addassd 11255	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) + (𝑇 / (log‘𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))))
333		2cn 12313	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℂ
334		mulcom 11213	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℂ ∧ ((𝑢 − 𝑁) / 𝑁) ∈ ℂ) → (2 · ((𝑢 − 𝑁) / 𝑁)) = (((𝑢 − 𝑁) / 𝑁) · 2))
335	333, 196, 334	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) = (((𝑢 − 𝑁) / 𝑁) · 2))
336	335	oveq2d 7419	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((𝑢 − 𝑁) / 𝑁) · 2)))
337	141	recnd 11261	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℂ)
338	196, 337, 314	adddid 11257	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2)) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((𝑢 − 𝑁) / 𝑁) · 2)))
339	245, 173, 314	addassd 11255	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2) = ((abs‘((𝑅‘𝑢) / 𝑢)) + (1 + 2)))
340		1p2e3 12381	. . . . . . . . . . . . . . . 16 ⊢ (1 + 2) = 3
341	340	oveq2i 7414	. . . . . . . . . . . . . . 15 ⊢ ((abs‘((𝑅‘𝑢) / 𝑢)) + (1 + 2)) = ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)
342	339, 341	eqtrdi 2786	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2) = ((abs‘((𝑅‘𝑢) / 𝑢)) + 3))
343	342	oveq2d 7419	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2)) = (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)))
344	336, 338, 343	3eqtr2d 2776	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) = (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)))
345	344	oveq1d 7418	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) + (𝑇 / (log‘𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
346	332, 345	eqtr3d 2772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
347	328, 346	breqtrd 5145	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
348	93, 149, 139, 255, 347	letrd 11390	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
349	100	rehalfcld 12486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) ∈ ℝ)
350	77, 297, 78	ledivmul2d 13103	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) ≤ (1 + (𝐿 · 𝐸)) ↔ 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁)))
351	292, 350	mpbird 257	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ≤ (1 + (𝐿 · 𝐸)))
352		ax-1cn 11185	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℂ
353	15	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) ∈ ℝ)
354	353	recnd 11261	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) ∈ ℂ)
355		addcom 11419	. . . . . . . . . . . . . . . 16 ⊢ ((1 ∈ ℂ ∧ (𝐿 · 𝐸) ∈ ℂ) → (1 + (𝐿 · 𝐸)) = ((𝐿 · 𝐸) + 1))
356	352, 354, 355	sylancr 587	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) = ((𝐿 · 𝐸) + 1))
357	351, 356	breqtrd 5145	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ≤ ((𝐿 · 𝐸) + 1))
358	171, 111, 353	lesubaddd 11832	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) − 1) ≤ (𝐿 · 𝐸) ↔ (𝑢 / 𝑁) ≤ ((𝐿 · 𝐸) + 1)))
359	357, 358	mpbird 257	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) − 1) ≤ (𝐿 · 𝐸))
360	169, 359	eqbrtrd 5141	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸))
361	9	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐴 ∈ ℝ⁺)
362	361	rpred 13049	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐴 ∈ ℝ)
363		fveq2 6875	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑢 → (𝑅‘𝑥) = (𝑅‘𝑢))
364		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑢 → 𝑥 = 𝑢)
365	363, 364	oveq12d 7421	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑢 → ((𝑅‘𝑥) / 𝑥) = ((𝑅‘𝑢) / 𝑢))
366	365	fveq2d 6879	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑢 → (abs‘((𝑅‘𝑥) / 𝑥)) = (abs‘((𝑅‘𝑢) / 𝑢)))
367	366	breq1d 5129	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑢 → ((abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴 ↔ (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐴))
368	74	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
369	367, 368, 80	rspcdva 3602	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐴)
370	86, 362, 105, 369	leadd1dd 11849	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3))
371	103, 200	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) ∈ ℝ ∧ 0 ≤ ((𝑢 − 𝑁) / 𝑁)))
372		3rp 13012	. . . . . . . . . . . . . . 15 ⊢ 3 ∈ ℝ⁺
373		rpaddcl 13029	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 3 ∈ ℝ⁺) → (𝐴 + 3) ∈ ℝ⁺)
374	361, 372, 373	sylancl 586	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ∈ ℝ⁺)
375	374	rprege0d 13056	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐴 + 3) ∈ ℝ ∧ 0 ≤ (𝐴 + 3)))
376		lemul12b 12096	. . . . . . . . . . . . 13 ⊢ ((((((𝑢 − 𝑁) / 𝑁) ∈ ℝ ∧ 0 ≤ ((𝑢 − 𝑁) / 𝑁)) ∧ (𝐿 · 𝐸) ∈ ℝ) ∧ (((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ∈ ℝ ∧ ((𝐴 + 3) ∈ ℝ ∧ 0 ≤ (𝐴 + 3)))) → ((((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸) ∧ ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3)) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3))))
377	371, 353, 106, 375, 376	syl22anc 838	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸) ∧ ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3)) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3))))
378	360, 370, 377	mp2and 699	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3)))
379	35	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℝ⁺)
380	112, 113	mp1i 13	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ∈ ℝ⁺)
381	379, 380	rpdivcld 13066	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) ∈ ℝ⁺)
382	381	rpcnd 13051	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) ∈ ℂ)
383	374	rpcnd 13051	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ∈ ℂ)
384	374	rpne0d 13054	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ≠ 0)
385	382, 383, 384	divcan1d 12016	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝐸 / 4) / (𝐴 + 3)) · (𝐴 + 3)) = (𝐸 / 4))
386	14	recnd 11261	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐸 ∈ ℂ)
387	386	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℂ)
388	380	rpcnd 13051	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ∈ ℂ)
389	380	rpne0d 13054	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ≠ 0)
390	387, 388, 389	divrec2d 12019	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) = ((1 / 4) · 𝐸))
391	390	oveq1d 7418	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 4) / (𝐴 + 3)) = (((1 / 4) · 𝐸) / (𝐴 + 3)))
392		4cn 12323	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ∈ ℂ
393		4ne0 12346	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ≠ 0
394	392, 393	reccli 11969	. . . . . . . . . . . . . . . . 17 ⊢ (1 / 4) ∈ ℂ
395	394	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 / 4) ∈ ℂ)
396	395, 387, 383, 384	div23d 12052	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((1 / 4) · 𝐸) / (𝐴 + 3)) = (((1 / 4) / (𝐴 + 3)) · 𝐸))
397	10	oveq1i 7413	. . . . . . . . . . . . . . 15 ⊢ (𝐿 · 𝐸) = (((1 / 4) / (𝐴 + 3)) · 𝐸)
398	396, 397	eqtr4di 2788	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((1 / 4) · 𝐸) / (𝐴 + 3)) = (𝐿 · 𝐸))
399	391, 398	eqtr2d 2771	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) = ((𝐸 / 4) / (𝐴 + 3)))
400	399	oveq1d 7418	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐿 · 𝐸) · (𝐴 + 3)) = (((𝐸 / 4) / (𝐴 + 3)) · (𝐴 + 3)))
401		2ne0 12342	. . . . . . . . . . . . . . 15 ⊢ 2 ≠ 0
402	401	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ≠ 0)
403	387, 314, 314, 402, 402	divdiv1d 12046	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) = (𝐸 / (2 · 2)))
404		2t2e4 12402	. . . . . . . . . . . . . 14 ⊢ (2 · 2) = 4
405	404	oveq2i 7414	. . . . . . . . . . . . 13 ⊢ (𝐸 / (2 · 2)) = (𝐸 / 4)
406	403, 405	eqtrdi 2786	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) = (𝐸 / 4))
407	385, 400, 406	3eqtr4d 2780	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐿 · 𝐸) · (𝐴 + 3)) = ((𝐸 / 2) / 2))
408	378, 407	breqtrd 5145	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐸 / 2) / 2))
409	117	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) ∈ ℝ)
410	137	rpred 13049	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (log‘𝑁) ∈ ℝ)
411	78	reeflogd 26583	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(log‘𝑁)) = 𝑁)
412	135, 411	breqtrrd 5147	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁)))
413		eflt 16133	. . . . . . . . . . . . . . 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 257	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) < (log‘𝑁))
416	409, 410, 415	ltled 11381	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) ≤ (log‘𝑁))
417	110, 381, 137, 416	lediv23d 13117	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ≤ (𝐸 / 4))
418	417, 406	breqtrrd 5147	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ≤ ((𝐸 / 2) / 2))
419	107, 138, 349, 349, 408, 418	le2addd 11854	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ≤ (((𝐸 / 2) / 2) + ((𝐸 / 2) / 2)))
420	100	recnd 11261	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 2) ∈ ℂ)
421	420	2halvesd 12485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝐸 / 2) / 2) + ((𝐸 / 2) / 2)) = (𝐸 / 2))
422	419, 421	breqtrd 5145	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ≤ (𝐸 / 2))
423	93, 139, 100, 348, 422	letrd 11390	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ (𝐸 / 2))
424	3	simprd 495	. . . . . . . 8 ⊢ (𝜑 → (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2))
425	424	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2))
426	93, 94, 100, 100, 423, 425	le2addd 11854	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ≤ ((𝐸 / 2) + (𝐸 / 2)))
427	387	2halvesd 12485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) + (𝐸 / 2)) = 𝐸)
428	426, 427	breqtrd 5145	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ≤ 𝐸)
429	86, 95, 96, 99, 428	letrd 11390	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)
430	429	ralrimiva 3132	. . 3 ⊢ (𝜑 → ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)
431	5, 73, 430	jca31 514	. 2 ⊢ (𝜑 → ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
432		breq2 5123	. . . . 5 ⊢ (𝑧 = 𝑁 → (𝑌 < 𝑧 ↔ 𝑌 < 𝑁))
433		oveq2 7411	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((1 + (𝐿 · 𝐸)) · 𝑧) = ((1 + (𝐿 · 𝐸)) · 𝑁))
434	433	breq1d 5129	. . . . 5 ⊢ (𝑧 = 𝑁 → (((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌) ↔ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)))
435	432, 434	anbi12d 632	. . . 4 ⊢ (𝑧 = 𝑁 → ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ↔ (𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌))))
436		id 22	. . . . . 6 ⊢ (𝑧 = 𝑁 → 𝑧 = 𝑁)
437	436, 433	oveq12d 7421	. . . . 5 ⊢ (𝑧 = 𝑁 → (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧)) = (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁)))
438	437	raleqdv 3305	. . . 4 ⊢ (𝑧 = 𝑁 → (∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸 ↔ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
439	435, 438	anbi12d 632	. . 3 ⊢ (𝑧 = 𝑁 → (((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸) ↔ ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)))
440	439	rspcev 3601	. 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 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2108 ≠ wne 2932 ∀wral 3051 ∃wrex 3060 ⊆ wss 3926 class class class wbr 5119 ↦ cmpt 5201 ‘cfv 6530 (class class class)co 7403 ℂcc 11125 ℝcr 11126 0cc0 11127 1c1 11128 + caddc 11130 · cmul 11132 +∞cpnf 11264 ℝ^*cxr 11266 < clt 11267 ≤ cle 11268 − cmin 11464 -cneg 11465 / cdiv 11892 ℕcn 12238 2c2 12293 3c3 12294 4c4 12295 ℝ⁺crp 13006 (,)cioo 13360 [,)cico 13362 [,]cicc 13363 abscabs 15251 expce 16075 logclog 26513 ψcchp 27053

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2707 ax-rep 5249 ax-sep 5266 ax-nul 5276 ax-pow 5335 ax-pr 5402 ax-un 7727 ax-inf2 9653 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205 ax-addf 11206

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2539 df-eu 2568 df-clab 2714 df-cleq 2727 df-clel 2809 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3359 df-reu 3360 df-rab 3416 df-v 3461 df-sbc 3766 df-csb 3875 df-dif 3929 df-un 3931 df-in 3933 df-ss 3943 df-pss 3946 df-nul 4309 df-if 4501 df-pw 4577 df-sn 4602 df-pr 4604 df-tp 4606 df-op 4608 df-uni 4884 df-int 4923 df-iun 4969 df-iin 4970 df-br 5120 df-opab 5182 df-mpt 5202 df-tr 5230 df-id 5548 df-eprel 5553 df-po 5561 df-so 5562 df-fr 5606 df-se 5607 df-we 5608 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6290 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6483 df-fun 6532 df-fn 6533 df-f 6534 df-f1 6535 df-fo 6536 df-f1o 6537 df-fv 6538 df-isom 6539 df-riota 7360 df-ov 7406 df-oprab 7407 df-mpo 7408 df-of 7669 df-om 7860 df-1st 7986 df-2nd 7987 df-supp 8158 df-frecs 8278 df-wrecs 8309 df-recs 8383 df-rdg 8422 df-1o 8478 df-2o 8479 df-oadd 8482 df-er 8717 df-map 8840 df-pm 8841 df-ixp 8910 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-fsupp 9372 df-fi 9421 df-sup 9452 df-inf 9453 df-oi 9522 df-dju 9913 df-card 9951 df-pnf 11269 df-mnf 11270 df-xr 11271 df-ltxr 11272 df-le 11273 df-sub 11466 df-neg 11467 df-div 11893 df-nn 12239 df-2 12301 df-3 12302 df-4 12303 df-5 12304 df-6 12305 df-7 12306 df-8 12307 df-9 12308 df-n0 12500 df-z 12587 df-dec 12707 df-uz 12851 df-q 12963 df-rp 13007 df-xneg 13126 df-xadd 13127 df-xmul 13128 df-ioo 13364 df-ioc 13365 df-ico 13366 df-icc 13367 df-fz 13523 df-fzo 13670 df-fl 13807 df-mod 13885 df-seq 14018 df-exp 14078 df-fac 14290 df-bc 14319 df-hash 14347 df-shft 15084 df-cj 15116 df-re 15117 df-im 15118 df-sqrt 15252 df-abs 15253 df-limsup 15485 df-clim 15502 df-rlim 15503 df-sum 15701 df-ef 16081 df-sin 16083 df-cos 16084 df-pi 16086 df-dvds 16271 df-gcd 16512 df-prm 16689 df-pc 16855 df-struct 17164 df-sets 17181 df-slot 17199 df-ndx 17211 df-base 17227 df-ress 17250 df-plusg 17282 df-mulr 17283 df-starv 17284 df-sca 17285 df-vsca 17286 df-ip 17287 df-tset 17288 df-ple 17289 df-ds 17291 df-unif 17292 df-hom 17293 df-cco 17294 df-rest 17434 df-topn 17435 df-0g 17453 df-gsum 17454 df-topgen 17455 df-pt 17456 df-prds 17459 df-xrs 17514 df-qtop 17519 df-imas 17520 df-xps 17522 df-mre 17596 df-mrc 17597 df-acs 17599 df-mgm 18616 df-sgrp 18695 df-mnd 18711 df-submnd 18760 df-mulg 19049 df-cntz 19298 df-cmn 19761 df-psmet 21305 df-xmet 21306 df-met 21307 df-bl 21308 df-mopn 21309 df-fbas 21310 df-fg 21311 df-cnfld 21314 df-top 22830 df-topon 22847 df-topsp 22869 df-bases 22882 df-cld 22955 df-ntr 22956 df-cls 22957 df-nei 23034 df-lp 23072 df-perf 23073 df-cn 23163 df-cnp 23164 df-haus 23251 df-tx 23498 df-hmeo 23691 df-fil 23782 df-fm 23874 df-flim 23875 df-flf 23876 df-xms 24257 df-ms 24258 df-tms 24259 df-cncf 24820 df-limc 25817 df-dv 25818 df-log 26515 df-vma 27058 df-chp 27059

This theorem is referenced by: pntibndlem3 27553

W3C validator