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

Theorem pcmpt 15818
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.
StepHypRef Expression
1 pcmpt.3 . 2 (𝜑𝑁 ∈ ℕ)
2 fveq2 6353 . . . . . 6 (𝑝 = 1 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘1))
32oveq2d 6830 . . . . 5 (𝑝 = 1 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘1)))
4 breq2 4808 . . . . . 6 (𝑝 = 1 → (𝑃𝑝𝑃 ≤ 1))
54ifbid 4252 . . . . 5 (𝑝 = 1 → if(𝑃𝑝, 𝐵, 0) = if(𝑃 ≤ 1, 𝐵, 0))
63, 5eqeq12d 2775 . . . 4 (𝑝 = 1 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0)))
76imbi2d 329 . . 3 (𝑝 = 1 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))))
8 fveq2 6353 . . . . . 6 (𝑝 = 𝑘 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘𝑘))
98oveq2d 6830 . . . . 5 (𝑝 = 𝑘 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
10 breq2 4808 . . . . . 6 (𝑝 = 𝑘 → (𝑃𝑝𝑃𝑘))
1110ifbid 4252 . . . . 5 (𝑝 = 𝑘 → if(𝑃𝑝, 𝐵, 0) = if(𝑃𝑘, 𝐵, 0))
129, 11eqeq12d 2775 . . . 4 (𝑝 = 𝑘 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0)))
1312imbi2d 329 . . 3 (𝑝 = 𝑘 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0))))
14 fveq2 6353 . . . . . 6 (𝑝 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘(𝑘 + 1)))
1514oveq2d 6830 . . . . 5 (𝑝 = (𝑘 + 1) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))))
16 breq2 4808 . . . . . 6 (𝑝 = (𝑘 + 1) → (𝑃𝑝𝑃 ≤ (𝑘 + 1)))
1716ifbid 4252 . . . . 5 (𝑝 = (𝑘 + 1) → if(𝑃𝑝, 𝐵, 0) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))
1815, 17eqeq12d 2775 . . . 4 (𝑝 = (𝑘 + 1) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
1918imbi2d 329 . . 3 (𝑝 = (𝑘 + 1) → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
20 fveq2 6353 . . . . . 6 (𝑝 = 𝑁 → (seq1( · , 𝐹)‘𝑝) = (seq1( · , 𝐹)‘𝑁))
2120oveq2d 6830 . . . . 5 (𝑝 = 𝑁 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)))
22 breq2 4808 . . . . . 6 (𝑝 = 𝑁 → (𝑃𝑝𝑃𝑁))
2322ifbid 4252 . . . . 5 (𝑝 = 𝑁 → if(𝑃𝑝, 𝐵, 0) = if(𝑃𝑁, 𝐵, 0))
2421, 23eqeq12d 2775 . . . 4 (𝑝 = 𝑁 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃𝑁, 𝐵, 0)))
2524imbi2d 329 . . 3 (𝑝 = 𝑁 → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑝)) = if(𝑃𝑝, 𝐵, 0)) ↔ (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃𝑁, 𝐵, 0))))
26 pcmpt.4 . . . 4 (𝜑𝑃 ∈ ℙ)
27 1z 11619 . . . . . . . . 9 1 ∈ ℤ
28 seq1 13028 . . . . . . . . 9 (1 ∈ ℤ → (seq1( · , 𝐹)‘1) = (𝐹‘1))
2927, 28ax-mp 5 . . . . . . . 8 (seq1( · , 𝐹)‘1) = (𝐹‘1)
30 1nn 11243 . . . . . . . . 9 1 ∈ ℕ
31 1nprm 15614 . . . . . . . . . . . 12 ¬ 1 ∈ ℙ
32 eleq1 2827 . . . . . . . . . . . 12 (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
3331, 32mtbiri 316 . . . . . . . . . . 11 (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
3433iffalsed 4241 . . . . . . . . . 10 (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛𝐴), 1) = 1)
35 pcmpt.1 . . . . . . . . . 10 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛𝐴), 1))
36 1ex 10247 . . . . . . . . . 10 1 ∈ V
3734, 35, 36fvmpt 6445 . . . . . . . . 9 (1 ∈ ℕ → (𝐹‘1) = 1)
3830, 37ax-mp 5 . . . . . . . 8 (𝐹‘1) = 1
3929, 38eqtri 2782 . . . . . . 7 (seq1( · , 𝐹)‘1) = 1
4039oveq2i 6825 . . . . . 6 (𝑃 pCnt (seq1( · , 𝐹)‘1)) = (𝑃 pCnt 1)
41 pc1 15782 . . . . . 6 (𝑃 ∈ ℙ → (𝑃 pCnt 1) = 0)
4240, 41syl5eq 2806 . . . . 5 (𝑃 ∈ ℙ → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = 0)
43 prmgt1 15631 . . . . . . 7 (𝑃 ∈ ℙ → 1 < 𝑃)
44 1re 10251 . . . . . . . 8 1 ∈ ℝ
45 prmuz2 15630 . . . . . . . . 9 (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ‘2))
46 eluzelre 11910 . . . . . . . . 9 (𝑃 ∈ (ℤ‘2) → 𝑃 ∈ ℝ)
4745, 46syl 17 . . . . . . . 8 (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
48 ltnle 10329 . . . . . . . 8 ((1 ∈ ℝ ∧ 𝑃 ∈ ℝ) → (1 < 𝑃 ↔ ¬ 𝑃 ≤ 1))
4944, 47, 48sylancr 698 . . . . . . 7 (𝑃 ∈ ℙ → (1 < 𝑃 ↔ ¬ 𝑃 ≤ 1))
5043, 49mpbid 222 . . . . . 6 (𝑃 ∈ ℙ → ¬ 𝑃 ≤ 1)
5150iffalsed 4241 . . . . 5 (𝑃 ∈ ℙ → if(𝑃 ≤ 1, 𝐵, 0) = 0)
5242, 51eqtr4d 2797 . . . 4 (𝑃 ∈ ℙ → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))
5326, 52syl 17 . . 3 (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘1)) = if(𝑃 ≤ 1, 𝐵, 0))
5426adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ∈ ℙ)
55 pcmpt.2 . . . . . . . . . . . . . . . . 17 (𝜑 → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
5635, 55pcmptcl 15817 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
5756simpld 477 . . . . . . . . . . . . . . 15 (𝜑𝐹:ℕ⟶ℕ)
58 peano2nn 11244 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
59 ffvelrn 6521 . . . . . . . . . . . . . . 15 ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
6057, 58, 59syl2an 495 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
6160adantrr 755 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
6254, 61pccld 15777 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) ∈ ℕ0)
6362nn0cnd 11565 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) ∈ ℂ)
6463addid2d 10449 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = (𝑃 pCnt (𝐹‘(𝑘 + 1))))
6558ad2antrl 766 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) ∈ ℕ)
66 ovex 6842 . . . . . . . . . . . . . . 15 (𝑛𝐴) ∈ V
6766, 36ifex 4300 . . . . . . . . . . . . . 14 if(𝑛 ∈ ℙ, (𝑛𝐴), 1) ∈ V
6867csbex 4945 . . . . . . . . . . . . 13 (𝑘 + 1) / 𝑛if(𝑛 ∈ ℙ, (𝑛𝐴), 1) ∈ V
6935fvmpts 6448 . . . . . . . . . . . . . 14 (((𝑘 + 1) ∈ ℕ ∧ (𝑘 + 1) / 𝑛if(𝑛 ∈ ℙ, (𝑛𝐴), 1) ∈ V) → (𝐹‘(𝑘 + 1)) = (𝑘 + 1) / 𝑛if(𝑛 ∈ ℙ, (𝑛𝐴), 1))
70 ovex 6842 . . . . . . . . . . . . . . 15 (𝑘 + 1) ∈ V
71 nfv 1992 . . . . . . . . . . . . . . . 16 𝑛(𝑘 + 1) ∈ ℙ
72 nfcv 2902 . . . . . . . . . . . . . . . . 17 𝑛(𝑘 + 1)
73 nfcv 2902 . . . . . . . . . . . . . . . . 17 𝑛
74 nfcsb1v 3690 . . . . . . . . . . . . . . . . 17 𝑛(𝑘 + 1) / 𝑛𝐴
7572, 73, 74nfov 6840 . . . . . . . . . . . . . . . 16 𝑛((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴)
76 nfcv 2902 . . . . . . . . . . . . . . . 16 𝑛1
7771, 75, 76nfif 4259 . . . . . . . . . . . . . . 15 𝑛if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1)
78 eleq1 2827 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
79 id 22 . . . . . . . . . . . . . . . . 17 (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
80 csbeq1a 3683 . . . . . . . . . . . . . . . . 17 (𝑛 = (𝑘 + 1) → 𝐴 = (𝑘 + 1) / 𝑛𝐴)
8179, 80oveq12d 6832 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑘 + 1) → (𝑛𝐴) = ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴))
8278, 81ifbieq1d 4253 . . . . . . . . . . . . . . 15 (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛𝐴), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1))
8370, 77, 82csbief 3699 . . . . . . . . . . . . . 14 (𝑘 + 1) / 𝑛if(𝑛 ∈ ℙ, (𝑛𝐴), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1)
8469, 83syl6eq 2810 . . . . . . . . . . . . 13 (((𝑘 + 1) ∈ ℕ ∧ (𝑘 + 1) / 𝑛if(𝑛 ∈ ℙ, (𝑛𝐴), 1) ∈ V) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1))
8565, 68, 84sylancl 697 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1))
86 simprr 813 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) = 𝑃)
8786, 54eqeltrd 2839 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) ∈ ℙ)
8887iftrued 4238 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1) = ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴))
8986csbeq1d 3681 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) / 𝑛𝐴 = 𝑃 / 𝑛𝐴)
90 nfcvd 2903 . . . . . . . . . . . . . . . 16 (𝑃 ∈ ℙ → 𝑛𝐵)
91 pcmpt.5 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑃𝐴 = 𝐵)
9290, 91csbiegf 3698 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 / 𝑛𝐴 = 𝐵)
9354, 92syl 17 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 / 𝑛𝐴 = 𝐵)
9489, 93eqtrd 2794 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑘 + 1) / 𝑛𝐴 = 𝐵)
9586, 94oveq12d 6832 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴) = (𝑃𝐵))
9685, 88, 953eqtrd 2798 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝐹‘(𝑘 + 1)) = (𝑃𝐵))
9796oveq2d 6830 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = (𝑃 pCnt (𝑃𝐵)))
9891eleq1d 2824 . . . . . . . . . . . . . 14 (𝑛 = 𝑃 → (𝐴 ∈ ℕ0𝐵 ∈ ℕ0))
9998rspcv 3445 . . . . . . . . . . . . 13 (𝑃 ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0𝐵 ∈ ℕ0))
10026, 55, 99sylc 65 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ℕ0)
101100adantr 472 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝐵 ∈ ℕ0)
102 pcidlem 15798 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝐵 ∈ ℕ0) → (𝑃 pCnt (𝑃𝐵)) = 𝐵)
10354, 101, 102syl2anc 696 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (𝑃𝐵)) = 𝐵)
10464, 97, 1033eqtrd 2798 . . . . . . . . 9 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵)
105 oveq1 6821 . . . . . . . . . 10 ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
106105eqeq1d 2762 . . . . . . . . 9 ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → (((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵 ↔ (0 + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
107104, 106syl5ibrcom 237 . . . . . . . 8 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
108 nnre 11239 . . . . . . . . . . . . 13 (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
109108ad2antrl 766 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑘 ∈ ℝ)
110 ltp1 11073 . . . . . . . . . . . . 13 (𝑘 ∈ ℝ → 𝑘 < (𝑘 + 1))
111 peano2re 10421 . . . . . . . . . . . . . 14 (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
112 ltnle 10329 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℝ ∧ (𝑘 + 1) ∈ ℝ) → (𝑘 < (𝑘 + 1) ↔ ¬ (𝑘 + 1) ≤ 𝑘))
113111, 112mpdan 705 . . . . . . . . . . . . 13 (𝑘 ∈ ℝ → (𝑘 < (𝑘 + 1) ↔ ¬ (𝑘 + 1) ≤ 𝑘))
114110, 113mpbid 222 . . . . . . . . . . . 12 (𝑘 ∈ ℝ → ¬ (𝑘 + 1) ≤ 𝑘)
115109, 114syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ¬ (𝑘 + 1) ≤ 𝑘)
11686breq1d 4814 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑘 + 1) ≤ 𝑘𝑃𝑘))
117115, 116mtbid 313 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ¬ 𝑃𝑘)
118117iffalsed 4241 . . . . . . . . 9 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if(𝑃𝑘, 𝐵, 0) = 0)
119118eqeq2d 2770 . . . . . . . 8 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = 0))
120 simpr 479 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
121 nnuz 11936 . . . . . . . . . . . . . 14 ℕ = (ℤ‘1)
122120, 121syl6eleq 2849 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ‘1))
123 seqp1 13030 . . . . . . . . . . . . 13 (𝑘 ∈ (ℤ‘1) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
124122, 123syl 17 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
125124oveq2d 6830 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))))
12626adantr 472 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → 𝑃 ∈ ℙ)
12756simprd 482 . . . . . . . . . . . . . 14 (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
128127ffvelrnda 6523 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
129 nnz 11611 . . . . . . . . . . . . . 14 ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℤ)
130 nnne0 11265 . . . . . . . . . . . . . 14 ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ≠ 0)
131129, 130jca 555 . . . . . . . . . . . . 13 ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0))
132128, 131syl 17 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0))
133 nnz 11611 . . . . . . . . . . . . . 14 ((𝐹‘(𝑘 + 1)) ∈ ℕ → (𝐹‘(𝑘 + 1)) ∈ ℤ)
134 nnne0 11265 . . . . . . . . . . . . . 14 ((𝐹‘(𝑘 + 1)) ∈ ℕ → (𝐹‘(𝑘 + 1)) ≠ 0)
135133, 134jca 555 . . . . . . . . . . . . 13 ((𝐹‘(𝑘 + 1)) ∈ ℕ → ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0))
13660, 135syl 17 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0))
137 pcmul 15778 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ ((seq1( · , 𝐹)‘𝑘) ∈ ℤ ∧ (seq1( · , 𝐹)‘𝑘) ≠ 0) ∧ ((𝐹‘(𝑘 + 1)) ∈ ℤ ∧ (𝐹‘(𝑘 + 1)) ≠ 0)) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
138126, 132, 136, 137syl3anc 1477 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → (𝑃 pCnt ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
139125, 138eqtrd 2794 . . . . . . . . . 10 ((𝜑𝑘 ∈ ℕ) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
140139adantrr 755 . . . . . . . . 9 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
141 prmnn 15610 . . . . . . . . . . . . . . 15 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
14226, 141syl 17 . . . . . . . . . . . . . 14 (𝜑𝑃 ∈ ℕ)
143142nnred 11247 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ ℝ)
144143adantr 472 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ∈ ℝ)
145144leidd 10806 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃𝑃)
146145, 86breqtrrd 4832 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → 𝑃 ≤ (𝑘 + 1))
147146iftrued 4238 . . . . . . . . 9 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) = 𝐵)
148140, 147eqeq12d 2775 . . . . . . . 8 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) ↔ ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = 𝐵))
149107, 119, 1483imtr4d 283 . . . . . . 7 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) = 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
150149expr 644 . . . . . 6 ((𝜑𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑃 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
151139adantrr 755 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))))
152 simplrr 820 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ≠ 𝑃)
153152necomd 2987 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → 𝑃 ≠ (𝑘 + 1))
15426ad2antrr 764 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → 𝑃 ∈ ℙ)
155 simpr 479 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) ∈ ℙ)
15655ad2antrr 764 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0)
15774nfel1 2917 . . . . . . . . . . . . . . . . . . 19 𝑛(𝑘 + 1) / 𝑛𝐴 ∈ ℕ0
15880eleq1d 2824 . . . . . . . . . . . . . . . . . . 19 (𝑛 = (𝑘 + 1) → (𝐴 ∈ ℕ0(𝑘 + 1) / 𝑛𝐴 ∈ ℕ0))
159157, 158rspc 3443 . . . . . . . . . . . . . . . . . 18 ((𝑘 + 1) ∈ ℙ → (∀𝑛 ∈ ℙ 𝐴 ∈ ℕ0(𝑘 + 1) / 𝑛𝐴 ∈ ℕ0))
160155, 156, 159sylc 65 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑘 + 1) / 𝑛𝐴 ∈ ℕ0)
161 prmdvdsexpr 15651 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ ℙ ∧ (𝑘 + 1) ∈ ℙ ∧ (𝑘 + 1) / 𝑛𝐴 ∈ ℕ0) → (𝑃 ∥ ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴) → 𝑃 = (𝑘 + 1)))
162154, 155, 160, 161syl3anc 1477 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ∥ ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴) → 𝑃 = (𝑘 + 1)))
163162necon3ad 2945 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ≠ (𝑘 + 1) → ¬ 𝑃 ∥ ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴)))
164153, 163mpd 15 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ¬ 𝑃 ∥ ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴))
16558ad2antrl 766 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ∈ ℕ)
166165, 68, 84sylancl 697 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1))
167 iftrue 4236 . . . . . . . . . . . . . . . 16 ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1) = ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴))
168166, 167sylan9eq 2814 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴))
169168breq2d 4816 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 ∥ (𝐹‘(𝑘 + 1)) ↔ 𝑃 ∥ ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴)))
170164, 169mtbird 314 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1)))
17157adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝐹:ℕ⟶ℕ)
172171, 165, 59syl2anc 696 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
173172adantr 472 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
174 pceq0 15797 . . . . . . . . . . . . . 14 ((𝑃 ∈ ℙ ∧ (𝐹‘(𝑘 + 1)) ∈ ℕ) → ((𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0 ↔ ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1))))
175154, 173, 174syl2anc 696 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0 ↔ ¬ 𝑃 ∥ (𝐹‘(𝑘 + 1))))
176170, 175mpbird 247 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
177 iffalse 4239 . . . . . . . . . . . . . . 15 (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑(𝑘 + 1) / 𝑛𝐴), 1) = 1)
178166, 177sylan9eq 2814 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
179178oveq2d 6830 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = (𝑃 pCnt 1))
18026, 41syl 17 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 pCnt 1) = 0)
181180ad2antrr 764 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt 1) = 0)
182179, 181eqtrd 2794 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
183176, 182pm2.61dan 867 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (𝐹‘(𝑘 + 1))) = 0)
184183oveq2d 6830 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + (𝑃 pCnt (𝐹‘(𝑘 + 1)))) = ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + 0))
18526adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℙ)
186128adantrr 755 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
187185, 186pccld 15777 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) ∈ ℕ0)
188187nn0cnd 11565 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) ∈ ℂ)
189188addid1d 10448 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) + 0) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
190151, 184, 1893eqtrd 2798 . . . . . . . . 9 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)))
191142adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℕ)
192191nnred 11247 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑃 ∈ ℝ)
193165nnred 11247 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ∈ ℝ)
194192, 193ltlend 10394 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 < (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
195 simprl 811 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → 𝑘 ∈ ℕ)
196 nnleltp1 11644 . . . . . . . . . . . 12 ((𝑃 ∈ ℕ ∧ 𝑘 ∈ ℕ) → (𝑃𝑘𝑃 < (𝑘 + 1)))
197191, 195, 196syl2anc 696 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃𝑘𝑃 < (𝑘 + 1)))
198 simprr 813 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑘 + 1) ≠ 𝑃)
199198biantrud 529 . . . . . . . . . . 11 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ (𝑘 + 1) ↔ (𝑃 ≤ (𝑘 + 1) ∧ (𝑘 + 1) ≠ 𝑃)))
200194, 197, 1993bitr4rd 301 . . . . . . . . . 10 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → (𝑃 ≤ (𝑘 + 1) ↔ 𝑃𝑘))
201200ifbid 4252 . . . . . . . . 9 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) = if(𝑃𝑘, 𝐵, 0))
202190, 201eqeq12d 2775 . . . . . . . 8 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0) ↔ (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0)))
203202biimprd 238 . . . . . . 7 ((𝜑 ∧ (𝑘 ∈ ℕ ∧ (𝑘 + 1) ≠ 𝑃)) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
204203expr 644 . . . . . 6 ((𝜑𝑘 ∈ ℕ) → ((𝑘 + 1) ≠ 𝑃 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
205150, 204pm2.61dne 3018 . . . . 5 ((𝜑𝑘 ∈ ℕ) → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0)))
206205expcom 450 . . . 4 (𝑘 ∈ ℕ → (𝜑 → ((𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0) → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
207206a2d 29 . . 3 (𝑘 ∈ ℕ → ((𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑘)) = if(𝑃𝑘, 𝐵, 0)) → (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘(𝑘 + 1))) = if(𝑃 ≤ (𝑘 + 1), 𝐵, 0))))
2087, 13, 19, 25, 53, 207nnind 11250 . 2 (𝑁 ∈ ℕ → (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃𝑁, 𝐵, 0)))
2091, 208mpcom 38 1 (𝜑 → (𝑃 pCnt (seq1( · , 𝐹)‘𝑁)) = if(𝑃𝑁, 𝐵, 0))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383   = wceq 1632  wcel 2139  wne 2932  wral 3050  Vcvv 3340  csb 3674  ifcif 4230   class class class wbr 4804  cmpt 4881  wf 6045  cfv 6049  (class class class)co 6814  cr 10147  0cc0 10148  1c1 10149   + caddc 10151   · cmul 10153   < clt 10286  cle 10287  cn 11232  2c2 11282  0cn0 11504  cz 11589  cuz 11899  seqcseq 13015  cexp 13074  cdvds 15202  cprime 15607   pCnt cpc 15763
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7115  ax-cnex 10204  ax-resscn 10205  ax-1cn 10206  ax-icn 10207  ax-addcl 10208  ax-addrcl 10209  ax-mulcl 10210  ax-mulrcl 10211  ax-mulcom 10212  ax-addass 10213  ax-mulass 10214  ax-distr 10215  ax-i2m1 10216  ax-1ne0 10217  ax-1rid 10218  ax-rnegex 10219  ax-rrecex 10220  ax-cnre 10221  ax-pre-lttri 10222  ax-pre-lttrn 10223  ax-pre-ltadd 10224  ax-pre-mulgt0 10225  ax-pre-sup 10226
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-fal 1638  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-nel 3036  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-iun 4674  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-riota 6775  df-ov 6817  df-oprab 6818  df-mpt2 6819  df-om 7232  df-1st 7334  df-2nd 7335  df-wrecs 7577  df-recs 7638  df-rdg 7676  df-1o 7730  df-2o 7731  df-er 7913  df-en 8124  df-dom 8125  df-sdom 8126  df-fin 8127  df-sup 8515  df-inf 8516  df-pnf 10288  df-mnf 10289  df-xr 10290  df-ltxr 10291  df-le 10292  df-sub 10480  df-neg 10481  df-div 10897  df-nn 11233  df-2 11291  df-3 11292  df-n0 11505  df-z 11590  df-uz 11900  df-q 12002  df-rp 12046  df-fz 12540  df-fl 12807  df-mod 12883  df-seq 13016  df-exp 13075  df-cj 14058  df-re 14059  df-im 14060  df-sqrt 14194  df-abs 14195  df-dvds 15203  df-gcd 15439  df-prm 15608  df-pc 15764
This theorem is referenced by:  pcmpt2  15819  pcprod  15821  1arithlem4  15852  chtublem  25156  bposlem3  25231
  Copyright terms: Public domain W3C validator