Theorem pcfac 16415

Description: Calculate the prime count of a factorial. (Contributed by Mario Carneiro, 11-Mar-2014.) (Revised by Mario Carneiro, 21-May-2014.)

Assertion

Ref	Expression
pcfac	⊢ ((𝑁 ∈ ℕ0 ∧ 𝑀 ∈ (ℤ≥‘𝑁) ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))

Distinct variable groups:   𝑃,𝑘   𝑘,𝑁   𝑘,𝑀

Proof of Theorem pcfac

Dummy variables 𝑚 𝑛 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6695	. . . . . . . 8 ⊢ (𝑥 = 0 → (ℤ≥‘𝑥) = (ℤ≥‘0))
2		fveq2 6695	. . . . . . . . . 10 ⊢ (𝑥 = 0 → (!‘𝑥) = (!‘0))
3	2	oveq2d 7207	. . . . . . . . 9 ⊢ (𝑥 = 0 → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘0)))
4		fvoveq1 7214	. . . . . . . . . 10 ⊢ (𝑥 = 0 → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘(0 / (𝑃↑𝑘))))
5	4	sumeq2sdv 15233	. . . . . . . . 9 ⊢ (𝑥 = 0 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))
6	3, 5	eqeq12d 2752	. . . . . . . 8 ⊢ (𝑥 = 0 → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘)))))
7	1, 6	raleqbidv 3303	. . . . . . 7 ⊢ (𝑥 = 0 → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘0)(𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘)))))
8	7	imbi2d 344	. . . . . 6 ⊢ (𝑥 = 0 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘0)(𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))))
9		fveq2 6695	. . . . . . . 8 ⊢ (𝑥 = 𝑛 → (ℤ≥‘𝑥) = (ℤ≥‘𝑛))
10		fveq2 6695	. . . . . . . . . 10 ⊢ (𝑥 = 𝑛 → (!‘𝑥) = (!‘𝑛))
11	10	oveq2d 7207	. . . . . . . . 9 ⊢ (𝑥 = 𝑛 → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘𝑛)))
12		fvoveq1 7214	. . . . . . . . . 10 ⊢ (𝑥 = 𝑛 → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘(𝑛 / (𝑃↑𝑘))))
13	12	sumeq2sdv 15233	. . . . . . . . 9 ⊢ (𝑥 = 𝑛 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))))
14	11, 13	eqeq12d 2752	. . . . . . . 8 ⊢ (𝑥 = 𝑛 → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
15	9, 14	raleqbidv 3303	. . . . . . 7 ⊢ (𝑥 = 𝑛 → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
16	15	imbi2d 344	. . . . . 6 ⊢ (𝑥 = 𝑛 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))))))
17		fveq2 6695	. . . . . . . 8 ⊢ (𝑥 = (𝑛 + 1) → (ℤ≥‘𝑥) = (ℤ≥‘(𝑛 + 1)))
18		fveq2 6695	. . . . . . . . . 10 ⊢ (𝑥 = (𝑛 + 1) → (!‘𝑥) = (!‘(𝑛 + 1)))
19	18	oveq2d 7207	. . . . . . . . 9 ⊢ (𝑥 = (𝑛 + 1) → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘(𝑛 + 1))))
20		fvoveq1 7214	. . . . . . . . . 10 ⊢ (𝑥 = (𝑛 + 1) → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘((𝑛 + 1) / (𝑃↑𝑘))))
21	20	sumeq2sdv 15233	. . . . . . . . 9 ⊢ (𝑥 = (𝑛 + 1) → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))
22	19, 21	eqeq12d 2752	. . . . . . . 8 ⊢ (𝑥 = (𝑛 + 1) → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
23	17, 22	raleqbidv 3303	. . . . . . 7 ⊢ (𝑥 = (𝑛 + 1) → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
24	23	imbi2d 344	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))))
25		fveq2 6695	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → (ℤ≥‘𝑥) = (ℤ≥‘𝑁))
26		fveq2 6695	. . . . . . . . . 10 ⊢ (𝑥 = 𝑁 → (!‘𝑥) = (!‘𝑁))
27	26	oveq2d 7207	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘𝑁)))
28		fvoveq1 7214	. . . . . . . . . 10 ⊢ (𝑥 = 𝑁 → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘(𝑁 / (𝑃↑𝑘))))
29	28	sumeq2sdv 15233	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))))
30	27, 29	eqeq12d 2752	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘)))))
31	25, 30	raleqbidv 3303	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘)))))
32	31	imbi2d 344	. . . . . 6 ⊢ (𝑥 = 𝑁 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))))))
33		fzfid 13511	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → (1...𝑚) ∈ Fin)
34		sumz 15251	. . . . . . . . . 10 ⊢ (((1...𝑚) ⊆ (ℤ≥‘1) ∨ (1...𝑚) ∈ Fin) → Σ𝑘 ∈ (1...𝑚)0 = 0)
35	34	olcs 876	. . . . . . . . 9 ⊢ ((1...𝑚) ∈ Fin → Σ𝑘 ∈ (1...𝑚)0 = 0)
36	33, 35	syl 17	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → Σ𝑘 ∈ (1...𝑚)0 = 0)
37		0nn0 12070	. . . . . . . . . 10 ⊢ 0 ∈ ℕ0
38		elfznn 13106	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ ℕ)
39	38	nnnn0d 12115	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ ℕ0)
40		nn0uz 12441	. . . . . . . . . . . 12 ⊢ ℕ0 = (ℤ≥‘0)
41	39, 40	eleqtrdi 2841	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ (ℤ≥‘0))
42	41	adantl 485	. . . . . . . . . 10 ⊢ (((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ 𝑘 ∈ (1...𝑚)) → 𝑘 ∈ (ℤ≥‘0))
43		simpll 767	. . . . . . . . . 10 ⊢ (((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ 𝑘 ∈ (1...𝑚)) → 𝑃 ∈ ℙ)
44		pcfaclem 16414	. . . . . . . . . 10 ⊢ ((0 ∈ ℕ0 ∧ 𝑘 ∈ (ℤ≥‘0) ∧ 𝑃 ∈ ℙ) → (⌊‘(0 / (𝑃↑𝑘))) = 0)
45	37, 42, 43, 44	mp3an2i 1468	. . . . . . . . 9 ⊢ (((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘(0 / (𝑃↑𝑘))) = 0)
46	45	sumeq2dv 15232	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)0)
47		fac0 13807	. . . . . . . . . . 11 ⊢ (!‘0) = 1
48	47	oveq2i 7202	. . . . . . . . . 10 ⊢ (𝑃 pCnt (!‘0)) = (𝑃 pCnt 1)
49		pc1 16371	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt 1) = 0)
50	48, 49	syl5eq 2783	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt (!‘0)) = 0)
51	50	adantr 484	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → (𝑃 pCnt (!‘0)) = 0)
52	36, 46, 51	3eqtr4rd 2782	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → (𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))
53	52	ralrimiva 3095	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘0)(𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))
54		nn0z 12165	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ0 → 𝑛 ∈ ℤ)
55	54	adantr 484	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → 𝑛 ∈ ℤ)
56		uzid 12418	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℤ → 𝑛 ∈ (ℤ≥‘𝑛))
57		peano2uz 12462	. . . . . . . . . . 11 ⊢ (𝑛 ∈ (ℤ≥‘𝑛) → (𝑛 + 1) ∈ (ℤ≥‘𝑛))
58	55, 56, 57	3syl 18	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (𝑛 + 1) ∈ (ℤ≥‘𝑛))
59		uzss 12426	. . . . . . . . . 10 ⊢ ((𝑛 + 1) ∈ (ℤ≥‘𝑛) → (ℤ≥‘(𝑛 + 1)) ⊆ (ℤ≥‘𝑛))
60		ssralv 3953	. . . . . . . . . 10 ⊢ ((ℤ≥‘(𝑛 + 1)) ⊆ (ℤ≥‘𝑛) → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
61	58, 59, 60	3syl 18	. . . . . . . . 9 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
62		oveq1 7198	. . . . . . . . . . 11 ⊢ ((𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))) = (Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) + (𝑃 pCnt (𝑛 + 1))))
63		simpll 767	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑛 ∈ ℕ0)
64		facp1 13809	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ0 → (!‘(𝑛 + 1)) = ((!‘𝑛) · (𝑛 + 1)))
65	63, 64	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (!‘(𝑛 + 1)) = ((!‘𝑛) · (𝑛 + 1)))
66	65	oveq2d 7207	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (!‘(𝑛 + 1))) = (𝑃 pCnt ((!‘𝑛) · (𝑛 + 1))))
67		simplr 769	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑃 ∈ ℙ)
68		faccl 13814	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ0 → (!‘𝑛) ∈ ℕ)
69		nnz 12164	. . . . . . . . . . . . . . . 16 ⊢ ((!‘𝑛) ∈ ℕ → (!‘𝑛) ∈ ℤ)
70		nnne0 11829	. . . . . . . . . . . . . . . 16 ⊢ ((!‘𝑛) ∈ ℕ → (!‘𝑛) ≠ 0)
71	69, 70	jca 515	. . . . . . . . . . . . . . 15 ⊢ ((!‘𝑛) ∈ ℕ → ((!‘𝑛) ∈ ℤ ∧ (!‘𝑛) ≠ 0))
72	63, 68, 71	3syl 18	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((!‘𝑛) ∈ ℤ ∧ (!‘𝑛) ≠ 0))
73		nn0p1nn 12094	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ0 → (𝑛 + 1) ∈ ℕ)
74		nnz 12164	. . . . . . . . . . . . . . . 16 ⊢ ((𝑛 + 1) ∈ ℕ → (𝑛 + 1) ∈ ℤ)
75		nnne0 11829	. . . . . . . . . . . . . . . 16 ⊢ ((𝑛 + 1) ∈ ℕ → (𝑛 + 1) ≠ 0)
76	74, 75	jca 515	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 + 1) ∈ ℕ → ((𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ≠ 0))
77	63, 73, 76	3syl 18	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ≠ 0))
78		pcmul 16367	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℙ ∧ ((!‘𝑛) ∈ ℤ ∧ (!‘𝑛) ≠ 0) ∧ ((𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ≠ 0)) → (𝑃 pCnt ((!‘𝑛) · (𝑛 + 1))) = ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))))
79	67, 72, 77, 78	syl3anc 1373	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt ((!‘𝑛) · (𝑛 + 1))) = ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))))
80	66, 79	eqtr2d 2772	. . . . . . . . . . . 12 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))) = (𝑃 pCnt (!‘(𝑛 + 1))))
81	63	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑛 ∈ ℕ0)
82	81	nn0zd 12245	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑛 ∈ ℤ)
83		prmnn 16194	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
84	83	ad2antlr 727	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑃 ∈ ℕ)
85		nnexpcl 13613	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℕ ∧ 𝑘 ∈ ℕ0) → (𝑃↑𝑘) ∈ ℕ)
86	84, 39, 85	syl2an 599	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑃↑𝑘) ∈ ℕ)
87		fldivp1 16413	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑛 ∈ ℤ ∧ (𝑃↑𝑘) ∈ ℕ) → ((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = if((𝑃↑𝑘) ∥ (𝑛 + 1), 1, 0))
88	82, 86, 87	syl2anc 587	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = if((𝑃↑𝑘) ∥ (𝑛 + 1), 1, 0))
89		elfzuz 13073	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ (ℤ≥‘1))
90	63, 73	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℕ)
91	67, 90	pccld 16366	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℕ0)
92	91	nn0zd 12245	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℤ)
93		elfz5 13069	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑘 ∈ (ℤ≥‘1) ∧ (𝑃 pCnt (𝑛 + 1)) ∈ ℤ) → (𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))) ↔ 𝑘 ≤ (𝑃 pCnt (𝑛 + 1))))
94	89, 92, 93	syl2anr 600	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))) ↔ 𝑘 ≤ (𝑃 pCnt (𝑛 + 1))))
95		simpllr 776	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑃 ∈ ℙ)
96	81, 73	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 + 1) ∈ ℕ)
97	96	nnzd 12246	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 + 1) ∈ ℤ)
98	39	adantl 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑘 ∈ ℕ0)
99		pcdvdsb 16385	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℙ ∧ (𝑛 + 1) ∈ ℤ ∧ 𝑘 ∈ ℕ0) → (𝑘 ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑𝑘) ∥ (𝑛 + 1)))
100	95, 97, 98, 99	syl3anc 1373	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑘 ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑𝑘) ∥ (𝑛 + 1)))
101	94, 100	bitr2d 283	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((𝑃↑𝑘) ∥ (𝑛 + 1) ↔ 𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1)))))
102	101	ifbid 4448	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → if((𝑃↑𝑘) ∥ (𝑛 + 1), 1, 0) = if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0))
103	88, 102	eqtrd 2771	. . . . . . . . . . . . . . 15 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0))
104	103	sumeq2dv 15232	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0))
105		fzfid 13511	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (1...𝑚) ∈ Fin)
106	63	nn0red 12116	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑛 ∈ ℝ)
107		peano2re 10970	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℝ → (𝑛 + 1) ∈ ℝ)
108	106, 107	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℝ)
109	108	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 + 1) ∈ ℝ)
110	109, 86	nndivred 11849	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((𝑛 + 1) / (𝑃↑𝑘)) ∈ ℝ)
111	110	flcld 13338	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘((𝑛 + 1) / (𝑃↑𝑘))) ∈ ℤ)
112	111	zcnd 12248	. . . . . . . . . . . . . . 15 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘((𝑛 + 1) / (𝑃↑𝑘))) ∈ ℂ)
113	106	adantr 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑛 ∈ ℝ)
114	113, 86	nndivred 11849	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 / (𝑃↑𝑘)) ∈ ℝ)
115	114	flcld 13338	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘(𝑛 / (𝑃↑𝑘))) ∈ ℤ)
116	115	zcnd 12248	. . . . . . . . . . . . . . 15 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘(𝑛 / (𝑃↑𝑘))) ∈ ℂ)
117	105, 112, 116	fsumsub 15315	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = (Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
118		fzfi 13510	. . . . . . . . . . . . . . . 16 ⊢ (1...𝑚) ∈ Fin
119	91	nn0red 12116	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℝ)
120		eluzelz 12413	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 ∈ (ℤ≥‘(𝑛 + 1)) → 𝑚 ∈ ℤ)
121	120	adantl 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑚 ∈ ℤ)
122	121	zred 12247	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑚 ∈ ℝ)
123		prmuz2 16216	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ≥‘2))
124	123	ad2antlr 727	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑃 ∈ (ℤ≥‘2))
125	90	nnnn0d 12115	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℕ0)
126		bernneq3 13763	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑃 ∈ (ℤ≥‘2) ∧ (𝑛 + 1) ∈ ℕ0) → (𝑛 + 1) < (𝑃↑(𝑛 + 1)))
127	124, 125, 126	syl2anc 587	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) < (𝑃↑(𝑛 + 1)))
128	119, 108	letrid 10949	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1) ∨ (𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1))))
129	128	ord 864	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (¬ (𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1) → (𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1))))
130	90	nnzd 12246	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℤ)
131		pcdvdsb 16385	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ ℙ ∧ (𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ∈ ℕ0) → ((𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1)))
132	67, 130, 125, 131	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1)))
133	84, 125	nnexpcld 13777	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃↑(𝑛 + 1)) ∈ ℕ)
134	133	nnzd 12246	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃↑(𝑛 + 1)) ∈ ℤ)
135		dvdsle 15834	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑃↑(𝑛 + 1)) ∈ ℤ ∧ (𝑛 + 1) ∈ ℕ) → ((𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1) → (𝑃↑(𝑛 + 1)) ≤ (𝑛 + 1)))
136	134, 90, 135	syl2anc 587	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1) → (𝑃↑(𝑛 + 1)) ≤ (𝑛 + 1)))
137	133	nnred 11810	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃↑(𝑛 + 1)) ∈ ℝ)
138	137, 108	lenltd 10943	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃↑(𝑛 + 1)) ≤ (𝑛 + 1) ↔ ¬ (𝑛 + 1) < (𝑃↑(𝑛 + 1))))
139	136, 138	sylibd 242	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1) → ¬ (𝑛 + 1) < (𝑃↑(𝑛 + 1))))
140	132, 139	sylbid 243	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1)) → ¬ (𝑛 + 1) < (𝑃↑(𝑛 + 1))))
141	129, 140	syld 47	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (¬ (𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1) → ¬ (𝑛 + 1) < (𝑃↑(𝑛 + 1))))
142	127, 141	mt4d 117	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1))
143		eluzle 12416	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑚 ∈ (ℤ≥‘(𝑛 + 1)) → (𝑛 + 1) ≤ 𝑚)
144	143	adantl 485	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ≤ 𝑚)
145	119, 108, 122, 142, 144	letrd 10954	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ≤ 𝑚)
146		eluz 12417	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑃 pCnt (𝑛 + 1)) ∈ ℤ ∧ 𝑚 ∈ ℤ) → (𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))) ↔ (𝑃 pCnt (𝑛 + 1)) ≤ 𝑚))
147	92, 121, 146	syl2anc 587	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))) ↔ (𝑃 pCnt (𝑛 + 1)) ≤ 𝑚))
148	145, 147	mpbird 260	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))))
149		fzss2 13117	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))) → (1...(𝑃 pCnt (𝑛 + 1))) ⊆ (1...𝑚))
150	148, 149	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (1...(𝑃 pCnt (𝑛 + 1))) ⊆ (1...𝑚))
151		sumhash 16412	. . . . . . . . . . . . . . . 16 ⊢ (((1...𝑚) ∈ Fin ∧ (1...(𝑃 pCnt (𝑛 + 1))) ⊆ (1...𝑚)) → Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0) = (♯‘(1...(𝑃 pCnt (𝑛 + 1)))))
152	118, 150, 151	sylancr 590	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0) = (♯‘(1...(𝑃 pCnt (𝑛 + 1)))))
153		hashfz1 13877	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 pCnt (𝑛 + 1)) ∈ ℕ0 → (♯‘(1...(𝑃 pCnt (𝑛 + 1)))) = (𝑃 pCnt (𝑛 + 1)))
154	91, 153	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (♯‘(1...(𝑃 pCnt (𝑛 + 1)))) = (𝑃 pCnt (𝑛 + 1)))
155	152, 154	eqtrd 2771	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0) = (𝑃 pCnt (𝑛 + 1)))
156	104, 117, 155	3eqtr3d 2779	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))) = (𝑃 pCnt (𝑛 + 1)))
157	105, 112	fsumcl 15262	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) ∈ ℂ)
158	105, 116	fsumcl 15262	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) ∈ ℂ)
159	119	recnd 10826	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℂ)
160	157, 158, 159	subaddd 11172	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))) = (𝑃 pCnt (𝑛 + 1)) ↔ (Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) + (𝑃 pCnt (𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
161	156, 160	mpbid 235	. . . . . . . . . . . 12 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) + (𝑃 pCnt (𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))
162	80, 161	eqeq12d 2752	. . . . . . . . . . 11 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))) = (Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) + (𝑃 pCnt (𝑛 + 1))) ↔ (𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
163	62, 162	syl5ib 247	. . . . . . . . . 10 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → (𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
164	163	ralimdva 3090	. . . . . . . . 9 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
165	61, 164	syld 47	. . . . . . . 8 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
166	165	ex 416	. . . . . . 7 ⊢ (𝑛 ∈ ℕ0 → (𝑃 ∈ ℙ → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))))
167	166	a2d 29	. . . . . 6 ⊢ (𝑛 ∈ ℕ0 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))) → (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))))
168	8, 16, 24, 32, 53, 167	nn0ind 12237	. . . . 5 ⊢ (𝑁 ∈ ℕ0 → (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘)))))
169	168	imp 410	. . . 4 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))))
170		oveq2 7199	. . . . . . 7 ⊢ (𝑚 = 𝑀 → (1...𝑚) = (1...𝑀))
171	170	sumeq1d 15230	. . . . . 6 ⊢ (𝑚 = 𝑀 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))
172	171	eqeq2d 2747	. . . . 5 ⊢ (𝑚 = 𝑀 → ((𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘)))))
173	172	rspcv 3522	. . . 4 ⊢ (𝑀 ∈ (ℤ≥‘𝑁) → (∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘)))))
174	169, 173	syl5 34	. . 3 ⊢ (𝑀 ∈ (ℤ≥‘𝑁) → ((𝑁 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘)))))
175	174	3impib 1118	. 2 ⊢ ((𝑀 ∈ (ℤ≥‘𝑁) ∧ 𝑁 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))
176	175	3com12 1125	1 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑀 ∈ (ℤ≥‘𝑁) ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1089   = wceq 1543   ∈ wcel 2112   ≠ wne 2932  ∀wral 3051   ⊆ wss 3853  ifcif 4425   class class class wbr 5039  ‘cfv 6358  (class class class)co 7191  Fincfn 8604  ℝcr 10693  0cc0 10694  1c1 10695   + caddc 10697   · cmul 10699   < clt 10832   ≤ cle 10833   − cmin 11027   / cdiv 11454  ℕcn 11795  2c2 11850  ℕ₀cn0 12055  ℤcz 12141  ℤ_≥cuz 12403  ...cfz 13060  ⌊cfl 13330  ↑cexp 13600  !cfa 13804  ♯chash 13861  Σcsu 15214   ∥ cdvds 15778  ℙcprime 16191   pCnt cpc 16352

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2160  ax-12 2177  ax-ext 2708  ax-rep 5164  ax-sep 5177  ax-nul 5184  ax-pow 5243  ax-pr 5307  ax-un 7501  ax-inf2 9234  ax-cnex 10750  ax-resscn 10751  ax-1cn 10752  ax-icn 10753  ax-addcl 10754  ax-addrcl 10755  ax-mulcl 10756  ax-mulrcl 10757  ax-mulcom 10758  ax-addass 10759  ax-mulass 10760  ax-distr 10761  ax-i2m1 10762  ax-1ne0 10763  ax-1rid 10764  ax-rnegex 10765  ax-rrecex 10766  ax-cnre 10767  ax-pre-lttri 10768  ax-pre-lttrn 10769  ax-pre-ltadd 10770  ax-pre-mulgt0 10771  ax-pre-sup 10772

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2073  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2728  df-clel 2809  df-nfc 2879  df-ne 2933  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rmo 3059  df-rab 3060  df-v 3400  df-sbc 3684  df-csb 3799  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-pss 3872  df-nul 4224  df-if 4426  df-pw 4501  df-sn 4528  df-pr 4530  df-tp 4532  df-op 4534  df-uni 4806  df-int 4846  df-iun 4892  df-br 5040  df-opab 5102  df-mpt 5121  df-tr 5147  df-id 5440  df-eprel 5445  df-po 5453  df-so 5454  df-fr 5494  df-se 5495  df-we 5496  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-pred 6140  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6316  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isom 6367  df-riota 7148  df-ov 7194  df-oprab 7195  df-mpo 7196  df-om 7623  df-1st 7739  df-2nd 7740  df-wrecs 8025  df-recs 8086  df-rdg 8124  df-1o 8180  df-2o 8181  df-er 8369  df-en 8605  df-dom 8606  df-sdom 8607  df-fin 8608  df-sup 9036  df-inf 9037  df-oi 9104  df-card 9520  df-pnf 10834  df-mnf 10835  df-xr 10836  df-ltxr 10837  df-le 10838  df-sub 11029  df-neg 11030  df-div 11455  df-nn 11796  df-2 11858  df-3 11859  df-n0 12056  df-z 12142  df-uz 12404  df-q 12510  df-rp 12552  df-fz 13061  df-fzo 13204  df-fl 13332  df-mod 13408  df-seq 13540  df-exp 13601  df-fac 13805  df-hash 13862  df-cj 14627  df-re 14628  df-im 14629  df-sqrt 14763  df-abs 14764  df-clim 15014  df-sum 15215  df-dvds 15779  df-gcd 16017  df-prm 16192  df-pc 16353

This theorem is referenced by:  pcbc  16416