Theorem pcfac 16958

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 6882	. . . . . . . 8 ⊢ (𝑥 = 0 → (ℤ≥‘𝑥) = (ℤ≥‘0))
2		fveq2 6882	. . . . . . . . . 10 ⊢ (𝑥 = 0 → (!‘𝑥) = (!‘0))
3	2	oveq2d 7427	. . . . . . . . 9 ⊢ (𝑥 = 0 → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘0)))
4		fvoveq1 7434	. . . . . . . . . 10 ⊢ (𝑥 = 0 → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘(0 / (𝑃↑𝑘))))
5	4	sumeq2sdv 15753	. . . . . . . . 9 ⊢ (𝑥 = 0 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))
6	3, 5	eqeq12d 2785	. . . . . . . 8 ⊢ (𝑥 = 0 → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘)))))
7	1, 6	raleqbidv 3345	. . . . . . 7 ⊢ (𝑥 = 0 → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘0)(𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘)))))
8	7	imbi2d 343	. . . . . 6 ⊢ (𝑥 = 0 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘0)(𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))))
9		fveq2 6882	. . . . . . . 8 ⊢ (𝑥 = 𝑛 → (ℤ≥‘𝑥) = (ℤ≥‘𝑛))
10		fveq2 6882	. . . . . . . . . 10 ⊢ (𝑥 = 𝑛 → (!‘𝑥) = (!‘𝑛))
11	10	oveq2d 7427	. . . . . . . . 9 ⊢ (𝑥 = 𝑛 → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘𝑛)))
12		fvoveq1 7434	. . . . . . . . . 10 ⊢ (𝑥 = 𝑛 → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘(𝑛 / (𝑃↑𝑘))))
13	12	sumeq2sdv 15753	. . . . . . . . 9 ⊢ (𝑥 = 𝑛 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))))
14	11, 13	eqeq12d 2785	. . . . . . . 8 ⊢ (𝑥 = 𝑛 → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
15	9, 14	raleqbidv 3345	. . . . . . 7 ⊢ (𝑥 = 𝑛 → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
16	15	imbi2d 343	. . . . . 6 ⊢ (𝑥 = 𝑛 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))))))
17		fveq2 6882	. . . . . . . 8 ⊢ (𝑥 = (𝑛 + 1) → (ℤ≥‘𝑥) = (ℤ≥‘(𝑛 + 1)))
18		fveq2 6882	. . . . . . . . . 10 ⊢ (𝑥 = (𝑛 + 1) → (!‘𝑥) = (!‘(𝑛 + 1)))
19	18	oveq2d 7427	. . . . . . . . 9 ⊢ (𝑥 = (𝑛 + 1) → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘(𝑛 + 1))))
20		fvoveq1 7434	. . . . . . . . . 10 ⊢ (𝑥 = (𝑛 + 1) → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘((𝑛 + 1) / (𝑃↑𝑘))))
21	20	sumeq2sdv 15753	. . . . . . . . 9 ⊢ (𝑥 = (𝑛 + 1) → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))
22	19, 21	eqeq12d 2785	. . . . . . . 8 ⊢ (𝑥 = (𝑛 + 1) → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
23	17, 22	raleqbidv 3345	. . . . . . 7 ⊢ (𝑥 = (𝑛 + 1) → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
24	23	imbi2d 343	. . . . . 6 ⊢ (𝑥 = (𝑛 + 1) → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))))
25		fveq2 6882	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → (ℤ≥‘𝑥) = (ℤ≥‘𝑁))
26		fveq2 6882	. . . . . . . . . 10 ⊢ (𝑥 = 𝑁 → (!‘𝑥) = (!‘𝑁))
27	26	oveq2d 7427	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → (𝑃 pCnt (!‘𝑥)) = (𝑃 pCnt (!‘𝑁)))
28		fvoveq1 7434	. . . . . . . . . 10 ⊢ (𝑥 = 𝑁 → (⌊‘(𝑥 / (𝑃↑𝑘))) = (⌊‘(𝑁 / (𝑃↑𝑘))))
29	28	sumeq2sdv 15753	. . . . . . . . 9 ⊢ (𝑥 = 𝑁 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))))
30	27, 29	eqeq12d 2785	. . . . . . . 8 ⊢ (𝑥 = 𝑁 → ((𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘)))))
31	25, 30	raleqbidv 3345	. . . . . . 7 ⊢ (𝑥 = 𝑁 → (∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘))) ↔ ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘)))))
32	31	imbi2d 343	. . . . . 6 ⊢ (𝑥 = 𝑁 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑥)(𝑃 pCnt (!‘𝑥)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑥 / (𝑃↑𝑘)))) ↔ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))))))
33		fzfid 14008	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → (1...𝑚) ∈ Fin)
34		sumz 15772	. . . . . . . . . 10 ⊢ (((1...𝑚) ⊆ (ℤ≥‘1) ∨ (1...𝑚) ∈ Fin) → Σ𝑘 ∈ (1...𝑚)0 = 0)
35	34	olcs 889	. . . . . . . . 9 ⊢ ((1...𝑚) ∈ Fin → Σ𝑘 ∈ (1...𝑚)0 = 0)
36	33, 35	syl 18	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → Σ𝑘 ∈ (1...𝑚)0 = 0)
37		0nn0 12518	. . . . . . . . . 10 ⊢ 0 ∈ ℕ0
38		elfznn 13580	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ ℕ)
39	38	nnnn0d 12564	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ ℕ0)
40		nn0uz 12899	. . . . . . . . . . . 12 ⊢ ℕ0 = (ℤ≥‘0)
41	39, 40	eleqtrdi 2879	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ (ℤ≥‘0))
42	41	adantl 486	. . . . . . . . . 10 ⊢ (((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ 𝑘 ∈ (1...𝑚)) → 𝑘 ∈ (ℤ≥‘0))
43		simpll 778	. . . . . . . . . 10 ⊢ (((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ 𝑘 ∈ (1...𝑚)) → 𝑃 ∈ ℙ)
44		pcfaclem 16957	. . . . . . . . . 10 ⊢ ((0 ∈ ℕ0 ∧ 𝑘 ∈ (ℤ≥‘0) ∧ 𝑃 ∈ ℙ) → (⌊‘(0 / (𝑃↑𝑘))) = 0)
45	37, 42, 43, 44	mp3an2i 1492	. . . . . . . . 9 ⊢ (((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘(0 / (𝑃↑𝑘))) = 0)
46	45	sumeq2dv 15752	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑚)0)
47		fac0 14311	. . . . . . . . . . 11 ⊢ (!‘0) = 1
48	47	oveq2i 7422	. . . . . . . . . 10 ⊢ (𝑃 pCnt (!‘0)) = (𝑃 pCnt 1)
49		pc1 16914	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt 1) = 0)
50	48, 49	eqtrid 2816	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt (!‘0)) = 0)
51	50	adantr 485	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → (𝑃 pCnt (!‘0)) = 0)
52	36, 46, 51	3eqtr4rd 2815	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑚 ∈ (ℤ≥‘0)) → (𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))
53	52	ralrimiva 3163	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘0)(𝑃 pCnt (!‘0)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(0 / (𝑃↑𝑘))))
54		nn0z 12614	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ0 → 𝑛 ∈ ℤ)
55	54	adantr 485	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → 𝑛 ∈ ℤ)
56		uzid 12876	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℤ → 𝑛 ∈ (ℤ≥‘𝑛))
57		peano2uz 12924	. . . . . . . . . . 11 ⊢ (𝑛 ∈ (ℤ≥‘𝑛) → (𝑛 + 1) ∈ (ℤ≥‘𝑛))
58	55, 56, 57	3syl 19	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (𝑛 + 1) ∈ (ℤ≥‘𝑛))
59		uzss 12884	. . . . . . . . . 10 ⊢ ((𝑛 + 1) ∈ (ℤ≥‘𝑛) → (ℤ≥‘(𝑛 + 1)) ⊆ (ℤ≥‘𝑛))
60		ssralv 4014	. . . . . . . . . 10 ⊢ ((ℤ≥‘(𝑛 + 1)) ⊆ (ℤ≥‘𝑛) → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
61	58, 59, 60	3syl 19	. . . . . . . . 9 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
62		oveq1 7418	. . . . . . . . . . 11 ⊢ ((𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))) = (Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) + (𝑃 pCnt (𝑛 + 1))))
63		simpll 778	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑛 ∈ ℕ0)
64		facp1 14313	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ0 → (!‘(𝑛 + 1)) = ((!‘𝑛) · (𝑛 + 1)))
65	63, 64	syl 18	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (!‘(𝑛 + 1)) = ((!‘𝑛) · (𝑛 + 1)))
66	65	oveq2d 7427	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (!‘(𝑛 + 1))) = (𝑃 pCnt ((!‘𝑛) · (𝑛 + 1))))
67		simplr 780	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑃 ∈ ℙ)
68		faccl 14318	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ0 → (!‘𝑛) ∈ ℕ)
69		nnz 12611	. . . . . . . . . . . . . . . 16 ⊢ ((!‘𝑛) ∈ ℕ → (!‘𝑛) ∈ ℤ)
70		nnne0 12269	. . . . . . . . . . . . . . . 16 ⊢ ((!‘𝑛) ∈ ℕ → (!‘𝑛) ≠ 0)
71	69, 70	jca 520	. . . . . . . . . . . . . . 15 ⊢ ((!‘𝑛) ∈ ℕ → ((!‘𝑛) ∈ ℤ ∧ (!‘𝑛) ≠ 0))
72	63, 68, 71	3syl 19	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((!‘𝑛) ∈ ℤ ∧ (!‘𝑛) ≠ 0))
73		nn0p1nn 12542	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ0 → (𝑛 + 1) ∈ ℕ)
74		nnz 12611	. . . . . . . . . . . . . . . 16 ⊢ ((𝑛 + 1) ∈ ℕ → (𝑛 + 1) ∈ ℤ)
75		nnne0 12269	. . . . . . . . . . . . . . . 16 ⊢ ((𝑛 + 1) ∈ ℕ → (𝑛 + 1) ≠ 0)
76	74, 75	jca 520	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 + 1) ∈ ℕ → ((𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ≠ 0))
77	63, 73, 76	3syl 19	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ≠ 0))
78		pcmul 16910	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℙ ∧ ((!‘𝑛) ∈ ℤ ∧ (!‘𝑛) ≠ 0) ∧ ((𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ≠ 0)) → (𝑃 pCnt ((!‘𝑛) · (𝑛 + 1))) = ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))))
79	67, 72, 77, 78	syl3anc 1396	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt ((!‘𝑛) · (𝑛 + 1))) = ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))))
80	66, 79	eqtr2d 2805	. . . . . . . . . . . 12 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))) = (𝑃 pCnt (!‘(𝑛 + 1))))
81	63	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑛 ∈ ℕ0)
82	81	nn0zd 12615	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑛 ∈ ℤ)
83		prmnn 16731	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
84	83	ad2antlr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑃 ∈ ℕ)
85		nnexpcl 14109	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℕ ∧ 𝑘 ∈ ℕ0) → (𝑃↑𝑘) ∈ ℕ)
86	84, 39, 85	syl2an 607	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑃↑𝑘) ∈ ℕ)
87		fldivp1 16956	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑛 ∈ ℤ ∧ (𝑃↑𝑘) ∈ ℕ) → ((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = if((𝑃↑𝑘) ∥ (𝑛 + 1), 1, 0))
88	82, 86, 87	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = if((𝑃↑𝑘) ∥ (𝑛 + 1), 1, 0))
89		elfzuz 13547	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (1...𝑚) → 𝑘 ∈ (ℤ≥‘1))
90	63, 73	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℕ)
91	67, 90	pccld 16909	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℕ0)
92	91	nn0zd 12615	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℤ)
93		elfz5 13543	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑘 ∈ (ℤ≥‘1) ∧ (𝑃 pCnt (𝑛 + 1)) ∈ ℤ) → (𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))) ↔ 𝑘 ≤ (𝑃 pCnt (𝑛 + 1))))
94	89, 92, 93	syl2anr 608	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))) ↔ 𝑘 ≤ (𝑃 pCnt (𝑛 + 1))))
95		simpllr 787	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑃 ∈ ℙ)
96	81, 73	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 + 1) ∈ ℕ)
97	96	nnzd 12616	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 + 1) ∈ ℤ)
98	39	adantl 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑘 ∈ ℕ0)
99		pcdvdsb 16928	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑃 ∈ ℙ ∧ (𝑛 + 1) ∈ ℤ ∧ 𝑘 ∈ ℕ0) → (𝑘 ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑𝑘) ∥ (𝑛 + 1)))
100	95, 97, 98, 99	syl3anc 1396	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑘 ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑𝑘) ∥ (𝑛 + 1)))
101	94, 100	bitr2d 283	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((𝑃↑𝑘) ∥ (𝑛 + 1) ↔ 𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1)))))
102	101	ifbid 4516	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → if((𝑃↑𝑘) ∥ (𝑛 + 1), 1, 0) = if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0))
103	88, 102	eqtrd 2804	. . . . . . . . . . . . . . 15 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0))
104	103	sumeq2dv 15752	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0))
105		fzfid 14008	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (1...𝑚) ∈ Fin)
106	63	nn0red 12565	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑛 ∈ ℝ)
107		peano2re 11382	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℝ → (𝑛 + 1) ∈ ℝ)
108	106, 107	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℝ)
109	108	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 + 1) ∈ ℝ)
110	109, 86	nndivred 12289	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → ((𝑛 + 1) / (𝑃↑𝑘)) ∈ ℝ)
111	110	flcld 13830	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘((𝑛 + 1) / (𝑃↑𝑘))) ∈ ℤ)
112	111	zcnd 12700	. . . . . . . . . . . . . . 15 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘((𝑛 + 1) / (𝑃↑𝑘))) ∈ ℂ)
113	106	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → 𝑛 ∈ ℝ)
114	113, 86	nndivred 12289	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (𝑛 / (𝑃↑𝑘)) ∈ ℝ)
115	114	flcld 13830	. . . . . . . . . . . . . . . 16 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘(𝑛 / (𝑃↑𝑘))) ∈ ℤ)
116	115	zcnd 12700	. . . . . . . . . . . . . . 15 ⊢ ((((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) ∧ 𝑘 ∈ (1...𝑚)) → (⌊‘(𝑛 / (𝑃↑𝑘))) ∈ ℂ)
117	105, 112, 116	fsumsub 15838	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)((⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − (⌊‘(𝑛 / (𝑃↑𝑘)))) = (Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))))
118		fzfi 14007	. . . . . . . . . . . . . . . 16 ⊢ (1...𝑚) ∈ Fin
119	91	nn0red 12565	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℝ)
120		eluzelz 12871	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑚 ∈ (ℤ≥‘(𝑛 + 1)) → 𝑚 ∈ ℤ)
121	120	adantl 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑚 ∈ ℤ)
122	121	zred 12699	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑚 ∈ ℝ)
123		prmuz2 16753	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ≥‘2))
124	123	ad2antlr 739	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑃 ∈ (ℤ≥‘2))
125	90	nnnn0d 12564	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℕ0)
126		bernneq3 14266	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑃 ∈ (ℤ≥‘2) ∧ (𝑛 + 1) ∈ ℕ0) → (𝑛 + 1) < (𝑃↑(𝑛 + 1)))
127	124, 125, 126	syl2anc 595	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) < (𝑃↑(𝑛 + 1)))
128	119, 108	letrid 11361	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1) ∨ (𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1))))
129	128	ord 877	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (¬ (𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1) → (𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1))))
130	90	nnzd 12616	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ∈ ℤ)
131		pcdvdsb 16928	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑃 ∈ ℙ ∧ (𝑛 + 1) ∈ ℤ ∧ (𝑛 + 1) ∈ ℕ0) → ((𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1)))
132	67, 130, 125, 131	syl3anc 1396	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑛 + 1) ≤ (𝑃 pCnt (𝑛 + 1)) ↔ (𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1)))
133	84, 125	nnexpcld 14280	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃↑(𝑛 + 1)) ∈ ℕ)
134	133	nnzd 12616	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃↑(𝑛 + 1)) ∈ ℤ)
135		dvdsle 16367	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑃↑(𝑛 + 1)) ∈ ℤ ∧ (𝑛 + 1) ∈ ℕ) → ((𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1) → (𝑃↑(𝑛 + 1)) ≤ (𝑛 + 1)))
136	134, 90, 135	syl2anc 595	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃↑(𝑛 + 1)) ∥ (𝑛 + 1) → (𝑃↑(𝑛 + 1)) ≤ (𝑛 + 1)))
137	133	nnred 12247	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃↑(𝑛 + 1)) ∈ ℝ)
138	137, 108	lenltd 11355	. . . . . . . . . . . . . . . . . . . . . . 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 48	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (¬ (𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1) → ¬ (𝑛 + 1) < (𝑃↑(𝑛 + 1))))
142	127, 141	mt4d 118	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ≤ (𝑛 + 1))
143		eluzle 12874	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑚 ∈ (ℤ≥‘(𝑛 + 1)) → (𝑛 + 1) ≤ 𝑚)
144	143	adantl 486	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑛 + 1) ≤ 𝑚)
145	119, 108, 122, 142, 144	letrd 11366	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ≤ 𝑚)
146		eluz 12875	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝑃 pCnt (𝑛 + 1)) ∈ ℤ ∧ 𝑚 ∈ ℤ) → (𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))) ↔ (𝑃 pCnt (𝑛 + 1)) ≤ 𝑚))
147	92, 121, 146	syl2anc 595	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))) ↔ (𝑃 pCnt (𝑛 + 1)) ≤ 𝑚))
148	145, 147	mpbird 260	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → 𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))))
149		fzss2 13591	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ (ℤ≥‘(𝑃 pCnt (𝑛 + 1))) → (1...(𝑃 pCnt (𝑛 + 1))) ⊆ (1...𝑚))
150	148, 149	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (1...(𝑃 pCnt (𝑛 + 1))) ⊆ (1...𝑚))
151		sumhash 16955	. . . . . . . . . . . . . . . 16 ⊢ (((1...𝑚) ∈ Fin ∧ (1...(𝑃 pCnt (𝑛 + 1))) ⊆ (1...𝑚)) → Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0) = (♯‘(1...(𝑃 pCnt (𝑛 + 1)))))
152	118, 150, 151	sylancr 598	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0) = (♯‘(1...(𝑃 pCnt (𝑛 + 1)))))
153		hashfz1 14381	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 pCnt (𝑛 + 1)) ∈ ℕ0 → (♯‘(1...(𝑃 pCnt (𝑛 + 1)))) = (𝑃 pCnt (𝑛 + 1)))
154	91, 153	syl 18	. . . . . . . . . . . . . . 15 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (♯‘(1...(𝑃 pCnt (𝑛 + 1)))) = (𝑃 pCnt (𝑛 + 1)))
155	152, 154	eqtrd 2804	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)if(𝑘 ∈ (1...(𝑃 pCnt (𝑛 + 1))), 1, 0) = (𝑃 pCnt (𝑛 + 1)))
156	104, 117, 155	3eqtr3d 2812	. . . . . . . . . . . . 13 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) − Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))) = (𝑃 pCnt (𝑛 + 1)))
157	105, 112	fsumcl 15783	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))) ∈ ℂ)
158	105, 116	fsumcl 15783	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) ∈ ℂ)
159	119	recnd 11236	. . . . . . . . . . . . . 14 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (𝑃 pCnt (𝑛 + 1)) ∈ ℂ)
160	157, 158, 159	subaddd 11586	. . . . . . . . . . . . 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 2785	. . . . . . . . . . 11 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → (((𝑃 pCnt (!‘𝑛)) + (𝑃 pCnt (𝑛 + 1))) = (Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) + (𝑃 pCnt (𝑛 + 1))) ↔ (𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
163	62, 162	imbitrid 247	. . . . . . . . . 10 ⊢ (((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) ∧ 𝑚 ∈ (ℤ≥‘(𝑛 + 1))) → ((𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → (𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
164	163	ralimdva 3183	. . . . . . . . 9 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
165	61, 164	syld 48	. . . . . . . 8 ⊢ ((𝑛 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘)))))
166	165	ex 417	. . . . . . 7 ⊢ (𝑛 ∈ ℕ0 → (𝑃 ∈ ℙ → (∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘))) → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))))
167	166	a2d 30	. . . . . 6 ⊢ (𝑛 ∈ ℕ0 → ((𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑛)(𝑃 pCnt (!‘𝑛)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑛 / (𝑃↑𝑘)))) → (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘(𝑛 + 1))(𝑃 pCnt (!‘(𝑛 + 1))) = Σ𝑘 ∈ (1...𝑚)(⌊‘((𝑛 + 1) / (𝑃↑𝑘))))))
168	8, 16, 24, 32, 53, 167	nn0ind 12690	. . . . 5 ⊢ (𝑁 ∈ ℕ0 → (𝑃 ∈ ℙ → ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘)))))
169	168	imp 411	. . . 4 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → ∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))))
170		oveq2 7419	. . . . . . 7 ⊢ (𝑚 = 𝑀 → (1...𝑚) = (1...𝑀))
171	170	sumeq1d 15750	. . . . . 6 ⊢ (𝑚 = 𝑀 → Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))
172	171	eqeq2d 2780	. . . . 5 ⊢ (𝑚 = 𝑀 → ((𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))) ↔ (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘)))))
173	172	rspcv 3586	. . . 4 ⊢ (𝑀 ∈ (ℤ≥‘𝑁) → (∀𝑚 ∈ (ℤ≥‘𝑁)(𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑚)(⌊‘(𝑁 / (𝑃↑𝑘))) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘)))))
174	169, 173	syl5 35	. . 3 ⊢ (𝑀 ∈ (ℤ≥‘𝑁) → ((𝑁 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘)))))
175	174	3impib 1132	. 2 ⊢ ((𝑀 ∈ (ℤ≥‘𝑁) ∧ 𝑁 ∈ ℕ0 ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))
176	175	3com12 1139	1 ⊢ ((𝑁 ∈ ℕ0 ∧ 𝑀 ∈ (ℤ≥‘𝑁) ∧ 𝑃 ∈ ℙ) → (𝑃 pCnt (!‘𝑁)) = Σ𝑘 ∈ (1...𝑀)(⌊‘(𝑁 / (𝑃↑𝑘))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∀wral 3085   ⊆ wss 3913  ifcif 4492   class class class wbr 5113  ‘cfv 6537  (class class class)co 7411  Fincfn 8942  ℝcr 11098  0cc0 11099  1c1 11100   + caddc 11102   · cmul 11104   < clt 11242   ≤ cle 11243   − cmin 11440   / cdiv 11870  ℕcn 12232  2c2 12294  ℕ₀cn0 12503  ℤcz 12590  ℤ_≥cuz 12861  ...cfz 13534  ⌊cfl 13822  ↑cexp 14096  !cfa 14308  ♯chash 14365  Σcsu 15736   ∥ cdvds 16309  ℙcprime 16728   pCnt cpc 16895

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-inf2 9609  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7862  df-1st 7985  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-2o 8453  df-er 8693  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-sup 9401  df-inf 9402  df-oi 9471  df-card 9924  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-div 11871  df-nn 12233  df-2 12302  df-3 12303  df-n0 12504  df-z 12591  df-uz 12862  df-q 12972  df-rp 13016  df-fz 13535  df-fzo 13682  df-fl 13824  df-mod 13902  df-seq 14037  df-exp 14097  df-fac 14309  df-hash 14366  df-cj 15149  df-re 15150  df-im 15151  df-sqrt 15285  df-abs 15286  df-clim 15538  df-sum 15737  df-dvds 16310  df-gcd 16552  df-prm 16729  df-pc 16896

This theorem is referenced by:  pcbc  16959