pcmpt - Metamath Proof Explorer

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

Theorem pcmpt 16230

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	⊢ (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ₀)
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 6672	. . . . . 6 ⊢ (𝑝 = 1 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘1))
3	2	oveq2d 7174	. . . . 5 ⊢ (𝑝 = 1 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘1)))
4		breq2 5072	. . . . . 6 ⊢ (𝑝 = 1 → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ 1))
5	4	ifbid 4491	. . . . 5 ⊢ (𝑝 = 1 → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ 1, 𝐵, 0))
6	3, 5	eqeq12d 2839	. . . 4 ⊢ (𝑝 = 1 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0)))
7	6	imbi2d 343	. . 3 ⊢ (𝑝 = 1 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))))
8		fveq2 6672	. . . . . 6 ⊢ (𝑝 = 𝑘 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘𝑘))
9	8	oveq2d 7174	. . . . 5 ⊢ (𝑝 = 𝑘 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
10		breq2 5072	. . . . . 6 ⊢ (𝑝 = 𝑘 → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ 𝑘))
11	10	ifbid 4491	. . . . 5 ⊢ (𝑝 = 𝑘 → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ 𝑘, 𝐵, 0))
12	9, 11	eqeq12d 2839	. . . 4 ⊢ (𝑝 = 𝑘 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0)))
13	12	imbi2d 343	. . 3 ⊢ (𝑝 = 𝑘 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0))))
14		fveq2 6672	. . . . . 6 ⊢ (𝑝 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘(𝑘 + 1)))
15	14	oveq2d 7174	. . . . 5 ⊢ (𝑝 = (𝑘 + 1) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))))
16		breq2 5072	. . . . . 6 ⊢ (𝑝 = (𝑘 + 1) → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ (𝑘 + 1)))
17	16	ifbid 4491	. . . . 5 ⊢ (𝑝 = (𝑘 + 1) → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))
18	15, 17	eqeq12d 2839	. . . 4 ⊢ (𝑝 = (𝑘 + 1) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
19	18	imbi2d 343	. . 3 ⊢ (𝑝 = (𝑘 + 1) → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
20		fveq2 6672	. . . . . 6 ⊢ (𝑝 = 𝑁 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘𝑁))
21	20	oveq2d 7174	. . . . 5 ⊢ (𝑝 = 𝑁 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)))
22		breq2 5072	. . . . . 6 ⊢ (𝑝 = 𝑁 → (𝑃 ≤ 𝑝 ↔ 𝑃 ≤ 𝑁))
23	22	ifbid 4491	. . . . 5 ⊢ (𝑝 = 𝑁 → if(𝑃 ≤ 𝑝, 𝐵, 0) = if(𝑃 ≤ 𝑁, 𝐵, 0))
24	21, 23	eqeq12d 2839	. . . 4 ⊢ (𝑝 = 𝑁 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0)))
25	24	imbi2d 343	. . 3 ⊢ (𝑝 = 𝑁 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃 ≤ 𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0))))
26		pcmpt.4	. . . 4 ⊢ (𝜑 → 𝑃 ∈ ℙ)
27		1z 12015	. . . . . . . . 9 ⊢ 1 ∈ ℤ
28		seq1 13385	. . . . . . . . 9 ⊢ (1 ∈ ℤ → (seq1( · , 𝐹)‘1) = (𝐹‘1))
29	27, 28	ax-mp 5	. . . . . . . 8 ⊢ (seq1( · , 𝐹)‘1) = (𝐹‘1)
30		1nn 11651	. . . . . . . . 9 ⊢ 1 ∈ ℕ
31		1nprm 16025	. . . . . . . . . . . 12 ⊢ ¬ 1 ∈ ℙ
32		eleq1 2902	. . . . . . . . . . . 12 ⊢ (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
33	31, 32	mtbiri 329	. . . . . . . . . . 11 ⊢ (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
34	33	iffalsed 4480	. . . . . . . . . 10 ⊢ (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) = 1)
35		pcmpt.1	. . . . . . . . . 10 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1))
36		1ex 10639	. . . . . . . . . 10 ⊢ 1 ∈ V
37	34, 35, 36	fvmpt 6770	. . . . . . . . 9 ⊢ (1 ∈ ℕ → (𝐹‘1) = 1)
38	30, 37	ax-mp 5	. . . . . . . 8 ⊢ (𝐹‘1) = 1
39	29, 38	eqtri 2846	. . . . . . 7 ⊢ (seq1( · , 𝐹)‘1) = 1
40	39	oveq2i 7169	. . . . . 6 ⊢ (𝑃 pCnt (seq1( · , 𝐹)‘1)) = (𝑃 pCnt 1)
41		pc1 16194	. . . . . 6 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt 1) = 0)
42	40, 41	syl5eq 2870	. . . . 5 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = 0)
43		prmgt1 16043	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
44		1re 10643	. . . . . . . 8 ⊢ 1 ∈ ℝ
45		prmuz2 16042	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘2))
46		eluzelre 12257	. . . . . . . . 9 ⊢ (𝑃 ∈ (ℤ_≥‘2) → 𝑃 ∈ ℝ)
47	45, 46	syl 17	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
48		ltnle 10722	. . . . . . . 8 ⊢ ((1 ∈ ℝ ∧ 𝑃 ∈ ℝ) → (1 < 𝑃 ↔ ¬ 𝑃 ≤ 1))
49	44, 47, 48	sylancr 589	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → (1 < 𝑃 ↔ ¬ 𝑃 ≤ 1))
50	43, 49	mpbid 234	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ¬ 𝑃 ≤ 1)
51	50	iffalsed 4480	. . . . 5 ⊢ (𝑃 ∈ ℙ → if(𝑃 ≤ 1, 𝐵, 0) = 0)
52	42, 51	eqtr4d 2861	. . . 4 ⊢ (𝑃 ∈ ℙ → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))
53	26, 52	syl 17	. . 3 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))
54	26	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ∈ ℙ)
55		pcmpt.2	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ₀)
56	35, 55	pcmptcl 16229	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
57	56	simpld 497	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹:ℕ⟶ℕ)
58		peano2nn 11652	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
59		ffvelrn 6851	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
60	57, 58, 59	syl2an 597	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
61	60	adantrr 715	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
62	54, 61	pccld 16189	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) ∈ ℕ₀)
63	62	nn0cnd 11960	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) ∈ ℂ)
64	63	addid2d 10843	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = (𝑃 pCnt (𝐹‘(𝑘 + 1))))
65	58	ad2antrl 726	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) ∈ ℕ)
66		ovex 7191	. . . . . . . . . . . . . . 15 ⊢ (𝑛↑𝐴) ∈ V
67	66, 36	ifex 4517	. . . . . . . . . . . . . 14 ⊢ if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) ∈ V
68	67	csbex 5217	. . . . . . . . . . . . 13 ⊢ ⦋(𝑘 + 1) / 𝑛⦌if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) ∈ V
69	35	fvmpts 6773	. . . . . . . . . . . . . 14 ⊢ (((𝑘 + 1) ∈ ℕ ∧ ⦋(𝑘 + 1) / 𝑛⦌if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) ∈ V) → (𝐹‘(𝑘 + 1)) = ⦋(𝑘 + 1) / 𝑛⦌if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1))
70		ovex 7191	. . . . . . . . . . . . . . 15 ⊢ (𝑘 + 1) ∈ V
71		nfv 1915	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑘 + 1) ∈ ℙ
72		nfcv 2979	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛(𝑘 + 1)
73		nfcv 2979	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛↑
74		nfcsb1v 3909	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛⦋(𝑘 + 1) / 𝑛⦌𝐴
75	72, 73, 74	nfov 7188	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴)
76		nfcv 2979	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛1
77	71, 75, 76	nfif 4498	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1)
78		eleq1 2902	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
79		id 22	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
80		csbeq1a 3899	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = (𝑘 + 1) → 𝐴 = ⦋(𝑘 + 1) / 𝑛⦌𝐴)
81	79, 80	oveq12d 7176	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = (𝑘 + 1) → (𝑛↑𝐴) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
82	78, 81	ifbieq1d 4492	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
83	70, 77, 82	csbief 3919	. . . . . . . . . . . . . 14 ⊢ ⦋(𝑘 + 1) / 𝑛⦌if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1)
84	69, 83	syl6eq 2874	. . . . . . . . . . . . 13 ⊢ (((𝑘 + 1) ∈ ℕ ∧ ⦋(𝑘 + 1) / 𝑛⦌if(𝑛 ∈ ℙ, (𝑛↑𝐴), 1) ∈ V) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
85	65, 68, 84	sylancl 588	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
86		simprr 771	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) = 𝑃)
87	86, 54	eqeltrd 2915	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) ∈ ℙ)
88	87	iftrued 4477	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
89	86	csbeq1d 3889	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 = ⦋𝑃 / 𝑛⦌𝐴)
90		nfcvd 2980	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ ℙ → Ⅎ𝑛𝐵)
91		pcmpt.5	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑃 → 𝐴 = 𝐵)
92	90, 91	csbiegf 3918	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℙ → ⦋𝑃 / 𝑛⦌𝐴 = 𝐵)
93	54, 92	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ⦋𝑃 / 𝑛⦌𝐴 = 𝐵)
94	89, 93	eqtrd 2858	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 = 𝐵)
95	86, 94	oveq12d 7176	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) = (𝑃↑𝐵))
96	85, 88, 95	3eqtrd 2862	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) = (𝑃↑𝐵))
97	96	oveq2d 7174	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = (𝑃 pCnt (𝑃↑𝐵)))
98	91	eleq1d 2899	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑃 → (𝐴 ∈ ℕ₀ ↔ 𝐵 ∈ ℕ₀))
99	98	rspcv 3620	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ₀ → 𝐵 ∈ ℕ₀))
100	26, 55, 99	sylc 65	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℕ₀)
101	100	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝐵 ∈ ℕ₀)
102		pcidlem 16210	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℕ₀) → (𝑃 pCnt (𝑃↑𝐵)) = 𝐵)
103	54, 101, 102	syl2anc 586	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝑃↑𝐵)) = 𝐵)
104	64, 97, 103	3eqtrd 2862	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵)
105		oveq1 7165	. . . . . . . . . 10 ⊢ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
106	105	eqeq1d 2825	. . . . . . . . 9 ⊢ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → (((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵 ↔ (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
107	104, 106	syl5ibrcom 249	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
108		nnre 11647	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
109	108	ad2antrl 726	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑘 ∈ ℝ)
110		ltp1 11482	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℝ → 𝑘 < (𝑘 + 1))
111		peano2re 10815	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
112		ltnle 10722	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ) → (𝑘 < (𝑘 + 1) ↔ ¬ (𝑘 + 1) ≤ 𝑘))
113	111, 112	mpdan 685	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℝ → (𝑘 < (𝑘 + 1) ↔ ¬ (𝑘 + 1) ≤ 𝑘))
114	110, 113	mpbid 234	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℝ → ¬ (𝑘 + 1) ≤ 𝑘)
115	109, 114	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ¬ (𝑘 + 1) ≤ 𝑘)
116	86	breq1d 5078	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑘 + 1) ≤ 𝑘 ↔ 𝑃 ≤ 𝑘))
117	115, 116	mtbid 326	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ¬ 𝑃 ≤ 𝑘)
118	117	iffalsed 4480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if(𝑃 ≤ 𝑘, 𝐵, 0) = 0)
119	118	eqeq2d 2834	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0))
120		simpr 487	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
121		nnuz 12284	. . . . . . . . . . . . . 14 ⊢ ℕ = (ℤ_≥‘1)
122	120, 121	eleqtrdi 2925	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘1))
123		seqp1 13387	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (ℤ_≥‘1) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
124	122, 123	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
125	124	oveq2d 7174	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))))
126	26	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑃 ∈ ℙ)
127	56	simprd 498	. . . . . . . . . . . . . 14 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
128	127	ffvelrnda 6853	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
129		nnz 12007	. . . . . . . . . . . . . 14 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℤ)
130		nnne0 11674	. . . . . . . . . . . . . 14 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ≠ 0)
131	129, 130	jca 514	. . . . . . . . . . . . 13 ⊢ ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0))
132	128, 131	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0))
133		nnz 12007	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘(𝑘 + 1)) ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ ℤ)
134		nnne0 11674	. . . . . . . . . . . . . 14 ⊢ ((𝐹‘(𝑘 + 1)) ∈ ℕ → (𝐹‘(𝑘 + 1)) ≠ 0)
135	133, 134	jca 514	. . . . . . . . . . . . 13 ⊢ ((𝐹‘(𝑘 + 1)) ∈ ℕ → ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0))
136	60, 135	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0))
137		pcmul 16190	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0) ∧ ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0)) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
138	126, 132, 136, 137	syl3anc 1367	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
139	125, 138	eqtrd 2858	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
140	139	adantrr 715	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
141		prmnn 16020	. . . . . . . . . . . . . . 15 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
142	26, 141	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑃 ∈ ℕ)
143	142	nnred 11655	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑃 ∈ ℝ)
144	143	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ∈ ℝ)
145	144	leidd 11208	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ≤ 𝑃)
146	145, 86	breqtrrd 5096	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ≤ (𝑘 + 1))
147	146	iftrued 4477	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) = 𝐵)
148	140, 147	eqeq12d 2839	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) ↔ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
149	107, 119, 148	3imtr4d 296	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
150	149	expr 459	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑃 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
151	139	adantrr 715	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
152		simplrr 776	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ≠ 𝑃)
153	152	necomd 3073	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → 𝑃 ≠ (𝑘 + 1))
154	26	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → 𝑃 ∈ ℙ)
155		simpr 487	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ∈ ℙ)
156	55	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ₀)
157	74	nfel1 2996	. . . . . . . . . . . . . . . . . . 19 ⊢ Ⅎ𝑛⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ₀
158	80	eleq1d 2899	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = (𝑘 + 1) → (𝐴 ∈ ℕ₀ ↔ ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ₀))
159	157, 158	rspc 3613	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑘 + 1) ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ₀ → ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ₀))
160	155, 156, 159	sylc 65	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ₀)
161		prmdvdsexpr 16063	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ ℙ ∧ (𝑘 + 1) ∈ ℙ ∧ ⦋(𝑘 + 1) / 𝑛⦌𝐴 ∈ ℕ₀) → (𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) → 𝑃 = (𝑘 + 1)))
162	154, 155, 160, 161	syl3anc 1367	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴) → 𝑃 = (𝑘 + 1)))
163	162	necon3ad 3031	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ≠ (𝑘 + 1) → ¬ 𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴)))
164	153, 163	mpd 15	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ¬ 𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
165	58	ad2antrl 726	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ∈ ℕ)
166	165, 68, 84	sylancl 588	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1))
167		iftrue 4475	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
168	166, 167	sylan9eq 2878	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴))
169	168	breq2d 5080	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ∥ (𝐹‘(𝑘 + 1)) ↔ 𝑃 ∥ ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴)))
170	164, 169	mtbird 327	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1)))
171	57	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝐹:ℕ⟶ℕ)
172	171, 165, 59	syl2anc 586	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
173	172	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
174		pceq0 16209	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℙ ∧ (𝐹‘(𝑘 + 1)) ∈ ℕ) → ((𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0 ↔ ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1))))
175	154, 173, 174	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0 ↔ ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1))))
176	170, 175	mpbird 259	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
177		iffalse 4478	. . . . . . . . . . . . . . 15 ⊢ (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑⦋(𝑘 + 1) / 𝑛⦌𝐴), 1) = 1)
178	166, 177	sylan9eq 2878	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
179	178	oveq2d 7174	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = (𝑃 pCnt 1))
180	26, 41	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑃 pCnt 1) = 0)
181	180	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt 1) = 0)
182	179, 181	eqtrd 2858	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
183	176, 182	pm2.61dan 811	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
184	183	oveq2d 7174	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + 0))
185	26	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℙ)
186	128	adantrr 715	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
187	185, 186	pccld 16189	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) ∈ ℕ₀)
188	187	nn0cnd 11960	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) ∈ ℂ)
189	188	addid1d 10842	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + 0) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
190	151, 184, 189	3eqtrd 2862	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
191	142	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℕ)
192	191	nnred 11655	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℝ)
193	165	nnred 11655	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ∈ ℝ)
194	192, 193	ltlend 10787	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 < (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
195		simprl 769	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑘 ∈ ℕ)
196		nnleltp1 12040	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℕ ∧ 𝑘 ∈ ℕ) → (𝑃 ≤ 𝑘 ↔ 𝑃 < (𝑘 + 1)))
197	191, 195, 196	syl2anc 586	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ 𝑘 ↔ 𝑃 < (𝑘 + 1)))
198		simprr 771	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ≠ 𝑃)
199	198	biantrud 534	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
200	194, 197, 199	3bitr4rd 314	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ (𝑘 + 1) ↔ 𝑃 ≤ 𝑘))
201	200	ifbid 4491	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) = if(𝑃 ≤ 𝑘, 𝐵, 0))
202	190, 201	eqeq12d 2839	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0)))
203	202	biimprd 250	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
204	203	expr 459	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) ≠ 𝑃 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
205	150, 204	pm2.61dne 3105	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
206	205	expcom 416	. . . 4 ⊢ (𝑘 ∈ ℕ → (𝜑 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
207	206	a2d 29	. . 3 ⊢ (𝑘 ∈ ℕ → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃 ≤ 𝑘, 𝐵, 0)) → (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
208	7, 13, 19, 25, 53, 207	nnind 11658	. 2 ⊢ (𝑁 ∈ ℕ → (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0)))
209	1, 208	mpcom 38	1 ⊢ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃 ≤ 𝑁, 𝐵, 0))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1537 ∈ wcel 2114 ≠ wne 3018 ∀wral 3140 Vcvv 3496 ⦋csb 3885 ifcif 4469 class class class wbr 5068 ↦ cmpt 5148 ⟶wf 6353 ‘cfv 6357 (class class class)co 7158 ℝcr 10538 0cc0 10539 1c1 10540 + caddc 10542 · cmul 10544 < clt 10677 ≤ cle 10678 ℕcn 11640 2c2 11695 ℕ₀cn0 11900 ℤcz 11984 ℤ_≥cuz 12246 seqcseq 13372 ↑cexp 13432 ∥ cdvds 15609 ℙcprime 16017 pCnt cpc 16175

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2795 ax-sep 5205 ax-nul 5212 ax-pow 5268 ax-pr 5332 ax-un 7463 ax-cnex 10595 ax-resscn 10596 ax-1cn 10597 ax-icn 10598 ax-addcl 10599 ax-addrcl 10600 ax-mulcl 10601 ax-mulrcl 10602 ax-mulcom 10603 ax-addass 10604 ax-mulass 10605 ax-distr 10606 ax-i2m1 10607 ax-1ne0 10608 ax-1rid 10609 ax-rnegex 10610 ax-rrecex 10611 ax-cnre 10612 ax-pre-lttri 10613 ax-pre-lttrn 10614 ax-pre-ltadd 10615 ax-pre-mulgt0 10616 ax-pre-sup 10617

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-fal 1550 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2802 df-cleq 2816 df-clel 2895 df-nfc 2965 df-ne 3019 df-nel 3126 df-ral 3145 df-rex 3146 df-reu 3147 df-rmo 3148 df-rab 3149 df-v 3498 df-sbc 3775 df-csb 3886 df-dif 3941 df-un 3943 df-in 3945 df-ss 3954 df-pss 3956 df-nul 4294 df-if 4470 df-pw 4543 df-sn 4570 df-pr 4572 df-tp 4574 df-op 4576 df-uni 4841 df-iun 4923 df-br 5069 df-opab 5131 df-mpt 5149 df-tr 5175 df-id 5462 df-eprel 5467 df-po 5476 df-so 5477 df-fr 5516 df-we 5518 df-xp 5563 df-rel 5564 df-cnv 5565 df-co 5566 df-dm 5567 df-rn 5568 df-res 5569 df-ima 5570 df-pred 6150 df-ord 6196 df-on 6197 df-lim 6198 df-suc 6199 df-iota 6316 df-fun 6359 df-fn 6360 df-f 6361 df-f1 6362 df-fo 6363 df-f1o 6364 df-fv 6365 df-riota 7116 df-ov 7161 df-oprab 7162 df-mpo 7163 df-om 7583 df-1st 7691 df-2nd 7692 df-wrecs 7949 df-recs 8010 df-rdg 8048 df-1o 8104 df-2o 8105 df-er 8291 df-en 8512 df-dom 8513 df-sdom 8514 df-fin 8515 df-sup 8908 df-inf 8909 df-pnf 10679 df-mnf 10680 df-xr 10681 df-ltxr 10682 df-le 10683 df-sub 10874 df-neg 10875 df-div 11300 df-nn 11641 df-2 11703 df-3 11704 df-n0 11901 df-z 11985 df-uz 12247 df-q 12352 df-rp 12393 df-fz 12896 df-fl 13165 df-mod 13241 df-seq 13373 df-exp 13433 df-cj 14460 df-re 14461 df-im 14462 df-sqrt 14596 df-abs 14597 df-dvds 15610 df-gcd 15846 df-prm 16018 df-pc 16176

This theorem is referenced by: pcmpt2 16231 pcprod 16233 1arithlem4 16264 chtublem 25789 bposlem3 25864

W3C validator