rplogsumlem2 - Metamath Proof Explorer

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

Theorem rplogsumlem2 26978

Description: Lemma for rplogsum 27020. Equation 9.2.14 of [Shapiro], p. 331. (Contributed by Mario Carneiro, 2-May-2016.)

**Assertion**
Ref	Expression
rplogsumlem2	⊢ (𝐴 ∈ ℤ → Σ𝑛 ∈ (1...𝐴)(((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) ≤ 2)

Distinct variable group: 𝐴,𝑛

Proof of Theorem rplogsumlem2 Dummy variables 𝑘 𝑝 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		flid 13770	. . . . 5 ⊢ (𝐴 ∈ ℤ → (⌊‘𝐴) = 𝐴)
2	1	oveq2d 7422	. . . 4 ⊢ (𝐴 ∈ ℤ → (1...(⌊‘𝐴)) = (1...𝐴))
3	2	sumeq1d 15644	. . 3 ⊢ (𝐴 ∈ ℤ → Σ𝑛 ∈ (1...(⌊‘𝐴))(((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) = Σ𝑛 ∈ (1...𝐴)(((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛))
4		fveq2 6889	. . . . . 6 ⊢ (𝑛 = (𝑝↑𝑘) → (Λ‘𝑛) = (Λ‘(𝑝↑𝑘)))
5		eleq1 2822	. . . . . . 7 ⊢ (𝑛 = (𝑝↑𝑘) → (𝑛 ∈ ℙ ↔ (𝑝↑𝑘) ∈ ℙ))
6		fveq2 6889	. . . . . . 7 ⊢ (𝑛 = (𝑝↑𝑘) → (log‘𝑛) = (log‘(𝑝↑𝑘)))
7	5, 6	ifbieq1d 4552	. . . . . 6 ⊢ (𝑛 = (𝑝↑𝑘) → if(𝑛 ∈ ℙ, (log‘𝑛), 0) = if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0))
8	4, 7	oveq12d 7424	. . . . 5 ⊢ (𝑛 = (𝑝↑𝑘) → ((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) = ((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)))
9		id 22	. . . . 5 ⊢ (𝑛 = (𝑝↑𝑘) → 𝑛 = (𝑝↑𝑘))
10	8, 9	oveq12d 7424	. . . 4 ⊢ (𝑛 = (𝑝↑𝑘) → (((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) = (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)))
11		zre 12559	. . . 4 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℝ)
12		elfznn 13527	. . . . . . . . 9 ⊢ (𝑛 ∈ (1...(⌊‘𝐴)) → 𝑛 ∈ ℕ)
13	12	adantl 483	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ∈ ℕ)
14		vmacl 26612	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (Λ‘𝑛) ∈ ℝ)
15	13, 14	syl 17	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (Λ‘𝑛) ∈ ℝ)
16	13	nnrpd 13011	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ∈ ℝ⁺)
17	16	relogcld 26123	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (log‘𝑛) ∈ ℝ)
18		0re 11213	. . . . . . . 8 ⊢ 0 ∈ ℝ
19		ifcl 4573	. . . . . . . 8 ⊢ (((log‘𝑛) ∈ ℝ ∧ 0 ∈ ℝ) → if(𝑛 ∈ ℙ, (log‘𝑛), 0) ∈ ℝ)
20	17, 18, 19	sylancl 587	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → if(𝑛 ∈ ℙ, (log‘𝑛), 0) ∈ ℝ)
21	15, 20	resubcld 11639	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) ∈ ℝ)
22	21, 13	nndivred 12263	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) ∈ ℝ)
23	22	recnd 11239	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) ∈ ℂ)
24		simprr 772	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → (Λ‘𝑛) = 0)
25		vmaprm 26611	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℙ → (Λ‘𝑛) = (log‘𝑛))
26		prmnn 16608	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℙ → 𝑛 ∈ ℕ)
27	26	nnred 12224	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℙ → 𝑛 ∈ ℝ)
28		prmgt1 16631	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℙ → 1 < 𝑛)
29	27, 28	rplogcld 26129	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℙ → (log‘𝑛) ∈ ℝ⁺)
30	25, 29	eqeltrd 2834	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℙ → (Λ‘𝑛) ∈ ℝ⁺)
31	30	rpne0d 13018	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℙ → (Λ‘𝑛) ≠ 0)
32	31	necon2bi 2972	. . . . . . . . . 10 ⊢ ((Λ‘𝑛) = 0 → ¬ 𝑛 ∈ ℙ)
33	32	ad2antll 728	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → ¬ 𝑛 ∈ ℙ)
34	33	iffalsed 4539	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → if(𝑛 ∈ ℙ, (log‘𝑛), 0) = 0)
35	24, 34	oveq12d 7424	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → ((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) = (0 − 0))
36		0m0e0 12329	. . . . . . 7 ⊢ (0 − 0) = 0
37	35, 36	eqtrdi 2789	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → ((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) = 0)
38	37	oveq1d 7421	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → (((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) = (0 / 𝑛))
39	12	ad2antrl 727	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → 𝑛 ∈ ℕ)
40	39	nnrpd 13011	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → 𝑛 ∈ ℝ⁺)
41	40	rpcnne0d 13022	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → (𝑛 ∈ ℂ ∧ 𝑛 ≠ 0))
42		div0 11899	. . . . . 6 ⊢ ((𝑛 ∈ ℂ ∧ 𝑛 ≠ 0) → (0 / 𝑛) = 0)
43	41, 42	syl 17	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → (0 / 𝑛) = 0)
44	38, 43	eqtrd 2773	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ (𝑛 ∈ (1...(⌊‘𝐴)) ∧ (Λ‘𝑛) = 0)) → (((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) = 0)
45	10, 11, 23, 44	fsumvma2 26707	. . 3 ⊢ (𝐴 ∈ ℤ → Σ𝑛 ∈ (1...(⌊‘𝐴))(((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)))
46	3, 45	eqtr3d 2775	. 2 ⊢ (𝐴 ∈ ℤ → Σ𝑛 ∈ (1...𝐴)(((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) = Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)))
47		fzfid 13935	. . . . 5 ⊢ (𝐴 ∈ ℤ → (2...((abs‘𝐴) + 1)) ∈ Fin)
48		simpr 486	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ((0[,]𝐴) ∩ ℙ))
49	48	elin2d 4199	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℙ)
50		prmnn 16608	. . . . . . . . . . 11 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℕ)
51	49, 50	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℕ)
52	51	nnred 12224	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℝ)
53	11	adantr 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ∈ ℝ)
54		zcn 12560	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℂ)
55	54	abscld 15380	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℤ → (abs‘𝐴) ∈ ℝ)
56		peano2re 11384	. . . . . . . . . . 11 ⊢ ((abs‘𝐴) ∈ ℝ → ((abs‘𝐴) + 1) ∈ ℝ)
57	55, 56	syl 17	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → ((abs‘𝐴) + 1) ∈ ℝ)
58	57	adantr 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((abs‘𝐴) + 1) ∈ ℝ)
59		elinel1 4195	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) → 𝑝 ∈ (0[,]𝐴))
60		elicc2 13386	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℝ ∧ 𝐴 ∈ ℝ) → (𝑝 ∈ (0[,]𝐴) ↔ (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴)))
61	18, 11, 60	sylancr 588	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → (𝑝 ∈ (0[,]𝐴) ↔ (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴)))
62	59, 61	imbitrid 243	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℤ → (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) → (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴)))
63	62	imp 408	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 ∈ ℝ ∧ 0 ≤ 𝑝 ∧ 𝑝 ≤ 𝐴))
64	63	simp3d 1145	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ≤ 𝐴)
65	54	adantr 482	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ∈ ℂ)
66	65	abscld 15380	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (abs‘𝐴) ∈ ℝ)
67	53	leabsd 15358	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ≤ (abs‘𝐴))
68	66	lep1d 12142	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (abs‘𝐴) ≤ ((abs‘𝐴) + 1))
69	53, 66, 58, 67, 68	letrd 11368	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ≤ ((abs‘𝐴) + 1))
70	52, 53, 58, 64, 69	letrd 11368	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ≤ ((abs‘𝐴) + 1))
71		prmuz2 16630	. . . . . . . . . 10 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ (ℤ_≥‘2))
72	49, 71	syl 17	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ (ℤ_≥‘2))
73		nn0abscl 15256	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → (abs‘𝐴) ∈ ℕ₀)
74		nn0p1nn 12508	. . . . . . . . . . . 12 ⊢ ((abs‘𝐴) ∈ ℕ₀ → ((abs‘𝐴) + 1) ∈ ℕ)
75	73, 74	syl 17	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℤ → ((abs‘𝐴) + 1) ∈ ℕ)
76	75	nnzd 12582	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → ((abs‘𝐴) + 1) ∈ ℤ)
77	76	adantr 482	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((abs‘𝐴) + 1) ∈ ℤ)
78		elfz5 13490	. . . . . . . . 9 ⊢ ((𝑝 ∈ (ℤ_≥‘2) ∧ ((abs‘𝐴) + 1) ∈ ℤ) → (𝑝 ∈ (2...((abs‘𝐴) + 1)) ↔ 𝑝 ≤ ((abs‘𝐴) + 1)))
79	72, 77, 78	syl2anc 585	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 ∈ (2...((abs‘𝐴) + 1)) ↔ 𝑝 ≤ ((abs‘𝐴) + 1)))
80	70, 79	mpbird 257	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ (2...((abs‘𝐴) + 1)))
81	80	ex 414	. . . . . 6 ⊢ (𝐴 ∈ ℤ → (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) → 𝑝 ∈ (2...((abs‘𝐴) + 1))))
82	81	ssrdv 3988	. . . . 5 ⊢ (𝐴 ∈ ℤ → ((0[,]𝐴) ∩ ℙ) ⊆ (2...((abs‘𝐴) + 1)))
83	47, 82	ssfid 9264	. . . 4 ⊢ (𝐴 ∈ ℤ → ((0[,]𝐴) ∩ ℙ) ∈ Fin)
84		fzfid 13935	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1...(⌊‘((log‘𝐴) / (log‘𝑝)))) ∈ Fin)
85		simprl 770	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → 𝑝 ∈ ((0[,]𝐴) ∩ ℙ))
86	85	elin2d 4199	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → 𝑝 ∈ ℙ)
87		elfznn 13527	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))) → 𝑘 ∈ ℕ)
88	87	ad2antll 728	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → 𝑘 ∈ ℕ)
89		vmappw 26610	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℙ ∧ 𝑘 ∈ ℕ) → (Λ‘(𝑝↑𝑘)) = (log‘𝑝))
90	86, 88, 89	syl2anc 585	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (Λ‘(𝑝↑𝑘)) = (log‘𝑝))
91	51	adantrr 716	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → 𝑝 ∈ ℕ)
92	91	nnrpd 13011	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → 𝑝 ∈ ℝ⁺)
93	92	relogcld 26123	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (log‘𝑝) ∈ ℝ)
94	90, 93	eqeltrd 2834	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (Λ‘(𝑝↑𝑘)) ∈ ℝ)
95	88	nnnn0d 12529	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → 𝑘 ∈ ℕ₀)
96		nnexpcl 14037	. . . . . . . . . . . 12 ⊢ ((𝑝 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → (𝑝↑𝑘) ∈ ℕ)
97	91, 95, 96	syl2anc 585	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (𝑝↑𝑘) ∈ ℕ)
98	97	nnrpd 13011	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (𝑝↑𝑘) ∈ ℝ⁺)
99	98	relogcld 26123	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (log‘(𝑝↑𝑘)) ∈ ℝ)
100		ifcl 4573	. . . . . . . . 9 ⊢ (((log‘(𝑝↑𝑘)) ∈ ℝ ∧ 0 ∈ ℝ) → if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0) ∈ ℝ)
101	99, 18, 100	sylancl 587	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0) ∈ ℝ)
102	94, 101	resubcld 11639	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → ((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) ∈ ℝ)
103	102, 97	nndivred 12263	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ∈ ℝ)
104	103	anassrs 469	. . . . 5 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))) → (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ∈ ℝ)
105	84, 104	fsumrecl 15677	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ∈ ℝ)
106	83, 105	fsumrecl 15677	. . 3 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ∈ ℝ)
107	51	nnrpd 13011	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℝ⁺)
108	107	relogcld 26123	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ∈ ℝ)
109		uz2m1nn 12904	. . . . . . 7 ⊢ (𝑝 ∈ (ℤ_≥‘2) → (𝑝 − 1) ∈ ℕ)
110	72, 109	syl 17	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 − 1) ∈ ℕ)
111	51, 110	nnmulcld 12262	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 · (𝑝 − 1)) ∈ ℕ)
112	108, 111	nndivred 12263	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) / (𝑝 · (𝑝 − 1))) ∈ ℝ)
113	83, 112	fsumrecl 15677	. . 3 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) / (𝑝 · (𝑝 − 1))) ∈ ℝ)
114		2re 12283	. . . 4 ⊢ 2 ∈ ℝ
115	114	a1i 11	. . 3 ⊢ (𝐴 ∈ ℤ → 2 ∈ ℝ)
116	18	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 0 ∈ ℝ)
117	51	nngt0d 12258	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 0 < 𝑝)
118	116, 52, 53, 117, 64	ltletrd 11371	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 0 < 𝐴)
119	53, 118	elrpd 13010	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝐴 ∈ ℝ⁺)
120	119	relogcld 26123	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝐴) ∈ ℝ)
121		prmgt1 16631	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ ℙ → 1 < 𝑝)
122	49, 121	syl 17	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 1 < 𝑝)
123	52, 122	rplogcld 26129	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ∈ ℝ⁺)
124	120, 123	rerpdivcld 13044	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝐴) / (log‘𝑝)) ∈ ℝ)
125	123	rpcnd 13015	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ∈ ℂ)
126	125	mullidd 11229	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 · (log‘𝑝)) = (log‘𝑝))
127	107, 119	logled 26127	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 ≤ 𝐴 ↔ (log‘𝑝) ≤ (log‘𝐴)))
128	64, 127	mpbid 231	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘𝑝) ≤ (log‘𝐴))
129	126, 128	eqbrtrd 5170	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 · (log‘𝑝)) ≤ (log‘𝐴))
130		1re 11211	. . . . . . . . . . . 12 ⊢ 1 ∈ ℝ
131	130	a1i 11	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 1 ∈ ℝ)
132	131, 120, 123	lemuldivd 13062	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 · (log‘𝑝)) ≤ (log‘𝐴) ↔ 1 ≤ ((log‘𝐴) / (log‘𝑝))))
133	129, 132	mpbid 231	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 1 ≤ ((log‘𝐴) / (log‘𝑝)))
134		flge1nn 13783	. . . . . . . . 9 ⊢ ((((log‘𝐴) / (log‘𝑝)) ∈ ℝ ∧ 1 ≤ ((log‘𝐴) / (log‘𝑝))) → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℕ)
135	124, 133, 134	syl2anc 585	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℕ)
136		nnuz 12862	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
137	135, 136	eleqtrdi 2844	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ (ℤ_≥‘1))
138	103	recnd 11239	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ (𝑝 ∈ ((0[,]𝐴) ∩ ℙ) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝)))))) → (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ∈ ℂ)
139	138	anassrs 469	. . . . . . 7 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))) → (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ∈ ℂ)
140		oveq2 7414	. . . . . . . . . 10 ⊢ (𝑘 = 1 → (𝑝↑𝑘) = (𝑝↑1))
141	140	fveq2d 6893	. . . . . . . . 9 ⊢ (𝑘 = 1 → (Λ‘(𝑝↑𝑘)) = (Λ‘(𝑝↑1)))
142	140	eleq1d 2819	. . . . . . . . . 10 ⊢ (𝑘 = 1 → ((𝑝↑𝑘) ∈ ℙ ↔ (𝑝↑1) ∈ ℙ))
143	140	fveq2d 6893	. . . . . . . . . 10 ⊢ (𝑘 = 1 → (log‘(𝑝↑𝑘)) = (log‘(𝑝↑1)))
144	142, 143	ifbieq1d 4552	. . . . . . . . 9 ⊢ (𝑘 = 1 → if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0) = if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0))
145	141, 144	oveq12d 7424	. . . . . . . 8 ⊢ (𝑘 = 1 → ((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) = ((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)))
146	145, 140	oveq12d 7424	. . . . . . 7 ⊢ (𝑘 = 1 → (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) = (((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) / (𝑝↑1)))
147	137, 139, 146	fsum1p 15696	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) = ((((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) / (𝑝↑1)) + Σ𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘))))
148	51	nncnd 12225	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ∈ ℂ)
149	148	exp1d 14103	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝↑1) = 𝑝)
150	149	fveq2d 6893	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (Λ‘(𝑝↑1)) = (Λ‘𝑝))
151		vmaprm 26611	. . . . . . . . . . . . 13 ⊢ (𝑝 ∈ ℙ → (Λ‘𝑝) = (log‘𝑝))
152	49, 151	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (Λ‘𝑝) = (log‘𝑝))
153	150, 152	eqtrd 2773	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (Λ‘(𝑝↑1)) = (log‘𝑝))
154	149, 49	eqeltrd 2834	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝↑1) ∈ ℙ)
155	154	iftrued 4536	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0) = (log‘(𝑝↑1)))
156	149	fveq2d 6893	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (log‘(𝑝↑1)) = (log‘𝑝))
157	155, 156	eqtrd 2773	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0) = (log‘𝑝))
158	153, 157	oveq12d 7424	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) = ((log‘𝑝) − (log‘𝑝)))
159	125	subidd 11556	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) − (log‘𝑝)) = 0)
160	158, 159	eqtrd 2773	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) = 0)
161	160, 149	oveq12d 7424	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) / (𝑝↑1)) = (0 / 𝑝))
162	107	rpcnne0d 13022	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 ∈ ℂ ∧ 𝑝 ≠ 0))
163		div0 11899	. . . . . . . . 9 ⊢ ((𝑝 ∈ ℂ ∧ 𝑝 ≠ 0) → (0 / 𝑝) = 0)
164	162, 163	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (0 / 𝑝) = 0)
165	161, 164	eqtrd 2773	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) / (𝑝↑1)) = 0)
166		1p1e2 12334	. . . . . . . . . 10 ⊢ (1 + 1) = 2
167	166	oveq1i 7416	. . . . . . . . 9 ⊢ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝)))) = (2...(⌊‘((log‘𝐴) / (log‘𝑝))))
168	167	a1i 11	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝)))) = (2...(⌊‘((log‘𝐴) / (log‘𝑝)))))
169		elfzuz 13494	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝)))) → 𝑘 ∈ (ℤ_≥‘2))
170		eluz2nn 12865	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (ℤ_≥‘2) → 𝑘 ∈ ℕ)
171	169, 170	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝)))) → 𝑘 ∈ ℕ)
172	171, 167	eleq2s 2852	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝)))) → 𝑘 ∈ ℕ)
173	49, 172, 89	syl2an 597	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → (Λ‘(𝑝↑𝑘)) = (log‘𝑝))
174	51	adantr 482	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → 𝑝 ∈ ℕ)
175		nnq 12943	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ ℕ → 𝑝 ∈ ℚ)
176	174, 175	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → 𝑝 ∈ ℚ)
177	169, 167	eleq2s 2852	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝)))) → 𝑘 ∈ (ℤ_≥‘2))
178	177	adantl 483	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → 𝑘 ∈ (ℤ_≥‘2))
179		expnprm 16832	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ ℚ ∧ 𝑘 ∈ (ℤ_≥‘2)) → ¬ (𝑝↑𝑘) ∈ ℙ)
180	176, 178, 179	syl2anc 585	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ¬ (𝑝↑𝑘) ∈ ℙ)
181	180	iffalsed 4539	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0) = 0)
182	173, 181	oveq12d 7424	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) = ((log‘𝑝) − 0))
183	125	subid1d 11557	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) − 0) = (log‘𝑝))
184	183	adantr 482	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ((log‘𝑝) − 0) = (log‘𝑝))
185	182, 184	eqtrd 2773	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) = (log‘𝑝))
186	185	oveq1d 7421	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))) → (((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) = ((log‘𝑝) / (𝑝↑𝑘)))
187	168, 186	sumeq12dv 15649	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) = Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)))
188	165, 187	oveq12d 7424	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((((Λ‘(𝑝↑1)) − if((𝑝↑1) ∈ ℙ, (log‘(𝑝↑1)), 0)) / (𝑝↑1)) + Σ𝑘 ∈ ((1 + 1)...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘))) = (0 + Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘))))
189		fzfid 13935	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (2...(⌊‘((log‘𝐴) / (log‘𝑝)))) ∈ Fin)
190	108	adantr 482	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → (log‘𝑝) ∈ ℝ)
191		nnnn0 12476	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
192	51, 191, 96	syl2an 597	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → (𝑝↑𝑘) ∈ ℕ)
193	190, 192	nndivred 12263	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → ((log‘𝑝) / (𝑝↑𝑘)) ∈ ℝ)
194	171, 193	sylan2 594	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ((log‘𝑝) / (𝑝↑𝑘)) ∈ ℝ)
195	189, 194	fsumrecl 15677	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)) ∈ ℝ)
196	195	recnd 11239	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)) ∈ ℂ)
197	196	addlidd 11412	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (0 + Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘))) = Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)))
198	147, 188, 197	3eqtrd 2777	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) = Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)))
199	107	rpreccld 13023	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 / 𝑝) ∈ ℝ⁺)
200	124	flcld 13760	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℤ)
201	200	peano2zd 12666	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((⌊‘((log‘𝐴) / (log‘𝑝))) + 1) ∈ ℤ)
202	199, 201	rpexpcld 14207	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1)) ∈ ℝ⁺)
203	202	rpge0d 13017	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 0 ≤ ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1)))
204	51	nnrecred 12260	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 / 𝑝) ∈ ℝ)
205	204	resqcld 14087	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝)↑2) ∈ ℝ)
206	135	peano2nnd 12226	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((⌊‘((log‘𝐴) / (log‘𝑝))) + 1) ∈ ℕ)
207	206	nnnn0d 12529	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((⌊‘((log‘𝐴) / (log‘𝑝))) + 1) ∈ ℕ₀)
208	204, 207	reexpcld 14125	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1)) ∈ ℝ)
209	205, 208	subge02d 11803	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (0 ≤ ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1)) ↔ (((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ≤ ((1 / 𝑝)↑2)))
210	203, 209	mpbid 231	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ≤ ((1 / 𝑝)↑2))
211	110	nnrpd 13011	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 − 1) ∈ ℝ⁺)
212	211	rpcnne0d 13022	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((𝑝 − 1) ∈ ℂ ∧ (𝑝 − 1) ≠ 0))
213	199	rpcnd 13015	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 / 𝑝) ∈ ℂ)
214		dmdcan 11921	. . . . . . . . . . 11 ⊢ ((((𝑝 − 1) ∈ ℂ ∧ (𝑝 − 1) ≠ 0) ∧ (𝑝 ∈ ℂ ∧ 𝑝 ≠ 0) ∧ (1 / 𝑝) ∈ ℂ) → (((𝑝 − 1) / 𝑝) · ((1 / 𝑝) / (𝑝 − 1))) = ((1 / 𝑝) / 𝑝))
215	212, 162, 213, 214	syl3anc 1372	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((𝑝 − 1) / 𝑝) · ((1 / 𝑝) / (𝑝 − 1))) = ((1 / 𝑝) / 𝑝))
216	131	recnd 11239	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 1 ∈ ℂ)
217		divsubdir 11905	. . . . . . . . . . . . 13 ⊢ ((𝑝 ∈ ℂ ∧ 1 ∈ ℂ ∧ (𝑝 ∈ ℂ ∧ 𝑝 ≠ 0)) → ((𝑝 − 1) / 𝑝) = ((𝑝 / 𝑝) − (1 / 𝑝)))
218	148, 216, 162, 217	syl3anc 1372	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((𝑝 − 1) / 𝑝) = ((𝑝 / 𝑝) − (1 / 𝑝)))
219		divid 11898	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℂ ∧ 𝑝 ≠ 0) → (𝑝 / 𝑝) = 1)
220	162, 219	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 / 𝑝) = 1)
221	220	oveq1d 7421	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((𝑝 / 𝑝) − (1 / 𝑝)) = (1 − (1 / 𝑝)))
222	218, 221	eqtrd 2773	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((𝑝 − 1) / 𝑝) = (1 − (1 / 𝑝)))
223		divdiv1 11922	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℂ ∧ (𝑝 ∈ ℂ ∧ 𝑝 ≠ 0) ∧ ((𝑝 − 1) ∈ ℂ ∧ (𝑝 − 1) ≠ 0)) → ((1 / 𝑝) / (𝑝 − 1)) = (1 / (𝑝 · (𝑝 − 1))))
224	216, 162, 212, 223	syl3anc 1372	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝) / (𝑝 − 1)) = (1 / (𝑝 · (𝑝 − 1))))
225	222, 224	oveq12d 7424	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((𝑝 − 1) / 𝑝) · ((1 / 𝑝) / (𝑝 − 1))) = ((1 − (1 / 𝑝)) · (1 / (𝑝 · (𝑝 − 1)))))
226	51	nnne0d 12259	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 𝑝 ≠ 0)
227	213, 148, 226	divrecd 11990	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝) / 𝑝) = ((1 / 𝑝) · (1 / 𝑝)))
228	213	sqvald 14105	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝)↑2) = ((1 / 𝑝) · (1 / 𝑝)))
229	227, 228	eqtr4d 2776	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝) / 𝑝) = ((1 / 𝑝)↑2))
230	215, 225, 229	3eqtr3d 2781	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 − (1 / 𝑝)) · (1 / (𝑝 · (𝑝 − 1)))) = ((1 / 𝑝)↑2))
231	210, 230	breqtrrd 5176	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ≤ ((1 − (1 / 𝑝)) · (1 / (𝑝 · (𝑝 − 1)))))
232	205, 208	resubcld 11639	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ∈ ℝ)
233	111	nnrecred 12260	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 / (𝑝 · (𝑝 − 1))) ∈ ℝ)
234		resubcl 11521	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ (1 / 𝑝) ∈ ℝ) → (1 − (1 / 𝑝)) ∈ ℝ)
235	130, 204, 234	sylancr 588	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 − (1 / 𝑝)) ∈ ℝ)
236		recgt1 12107	. . . . . . . . . . . 12 ⊢ ((𝑝 ∈ ℝ ∧ 0 < 𝑝) → (1 < 𝑝 ↔ (1 / 𝑝) < 1))
237	52, 117, 236	syl2anc 585	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 < 𝑝 ↔ (1 / 𝑝) < 1))
238	122, 237	mpbid 231	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 / 𝑝) < 1)
239		posdif 11704	. . . . . . . . . . 11 ⊢ (((1 / 𝑝) ∈ ℝ ∧ 1 ∈ ℝ) → ((1 / 𝑝) < 1 ↔ 0 < (1 − (1 / 𝑝))))
240	204, 130, 239	sylancl 587	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((1 / 𝑝) < 1 ↔ 0 < (1 − (1 / 𝑝))))
241	238, 240	mpbid 231	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 0 < (1 − (1 / 𝑝)))
242		ledivmul 12087	. . . . . . . . 9 ⊢ (((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ∈ ℝ ∧ (1 / (𝑝 · (𝑝 − 1))) ∈ ℝ ∧ ((1 − (1 / 𝑝)) ∈ ℝ ∧ 0 < (1 − (1 / 𝑝)))) → (((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))) ≤ (1 / (𝑝 · (𝑝 − 1))) ↔ (((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ≤ ((1 − (1 / 𝑝)) · (1 / (𝑝 · (𝑝 − 1))))))
243	232, 233, 235, 241, 242	syl112anc 1375	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))) ≤ (1 / (𝑝 · (𝑝 − 1))) ↔ (((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) ≤ ((1 − (1 / 𝑝)) · (1 / (𝑝 · (𝑝 − 1))))))
244	231, 243	mpbird 257	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))) ≤ (1 / (𝑝 · (𝑝 − 1))))
245	235, 241	elrpd 13010	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 − (1 / 𝑝)) ∈ ℝ⁺)
246	232, 245	rerpdivcld 13044	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))) ∈ ℝ)
247	246, 233, 123	lemul2d 13057	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))) ≤ (1 / (𝑝 · (𝑝 − 1))) ↔ ((log‘𝑝) · ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝)))) ≤ ((log‘𝑝) · (1 / (𝑝 · (𝑝 − 1))))))
248	244, 247	mpbid 231	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) · ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝)))) ≤ ((log‘𝑝) · (1 / (𝑝 · (𝑝 − 1)))))
249	125	adantr 482	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → (log‘𝑝) ∈ ℂ)
250	192	nncnd 12225	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → (𝑝↑𝑘) ∈ ℂ)
251	192	nnne0d 12259	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → (𝑝↑𝑘) ≠ 0)
252	249, 250, 251	divrecd 11990	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → ((log‘𝑝) / (𝑝↑𝑘)) = ((log‘𝑝) · (1 / (𝑝↑𝑘))))
253	148	adantr 482	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → 𝑝 ∈ ℂ)
254	51	adantr 482	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → 𝑝 ∈ ℕ)
255	254	nnne0d 12259	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → 𝑝 ≠ 0)
256		nnz 12576	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
257	256	adantl 483	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
258	253, 255, 257	exprecd 14116	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → ((1 / 𝑝)↑𝑘) = (1 / (𝑝↑𝑘)))
259	258	oveq2d 7422	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → ((log‘𝑝) · ((1 / 𝑝)↑𝑘)) = ((log‘𝑝) · (1 / (𝑝↑𝑘))))
260	252, 259	eqtr4d 2776	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ ℕ) → ((log‘𝑝) / (𝑝↑𝑘)) = ((log‘𝑝) · ((1 / 𝑝)↑𝑘)))
261	171, 260	sylan2 594	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ((log‘𝑝) / (𝑝↑𝑘)) = ((log‘𝑝) · ((1 / 𝑝)↑𝑘)))
262	261	sumeq2dv 15646	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)) = Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) · ((1 / 𝑝)↑𝑘)))
263	171	nnnn0d 12529	. . . . . . . . 9 ⊢ (𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝)))) → 𝑘 ∈ ℕ₀)
264		expcl 14042	. . . . . . . . 9 ⊢ (((1 / 𝑝) ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → ((1 / 𝑝)↑𝑘) ∈ ℂ)
265	213, 263, 264	syl2an 597	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) ∧ 𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))) → ((1 / 𝑝)↑𝑘) ∈ ℂ)
266	189, 125, 265	fsummulc2 15727	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) · Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((1 / 𝑝)↑𝑘)) = Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) · ((1 / 𝑝)↑𝑘)))
267		fzval3 13698	. . . . . . . . . . 11 ⊢ ((⌊‘((log‘𝐴) / (log‘𝑝))) ∈ ℤ → (2...(⌊‘((log‘𝐴) / (log‘𝑝)))) = (2..^((⌊‘((log‘𝐴) / (log‘𝑝))) + 1)))
268	200, 267	syl 17	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (2...(⌊‘((log‘𝐴) / (log‘𝑝)))) = (2..^((⌊‘((log‘𝐴) / (log‘𝑝))) + 1)))
269	268	sumeq1d 15644	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((1 / 𝑝)↑𝑘) = Σ𝑘 ∈ (2..^((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))((1 / 𝑝)↑𝑘))
270	204, 238	ltned 11347	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (1 / 𝑝) ≠ 1)
271		2nn0 12486	. . . . . . . . . . 11 ⊢ 2 ∈ ℕ₀
272	271	a1i 11	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → 2 ∈ ℕ₀)
273		eluzp1p1 12847	. . . . . . . . . . . 12 ⊢ ((⌊‘((log‘𝐴) / (log‘𝑝))) ∈ (ℤ_≥‘1) → ((⌊‘((log‘𝐴) / (log‘𝑝))) + 1) ∈ (ℤ_≥‘(1 + 1)))
274	137, 273	syl 17	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((⌊‘((log‘𝐴) / (log‘𝑝))) + 1) ∈ (ℤ_≥‘(1 + 1)))
275		df-2 12272	. . . . . . . . . . . 12 ⊢ 2 = (1 + 1)
276	275	fveq2i 6892	. . . . . . . . . . 11 ⊢ (ℤ_≥‘2) = (ℤ_≥‘(1 + 1))
277	274, 276	eleqtrrdi 2845	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((⌊‘((log‘𝐴) / (log‘𝑝))) + 1) ∈ (ℤ_≥‘2))
278	213, 270, 272, 277	geoserg 15809	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2..^((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))((1 / 𝑝)↑𝑘) = ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))))
279	269, 278	eqtrd 2773	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((1 / 𝑝)↑𝑘) = ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝))))
280	279	oveq2d 7422	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) · Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((1 / 𝑝)↑𝑘)) = ((log‘𝑝) · ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝)))))
281	262, 266, 280	3eqtr2d 2779	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)) = ((log‘𝑝) · ((((1 / 𝑝)↑2) − ((1 / 𝑝)↑((⌊‘((log‘𝐴) / (log‘𝑝))) + 1))) / (1 − (1 / 𝑝)))))
282	111	nncnd 12225	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 · (𝑝 − 1)) ∈ ℂ)
283	111	nnne0d 12259	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → (𝑝 · (𝑝 − 1)) ≠ 0)
284	125, 282, 283	divrecd 11990	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → ((log‘𝑝) / (𝑝 · (𝑝 − 1))) = ((log‘𝑝) · (1 / (𝑝 · (𝑝 − 1)))))
285	248, 281, 284	3brtr4d 5180	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (2...(⌊‘((log‘𝐴) / (log‘𝑝))))((log‘𝑝) / (𝑝↑𝑘)) ≤ ((log‘𝑝) / (𝑝 · (𝑝 − 1))))
286	198, 285	eqbrtrd 5170	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ ((0[,]𝐴) ∩ ℙ)) → Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ≤ ((log‘𝑝) / (𝑝 · (𝑝 − 1))))
287	83, 105, 112, 286	fsumle 15742	. . 3 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ≤ Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) / (𝑝 · (𝑝 − 1))))
288		elfzuz 13494	. . . . . . . . . . 11 ⊢ (𝑝 ∈ (2...((abs‘𝐴) + 1)) → 𝑝 ∈ (ℤ_≥‘2))
289		eluz2nn 12865	. . . . . . . . . . 11 ⊢ (𝑝 ∈ (ℤ_≥‘2) → 𝑝 ∈ ℕ)
290	288, 289	syl 17	. . . . . . . . . 10 ⊢ (𝑝 ∈ (2...((abs‘𝐴) + 1)) → 𝑝 ∈ ℕ)
291	290	adantl 483	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → 𝑝 ∈ ℕ)
292	291	nnred 12224	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → 𝑝 ∈ ℝ)
293	288	adantl 483	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → 𝑝 ∈ (ℤ_≥‘2))
294		eluz2gt1 12901	. . . . . . . . 9 ⊢ (𝑝 ∈ (ℤ_≥‘2) → 1 < 𝑝)
295	293, 294	syl 17	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → 1 < 𝑝)
296	292, 295	rplogcld 26129	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → (log‘𝑝) ∈ ℝ⁺)
297	293, 109	syl 17	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → (𝑝 − 1) ∈ ℕ)
298	291, 297	nnmulcld 12262	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → (𝑝 · (𝑝 − 1)) ∈ ℕ)
299	298	nnrpd 13011	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → (𝑝 · (𝑝 − 1)) ∈ ℝ⁺)
300	296, 299	rpdivcld 13030	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → ((log‘𝑝) / (𝑝 · (𝑝 − 1))) ∈ ℝ⁺)
301	300	rpred 13013	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → ((log‘𝑝) / (𝑝 · (𝑝 − 1))) ∈ ℝ)
302	47, 301	fsumrecl 15677	. . . 4 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ (2...((abs‘𝐴) + 1))((log‘𝑝) / (𝑝 · (𝑝 − 1))) ∈ ℝ)
303	300	rpge0d 13017	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 𝑝 ∈ (2...((abs‘𝐴) + 1))) → 0 ≤ ((log‘𝑝) / (𝑝 · (𝑝 − 1))))
304	47, 301, 303, 82	fsumless 15739	. . . 4 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) / (𝑝 · (𝑝 − 1))) ≤ Σ𝑝 ∈ (2...((abs‘𝐴) + 1))((log‘𝑝) / (𝑝 · (𝑝 − 1))))
305		rplogsumlem1 26977	. . . . 5 ⊢ (((abs‘𝐴) + 1) ∈ ℕ → Σ𝑝 ∈ (2...((abs‘𝐴) + 1))((log‘𝑝) / (𝑝 · (𝑝 − 1))) ≤ 2)
306	75, 305	syl 17	. . . 4 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ (2...((abs‘𝐴) + 1))((log‘𝑝) / (𝑝 · (𝑝 − 1))) ≤ 2)
307	113, 302, 115, 304, 306	letrd 11368	. . 3 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)((log‘𝑝) / (𝑝 · (𝑝 − 1))) ≤ 2)
308	106, 113, 115, 287, 307	letrd 11368	. 2 ⊢ (𝐴 ∈ ℤ → Σ𝑝 ∈ ((0[,]𝐴) ∩ ℙ)Σ𝑘 ∈ (1...(⌊‘((log‘𝐴) / (log‘𝑝))))(((Λ‘(𝑝↑𝑘)) − if((𝑝↑𝑘) ∈ ℙ, (log‘(𝑝↑𝑘)), 0)) / (𝑝↑𝑘)) ≤ 2)
309	46, 308	eqbrtrd 5170	1 ⊢ (𝐴 ∈ ℤ → Σ𝑛 ∈ (1...𝐴)(((Λ‘𝑛) − if(𝑛 ∈ ℙ, (log‘𝑛), 0)) / 𝑛) ≤ 2)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 397 ∧ w3a 1088 = wceq 1542 ∈ wcel 2107 ≠ wne 2941 ∩ cin 3947 ifcif 4528 class class class wbr 5148 ‘cfv 6541 (class class class)co 7406 ℂcc 11105 ℝcr 11106 0cc0 11107 1c1 11108 + caddc 11110 · cmul 11112 < clt 11245 ≤ cle 11246 − cmin 11441 / cdiv 11868 ℕcn 12209 2c2 12264 ℕ₀cn0 12469 ℤcz 12555 ℤ_≥cuz 12819 ℚcq 12929 ℝ⁺crp 12971 [,]cicc 13324 ...cfz 13481 ..^cfzo 13624 ⌊cfl 13752 ↑cexp 14024 abscabs 15178 Σcsu 15629 ℙcprime 16605 logclog 26055 Λcvma 26586

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7722 ax-inf2 9633 ax-cnex 11163 ax-resscn 11164 ax-1cn 11165 ax-icn 11166 ax-addcl 11167 ax-addrcl 11168 ax-mulcl 11169 ax-mulrcl 11170 ax-mulcom 11171 ax-addass 11172 ax-mulass 11173 ax-distr 11174 ax-i2m1 11175 ax-1ne0 11176 ax-1rid 11177 ax-rnegex 11178 ax-rrecex 11179 ax-cnre 11180 ax-pre-lttri 11181 ax-pre-lttrn 11182 ax-pre-ltadd 11183 ax-pre-mulgt0 11184 ax-pre-sup 11185 ax-addf 11186 ax-mulf 11187

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-tp 4633 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-iin 5000 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-se 5632 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6298 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6493 df-fun 6543 df-fn 6544 df-f 6545 df-f1 6546 df-fo 6547 df-f1o 6548 df-fv 6549 df-isom 6550 df-riota 7362 df-ov 7409 df-oprab 7410 df-mpo 7411 df-of 7667 df-om 7853 df-1st 7972 df-2nd 7973 df-supp 8144 df-frecs 8263 df-wrecs 8294 df-recs 8368 df-rdg 8407 df-1o 8463 df-2o 8464 df-oadd 8467 df-er 8700 df-map 8819 df-pm 8820 df-ixp 8889 df-en 8937 df-dom 8938 df-sdom 8939 df-fin 8940 df-fsupp 9359 df-fi 9403 df-sup 9434 df-inf 9435 df-oi 9502 df-dju 9893 df-card 9931 df-pnf 11247 df-mnf 11248 df-xr 11249 df-ltxr 11250 df-le 11251 df-sub 11443 df-neg 11444 df-div 11869 df-nn 12210 df-2 12272 df-3 12273 df-4 12274 df-5 12275 df-6 12276 df-7 12277 df-8 12278 df-9 12279 df-n0 12470 df-z 12556 df-dec 12675 df-uz 12820 df-q 12930 df-rp 12972 df-xneg 13089 df-xadd 13090 df-xmul 13091 df-ioo 13325 df-ioc 13326 df-ico 13327 df-icc 13328 df-fz 13482 df-fzo 13625 df-fl 13754 df-mod 13832 df-seq 13964 df-exp 14025 df-fac 14231 df-bc 14260 df-hash 14288 df-shft 15011 df-cj 15043 df-re 15044 df-im 15045 df-sqrt 15179 df-abs 15180 df-limsup 15412 df-clim 15429 df-rlim 15430 df-sum 15630 df-ef 16008 df-sin 16010 df-cos 16011 df-tan 16012 df-pi 16013 df-dvds 16195 df-gcd 16433 df-prm 16606 df-pc 16767 df-struct 17077 df-sets 17094 df-slot 17112 df-ndx 17124 df-base 17142 df-ress 17171 df-plusg 17207 df-mulr 17208 df-starv 17209 df-sca 17210 df-vsca 17211 df-ip 17212 df-tset 17213 df-ple 17214 df-ds 17216 df-unif 17217 df-hom 17218 df-cco 17219 df-rest 17365 df-topn 17366 df-0g 17384 df-gsum 17385 df-topgen 17386 df-pt 17387 df-prds 17390 df-xrs 17445 df-qtop 17450 df-imas 17451 df-xps 17453 df-mre 17527 df-mrc 17528 df-acs 17530 df-mgm 18558 df-sgrp 18607 df-mnd 18623 df-submnd 18669 df-mulg 18946 df-cntz 19176 df-cmn 19645 df-psmet 20929 df-xmet 20930 df-met 20931 df-bl 20932 df-mopn 20933 df-fbas 20934 df-fg 20935 df-cnfld 20938 df-top 22388 df-topon 22405 df-topsp 22427 df-bases 22441 df-cld 22515 df-ntr 22516 df-cls 22517 df-nei 22594 df-lp 22632 df-perf 22633 df-cn 22723 df-cnp 22724 df-haus 22811 df-cmp 22883 df-tx 23058 df-hmeo 23251 df-fil 23342 df-fm 23434 df-flim 23435 df-flf 23436 df-xms 23818 df-ms 23819 df-tms 23820 df-cncf 24386 df-limc 25375 df-dv 25376 df-log 26057 df-cxp 26058 df-vma 26592

This theorem is referenced by: rplogsum 27020

W3C validator