chpub - Metamath Proof Explorer

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

Theorem chpub 27171

Description: An upper bound on the second Chebyshev function. (Contributed by Mario Carneiro, 8-Apr-2016.)

**Assertion**
Ref	Expression
chpub	⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (ψ‘𝐴) ≤ ((θ‘𝐴) + ((√‘𝐴) · (log‘𝐴))))

Proof of Theorem chpub Dummy variable 𝑝 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		chpcl 27074	. . . . 5 ⊢ (𝐴 ∈ ℝ → (ψ‘𝐴) ∈ ℝ)
2	1	adantr 480	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (ψ‘𝐴) ∈ ℝ)
3		chtcl 27059	. . . . 5 ⊢ (𝐴 ∈ ℝ → (θ‘𝐴) ∈ ℝ)
4	3	adantr 480	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (θ‘𝐴) ∈ ℝ)
5	2, 4	resubcld 11566	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((ψ‘𝐴) − (θ‘𝐴)) ∈ ℝ)
6		simpl 482	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 𝐴 ∈ ℝ)
7		0red 11136	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 ∈ ℝ)
8		1red 11134	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 1 ∈ ℝ)
9		0lt1 11660	. . . . . . . . . 10 ⊢ 0 < 1
10	9	a1i 11	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 < 1)
11		simpr 484	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 1 ≤ 𝐴)
12	7, 8, 6, 10, 11	ltletrd 11294	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 < 𝐴)
13	6, 12	elrpd 12947	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 𝐴 ∈ ℝ⁺)
14	13	rpge0d 12954	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 ≤ 𝐴)
15	6, 14	resqrtcld 15342	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (√‘𝐴) ∈ ℝ)
16		ppifi 27056	. . . . 5 ⊢ ((√‘𝐴) ∈ ℝ → ((0[,](√‘𝐴)) ∩ ℙ) ∈ Fin)
17	15, 16	syl 17	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((0[,](√‘𝐴)) ∩ ℙ) ∈ Fin)
18	13	adantr 480	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝐴 ∈ ℝ⁺)
19	18	relogcld 26572	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (log‘𝐴) ∈ ℝ)
20	17, 19	fsumrecl 15658	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(log‘𝐴) ∈ ℝ)
21	13	relogcld 26572	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (log‘𝐴) ∈ ℝ)
22	15, 21	remulcld 11163	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((√‘𝐴) · (log‘𝐴)) ∈ ℝ)
23		ppifi 27056	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → ((0[,]𝐴) ∩ ℙ) ∈ Fin)
24	23	adantr 480	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((0[,]𝐴) ∩ ℙ) ∈ Fin)
25		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ((0[,]𝐴) ∩ ℙ))
26	25	elin2d 4146	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℙ)
27		prmnn 16602	. . . . . . . . . . 11 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
28	26, 27	syl 17	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℕ)
29	28	nnrpd 12948	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℝ⁺)
30	29	relogcld 26572	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ∈ ℝ)
31	21	adantr 480	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝐴) ∈ ℝ)
32	28	nnred 12161	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℝ)
33		prmuz2 16624	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ (ℤ_≥‘2))
34	26, 33	syl 17	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ (ℤ_≥‘2))
35		eluz2gt1 12834	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ (ℤ_≥‘2) → 1 < 𝑝)
36	34, 35	syl 17	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 1 < 𝑝)
37	32, 36	rplogcld 26578	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ∈ ℝ⁺)
38	31, 37	rerpdivcld 12981	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝐴) / (log‘𝑝)) ∈ ℝ)
39		reflcl 13717	. . . . . . . . 9 ⊢ (((log‘𝐴) / (log‘𝑝)) ∈ ℝ → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℝ)
40	38, 39	syl 17	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℝ)
41	30, 40	remulcld 11163	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) ∈ ℝ)
42	41	recnd 11161	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) ∈ ℂ)
43	30	recnd 11161	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ∈ ℂ)
44	24, 42, 43	fsumsub 15712	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)(((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) = (Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)(log‘𝑝)))
45		0le0 12247	. . . . . . . . 9 ⊢ 0 ≤ 0
46	45	a1i 11	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 ≤ 0)
47	8, 6, 6, 14, 11	lemul2ad 12083	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (𝐴 · 1) ≤ (𝐴 · 𝐴))
48	6	recnd 11161	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 𝐴 ∈ ℂ)
49	48	sqsqrtd 15366	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((√‘𝐴)↑2) = 𝐴)
50	48	mulridd 11150	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (𝐴 · 1) = 𝐴)
51	49, 50	eqtr4d 2775	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((√‘𝐴)↑2) = (𝐴 · 1))
52	48	sqvald 14067	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (𝐴↑2) = (𝐴 · 𝐴))
53	47, 51, 52	3brtr4d 5118	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((√‘𝐴)↑2) ≤ (𝐴↑2))
54	6, 14	sqrtge0d 15345	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 ≤ (√‘𝐴))
55	15, 6, 54, 14	le2sqd 14181	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((√‘𝐴) ≤ 𝐴 ↔ ((√‘𝐴)↑2) ≤ (𝐴↑2)))
56	53, 55	mpbird 257	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (√‘𝐴) ≤ 𝐴)
57		iccss 13331	. . . . . . . 8 ⊢ (((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) ∧ (0 ≤ 0 ∧ (√‘𝐴) ≤ 𝐴)) → (0[,](√‘𝐴)) ⊆ (0[,]𝐴))
58	7, 6, 46, 56, 57	syl22anc 839	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (0[,](√‘𝐴)) ⊆ (0[,]𝐴))
59	58	ssrind 4185	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((0[,](√‘𝐴)) ∩ ℙ) ⊆ ((0[,]𝐴) ∩ ℙ))
60	59	sselda 3922	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝑝 ∈ ((0[,]𝐴) ∩ ℙ))
61	41, 30	resubcld 11566	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ∈ ℝ)
62	61	recnd 11161	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ∈ ℂ)
63	60, 62	syldan 592	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ∈ ℂ)
64		eldifi 4072	. . . . . . . . . . . . . . 15 ⊢ (𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝑝 ∈ ((0[,]𝐴) ∩ ℙ))
65	64, 43	sylan2 594	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘𝑝) ∈ ℂ)
66	65	mullidd 11151	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (1 · (log‘𝑝)) = (log‘𝑝))
67	25	elin1d 4145	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ (0[,]𝐴))
68		0re 11135	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ ℝ
69	6	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ∈ ℝ)
70		elicc2 13328	. . . . . . . . . . . . . . . . . 18 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝑝 ∈ (0[,]𝐴) ↔ (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴)))
71	68, 69, 70	sylancr 588	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 ∈ (0[,]𝐴) ↔ (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴)))
72	67, 71	mpbid 232	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴))
73	72	simp3d 1145	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ≤ 𝐴)
74	64, 73	sylan2 594	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝑝 ≤ 𝐴)
75	64, 29	sylan2 594	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝑝 ∈ ℝ⁺)
76	13	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝐴 ∈ ℝ⁺)
77	75, 76	logled 26576	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝑝 ≤ 𝐴 ↔ (log‘𝑝) ≤ (log‘𝐴)))
78	74, 77	mpbid 232	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘𝑝) ≤ (log‘𝐴))
79	66, 78	eqbrtrd 5108	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (1 · (log‘𝑝)) ≤ (log‘𝐴))
80		1red 11134	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 1 ∈ ℝ)
81	21	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘𝐴) ∈ ℝ)
82	64, 37	sylan2 594	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘𝑝) ∈ ℝ⁺)
83	80, 81, 82	lemuldivd 12999	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((1 · (log‘𝑝)) ≤ (log‘𝐴) ↔ 1 ≤ ((log‘𝐴) / (log‘𝑝))))
84	79, 83	mpbid 232	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 1 ≤ ((log‘𝐴) / (log‘𝑝)))
85	6	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝐴 ∈ ℝ)
86	85	recnd 11161	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝐴 ∈ ℂ)
87	86	sqsqrtd 15366	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((√‘𝐴)↑2) = 𝐴)
88		eldifn 4073	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ)) → ¬ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ))
89	88	adantl 481	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ¬ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ))
90	64, 26	sylan2 594	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝑝 ∈ ℙ)
91		elin 3906	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ) ↔ (𝑝 ∈ (0[,](√‘𝐴)) ∧ 𝑝 ∈ ℙ))
92	91	rbaib 538	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑝 ∈ ℙ → (𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ) ↔ 𝑝 ∈ (0[,](√‘𝐴))))
93	90, 92	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ) ↔ 𝑝 ∈ (0[,](√‘𝐴))))
94		0red 11136	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 0 ∈ ℝ)
95	15	adantr 480	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (√‘𝐴) ∈ ℝ)
96	64, 28	sylan2 594	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝑝 ∈ ℕ)
97	96	nnred 12161	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝑝 ∈ ℝ)
98	75	rpge0d 12954	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 0 ≤ 𝑝)
99		elicc2 13328	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((0 ∈ ℝ ∧ (√‘𝐴) ∈ ℝ) → (𝑝 ∈ (0[,](√‘𝐴)) ↔ (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ (√‘𝐴))))
100		df-3an 1089	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ (√‘𝐴)) ↔ ((𝑝 ∈ ℝ ∧ 0 ≤ 𝑝) ∧ 𝑝 ≤ (√‘𝐴)))
101	99, 100	bitrdi 287	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((0 ∈ ℝ ∧ (√‘𝐴) ∈ ℝ) → (𝑝 ∈ (0[,](√‘𝐴)) ↔ ((𝑝 ∈ ℝ ∧ 0 ≤ 𝑝) ∧ 𝑝 ≤ (√‘𝐴))))
102	101	baibd 539	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((0 ∈ ℝ ∧ (√‘𝐴) ∈ ℝ) ∧ (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝)) → (𝑝 ∈ (0[,](√‘𝐴)) ↔ 𝑝 ≤ (√‘𝐴)))
103	94, 95, 97, 98, 102	syl22anc 839	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝑝 ∈ (0[,](√‘𝐴)) ↔ 𝑝 ≤ (√‘𝐴)))
104	93, 103	bitrd 279	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ) ↔ 𝑝 ≤ (√‘𝐴)))
105	89, 104	mtbid 324	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ¬ 𝑝 ≤ (√‘𝐴))
106	95, 97	ltnled 11281	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((√‘𝐴) < 𝑝 ↔ ¬ 𝑝 ≤ (√‘𝐴)))
107	105, 106	mpbird 257	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (√‘𝐴) < 𝑝)
108	54	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 0 ≤ (√‘𝐴))
109	95, 97, 108, 98	lt2sqd 14180	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((√‘𝐴) < 𝑝 ↔ ((√‘𝐴)↑2) < (𝑝↑2)))
110	107, 109	mpbid 232	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((√‘𝐴)↑2) < (𝑝↑2))
111	87, 110	eqbrtrrd 5110	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 𝐴 < (𝑝↑2))
112	96	nnsqcld 14168	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝑝↑2) ∈ ℕ)
113	112	nnrpd 12948	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝑝↑2) ∈ ℝ⁺)
114		logltb 26549	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℝ⁺ ∧ (𝑝↑2) ∈ ℝ⁺) → (𝐴 < (𝑝↑2) ↔ (log‘𝐴) < (log‘(𝑝↑2))))
115	76, 113, 114	syl2anc 585	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (𝐴 < (𝑝↑2) ↔ (log‘𝐴) < (log‘(𝑝↑2))))
116	111, 115	mpbid 232	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘𝐴) < (log‘(𝑝↑2)))
117		2z 12524	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℤ
118		relogexp 26545	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 ∈ ℝ⁺ ∧ 2 ∈ ℤ) → (log‘(𝑝↑2)) = (2 · (log‘𝑝)))
119	75, 117, 118	sylancl 587	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘(𝑝↑2)) = (2 · (log‘𝑝)))
120	116, 119	breqtrd 5112	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (log‘𝐴) < (2 · (log‘𝑝)))
121		2re 12220	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℝ
122	121	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → 2 ∈ ℝ)
123	81, 122, 82	ltdivmul2d 13002	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (((log‘𝐴) / (log‘𝑝)) < 2 ↔ (log‘𝐴) < (2 · (log‘𝑝))))
124	120, 123	mpbird 257	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝐴) / (log‘𝑝)) < 2)
125		df-2 12209	. . . . . . . . . . . 12 ⊢ 2 = (1 + 1)
126	124, 125	breqtrdi 5127	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝐴) / (log‘𝑝)) < (1 + 1))
127	64, 38	sylan2 594	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝐴) / (log‘𝑝)) ∈ ℝ)
128		1z 12522	. . . . . . . . . . . 12 ⊢ 1 ∈ ℤ
129		flbi 13737	. . . . . . . . . . . 12 ⊢ ((((log‘𝐴) / (log‘𝑝)) ∈ ℝ ∧ 1 ∈ ℤ) → ((⌊‘((log‘𝐴) / (log‘𝑝))) = 1 ↔ (1 ≤ ((log‘𝐴) / (log‘𝑝)) ∧ ((log‘𝐴) / (log‘𝑝)) < (1 + 1))))
130	127, 128, 129	sylancl 587	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((⌊‘((log‘𝐴) / (log‘𝑝))) = 1 ↔ (1 ≤ ((log‘𝐴) / (log‘𝑝)) ∧ ((log‘𝐴) / (log‘𝑝)) < (1 + 1))))
131	84, 126, 130	mpbir2and 714	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (⌊‘((log‘𝐴) / (log‘𝑝))) = 1)
132	131	oveq2d 7374	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) = ((log‘𝑝) · 1))
133	65	mulridd 11150	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝑝) · 1) = (log‘𝑝))
134	132, 133	eqtrd 2772	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) = (log‘𝑝))
135	134	oveq1d 7373	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) = ((log‘𝑝) − (log‘𝑝)))
136	65	subidd 11481	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → ((log‘𝑝) − (log‘𝑝)) = 0)
137	135, 136	eqtrd 2772	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ (((0[,]𝐴) ∩ ℙ) ∖ ((0[,](√‘𝐴)) ∩ ℙ))) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) = 0)
138	59, 63, 137, 24	fsumss 15649	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)(((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)))
139		chpval2 27169	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → (ψ‘𝐴) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))))
140	139	adantr 480	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (ψ‘𝐴) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))))
141		chtval 27060	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → (θ‘𝐴) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)(log‘𝑝))
142	141	adantr 480	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (θ‘𝐴) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)(log‘𝑝))
143	140, 142	oveq12d 7376	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((ψ‘𝐴) − (θ‘𝐴)) = (Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)(log‘𝑝)))
144	44, 138, 143	3eqtr4rd 2783	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((ψ‘𝐴) − (θ‘𝐴)) = Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)))
145	60, 61	syldan 592	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ∈ ℝ)
146	60, 41	syldan 592	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) ∈ ℝ)
147	60, 37	syldan 592	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (log‘𝑝) ∈ ℝ⁺)
148	147	rpge0d 12954	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 0 ≤ (log‘𝑝))
149		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ))
150	149	elin2d 4146	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝑝 ∈ ℙ)
151	150, 27	syl 17	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝑝 ∈ ℕ)
152	151	nnrpd 12948	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → 𝑝 ∈ ℝ⁺)
153	152	relogcld 26572	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (log‘𝑝) ∈ ℝ)
154	146, 153	subge02d 11730	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (0 ≤ (log‘𝑝) ↔ (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ≤ ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝))))))
155	148, 154	mpbid 232	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ≤ ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))))
156	60, 38	syldan 592	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → ((log‘𝐴) / (log‘𝑝)) ∈ ℝ)
157		flle 13720	. . . . . . . 8 ⊢ (((log‘𝐴) / (log‘𝑝)) ∈ ℝ → (⌊‘((log‘𝐴) / (log‘𝑝))) ≤ ((log‘𝐴) / (log‘𝑝)))
158	156, 157	syl 17	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (⌊‘((log‘𝐴) / (log‘𝑝))) ≤ ((log‘𝐴) / (log‘𝑝)))
159	60, 40	syldan 592	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℝ)
160	159, 19, 147	lemuldiv2d 13000	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) ≤ (log‘𝐴) ↔ (⌊‘((log‘𝐴) / (log‘𝑝))) ≤ ((log‘𝐴) / (log‘𝑝))))
161	158, 160	mpbird 257	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → ((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) ≤ (log‘𝐴))
162	145, 146, 19, 155, 161	letrd 11291	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) ∧ 𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)) → (((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ≤ (log‘𝐴))
163	17, 145, 19, 162	fsumle 15723	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(((log‘𝑝) · (⌊‘((log‘𝐴) / (log‘𝑝)))) − (log‘𝑝)) ≤ Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(log‘𝐴))
164	144, 163	eqbrtrd 5108	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((ψ‘𝐴) − (θ‘𝐴)) ≤ Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(log‘𝐴))
165	21	recnd 11161	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (log‘𝐴) ∈ ℂ)
166		fsumconst 15714	. . . . 5 ⊢ ((((0[,](√‘𝐴)) ∩ ℙ) ∈ Fin ∧ (log‘𝐴) ∈ ℂ) → Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(log‘𝐴) = ((♯‘((0[,](√‘𝐴)) ∩ ℙ)) · (log‘𝐴)))
167	17, 165, 166	syl2anc 585	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(log‘𝐴) = ((♯‘((0[,](√‘𝐴)) ∩ ℙ)) · (log‘𝐴)))
168		hashcl 14280	. . . . . . 7 ⊢ (((0[,](√‘𝐴)) ∩ ℙ) ∈ Fin → (♯‘((0[,](√‘𝐴)) ∩ ℙ)) ∈ ℕ₀)
169	17, 168	syl 17	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (♯‘((0[,](√‘𝐴)) ∩ ℙ)) ∈ ℕ₀)
170	169	nn0red 12464	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (♯‘((0[,](√‘𝐴)) ∩ ℙ)) ∈ ℝ)
171		logge0 26554	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → 0 ≤ (log‘𝐴))
172		reflcl 13717	. . . . . . 7 ⊢ ((√‘𝐴) ∈ ℝ → (⌊‘(√‘𝐴)) ∈ ℝ)
173	15, 172	syl 17	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (⌊‘(√‘𝐴)) ∈ ℝ)
174		fzfid 13897	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (1...(⌊‘(√‘𝐴))) ∈ Fin)
175		ppisval 27054	. . . . . . . . . . 11 ⊢ ((√‘𝐴) ∈ ℝ → ((0[,](√‘𝐴)) ∩ ℙ) = ((2...(⌊‘(√‘𝐴))) ∩ ℙ))
176	15, 175	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((0[,](√‘𝐴)) ∩ ℙ) = ((2...(⌊‘(√‘𝐴))) ∩ ℙ))
177		inss1 4178	. . . . . . . . . . 11 ⊢ ((2...(⌊‘(√‘𝐴))) ∩ ℙ) ⊆ (2...(⌊‘(√‘𝐴)))
178		2eluzge1 12796	. . . . . . . . . . . 12 ⊢ 2 ∈ (ℤ_≥‘1)
179		fzss1 13480	. . . . . . . . . . . 12 ⊢ (2 ∈ (ℤ_≥‘1) → (2...(⌊‘(√‘𝐴))) ⊆ (1...(⌊‘(√‘𝐴))))
180	178, 179	mp1i 13	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (2...(⌊‘(√‘𝐴))) ⊆ (1...(⌊‘(√‘𝐴))))
181	177, 180	sstrid 3934	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((2...(⌊‘(√‘𝐴))) ∩ ℙ) ⊆ (1...(⌊‘(√‘𝐴))))
182	176, 181	eqsstrd 3957	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((0[,](√‘𝐴)) ∩ ℙ) ⊆ (1...(⌊‘(√‘𝐴))))
183		ssdomg 8938	. . . . . . . . 9 ⊢ ((1...(⌊‘(√‘𝐴))) ∈ Fin → (((0[,](√‘𝐴)) ∩ ℙ) ⊆ (1...(⌊‘(√‘𝐴))) → ((0[,](√‘𝐴)) ∩ ℙ) ≼ (1...(⌊‘(√‘𝐴)))))
184	174, 182, 183	sylc 65	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((0[,](√‘𝐴)) ∩ ℙ) ≼ (1...(⌊‘(√‘𝐴))))
185		hashdom 14303	. . . . . . . . 9 ⊢ ((((0[,](√‘𝐴)) ∩ ℙ) ∈ Fin ∧ (1...(⌊‘(√‘𝐴))) ∈ Fin) → ((♯‘((0[,](√‘𝐴)) ∩ ℙ)) ≤ (♯‘(1...(⌊‘(√‘𝐴)))) ↔ ((0[,](√‘𝐴)) ∩ ℙ) ≼ (1...(⌊‘(√‘𝐴)))))
186	17, 174, 185	syl2anc 585	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((♯‘((0[,](√‘𝐴)) ∩ ℙ)) ≤ (♯‘(1...(⌊‘(√‘𝐴)))) ↔ ((0[,](√‘𝐴)) ∩ ℙ) ≼ (1...(⌊‘(√‘𝐴)))))
187	184, 186	mpbird 257	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (♯‘((0[,](√‘𝐴)) ∩ ℙ)) ≤ (♯‘(1...(⌊‘(√‘𝐴)))))
188		flge0nn0 13741	. . . . . . . . 9 ⊢ (((√‘𝐴) ∈ ℝ ∧ 0 ≤ (√‘𝐴)) → (⌊‘(√‘𝐴)) ∈ ℕ₀)
189	15, 54, 188	syl2anc 585	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (⌊‘(√‘𝐴)) ∈ ℕ₀)
190		hashfz1 14270	. . . . . . . 8 ⊢ ((⌊‘(√‘𝐴)) ∈ ℕ₀ → (♯‘(1...(⌊‘(√‘𝐴)))) = (⌊‘(√‘𝐴)))
191	189, 190	syl 17	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (♯‘(1...(⌊‘(√‘𝐴)))) = (⌊‘(√‘𝐴)))
192	187, 191	breqtrd 5112	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (♯‘((0[,](√‘𝐴)) ∩ ℙ)) ≤ (⌊‘(√‘𝐴)))
193		flle 13720	. . . . . . 7 ⊢ ((√‘𝐴) ∈ ℝ → (⌊‘(√‘𝐴)) ≤ (√‘𝐴))
194	15, 193	syl 17	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (⌊‘(√‘𝐴)) ≤ (√‘𝐴))
195	170, 173, 15, 192, 194	letrd 11291	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (♯‘((0[,](√‘𝐴)) ∩ ℙ)) ≤ (√‘𝐴))
196	170, 15, 21, 171, 195	lemul1ad 12082	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((♯‘((0[,](√‘𝐴)) ∩ ℙ)) · (log‘𝐴)) ≤ ((√‘𝐴) · (log‘𝐴)))
197	167, 196	eqbrtrd 5108	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑝 ∈ ((0[,](√‘𝐴)) ∩ ℙ)(log‘𝐴) ≤ ((√‘𝐴) · (log‘𝐴)))
198	5, 20, 22, 164, 197	letrd 11291	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → ((ψ‘𝐴) − (θ‘𝐴)) ≤ ((√‘𝐴) · (log‘𝐴)))
199	2, 4, 22	lesubadd2d 11737	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (((ψ‘𝐴) − (θ‘𝐴)) ≤ ((√‘𝐴) · (log‘𝐴)) ↔ (ψ‘𝐴) ≤ ((θ‘𝐴) + ((√‘𝐴) · (log‘𝐴)))))
200	198, 199	mpbid 232	1 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → (ψ‘𝐴) ≤ ((θ‘𝐴) + ((√‘𝐴) · (log‘𝐴))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ∖ cdif 3887 ∩ cin 3889 ⊆ wss 3890 class class class wbr 5086 ‘cfv 6490 (class class class)co 7358 ≼ cdom 8882 Fincfn 8884 ℂcc 11025 ℝcr 11026 0cc0 11027 1c1 11028 + caddc 11030 · cmul 11032 < clt 11167 ≤ cle 11168 − cmin 11365 / cdiv 11795 ℕcn 12146 2c2 12201 ℕ₀cn0 12402 ℤcz 12489 ℤ_≥cuz 12752 ℝ⁺crp 12906 [,]cicc 13265 ...cfz 13424 ⌊cfl 13711 ↑cexp 13985 ♯chash 14254 √csqrt 15157 Σcsu 15610 ℙcprime 16599 logclog 26503 θccht 27041 ψcchp 27043

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 5212 ax-sep 5231 ax-nul 5241 ax-pow 5300 ax-pr 5368 ax-un 7680 ax-inf2 9551 ax-cnex 11083 ax-resscn 11084 ax-1cn 11085 ax-icn 11086 ax-addcl 11087 ax-addrcl 11088 ax-mulcl 11089 ax-mulrcl 11090 ax-mulcom 11091 ax-addass 11092 ax-mulass 11093 ax-distr 11094 ax-i2m1 11095 ax-1ne0 11096 ax-1rid 11097 ax-rnegex 11098 ax-rrecex 11099 ax-cnre 11100 ax-pre-lttri 11101 ax-pre-lttrn 11102 ax-pre-ltadd 11103 ax-pre-mulgt0 11104 ax-pre-sup 11105 ax-addf 11106

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 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-tp 4573 df-op 4575 df-uni 4852 df-int 4891 df-iun 4936 df-iin 4937 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5517 df-eprel 5522 df-po 5530 df-so 5531 df-fr 5575 df-se 5576 df-we 5577 df-xp 5628 df-rel 5629 df-cnv 5630 df-co 5631 df-dm 5632 df-rn 5633 df-res 5634 df-ima 5635 df-pred 6257 df-ord 6318 df-on 6319 df-lim 6320 df-suc 6321 df-iota 6446 df-fun 6492 df-fn 6493 df-f 6494 df-f1 6495 df-fo 6496 df-f1o 6497 df-fv 6498 df-isom 6499 df-riota 7315 df-ov 7361 df-oprab 7362 df-mpo 7363 df-of 7622 df-om 7809 df-1st 7933 df-2nd 7934 df-supp 8102 df-frecs 8222 df-wrecs 8253 df-recs 8302 df-rdg 8340 df-1o 8396 df-2o 8397 df-oadd 8400 df-er 8634 df-map 8766 df-pm 8767 df-ixp 8837 df-en 8885 df-dom 8886 df-sdom 8887 df-fin 8888 df-fsupp 9266 df-fi 9315 df-sup 9346 df-inf 9347 df-oi 9416 df-dju 9814 df-card 9852 df-pnf 11169 df-mnf 11170 df-xr 11171 df-ltxr 11172 df-le 11173 df-sub 11367 df-neg 11368 df-div 11796 df-nn 12147 df-2 12209 df-3 12210 df-4 12211 df-5 12212 df-6 12213 df-7 12214 df-8 12215 df-9 12216 df-n0 12403 df-xnn0 12476 df-z 12490 df-dec 12609 df-uz 12753 df-q 12863 df-rp 12907 df-xneg 13027 df-xadd 13028 df-xmul 13029 df-ioo 13266 df-ioc 13267 df-ico 13268 df-icc 13269 df-fz 13425 df-fzo 13572 df-fl 13713 df-mod 13791 df-seq 13926 df-exp 13986 df-fac 14198 df-bc 14227 df-hash 14255 df-shft 14991 df-cj 15023 df-re 15024 df-im 15025 df-sqrt 15159 df-abs 15160 df-limsup 15395 df-clim 15412 df-rlim 15413 df-sum 15611 df-ef 15991 df-sin 15993 df-cos 15994 df-pi 15996 df-dvds 16181 df-gcd 16423 df-prm 16600 df-pc 16766 df-struct 17075 df-sets 17092 df-slot 17110 df-ndx 17122 df-base 17138 df-ress 17159 df-plusg 17191 df-mulr 17192 df-starv 17193 df-sca 17194 df-vsca 17195 df-ip 17196 df-tset 17197 df-ple 17198 df-ds 17200 df-unif 17201 df-hom 17202 df-cco 17203 df-rest 17343 df-topn 17344 df-0g 17362 df-gsum 17363 df-topgen 17364 df-pt 17365 df-prds 17368 df-xrs 17424 df-qtop 17429 df-imas 17430 df-xps 17432 df-mre 17506 df-mrc 17507 df-acs 17509 df-mgm 18566 df-sgrp 18645 df-mnd 18661 df-submnd 18710 df-mulg 19002 df-cntz 19250 df-cmn 19715 df-psmet 21303 df-xmet 21304 df-met 21305 df-bl 21306 df-mopn 21307 df-fbas 21308 df-fg 21309 df-cnfld 21312 df-top 22837 df-topon 22854 df-topsp 22876 df-bases 22889 df-cld 22962 df-ntr 22963 df-cls 22964 df-nei 23041 df-lp 23079 df-perf 23080 df-cn 23170 df-cnp 23171 df-haus 23258 df-tx 23505 df-hmeo 23698 df-fil 23789 df-fm 23881 df-flim 23882 df-flf 23883 df-xms 24263 df-ms 24264 df-tms 24265 df-cncf 24823 df-limc 25811 df-dv 25812 df-log 26505 df-cht 27047 df-vma 27048 df-chp 27049

This theorem is referenced by: chpchtlim 27430

W3C validator