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 27570

Description: Lemma for pntibnd 27572. 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 12959	. 2 ⊢ (𝜑 → 𝑁 ∈ ℝ⁺)
3		pntibndlem2.11	. . . . 5 ⊢ (𝜑 → ((𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)) ∧ (abs‘((𝑅‘𝑁) / 𝑁)) ≤ (𝐸 / 2)))
4	3	simpld 494	. . . 4 ⊢ (𝜑 → (𝑌 < 𝑁 ∧ 𝑁 ≤ ((𝑀 / 2) · 𝑌)))
5	4	simpld 494	. . 3 ⊢ (𝜑 → 𝑌 < 𝑁)
6		1red 11145	. . . . . 6 ⊢ (𝜑 → 1 ∈ ℝ)
7		ioossre 13335	. . . . . . . 8 ⊢ (0(,)1) ⊆ ℝ
8		pntibnd.r	. . . . . . . . 9 ⊢ 𝑅 = (𝑎 ∈ ℝ⁺ ↦ ((ψ‘𝑎) − 𝑎))
9		pntibndlem1.1	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
10		pntibndlem1.l	. . . . . . . . 9 ⊢ 𝐿 = ((1 / 4) / (𝐴 + 3))
11	8, 9, 10	pntibndlem1 27568	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ (0(,)1))
12	7, 11	sselid 3933	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ ℝ)
13		pntibndlem3.4	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ (0(,)1))
14	7, 13	sselid 3933	. . . . . . 7 ⊢ (𝜑 → 𝐸 ∈ ℝ)
15	12, 14	remulcld 11174	. . . . . 6 ⊢ (𝜑 → (𝐿 · 𝐸) ∈ ℝ)
16	6, 15	readdcld 11173	. . . . 5 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) ∈ ℝ)
17	1	nnred 12172	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ℝ)
18	16, 17	remulcld 11174	. . . 4 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) ∈ ℝ)
19		2re 12231	. . . . 5 ⊢ 2 ∈ ℝ
20		remulcl 11123	. . . . 5 ⊢ ((2 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (2 · 𝑁) ∈ ℝ)
21	19, 17, 20	sylancr 588	. . . 4 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
22		pntibndlem3.c	. . . . . . . . . 10 ⊢ 𝐶 = ((2 · 𝐵) + (log‘2))
23		pntibndlem3.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
24	23	rpred 12961	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
25		remulcl 11123	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2 · 𝐵) ∈ ℝ)
26	19, 24, 25	sylancr 588	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝐵) ∈ ℝ)
27		2rp 12922	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ⁺
28	27	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ ℝ⁺)
29	28	relogcld 26600	. . . . . . . . . . 11 ⊢ (𝜑 → (log‘2) ∈ ℝ)
30	26, 29	readdcld 11173	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝐵) + (log‘2)) ∈ ℝ)
31	22, 30	eqeltrid 2841	. . . . . . . . 9 ⊢ (𝜑 → 𝐶 ∈ ℝ)
32		eliooord 13333	. . . . . . . . . . . 12 ⊢ (𝐸 ∈ (0(,)1) → (0 < 𝐸 ∧ 𝐸 < 1))
33	13, 32	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (0 < 𝐸 ∧ 𝐸 < 1))
34	33	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 0 < 𝐸)
35	14, 34	elrpd 12958	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ ℝ⁺)
36	31, 35	rerpdivcld 12992	. . . . . . . 8 ⊢ (𝜑 → (𝐶 / 𝐸) ∈ ℝ)
37	36	reefcld 16023	. . . . . . 7 ⊢ (𝜑 → (exp‘(𝐶 / 𝐸)) ∈ ℝ)
38		pnfxr 11198	. . . . . . 7 ⊢ +∞ ∈ ℝ^*
39		icossre 13356	. . . . . . 7 ⊢ (((exp‘(𝐶 / 𝐸)) ∈ ℝ ∧ +∞ ∈ ℝ^*) → ((exp‘(𝐶 / 𝐸))[,)+∞) ⊆ ℝ)
40	37, 38, 39	sylancl 587	. . . . . 6 ⊢ (𝜑 → ((exp‘(𝐶 / 𝐸))[,)+∞) ⊆ ℝ)
41		pntibndlem2.8	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ ((exp‘(𝐶 / 𝐸))[,)+∞))
42	40, 41	sseldd 3936	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℝ)
43		ioossre 13335	. . . . . 6 ⊢ (𝑋(,)+∞) ⊆ ℝ
44		pntibndlem2.9	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ (𝑋(,)+∞))
45	43, 44	sselid 3933	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ ℝ)
46	42, 45	remulcld 11174	. . . 4 ⊢ (𝜑 → (𝑀 · 𝑌) ∈ ℝ)
47	19	a1i 11	. . . . 5 ⊢ (𝜑 → 2 ∈ ℝ)
48		eliooord 13333	. . . . . . . . . . . . 13 ⊢ (𝐿 ∈ (0(,)1) → (0 < 𝐿 ∧ 𝐿 < 1))
49	11, 48	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (0 < 𝐿 ∧ 𝐿 < 1))
50	49	simpld 494	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < 𝐿)
51	12, 50	elrpd 12958	. . . . . . . . . 10 ⊢ (𝜑 → 𝐿 ∈ ℝ⁺)
52	51	rpge0d 12965	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐿)
53	49	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 < 1)
54	35	rpge0d 12965	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐸)
55	33	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 < 1)
56	12, 6, 14, 6, 52, 53, 54, 55	ltmul12ad 12095	. . . . . . . 8 ⊢ (𝜑 → (𝐿 · 𝐸) < (1 · 1))
57		1t1e1 12314	. . . . . . . 8 ⊢ (1 · 1) = 1
58	56, 57	breqtrdi 5141	. . . . . . 7 ⊢ (𝜑 → (𝐿 · 𝐸) < 1)
59	15, 6, 6, 58	ltadd2dd 11304	. . . . . 6 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) < (1 + 1))
60		df-2 12220	. . . . . 6 ⊢ 2 = (1 + 1)
61	59, 60	breqtrrdi 5142	. . . . 5 ⊢ (𝜑 → (1 + (𝐿 · 𝐸)) < 2)
62	16, 47, 2, 61	ltmul1dd 13016	. . . 4 ⊢ (𝜑 → ((1 + (𝐿 · 𝐸)) · 𝑁) < (2 · 𝑁))
63	4	simprd 495	. . . . . 6 ⊢ (𝜑 → 𝑁 ≤ ((𝑀 / 2) · 𝑌))
64	42	recnd 11172	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℂ)
65	45	recnd 11172	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ ℂ)
66		rpcnne0 12936	. . . . . . . 8 ⊢ (2 ∈ ℝ⁺ → (2 ∈ ℂ ∧ 2 ≠ 0))
67	27, 66	mp1i 13	. . . . . . 7 ⊢ (𝜑 → (2 ∈ ℂ ∧ 2 ≠ 0))
68		div23 11827	. . . . . . 7 ⊢ ((𝑀 ∈ ℂ ∧ 𝑌 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → ((𝑀 · 𝑌) / 2) = ((𝑀 / 2) · 𝑌))
69	64, 65, 67, 68	syl3anc 1374	. . . . . 6 ⊢ (𝜑 → ((𝑀 · 𝑌) / 2) = ((𝑀 / 2) · 𝑌))
70	63, 69	breqtrrd 5128	. . . . 5 ⊢ (𝜑 → 𝑁 ≤ ((𝑀 · 𝑌) / 2))
71	17, 46, 28	lemuldiv2d 13011	. . . . 5 ⊢ (𝜑 → ((2 · 𝑁) ≤ (𝑀 · 𝑌) ↔ 𝑁 ≤ ((𝑀 · 𝑌) / 2)))
72	70, 71	mpbird 257	. . . 4 ⊢ (𝜑 → (2 · 𝑁) ≤ (𝑀 · 𝑌))
73	18, 21, 46, 62, 72	ltletrd 11305	. . 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 27569	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁)))
77	76	simp1d 1143	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℝ)
78	2	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℝ⁺)
79	76	simp2d 1144	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ≤ 𝑢)
80	77, 78, 79	rpgecld 13000	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℝ⁺)
81	8	pntrf 27542	. . . . . . . . . 10 ⊢ 𝑅:ℝ⁺⟶ℝ
82	81	ffvelcdmi 7037	. . . . . . . . 9 ⊢ (𝑢 ∈ ℝ⁺ → (𝑅‘𝑢) ∈ ℝ)
83	80, 82	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) ∈ ℝ)
84	83, 80	rerpdivcld 12992	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑢) ∈ ℝ)
85	84	recnd 11172	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑢) ∈ ℂ)
86	85	abscld 15374	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
87	81	ffvelcdmi 7037	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℝ⁺ → (𝑅‘𝑁) ∈ ℝ)
88	2, 87	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑅‘𝑁) ∈ ℝ)
89	88, 1	nndivred 12211	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑅‘𝑁) / 𝑁) ∈ ℝ)
90	89	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑁) / 𝑁) ∈ ℝ)
91	90	recnd 11172	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑁) / 𝑁) ∈ ℂ)
92	85, 91	subcld 11504	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)) ∈ ℂ)
93	92	abscld 15374	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ∈ ℝ)
94	91	abscld 15374	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑁) / 𝑁)) ∈ ℝ)
95	93, 94	readdcld 11173	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ∈ ℝ)
96	14	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℝ)
97	85, 91	abs2difd 15395	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) − (abs‘((𝑅‘𝑁) / 𝑁))) ≤ (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))))
98	86, 94, 93	lesubaddd 11746	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) − (abs‘((𝑅‘𝑁) / 𝑁))) ≤ (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ↔ (abs‘((𝑅‘𝑢) / 𝑢)) ≤ ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁)))))
99	97, 98	mpbid 232	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))))
100	96	rehalfcld 12400	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 2) ∈ ℝ)
101	17	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℝ)
102	77, 101	resubcld 11577	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 − 𝑁) ∈ ℝ)
103	102, 78	rerpdivcld 12992	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ∈ ℝ)
104		3re 12237	. . . . . . . . . . . 12 ⊢ 3 ∈ ℝ
105	104	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 3 ∈ ℝ)
106	86, 105	readdcld 11173	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ∈ ℝ)
107	103, 106	remulcld 11174	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ∈ ℝ)
108		pntibndlem2.5	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ ℝ⁺)
109	108	rpred 12961	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ∈ ℝ)
110	109	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ)
111		1red 11145	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 ∈ ℝ)
112		4nn 12240	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ∈ ℕ
113		nnrp 12929	. . . . . . . . . . . . . . . . . 18 ⊢ (4 ∈ ℕ → 4 ∈ ℝ⁺)
114	112, 113	mp1i 13	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 4 ∈ ℝ⁺)
115	35, 114	rpdivcld 12978	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐸 / 4) ∈ ℝ⁺)
116	108, 115	rpdivcld 12978	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑇 / (𝐸 / 4)) ∈ ℝ⁺)
117	116	rpred 12961	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇 / (𝐸 / 4)) ∈ ℝ)
118	117	reefcld 16023	. . . . . . . . . . . . 13 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) ∈ ℝ)
119	118	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) ∈ ℝ)
120		efgt1 16053	. . . . . . . . . . . . . 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 12961	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑍 ∈ ℝ)
126	118, 125	readdcld 11173	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍) ∈ ℝ)
127	123, 126	eqeltrid 2841	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ∈ ℝ)
128	118, 124	ltaddrpd 12994	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < ((exp‘(𝑇 / (𝐸 / 4))) + 𝑍))
129	128, 123	breqtrrdi 5142	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑋)
130		eliooord 13333	. . . . . . . . . . . . . . . . 17 ⊢ (𝑌 ∈ (𝑋(,)+∞) → (𝑋 < 𝑌 ∧ 𝑌 < +∞))
131	44, 130	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑋 < 𝑌 ∧ 𝑌 < +∞))
132	131	simpld 494	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 < 𝑌)
133	118, 127, 45, 129, 132	lttrd 11306	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑌)
134	118, 45, 17, 133, 5	lttrd 11306	. . . . . . . . . . . . 13 ⊢ (𝜑 → (exp‘(𝑇 / (𝐸 / 4))) < 𝑁)
135	134	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) < 𝑁)
136	111, 119, 101, 122, 135	lttrd 11306	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 < 𝑁)
137	101, 136	rplogcld 26606	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (log‘𝑁) ∈ ℝ⁺)
138	110, 137	rerpdivcld 12992	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℝ)
139	107, 138	readdcld 11173	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ∈ ℝ)
140		peano2re 11318	. . . . . . . . . . . 12 ⊢ ((abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℝ → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℝ)
141	86, 140	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℝ)
142	103, 141	remulcld 11174	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) ∈ ℝ)
143		chpcl 27102	. . . . . . . . . . . . 13 ⊢ (𝑢 ∈ ℝ → (ψ‘𝑢) ∈ ℝ)
144	77, 143	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑢) ∈ ℝ)
145		chpcl 27102	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (ψ‘𝑁) ∈ ℝ)
146	101, 145	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ∈ ℝ)
147	144, 146	resubcld 11577	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ∈ ℝ)
148	147, 78	rerpdivcld 12992	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ∈ ℝ)
149	142, 148	readdcld 11173	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ∈ ℝ)
150	103, 86	remulcld 11174	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) ∈ ℝ)
151	88	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) ∈ ℝ)
152	83, 151	resubcld 11577	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) ∈ ℝ)
153	152	recnd 11172	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) ∈ ℂ)
154	153	abscld 15374	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) ∈ ℝ)
155	154, 78	rerpdivcld 12992	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁) ∈ ℝ)
156	150, 155	readdcld 11173	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ∈ ℝ)
157	103, 84	remulcld 11174	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
158	157	renegcld 11576	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℝ)
159	158	recnd 11172	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
160	152, 78	rerpdivcld 12992	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) ∈ ℝ)
161	160	recnd 11172	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) ∈ ℂ)
162	159, 161	abstrid 15394	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) ≤ ((abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) + (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))))
163	77	recnd 11172	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ ℂ)
164	101	recnd 11172	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ ℂ)
165	78	rpne0d 12966	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ≠ 0)
166	163, 164, 164, 165	divsubdird 11968	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) = ((𝑢 / 𝑁) − (𝑁 / 𝑁)))
167	164, 165	dividd 11927	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 / 𝑁) = 1)
168	167	oveq2d 7384	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) − (𝑁 / 𝑁)) = ((𝑢 / 𝑁) − 1))
169	166, 168	eqtrd 2772	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) = ((𝑢 / 𝑁) − 1))
170	169	oveq1d 7383	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑢 / 𝑁) − 1) · ((𝑅‘𝑢) / 𝑢)))
171	77, 78	rerpdivcld 12992	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ∈ ℝ)
172	171	recnd 11172	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ∈ ℂ)
173		1cnd 11139	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 1 ∈ ℂ)
174	172, 173, 85	subdird 11606	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) − 1) · ((𝑅‘𝑢) / 𝑢)) = (((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) − (1 · ((𝑅‘𝑢) / 𝑢))))
175	80	rpcnne0d 12970	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ ℂ ∧ 𝑢 ≠ 0))
176	78	rpcnne0d 12970	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0))
177	83	recnd 11172	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) ∈ ℂ)
178		dmdcan 11863	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑢 ∈ ℂ ∧ 𝑢 ≠ 0) ∧ (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0) ∧ (𝑅‘𝑢) ∈ ℂ) → ((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑁))
179	175, 176, 177, 178	syl3anc 1374	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑁))
180	85	mullidd 11162	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 · ((𝑅‘𝑢) / 𝑢)) = ((𝑅‘𝑢) / 𝑢))
181	179, 180	oveq12d 7386	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) · ((𝑅‘𝑢) / 𝑢)) − (1 · ((𝑅‘𝑢) / 𝑢))) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
182	170, 174, 181	3eqtrd 2776	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
183	182	negeqd 11386	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = -(((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)))
184	83, 78	rerpdivcld 12992	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑁) ∈ ℝ)
185	184	recnd 11172	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) / 𝑁) ∈ ℂ)
186	185, 85	negsubdi2d 11520	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)))
187	183, 186	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → -(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)))
188	151	recnd 11172	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) ∈ ℂ)
189	177, 188, 164, 165	divsubdird 11968	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁) = (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁)))
190	187, 189	oveq12d 7386	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)) + (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁))))
191	85, 185, 91	npncand 11528	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑢) / 𝑁)) + (((𝑅‘𝑢) / 𝑁) − ((𝑅‘𝑁) / 𝑁))) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)))
192	190, 191	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = (((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁)))
193	192	fveq2d 6846	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) + (((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) = (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))))
194	157	recnd 11172	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
195	194	absnegd 15387	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = (abs‘(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))))
196	103	recnd 11172	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ∈ ℂ)
197	196, 85	absmuld 15392	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = ((abs‘((𝑢 − 𝑁) / 𝑁)) · (abs‘((𝑅‘𝑢) / 𝑢))))
198	77, 101	subge0d 11739	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (0 ≤ (𝑢 − 𝑁) ↔ 𝑁 ≤ 𝑢))
199	79, 198	mpbird 257	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 0 ≤ (𝑢 − 𝑁))
200	102, 78, 199	divge0d 13001	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 0 ≤ ((𝑢 − 𝑁) / 𝑁))
201	103, 200	absidd 15358	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑢 − 𝑁) / 𝑁)) = ((𝑢 − 𝑁) / 𝑁))
202	201	oveq1d 7383	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑢 − 𝑁) / 𝑁)) · (abs‘((𝑅‘𝑢) / 𝑢))) = (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))))
203	195, 197, 202	3eqtrd 2776	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) = (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))))
204	153, 164, 165	absdivd 15393	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / (abs‘𝑁)))
205	78	rprege0d 12968	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 ∈ ℝ ∧ 0 ≤ 𝑁))
206		absid 15231	. . . . . . . . . . . . . . 15 ⊢ ((𝑁 ∈ ℝ ∧ 0 ≤ 𝑁) → (abs‘𝑁) = 𝑁)
207	205, 206	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘𝑁) = 𝑁)
208	207	oveq2d 7384	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / (abs‘𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁))
209	204, 208	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁)) = ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁))
210	203, 209	oveq12d 7386	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘-(((𝑢 − 𝑁) / 𝑁) · ((𝑅‘𝑢) / 𝑢))) + (abs‘(((𝑅‘𝑢) − (𝑅‘𝑁)) / 𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)))
211	162, 193, 210	3brtr3d 5131	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)))
212	102, 147	readdcld 11173	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) ∈ ℝ)
213	212, 78	rerpdivcld 12992	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁) ∈ ℝ)
214	147	recnd 11172	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ∈ ℂ)
215	164, 163	subcld 11504	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 − 𝑢) ∈ ℂ)
216	214, 215	abstrid 15394	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢))) ≤ ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))))
217	8	pntrval 27541	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ ℝ⁺ → (𝑅‘𝑢) = ((ψ‘𝑢) − 𝑢))
218	80, 217	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑢) = ((ψ‘𝑢) − 𝑢))
219	8	pntrval 27541	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑁 ∈ ℝ⁺ → (𝑅‘𝑁) = ((ψ‘𝑁) − 𝑁))
220	78, 219	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑅‘𝑁) = ((ψ‘𝑁) − 𝑁))
221	218, 220	oveq12d 7386	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑅‘𝑢) − (𝑅‘𝑁)) = (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)))
222	144	recnd 11172	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑢) ∈ ℂ)
223	146	recnd 11172	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ∈ ℂ)
224		subadd4 11437	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − (ψ‘𝑁)) − (𝑢 − 𝑁)) = (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)))
225		sub4 11438	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − (ψ‘𝑁)) − (𝑢 − 𝑁)) = (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)))
226		addsub4 11436	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ 𝑁 ∈ ℂ) ∧ ((ψ‘𝑁) ∈ ℂ ∧ 𝑢 ∈ ℂ)) → (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
227	226	an42s 662	. . . . . . . . . . . . . . . . . 18 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) + 𝑁) − ((ψ‘𝑁) + 𝑢)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
228	224, 225, 227	3eqtr3d 2780	. . . . . . . . . . . . . . . . 17 ⊢ ((((ψ‘𝑢) ∈ ℂ ∧ (ψ‘𝑁) ∈ ℂ) ∧ (𝑢 ∈ ℂ ∧ 𝑁 ∈ ℂ)) → (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
229	222, 223, 163, 164, 228	syl22anc 839	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − 𝑢) − ((ψ‘𝑁) − 𝑁)) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)))
230	221, 229	eqtr2d 2773	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢)) = ((𝑅‘𝑢) − (𝑅‘𝑁)))
231	230	fveq2d 6846	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((ψ‘𝑢) − (ψ‘𝑁)) + (𝑁 − 𝑢))) = (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))))
232	102	recnd 11172	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 − 𝑁) ∈ ℂ)
233		chpwordi 27135	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 ∈ ℝ ∧ 𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢) → (ψ‘𝑁) ≤ (ψ‘𝑢))
234	101, 77, 79, 233	syl3anc 1374	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (ψ‘𝑁) ≤ (ψ‘𝑢))
235	146, 144, 234	abssubge0d 15369	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((ψ‘𝑢) − (ψ‘𝑁))) = ((ψ‘𝑢) − (ψ‘𝑁)))
236	101, 77, 79	abssuble0d 15370	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(𝑁 − 𝑢)) = (𝑢 − 𝑁))
237	235, 236	oveq12d 7386	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))) = (((ψ‘𝑢) − (ψ‘𝑁)) + (𝑢 − 𝑁)))
238	214, 232, 237	comraddd 11359	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((ψ‘𝑢) − (ψ‘𝑁))) + (abs‘(𝑁 − 𝑢))) = ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))))
239	216, 231, 238	3brtr3d 5131	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) ≤ ((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))))
240	154, 212, 78, 239	lediv1dd 13019	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁) ≤ (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁))
241	155, 213, 150, 240	leadd2dd 11764	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)))
242	150	recnd 11172	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) ∈ ℂ)
243	148	recnd 11172	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ∈ ℂ)
244	242, 196, 243	addassd 11166	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁))))
245	86	recnd 11172	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ∈ ℂ)
246	196, 245, 173	adddid 11168	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) · 1)))
247	196	mulridd 11161	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · 1) = ((𝑢 − 𝑁) / 𝑁))
248	247	oveq2d 7384	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) · 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)))
249	246, 248	eqtrd 2772	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)))
250	249	oveq1d 7383	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = (((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((𝑢 − 𝑁) / 𝑁)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
251	232, 214, 164, 165	divdird 11967	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁) = (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
252	251	oveq2d 7384	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) / 𝑁) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁))))
253	244, 250, 252	3eqtr4d 2782	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) = ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + (((𝑢 − 𝑁) + ((ψ‘𝑢) − (ψ‘𝑁))) / 𝑁)))
254	241, 253	breqtrrd 5128	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · (abs‘((𝑅‘𝑢) / 𝑢))) + ((abs‘((𝑅‘𝑢) − (𝑅‘𝑁))) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
255	93, 156, 149, 211, 254	letrd 11302	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)))
256		remulcl 11123	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ ((𝑢 − 𝑁) / 𝑁) ∈ ℝ) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℝ)
257	19, 103, 256	sylancr 588	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℝ)
258	257, 138	readdcld 11173	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))) ∈ ℝ)
259		remulcl 11123	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℝ ∧ (𝑢 − 𝑁) ∈ ℝ) → (2 · (𝑢 − 𝑁)) ∈ ℝ)
260	19, 102, 259	sylancr 588	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · (𝑢 − 𝑁)) ∈ ℝ)
261	101, 137	rerpdivcld 12992	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑁 / (log‘𝑁)) ∈ ℝ)
262	110, 261	remulcld 11174	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℝ)
263	260, 262	readdcld 11173	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) ∈ ℝ)
264		fveq2 6842	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑢 → (ψ‘𝑦) = (ψ‘𝑢))
265	264	oveq1d 7383	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑢 → ((ψ‘𝑦) − (ψ‘𝑁)) = ((ψ‘𝑢) − (ψ‘𝑁)))
266		oveq1 7375	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑢 → (𝑦 − 𝑁) = (𝑢 − 𝑁))
267	266	oveq2d 7384	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑢 → (2 · (𝑦 − 𝑁)) = (2 · (𝑢 − 𝑁)))
268	267	oveq1d 7383	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑢 → ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) = ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
269	265, 268	breq12d 5113	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑢 → (((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) ↔ ((ψ‘𝑢) − (ψ‘𝑁)) ≤ ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
270		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → 𝑥 = 𝑁)
271		oveq2 7376	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → (2 · 𝑥) = (2 · 𝑁))
272	270, 271	oveq12d 7386	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → (𝑥[,](2 · 𝑥)) = (𝑁[,](2 · 𝑁)))
273		fveq2 6842	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (ψ‘𝑥) = (ψ‘𝑁))
274	273	oveq2d 7384	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → ((ψ‘𝑦) − (ψ‘𝑥)) = ((ψ‘𝑦) − (ψ‘𝑁)))
275		oveq2 7376	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑁 → (𝑦 − 𝑥) = (𝑦 − 𝑁))
276	275	oveq2d 7384	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (2 · (𝑦 − 𝑥)) = (2 · (𝑦 − 𝑁)))
277		fveq2 6842	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑥 = 𝑁 → (log‘𝑥) = (log‘𝑁))
278	270, 277	oveq12d 7386	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑁 → (𝑥 / (log‘𝑥)) = (𝑁 / (log‘𝑁)))
279	278	oveq2d 7384	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑁 → (𝑇 · (𝑥 / (log‘𝑥))) = (𝑇 · (𝑁 / (log‘𝑁))))
280	276, 279	oveq12d 7386	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑁 → ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) = ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
281	274, 280	breq12d 5113	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑁 → (((ψ‘𝑦) − (ψ‘𝑥)) ≤ ((2 · (𝑦 − 𝑥)) + (𝑇 · (𝑥 / (log‘𝑥)))) ↔ ((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁))))))
282	272, 281	raleqbidv 3318	. . . . . . . . . . . . . . 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 11203	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ^*
286		elioopnf 13371	. . . . . . . . . . . . . . . . 17 ⊢ (1 ∈ ℝ^* → (𝑁 ∈ (1(,)+∞) ↔ (𝑁 ∈ ℝ ∧ 1 < 𝑁)))
287	285, 286	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (1(,)+∞) ↔ (𝑁 ∈ ℝ ∧ 1 < 𝑁))
288	101, 136, 287	sylanbrc 584	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑁 ∈ (1(,)+∞))
289	282, 284, 288	rspcdva 3579	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑦 ∈ (𝑁[,](2 · 𝑁))((ψ‘𝑦) − (ψ‘𝑁)) ≤ ((2 · (𝑦 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
290	18	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) · 𝑁) ∈ ℝ)
291	21	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · 𝑁) ∈ ℝ)
292	76	simp3d 1145	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁))
293		ltle 11233	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1 + (𝐿 · 𝐸)) ∈ ℝ ∧ 2 ∈ ℝ) → ((1 + (𝐿 · 𝐸)) < 2 → (1 + (𝐿 · 𝐸)) ≤ 2))
294	16, 19, 293	sylancl 587	. . . . . . . . . . . . . . . . . . 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 13004	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) ≤ 2 ↔ ((1 + (𝐿 · 𝐸)) · 𝑁) ≤ (2 · 𝑁)))
300	296, 299	mpbid 232	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((1 + (𝐿 · 𝐸)) · 𝑁) ≤ (2 · 𝑁))
301	77, 290, 291, 292, 300	letrd 11302	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ≤ (2 · 𝑁))
302		elicc2 13339	. . . . . . . . . . . . . . . 16 ⊢ ((𝑁 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ) → (𝑢 ∈ (𝑁[,](2 · 𝑁)) ↔ (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ (2 · 𝑁))))
303	101, 291, 302	syl2anc 585	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 ∈ (𝑁[,](2 · 𝑁)) ↔ (𝑢 ∈ ℝ ∧ 𝑁 ≤ 𝑢 ∧ 𝑢 ≤ (2 · 𝑁))))
304	77, 79, 301, 303	mpbir3and 1344	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑢 ∈ (𝑁[,](2 · 𝑁)))
305	269, 289, 304	rspcdva 3579	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((ψ‘𝑢) − (ψ‘𝑁)) ≤ ((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))))
306	147, 263, 78, 305	lediv1dd 13019	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ≤ (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁))
307	260	recnd 11172	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · (𝑢 − 𝑁)) ∈ ℂ)
308	108	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ⁺)
309	308	rpred 12961	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℝ)
310	309, 261	remulcld 11174	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℝ)
311	310	recnd 11172	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℂ)
312		divdir 11833	. . . . . . . . . . . . . 14 ⊢ (((2 · (𝑢 − 𝑁)) ∈ ℂ ∧ (𝑇 · (𝑁 / (log‘𝑁))) ∈ ℂ ∧ (𝑁 ∈ ℂ ∧ 𝑁 ≠ 0)) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)))
313	307, 311, 176, 312	syl3anc 1374	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)))
314		2cnd 12235	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ∈ ℂ)
315	314, 232, 164, 165	divassd 11964	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((2 · (𝑢 − 𝑁)) / 𝑁) = (2 · ((𝑢 − 𝑁) / 𝑁)))
316	110	recnd 11172	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝑇 ∈ ℂ)
317	137	rpcnne0d 12970	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((log‘𝑁) ∈ ℂ ∧ (log‘𝑁) ≠ 0))
318		div12 11830	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑇 ∈ ℂ ∧ 𝑁 ∈ ℂ ∧ ((log‘𝑁) ∈ ℂ ∧ (log‘𝑁) ≠ 0)) → (𝑇 · (𝑁 / (log‘𝑁))) = (𝑁 · (𝑇 / (log‘𝑁))))
319	316, 164, 317, 318	syl3anc 1374	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 · (𝑁 / (log‘𝑁))) = (𝑁 · (𝑇 / (log‘𝑁))))
320	319	oveq1d 7383	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁) = ((𝑁 · (𝑇 / (log‘𝑁))) / 𝑁))
321	308, 137	rpdivcld 12978	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℝ⁺)
322	321	rpcnd 12963	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℂ)
323	322, 164, 165	divcan3d 11934	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑁 · (𝑇 / (log‘𝑁))) / 𝑁) = (𝑇 / (log‘𝑁)))
324	320, 323	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁) = (𝑇 / (log‘𝑁)))
325	315, 324	oveq12d 7386	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) / 𝑁) + ((𝑇 · (𝑁 / (log‘𝑁))) / 𝑁)) = ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
326	313, 325	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((2 · (𝑢 − 𝑁)) + (𝑇 · (𝑁 / (log‘𝑁)))) / 𝑁) = ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
327	306, 326	breqtrd 5126	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁) ≤ ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁))))
328	148, 258, 142, 327	leadd2dd 11764	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))))
329	142	recnd 11172	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) ∈ ℂ)
330	257	recnd 11172	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) ∈ ℂ)
331	138	recnd 11172	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ∈ ℂ)
332	329, 330, 331	addassd 11166	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) + (𝑇 / (log‘𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))))
333		2cn 12232	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℂ
334		mulcom 11124	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℂ ∧ ((𝑢 − 𝑁) / 𝑁) ∈ ℂ) → (2 · ((𝑢 − 𝑁) / 𝑁)) = (((𝑢 − 𝑁) / 𝑁) · 2))
335	333, 196, 334	sylancr 588	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (2 · ((𝑢 − 𝑁) / 𝑁)) = (((𝑢 − 𝑁) / 𝑁) · 2))
336	335	oveq2d 7384	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((𝑢 − 𝑁) / 𝑁) · 2)))
337	141	recnd 11172	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 1) ∈ ℂ)
338	196, 337, 314	adddid 11168	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2)) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((𝑢 − 𝑁) / 𝑁) · 2)))
339	245, 173, 314	addassd 11166	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2) = ((abs‘((𝑅‘𝑢) / 𝑢)) + (1 + 2)))
340		1p2e3 12295	. . . . . . . . . . . . . . . 16 ⊢ (1 + 2) = 3
341	340	oveq2i 7379	. . . . . . . . . . . . . . 15 ⊢ ((abs‘((𝑅‘𝑢) / 𝑢)) + (1 + 2)) = ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)
342	339, 341	eqtrdi 2788	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2) = ((abs‘((𝑅‘𝑢) / 𝑢)) + 3))
343	342	oveq2d 7384	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · (((abs‘((𝑅‘𝑢) / 𝑢)) + 1) + 2)) = (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)))
344	336, 338, 343	3eqtr2d 2778	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) = (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)))
345	344	oveq1d 7383	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (2 · ((𝑢 − 𝑁) / 𝑁))) + (𝑇 / (log‘𝑁))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
346	332, 345	eqtr3d 2774	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + ((2 · ((𝑢 − 𝑁) / 𝑁)) + (𝑇 / (log‘𝑁)))) = ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
347	328, 346	breqtrd 5126	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 1)) + (((ψ‘𝑢) − (ψ‘𝑁)) / 𝑁)) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
348	93, 149, 139, 255, 347	letrd 11302	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) ≤ ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))))
349	100	rehalfcld 12400	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) ∈ ℝ)
350	77, 297, 78	ledivmul2d 13015	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) ≤ (1 + (𝐿 · 𝐸)) ↔ 𝑢 ≤ ((1 + (𝐿 · 𝐸)) · 𝑁)))
351	292, 350	mpbird 257	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ≤ (1 + (𝐿 · 𝐸)))
352		ax-1cn 11096	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℂ
353	15	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) ∈ ℝ)
354	353	recnd 11172	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) ∈ ℂ)
355		addcom 11331	. . . . . . . . . . . . . . . 16 ⊢ ((1 ∈ ℂ ∧ (𝐿 · 𝐸) ∈ ℂ) → (1 + (𝐿 · 𝐸)) = ((𝐿 · 𝐸) + 1))
356	352, 354, 355	sylancr 588	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 + (𝐿 · 𝐸)) = ((𝐿 · 𝐸) + 1))
357	351, 356	breqtrd 5126	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑢 / 𝑁) ≤ ((𝐿 · 𝐸) + 1))
358	171, 111, 353	lesubaddd 11746	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 / 𝑁) − 1) ≤ (𝐿 · 𝐸) ↔ (𝑢 / 𝑁) ≤ ((𝐿 · 𝐸) + 1)))
359	357, 358	mpbird 257	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 / 𝑁) − 1) ≤ (𝐿 · 𝐸))
360	169, 359	eqbrtrd 5122	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸))
361	9	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐴 ∈ ℝ⁺)
362	361	rpred 12961	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐴 ∈ ℝ)
363		fveq2 6842	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑢 → (𝑅‘𝑥) = (𝑅‘𝑢))
364		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑢 → 𝑥 = 𝑢)
365	363, 364	oveq12d 7386	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑢 → ((𝑅‘𝑥) / 𝑥) = ((𝑅‘𝑢) / 𝑢))
366	365	fveq2d 6846	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑢 → (abs‘((𝑅‘𝑥) / 𝑥)) = (abs‘((𝑅‘𝑢) / 𝑢)))
367	366	breq1d 5110	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑢 → ((abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴 ↔ (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐴))
368	74	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ∀𝑥 ∈ ℝ⁺ (abs‘((𝑅‘𝑥) / 𝑥)) ≤ 𝐴)
369	367, 368, 80	rspcdva 3579	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐴)
370	86, 362, 105, 369	leadd1dd 11763	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3))
371	103, 200	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) ∈ ℝ ∧ 0 ≤ ((𝑢 − 𝑁) / 𝑁)))
372		3rp 12923	. . . . . . . . . . . . . . 15 ⊢ 3 ∈ ℝ⁺
373		rpaddcl 12941	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℝ⁺ ∧ 3 ∈ ℝ⁺) → (𝐴 + 3) ∈ ℝ⁺)
374	361, 372, 373	sylancl 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ∈ ℝ⁺)
375	374	rprege0d 12968	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐴 + 3) ∈ ℝ ∧ 0 ≤ (𝐴 + 3)))
376		lemul12b 12010	. . . . . . . . . . . . 13 ⊢ ((((((𝑢 − 𝑁) / 𝑁) ∈ ℝ ∧ 0 ≤ ((𝑢 − 𝑁) / 𝑁)) ∧ (𝐿 · 𝐸) ∈ ℝ) ∧ (((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ∈ ℝ ∧ ((𝐴 + 3) ∈ ℝ ∧ 0 ≤ (𝐴 + 3)))) → ((((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸) ∧ ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3)) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3))))
377	371, 353, 106, 375, 376	syl22anc 839	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) ≤ (𝐿 · 𝐸) ∧ ((abs‘((𝑅‘𝑢) / 𝑢)) + 3) ≤ (𝐴 + 3)) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3))))
378	360, 370, 377	mp2and 700	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐿 · 𝐸) · (𝐴 + 3)))
379	35	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℝ⁺)
380	112, 113	mp1i 13	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ∈ ℝ⁺)
381	379, 380	rpdivcld 12978	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) ∈ ℝ⁺)
382	381	rpcnd 12963	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) ∈ ℂ)
383	374	rpcnd 12963	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ∈ ℂ)
384	374	rpne0d 12966	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐴 + 3) ≠ 0)
385	382, 383, 384	divcan1d 11930	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝐸 / 4) / (𝐴 + 3)) · (𝐴 + 3)) = (𝐸 / 4))
386	14	recnd 11172	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐸 ∈ ℂ)
387	386	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 𝐸 ∈ ℂ)
388	380	rpcnd 12963	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ∈ ℂ)
389	380	rpne0d 12966	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 4 ≠ 0)
390	387, 388, 389	divrec2d 11933	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 4) = ((1 / 4) · 𝐸))
391	390	oveq1d 7383	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 4) / (𝐴 + 3)) = (((1 / 4) · 𝐸) / (𝐴 + 3)))
392		4cn 12242	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ∈ ℂ
393		4ne0 12265	. . . . . . . . . . . . . . . . . 18 ⊢ 4 ≠ 0
394	392, 393	reccli 11883	. . . . . . . . . . . . . . . . 17 ⊢ (1 / 4) ∈ ℂ
395	394	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (1 / 4) ∈ ℂ)
396	395, 387, 383, 384	div23d 11966	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((1 / 4) · 𝐸) / (𝐴 + 3)) = (((1 / 4) / (𝐴 + 3)) · 𝐸))
397	10	oveq1i 7378	. . . . . . . . . . . . . . 15 ⊢ (𝐿 · 𝐸) = (((1 / 4) / (𝐴 + 3)) · 𝐸)
398	396, 397	eqtr4di 2790	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((1 / 4) · 𝐸) / (𝐴 + 3)) = (𝐿 · 𝐸))
399	391, 398	eqtr2d 2773	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐿 · 𝐸) = ((𝐸 / 4) / (𝐴 + 3)))
400	399	oveq1d 7383	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐿 · 𝐸) · (𝐴 + 3)) = (((𝐸 / 4) / (𝐴 + 3)) · (𝐴 + 3)))
401		2ne0 12261	. . . . . . . . . . . . . . 15 ⊢ 2 ≠ 0
402	401	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → 2 ≠ 0)
403	387, 314, 314, 402, 402	divdiv1d 11960	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) = (𝐸 / (2 · 2)))
404		2t2e4 12316	. . . . . . . . . . . . . 14 ⊢ (2 · 2) = 4
405	404	oveq2i 7379	. . . . . . . . . . . . 13 ⊢ (𝐸 / (2 · 2)) = (𝐸 / 4)
406	403, 405	eqtrdi 2788	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) / 2) = (𝐸 / 4))
407	385, 400, 406	3eqtr4d 2782	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐿 · 𝐸) · (𝐴 + 3)) = ((𝐸 / 2) / 2))
408	378, 407	breqtrd 5126	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) ≤ ((𝐸 / 2) / 2))
409	117	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) ∈ ℝ)
410	137	rpred 12961	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (log‘𝑁) ∈ ℝ)
411	78	reeflogd 26601	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(log‘𝑁)) = 𝑁)
412	135, 411	breqtrrd 5128	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁)))
413		eflt 16054	. . . . . . . . . . . . . . 15 ⊢ (((𝑇 / (𝐸 / 4)) ∈ ℝ ∧ (log‘𝑁) ∈ ℝ) → ((𝑇 / (𝐸 / 4)) < (log‘𝑁) ↔ (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁))))
414	409, 410, 413	syl2anc 585	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝑇 / (𝐸 / 4)) < (log‘𝑁) ↔ (exp‘(𝑇 / (𝐸 / 4))) < (exp‘(log‘𝑁))))
415	412, 414	mpbird 257	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) < (log‘𝑁))
416	409, 410, 415	ltled 11293	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (𝐸 / 4)) ≤ (log‘𝑁))
417	110, 381, 137, 416	lediv23d 13029	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ≤ (𝐸 / 4))
418	417, 406	breqtrrd 5128	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝑇 / (log‘𝑁)) ≤ ((𝐸 / 2) / 2))
419	107, 138, 349, 349, 408, 418	le2addd 11768	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ≤ (((𝐸 / 2) / 2) + ((𝐸 / 2) / 2)))
420	100	recnd 11172	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (𝐸 / 2) ∈ ℂ)
421	420	2halvesd 12399	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (((𝐸 / 2) / 2) + ((𝐸 / 2) / 2)) = (𝐸 / 2))
422	419, 421	breqtrd 5126	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((((𝑢 − 𝑁) / 𝑁) · ((abs‘((𝑅‘𝑢) / 𝑢)) + 3)) + (𝑇 / (log‘𝑁))) ≤ (𝐸 / 2))
423	93, 139, 100, 348, 422	letrd 11302	. . . . . . 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 11768	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ≤ ((𝐸 / 2) + (𝐸 / 2)))
427	387	2halvesd 12399	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((𝐸 / 2) + (𝐸 / 2)) = 𝐸)
428	426, 427	breqtrd 5126	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → ((abs‘(((𝑅‘𝑢) / 𝑢) − ((𝑅‘𝑁) / 𝑁))) + (abs‘((𝑅‘𝑁) / 𝑁))) ≤ 𝐸)
429	86, 95, 96, 99, 428	letrd 11302	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))) → (abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)
430	429	ralrimiva 3130	. . 3 ⊢ (𝜑 → ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)
431	5, 73, 430	jca31 514	. 2 ⊢ (𝜑 → ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
432		breq2 5104	. . . . 5 ⊢ (𝑧 = 𝑁 → (𝑌 < 𝑧 ↔ 𝑌 < 𝑁))
433		oveq2 7376	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((1 + (𝐿 · 𝐸)) · 𝑧) = ((1 + (𝐿 · 𝐸)) · 𝑁))
434	433	breq1d 5110	. . . . 5 ⊢ (𝑧 = 𝑁 → (((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌) ↔ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)))
435	432, 434	anbi12d 633	. . . 4 ⊢ (𝑧 = 𝑁 → ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ↔ (𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌))))
436		id 22	. . . . . 6 ⊢ (𝑧 = 𝑁 → 𝑧 = 𝑁)
437	436, 433	oveq12d 7386	. . . . 5 ⊢ (𝑧 = 𝑁 → (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧)) = (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁)))
438	437	raleqdv 3298	. . . 4 ⊢ (𝑧 = 𝑁 → (∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸 ↔ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
439	435, 438	anbi12d 633	. . 3 ⊢ (𝑧 = 𝑁 → (((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸) ↔ ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)))
440	439	rspcev 3578	. 2 ⊢ ((𝑁 ∈ ℝ⁺ ∧ ((𝑌 < 𝑁 ∧ ((1 + (𝐿 · 𝐸)) · 𝑁) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑁[,]((1 + (𝐿 · 𝐸)) · 𝑁))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸)) → ∃𝑧 ∈ ℝ⁺ ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))
441	2, 431, 440	syl2anc 585	1 ⊢ (𝜑 → ∃𝑧 ∈ ℝ⁺ ((𝑌 < 𝑧 ∧ ((1 + (𝐿 · 𝐸)) · 𝑧) < (𝑀 · 𝑌)) ∧ ∀𝑢 ∈ (𝑧[,]((1 + (𝐿 · 𝐸)) · 𝑧))(abs‘((𝑅‘𝑢) / 𝑢)) ≤ 𝐸))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ≠ wne 2933 ∀wral 3052 ∃wrex 3062 ⊆ wss 3903 class class class wbr 5100 ↦ cmpt 5181 ‘cfv 6500 (class class class)co 7368 ℂcc 11036 ℝcr 11037 0cc0 11038 1c1 11039 + caddc 11041 · cmul 11043 +∞cpnf 11175 ℝ^*cxr 11177 < clt 11178 ≤ cle 11179 − cmin 11376 -cneg 11377 / cdiv 11806 ℕcn 12157 2c2 12212 3c3 12213 4c4 12214 ℝ⁺crp 12917 (,)cioo 13273 [,)cico 13275 [,]cicc 13276 abscabs 15169 expce 15996 logclog 26531 ψcchp 27071

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5226 ax-sep 5243 ax-nul 5253 ax-pow 5312 ax-pr 5379 ax-un 7690 ax-inf2 9562 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115 ax-pre-sup 11116 ax-addf 11117

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3352 df-reu 3353 df-rab 3402 df-v 3444 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4288 df-if 4482 df-pw 4558 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-uni 4866 df-int 4905 df-iun 4950 df-iin 4951 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5527 df-eprel 5532 df-po 5540 df-so 5541 df-fr 5585 df-se 5586 df-we 5587 df-xp 5638 df-rel 5639 df-cnv 5640 df-co 5641 df-dm 5642 df-rn 5643 df-res 5644 df-ima 5645 df-pred 6267 df-ord 6328 df-on 6329 df-lim 6330 df-suc 6331 df-iota 6456 df-fun 6502 df-fn 6503 df-f 6504 df-f1 6505 df-fo 6506 df-f1o 6507 df-fv 6508 df-isom 6509 df-riota 7325 df-ov 7371 df-oprab 7372 df-mpo 7373 df-of 7632 df-om 7819 df-1st 7943 df-2nd 7944 df-supp 8113 df-frecs 8233 df-wrecs 8264 df-recs 8313 df-rdg 8351 df-1o 8407 df-2o 8408 df-oadd 8411 df-er 8645 df-map 8777 df-pm 8778 df-ixp 8848 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-fsupp 9277 df-fi 9326 df-sup 9357 df-inf 9358 df-oi 9427 df-dju 9825 df-card 9863 df-pnf 11180 df-mnf 11181 df-xr 11182 df-ltxr 11183 df-le 11184 df-sub 11378 df-neg 11379 df-div 11807 df-nn 12158 df-2 12220 df-3 12221 df-4 12222 df-5 12223 df-6 12224 df-7 12225 df-8 12226 df-9 12227 df-n0 12414 df-z 12501 df-dec 12620 df-uz 12764 df-q 12874 df-rp 12918 df-xneg 13038 df-xadd 13039 df-xmul 13040 df-ioo 13277 df-ioc 13278 df-ico 13279 df-icc 13280 df-fz 13436 df-fzo 13583 df-fl 13724 df-mod 13802 df-seq 13937 df-exp 13997 df-fac 14209 df-bc 14238 df-hash 14266 df-shft 15002 df-cj 15034 df-re 15035 df-im 15036 df-sqrt 15170 df-abs 15171 df-limsup 15406 df-clim 15423 df-rlim 15424 df-sum 15622 df-ef 16002 df-sin 16004 df-cos 16005 df-pi 16007 df-dvds 16192 df-gcd 16434 df-prm 16611 df-pc 16777 df-struct 17086 df-sets 17103 df-slot 17121 df-ndx 17133 df-base 17149 df-ress 17170 df-plusg 17202 df-mulr 17203 df-starv 17204 df-sca 17205 df-vsca 17206 df-ip 17207 df-tset 17208 df-ple 17209 df-ds 17211 df-unif 17212 df-hom 17213 df-cco 17214 df-rest 17354 df-topn 17355 df-0g 17373 df-gsum 17374 df-topgen 17375 df-pt 17376 df-prds 17379 df-xrs 17435 df-qtop 17440 df-imas 17441 df-xps 17443 df-mre 17517 df-mrc 17518 df-acs 17520 df-mgm 18577 df-sgrp 18656 df-mnd 18672 df-submnd 18721 df-mulg 19010 df-cntz 19258 df-cmn 19723 df-psmet 21313 df-xmet 21314 df-met 21315 df-bl 21316 df-mopn 21317 df-fbas 21318 df-fg 21319 df-cnfld 21322 df-top 22850 df-topon 22867 df-topsp 22889 df-bases 22902 df-cld 22975 df-ntr 22976 df-cls 22977 df-nei 23054 df-lp 23092 df-perf 23093 df-cn 23183 df-cnp 23184 df-haus 23271 df-tx 23518 df-hmeo 23711 df-fil 23802 df-fm 23894 df-flim 23895 df-flf 23896 df-xms 24276 df-ms 24277 df-tms 24278 df-cncf 24839 df-limc 25835 df-dv 25836 df-log 26533 df-vma 27076 df-chp 27077

This theorem is referenced by: pntibndlem3 27571

W3C validator