Theorem pcmpt 12512

Description: Construct a function with given prime count characteristics. (Contributed by Mario Carneiro, 12-Mar-2014.)

Hypotheses

Ref	Expression
pcmpt.1	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1))
pcmpt.2	⊢ (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
pcmpt.3	⊢ (𝜑 → 𝑁 ∈ ℕ)
pcmpt.4	⊢ (𝜑 → 𝑃 ∈ ℙ)
pcmpt.5	⊢ (𝑛 = 𝑃 → 𝐴 = 𝐵)

Assertion

Ref	Expression
pcmpt	⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0))

Distinct variable groups:   𝐵,𝑛   𝑃,𝑛

Allowed substitution hints:   𝜑(𝑛)   𝐴(𝑛)   𝐹(𝑛)   𝑁(𝑛)

Proof of Theorem pcmpt

Dummy variables 𝑘 𝑝 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		pcmpt.3	. 2 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2		fveq2 5558	. . . . . 6 ⊢ (𝑝 = 1 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘1))
3	2	oveq2d 5938	. . . . 5 ⊢ (𝑝 = 1 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘1)))
4		breq2 4037	. . . . . 6 ⊢ (𝑝 = 1 → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ 1))
5	4	ifbid 3582	. . . . 5 ⊢ (𝑝 = 1 → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ 1, 𝐵, 0))
6	3, 5	eqeq12d 2211	. . . 4 ⊢ (𝑝 = 1 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0)))
7	6	imbi2d 230	. . 3 ⊢ (𝑝 = 1 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))))
8		fveq2 5558	. . . . . 6 ⊢ (𝑝 = 𝑘 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘𝑘))
9	8	oveq2d 5938	. . . . 5 ⊢ (𝑝 = 𝑘 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
10		breq2 4037	. . . . . 6 ⊢ (𝑝 = 𝑘 → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ 𝑘))
11	10	ifbid 3582	. . . . 5 ⊢ (𝑝 = 𝑘 → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ 𝑘, 𝐵, 0))
12	9, 11	eqeq12d 2211	. . . 4 ⊢ (𝑝 = 𝑘 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0)))
13	12	imbi2d 230	. . 3 ⊢ (𝑝 = 𝑘 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0))))
14		fveq2 5558	. . . . . 6 ⊢ (𝑝 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘(𝑘 + 1)))
15	14	oveq2d 5938	. . . . 5 ⊢ (𝑝 = (𝑘 + 1) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))))
16		breq2 4037	. . . . . 6 ⊢ (𝑝 = (𝑘 + 1) → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ (𝑘 + 1)))
17	16	ifbid 3582	. . . . 5 ⊢ (𝑝 = (𝑘 + 1) → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))
18	15, 17	eqeq12d 2211	. . . 4 ⊢ (𝑝 = (𝑘 + 1) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
19	18	imbi2d 230	. . 3 ⊢ (𝑝 = (𝑘 + 1) → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
20		fveq2 5558	. . . . . 6 ⊢ (𝑝 = 𝑁 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘𝑁))
21	20	oveq2d 5938	. . . . 5 ⊢ (𝑝 = 𝑁 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)))
22		breq2 4037	. . . . . 6 ⊢ (𝑝 = 𝑁 → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ 𝑁))
23	22	ifbid 3582	. . . . 5 ⊢ (𝑝 = 𝑁 → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ 𝑁, 𝐵, 0))
24	21, 23	eqeq12d 2211	. . . 4 ⊢ (𝑝 = 𝑁 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0)))
25	24	imbi2d 230	. . 3 ⊢ (𝑝 = 𝑁 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0))))
26		pcmpt.4	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ ℙ)
27		pc1 12474	. . . . 5 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt 1) = 0)
28	26, 27	syl 14	. . . 4 ⊢ (𝜑 → (𝑃 pCnt 1) = 0)
29		1zzd 9353	. . . . . . 7 ⊢ (𝜑 → 1 ∈ ℤ)
30		elnnuz 9638	. . . . . . . 8 ⊢ (𝑖 ∈ ℕ ↔ 𝑖 ∈ (ℤ≥‘1))
31		simpr 110	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℕ)
32	31	adantr 276	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑖 ∈ ℙ) → 𝑖 ∈ ℕ)
33		simpr 110	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑖 ∈ ℙ) → 𝑖 ∈ ℙ)
34		pcmpt.2	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
35	34	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑖 ∈ ℙ) → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
36		nfcsb1v 3117	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛⦋𝑖 / 𝑛⦌𝐴
37	36	nfel1 2350	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑛⦋𝑖 / 𝑛⦌𝐴 ∈ ℕ0
38		csbeq1a 3093	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑖 → 𝐴 = ⦋𝑖 / 𝑛⦌𝐴)
39	38	eleq1d 2265	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑖 → (𝐴 ∈ ℕ0 ↔ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℕ0))
40	37, 39	rspc 2862	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0 → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℕ0))
41	33, 35, 40	sylc 62	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑖 ∈ ℙ) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℕ0)
42	32, 41	nnexpcld 10787	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑖 ∈ ℙ) → (𝑖↑⦋𝑖 / 𝑛⦌𝐴) ∈ ℕ)
43		1nn 9001	. . . . . . . . . . . 12 ⊢ 1 ∈ ℕ
44	43	a1i 9	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ ¬ 𝑖 ∈ ℙ) → 1 ∈ ℕ)
45		prmdc 12298	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ ℕ → DECID 𝑖 ∈ ℙ)
46	45	adantl 277	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ) → DECID 𝑖 ∈ ℙ)
47	42, 44, 46	ifcldadc 3590	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ) → if(𝑖 ∈ ℙ, (𝑖↑⦋𝑖 / 𝑛⦌𝐴), 1) ∈ ℕ)
48		nfcv 2339	. . . . . . . . . . 11 ⊢ Ⅎ𝑛𝑖
49	48	nfel1 2350	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛 𝑖 ∈ ℙ
50		nfcv 2339	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑛↑
51	48, 50, 36	nfov 5952	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛(𝑖↑⦋𝑖 / 𝑛⦌𝐴)
52		nfcv 2339	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛1
53	49, 51, 52	nfif 3589	. . . . . . . . . . 11 ⊢ Ⅎ𝑛if(𝑖 ∈ ℙ, (𝑖↑⦋𝑖 / 𝑛⦌𝐴), 1)
54		eleq1 2259	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑖 → (𝑛 ∈ ℙ ↔ 𝑖 ∈ ℙ))
55		id 19	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑖 → 𝑛 = 𝑖)
56	55, 38	oveq12d 5940	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑖 → (𝑛↑𝐴) = (𝑖↑⦋𝑖 / 𝑛⦌𝐴))
57	54, 56	ifbieq1d 3583	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑖 → if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) = if(𝑖 ∈ ℙ, (𝑖↑⦋𝑖 / 𝑛⦌𝐴), 1))
58		pcmpt.1	. . . . . . . . . . 11 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1))
59	48, 53, 57, 58	fvmptf 5654	. . . . . . . . . 10 ⊢ ((𝑖 ∈ ℕ ∧ if(𝑖 ∈ ℙ, (𝑖↑⦋𝑖 / 𝑛⦌𝐴), 1) ∈ ℕ) → (𝐹‘𝑖) = if(𝑖 ∈ ℙ, (𝑖↑⦋𝑖 / 𝑛⦌𝐴), 1))
60	31, 47, 59	syl2anc 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) = if(𝑖 ∈ ℙ, (𝑖↑⦋𝑖 / 𝑛⦌𝐴), 1))
61	60, 47	eqeltrd 2273	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) ∈ ℕ)
62	30, 61	sylan2br 288	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘1)) → (𝐹‘𝑖) ∈ ℕ)
63		nnmulcl 9011	. . . . . . . 8 ⊢ ((𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ) → (𝑖 · 𝑗) ∈ ℕ)
64	63	adantl 277	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑖 · 𝑗) ∈ ℕ)
65	29, 62, 64	seq3-1 10554	. . . . . 6 ⊢ (𝜑 → (seq1( · , 𝐹)‘1) = (𝐹‘1))
66		1nprm 12282	. . . . . . . . . 10 ⊢ ¬ 1 ∈ ℙ
67		eleq1 2259	. . . . . . . . . 10 ⊢ (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
68	66, 67	mtbiri 676	. . . . . . . . 9 ⊢ (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
69	68	iffalsed 3571	. . . . . . . 8 ⊢ (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) = 1)
70		1ex 8021	. . . . . . . 8 ⊢ 1 ∈ V
71	69, 58, 70	fvmpt 5638	. . . . . . 7 ⊢ (1 ∈ ℕ → (𝐹‘1) = 1)
72	43, 71	ax-mp 5	. . . . . 6 ⊢ (𝐹‘1) = 1
73	65, 72	eqtrdi 2245	. . . . 5 ⊢ (𝜑 → (seq1( · , 𝐹)‘1) = 1)
74	73	oveq2d 5938	. . . 4 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = (𝑃 pCnt 1))
75		prmgt1 12300	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
76		1z 9352	. . . . . . . 8 ⊢ 1 ∈ ℤ
77		prmz 12279	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
78		zltnle 9372	. . . . . . . 8 ⊢ ((1 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (1 < 𝑃 ↔ ¬ 𝑃 ≤ 1))
79	76, 77, 78	sylancr 414	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → (1 < 𝑃 ↔ ¬ 𝑃 ≤ 1))
80	75, 79	mpbid 147	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ¬ 𝑃 ≤ 1)
81	80	iffalsed 3571	. . . . 5 ⊢ (𝑃 ∈ ℙ → if(𝑃 ≤ 1, 𝐵, 0) = 0)
82	26, 81	syl 14	. . . 4 ⊢ (𝜑 → if(𝑃 ≤ 1, 𝐵, 0) = 0)
83	28, 74, 82	3eqtr4d 2239	. . 3 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))
84	26	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ∈ ℙ)
85	58, 34	pcmptcl 12511	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
86	85	simpld 112	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:ℕ⟶ℕ)
87		peano2nn 9002	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
88		ffvelcdm 5695	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
89	86, 87, 88	syl2an 289	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
90	89	adantrr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
91	84, 90	pccld 12469	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) ∈ ℕ0)
92	91	nn0cnd 9304	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) ∈ ℂ)
93	92	addlidd 8176	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = (𝑃 pCnt (𝐹‘(𝑘 + 1))))
94	87	ad2antrl 490	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) ∈ ℕ)
95	87	ad2antlr 489	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ∈ ℕ)
96		simpr 110	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ∈ ℙ)
97	34	ad2antrr 488	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
98		nfcsb1v 3117	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑛⦋(𝑘 + 1) / 𝑛⦌𝐴
99	98	nfel1 2350	. . . . . . . . . . . . . . . . . 18 ⊢ Ⅎ𝑛⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ0
100		csbeq1a 3093	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = (𝑘 + 1) → 𝐴 = ⦋(𝑘 + 1) / 𝑛⦌𝐴)
101	100	eleq1d 2265	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 = (𝑘 + 1) → (𝐴 ∈ ℕ0 ↔ ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ0))
102	99, 101	rspc 2862	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘 + 1) ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0 → ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ0))
103	96, 97, 102	sylc 62	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ0)
104	95, 103	nnexpcld 10787	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) ∈ ℕ)
105	43	a1i 9	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → 1 ∈ ℕ)
106	87	adantl 277	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
107		prmdc 12298	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1) ∈ ℕ → DECID (𝑘 + 1) ∈ ℙ)
108	106, 107	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → DECID (𝑘 + 1) ∈ ℙ)
109	104, 105, 108	ifcldadc 3590	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) ∈ ℕ)
110	109	adantrr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) ∈ ℕ)
111		nfcv 2339	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑛(𝑘 + 1)
112		nfv 1542	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛(𝑘 + 1) ∈ ℙ
113	111, 50, 98	nfov 5952	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴)
114	112, 113, 52	nfif 3589	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑛if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1)
115		eleq1 2259	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
116		id 19	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
117	116, 100	oveq12d 5940	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑘 + 1) → (𝑛↑𝐴) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
118	115, 117	ifbieq1d 3583	. . . . . . . . . . . . . 14 ⊢ (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
119	111, 114, 118, 58	fvmptf 5654	. . . . . . . . . . . . 13 ⊢ (((𝑘 + 1) ∈ ℕ ∧ if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
120	94, 110, 119	syl2anc 411	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
121		simprr 531	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) = 𝑃)
122	121, 84	eqeltrd 2273	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) ∈ ℙ)
123	122	iftrued 3568	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
124	121	csbeq1d 3091	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 = ⦋𝑃 / 𝑛⦌𝐴)
125		nfcvd 2340	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ ℙ → Ⅎ𝑛𝐵)
126		pcmpt.5	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑃 → 𝐴 = 𝐵)
127	125, 126	csbiegf 3128	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℙ → ⦋𝑃 / 𝑛⦌𝐴 = 𝐵)
128	84, 127	syl 14	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ⦋𝑃 / 𝑛⦌𝐴 = 𝐵)
129	124, 128	eqtrd 2229	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 = 𝐵)
130	121, 129	oveq12d 5940	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) = (𝑃↑𝐵))
131	120, 123, 130	3eqtrd 2233	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) = (𝑃↑𝐵))
132	131	oveq2d 5938	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = (𝑃 pCnt (𝑃↑𝐵)))
133	126	eleq1d 2265	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑃 → (𝐴 ∈ ℕ0 ↔ 𝐵 ∈ ℕ0))
134	133	rspcv 2864	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0 → 𝐵 ∈ ℕ0))
135	26, 34, 134	sylc 62	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℕ0)
136	135	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝐵 ∈ ℕ0)
137		pcidlem 12492	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℕ0) → (𝑃 pCnt (𝑃↑𝐵)) = 𝐵)
138	26, 136, 137	syl2an2r 595	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝑃↑𝐵)) = 𝐵)
139	93, 132, 138	3eqtrd 2233	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵)
140		oveq1 5929	. . . . . . . . . 10 ⊢ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
141	140	eqeq1d 2205	. . . . . . . . 9 ⊢ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → (((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵 ↔ (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
142	139, 141	syl5ibrcom 157	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
143		nnre 8997	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
144	143	ltp1d 8957	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 < (𝑘 + 1))
145		nnz 9345	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
146	87	nnzd 9447	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℤ)
147		zltnle 9372	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ ℤ ∧ (𝑘 + 1) ∈ ℤ) → (𝑘 < (𝑘 + 1) ↔ ¬ (𝑘 + 1) ≤ 𝑘))
148	145, 146, 147	syl2anc 411	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝑘 < (𝑘 + 1) ↔ ¬ (𝑘 + 1) ≤ 𝑘))
149	144, 148	mpbid 147	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ¬ (𝑘 + 1) ≤ 𝑘)
150	149	ad2antrl 490	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ¬ (𝑘 + 1) ≤ 𝑘)
151	121	breq1d 4043	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑘 + 1) ≤ 𝑘 ↔ 𝑃 ≤ 𝑘))
152	150, 151	mtbid 673	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ¬ 𝑃 ≤ 𝑘)
153	152	iffalsed 3571	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if(𝑃 ≤ 𝑘, 𝐵, 0) = 0)
154	153	eqeq2d 2208	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0))
155		simpr 110	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
156		nnuz 9637	. . . . . . . . . . . . . 14 ⊢ ℕ = (ℤ≥‘1)
157	155, 156	eleqtrdi 2289	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ≥‘1))
158	62	adantlr 477	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ 𝑖 ∈ (ℤ≥‘1)) → (𝐹‘𝑖) ∈ ℕ)
159	63	adantl 277	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ) ∧ (𝑖 ∈ ℕ ∧ 𝑗 ∈ ℕ)) → (𝑖 · 𝑗) ∈ ℕ)
160	157, 158, 159	seq3p1 10557	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
161	160	oveq2d 5938	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))))
162	26	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑃 ∈ ℙ)
163	85	simprd 114	. . . . . . . . . . . . . 14 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
164	163	ffvelcdmda 5697	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
165		nnz 9345	. . . . . . . . . . . . . 14 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℤ)
166		nnne0 9018	. . . . . . . . . . . . . 14 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ≠ 0)
167	165, 166	jca 306	. . . . . . . . . . . . 13 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0))
168	164, 167	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0))
169		nnz 9345	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘(𝑘 + 1)) ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ ℤ)
170		nnne0 9018	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘(𝑘 + 1)) ∈ ℕ → (𝐹‘(𝑘 + 1)) ≠ 0)
171	169, 170	jca 306	. . . . . . . . . . . . 13 ⊢ ((𝐹‘(𝑘 + 1)) ∈ ℕ → ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0))
172	89, 171	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0))
173		pcmul 12470	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0) ∧ ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0)) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
174	162, 168, 172, 173	syl3anc 1249	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
175	161, 174	eqtrd 2229	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
176	175	adantrr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
177		prmnn 12278	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
178	26, 177	syl 14	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑃 ∈ ℕ)
179	178	nnred 9003	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∈ ℝ)
180	179	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ∈ ℝ)
181	180	leidd 8541	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ≤ 𝑃)
182	181, 121	breqtrrd 4061	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ≤ (𝑘 + 1))
183	182	iftrued 3568	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) = 𝐵)
184	176, 183	eqeq12d 2211	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) ↔ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
185	142, 154, 184	3imtr4d 203	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
186	185	expr 375	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑃 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
187	175	adantrr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
188		simplrr 536	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ≠ 𝑃)
189	188	necomd 2453	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → 𝑃 ≠ (𝑘 + 1))
190	26	ad2antrr 488	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → 𝑃 ∈ ℙ)
191		simpr 110	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ∈ ℙ)
192	34	ad2antrr 488	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
193	191, 192, 102	sylc 62	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ0)
194		prmdvdsexpr 12318	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ ℙ ∧ (𝑘 + 1) ∈ ℙ ∧ ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ0) → (𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) → 𝑃 = (𝑘 + 1)))
195	190, 191, 193, 194	syl3anc 1249	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) → 𝑃 = (𝑘 + 1)))
196	195	necon3ad 2409	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ≠ (𝑘 + 1) → ¬ 𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴)))
197	189, 196	mpd 13	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ¬ 𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
198	87	ad2antrl 490	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ∈ ℕ)
199	109	adantrr 479	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) ∈ ℕ)
200	198, 199, 119	syl2anc 411	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
201		iftrue 3566	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
202	200, 201	sylan9eq 2249	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
203	202	breq2d 4045	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ∥ (𝐹‘(𝑘 + 1)) ↔ 𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴)))
204	197, 203	mtbird 674	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1)))
205	86, 198, 88	syl2an2r 595	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
206	205	adantr 276	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
207		pceq0 12491	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℙ ∧ (𝐹‘(𝑘 + 1)) ∈ ℕ) → ((𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0 ↔ ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1))))
208	190, 206, 207	syl2anc 411	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0 ↔ ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1))))
209	204, 208	mpbird 167	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
210		iffalse 3569	. . . . . . . . . . . . . . 15 ⊢ (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) = 1)
211	200, 210	sylan9eq 2249	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
212	211	oveq2d 5938	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = (𝑃 pCnt 1))
213	28	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt 1) = 0)
214	212, 213	eqtrd 2229	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
215		exmiddc 837	. . . . . . . . . . . . 13 ⊢ (DECID (𝑘 + 1) ∈ ℙ → ((𝑘 + 1) ∈ ℙ ∨ ¬ (𝑘 + 1) ∈ ℙ))
216	198, 107, 215	3syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑘 + 1) ∈ ℙ ∨ ¬ (𝑘 + 1) ∈ ℙ))
217	209, 214, 216	mpjaodan 799	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
218	217	oveq2d 5938	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + 0))
219	26	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℙ)
220	164	adantrr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
221	219, 220	pccld 12469	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) ∈ ℕ0)
222	221	nn0cnd 9304	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) ∈ ℂ)
223	222	addridd 8175	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + 0) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
224	187, 218, 223	3eqtrd 2233	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
225	219, 77	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℤ)
226	146	ad2antrl 490	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ∈ ℤ)
227		zltlen 9404	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℤ ∧ (𝑘 + 1) ∈ ℤ) → (𝑃 < (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
228	225, 226, 227	syl2anc 411	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 < (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
229		simprl 529	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑘 ∈ ℕ)
230		nnleltp1 9385	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℕ ∧ 𝑘 ∈ ℕ) → (𝑃 ≤ 𝑘 ↔ 𝑃 < (𝑘 + 1)))
231	178, 229, 230	syl2an2r 595	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ 𝑘 ↔ 𝑃 < (𝑘 + 1)))
232		simprr 531	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ≠ 𝑃)
233	232	biantrud 304	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
234	228, 231, 233	3bitr4rd 221	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ (𝑘 + 1) ↔ 𝑃 ≤ 𝑘))
235	234	ifbid 3582	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) = if(𝑃 ≤ 𝑘, 𝐵, 0))
236	224, 235	eqeq12d 2211	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0)))
237	236	biimprd 158	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
238	237	expr 375	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) ≠ 𝑃 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
239	106	nnzd 9447	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℤ)
240	162, 77	syl 14	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑃 ∈ ℤ)
241		zdceq 9401	. . . . . . . 8 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑃 ∈ ℤ) → DECID (𝑘 + 1) = 𝑃)
242	239, 240, 241	syl2anc 411	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → DECID (𝑘 + 1) = 𝑃)
243		dcne 2378	. . . . . . 7 ⊢ (DECID (𝑘 + 1) = 𝑃 ↔ ((𝑘 + 1) = 𝑃 ∨ (𝑘 + 1) ≠ 𝑃))
244	242, 243	sylib 122	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑃 ∨ (𝑘 + 1) ≠ 𝑃))
245	186, 238, 244	mpjaod 719	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
246	245	expcom 116	. . . 4 ⊢ (𝑘 ∈ ℕ → (𝜑 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
247	246	a2d 26	. . 3 ⊢ (𝑘 ∈ ℕ → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0)) → (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
248	7, 13, 19, 25, 83, 247	nnind 9006	. 2 ⊢ (𝑁 ∈ ℕ → (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0)))
249	1, 248	mpcom 36	1 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 709  DECID wdc 835   = wceq 1364   ∈ wcel 2167   ≠ wne 2367  ∀wral 2475  ⦋csb 3084  ifcif 3561   class class class wbr 4033   ↦ cmpt 4094  ⟶wf 5254  ‘cfv 5258  (class class class)co 5922  ℝcr 7878  0cc0 7879  1c1 7880   + caddc 7882   · cmul 7884   < clt 8061   ≤ cle 8062  ℕcn 8990  ℕ₀cn0 9249  ℤcz 9326  ℤ_≥cuz 9601  seqcseq 10539  ↑cexp 10630   ∥ cdvds 11952  ℙcprime 12275   pCnt cpc 12453

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4148  ax-sep 4151  ax-nul 4159  ax-pow 4207  ax-pr 4242  ax-un 4468  ax-setind 4573  ax-iinf 4624  ax-cnex 7970  ax-resscn 7971  ax-1cn 7972  ax-1re 7973  ax-icn 7974  ax-addcl 7975  ax-addrcl 7976  ax-mulcl 7977  ax-mulrcl 7978  ax-addcom 7979  ax-mulcom 7980  ax-addass 7981  ax-mulass 7982  ax-distr 7983  ax-i2m1 7984  ax-0lt1 7985  ax-1rid 7986  ax-0id 7987  ax-rnegex 7988  ax-precex 7989  ax-cnre 7990  ax-pre-ltirr 7991  ax-pre-ltwlin 7992  ax-pre-lttrn 7993  ax-pre-apti 7994  ax-pre-ltadd 7995  ax-pre-mulgt0 7996  ax-pre-mulext 7997  ax-arch 7998  ax-caucvg 7999

This theorem depends on definitions:  df-bi 117  df-stab 832  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-nel 2463  df-ral 2480  df-rex 2481  df-reu 2482  df-rmo 2483  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3451  df-if 3562  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-uni 3840  df-int 3875  df-iun 3918  df-br 4034  df-opab 4095  df-mpt 4096  df-tr 4132  df-id 4328  df-po 4331  df-iso 4332  df-iord 4401  df-on 4403  df-ilim 4404  df-suc 4406  df-iom 4627  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-rn 4674  df-res 4675  df-ima 4676  df-iota 5219  df-fun 5260  df-fn 5261  df-f 5262  df-f1 5263  df-fo 5264  df-f1o 5265  df-fv 5266  df-isom 5267  df-riota 5877  df-ov 5925  df-oprab 5926  df-mpo 5927  df-1st 6198  df-2nd 6199  df-recs 6363  df-frec 6449  df-1o 6474  df-2o 6475  df-er 6592  df-en 6800  df-fin 6802  df-sup 7050  df-inf 7051  df-pnf 8063  df-mnf 8064  df-xr 8065  df-ltxr 8066  df-le 8067  df-sub 8199  df-neg 8200  df-reap 8602  df-ap 8609  df-div 8700  df-inn 8991  df-2 9049  df-3 9050  df-4 9051  df-n0 9250  df-z 9327  df-uz 9602  df-q 9694  df-rp 9729  df-fz 10084  df-fzo 10218  df-fl 10360  df-mod 10415  df-seqfrec 10540  df-exp 10631  df-cj 11007  df-re 11008  df-im 11009  df-rsqrt 11163  df-abs 11164  df-dvds 11953  df-gcd 12121  df-prm 12276  df-pc 12454

This theorem is referenced by:  pcmpt2  12513  pcprod  12515  1arithlem4  12535