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

Theorem bposlem3 27312
Description: Lemma for bpos 27319. Since the binomial coefficient does not have any primes in the range (2𝑁 / 3, 𝑁] or (2𝑁, +∞) by bposlem2 27311 and prmfac1 16717, respectively, and it does not have any in the range (𝑁, 2𝑁] by hypothesis, the product of the primes up through 2𝑁 / 3 must be sufficient to compose the whole binomial coefficient. (Contributed by Mario Carneiro, 13-Mar-2014.)
Hypotheses
Ref Expression
bpos.1 (𝜑𝑁 ∈ (ℤ‘5))
bpos.2 (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁)))
bpos.3 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
bpos.4 𝐾 = (⌊‘((2 · 𝑁) / 3))
Assertion
Ref Expression
bposlem3 (𝜑 → (seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁))
Distinct variable groups:   𝐹,𝑝   𝑛,𝑝,𝐾   𝑛,𝑁,𝑝   𝜑,𝑛,𝑝
Allowed substitution hint:   𝐹(𝑛)

Proof of Theorem bposlem3
StepHypRef Expression
1 bpos.3 . . . . 5 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
2 simpr 483 . . . . . . . 8 ((𝜑𝑛 ∈ ℙ) → 𝑛 ∈ ℙ)
3 5nn 12344 . . . . . . . . . . . 12 5 ∈ ℕ
4 bpos.1 . . . . . . . . . . . 12 (𝜑𝑁 ∈ (ℤ‘5))
5 eluznn 12948 . . . . . . . . . . . 12 ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ‘5)) → 𝑁 ∈ ℕ)
63, 4, 5sylancr 585 . . . . . . . . . . 11 (𝜑𝑁 ∈ ℕ)
76nnnn0d 12578 . . . . . . . . . 10 (𝜑𝑁 ∈ ℕ0)
8 fzctr 13661 . . . . . . . . . 10 (𝑁 ∈ ℕ0𝑁 ∈ (0...(2 · 𝑁)))
9 bccl2 14335 . . . . . . . . . 10 (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
107, 8, 93syl 18 . . . . . . . . 9 (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
1110adantr 479 . . . . . . . 8 ((𝜑𝑛 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℕ)
122, 11pccld 16847 . . . . . . 7 ((𝜑𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ0)
1312ralrimiva 3136 . . . . . 6 (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ0)
1413adantr 479 . . . . 5 ((𝜑𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ0)
15 bpos.4 . . . . . . . . 9 𝐾 = (⌊‘((2 · 𝑁) / 3))
16 2nn 12331 . . . . . . . . . . . . 13 2 ∈ ℕ
17 nnmulcl 12282 . . . . . . . . . . . . 13 ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
1816, 6, 17sylancr 585 . . . . . . . . . . . 12 (𝜑 → (2 · 𝑁) ∈ ℕ)
1918nnred 12273 . . . . . . . . . . 11 (𝜑 → (2 · 𝑁) ∈ ℝ)
20 3nn 12337 . . . . . . . . . . 11 3 ∈ ℕ
21 nndivre 12299 . . . . . . . . . . 11 (((2 · 𝑁) ∈ ℝ ∧ 3 ∈ ℕ) → ((2 · 𝑁) / 3) ∈ ℝ)
2219, 20, 21sylancl 584 . . . . . . . . . 10 (𝜑 → ((2 · 𝑁) / 3) ∈ ℝ)
2322flcld 13812 . . . . . . . . 9 (𝜑 → (⌊‘((2 · 𝑁) / 3)) ∈ ℤ)
2415, 23eqeltrid 2830 . . . . . . . 8 (𝜑𝐾 ∈ ℤ)
25 3re 12338 . . . . . . . . . . . . . 14 3 ∈ ℝ
2625a1i 11 . . . . . . . . . . . . 13 (𝜑 → 3 ∈ ℝ)
27 5re 12345 . . . . . . . . . . . . . 14 5 ∈ ℝ
2827a1i 11 . . . . . . . . . . . . 13 (𝜑 → 5 ∈ ℝ)
296nnred 12273 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℝ)
30 3lt5 12436 . . . . . . . . . . . . . . 15 3 < 5
3125, 27, 30ltleii 11378 . . . . . . . . . . . . . 14 3 ≤ 5
3231a1i 11 . . . . . . . . . . . . 13 (𝜑 → 3 ≤ 5)
33 eluzle 12881 . . . . . . . . . . . . . 14 (𝑁 ∈ (ℤ‘5) → 5 ≤ 𝑁)
344, 33syl 17 . . . . . . . . . . . . 13 (𝜑 → 5 ≤ 𝑁)
3526, 28, 29, 32, 34letrd 11412 . . . . . . . . . . . 12 (𝜑 → 3 ≤ 𝑁)
36 2re 12332 . . . . . . . . . . . . . . 15 2 ∈ ℝ
37 2pos 12361 . . . . . . . . . . . . . . 15 0 < 2
3836, 37pm3.2i 469 . . . . . . . . . . . . . 14 (2 ∈ ℝ ∧ 0 < 2)
39 lemul2 12112 . . . . . . . . . . . . . 14 ((3 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
4025, 38, 39mp3an13 1449 . . . . . . . . . . . . 13 (𝑁 ∈ ℝ → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
4129, 40syl 17 . . . . . . . . . . . 12 (𝜑 → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
4235, 41mpbid 231 . . . . . . . . . . 11 (𝜑 → (2 · 3) ≤ (2 · 𝑁))
43 3pos 12363 . . . . . . . . . . . . . 14 0 < 3
4425, 43pm3.2i 469 . . . . . . . . . . . . 13 (3 ∈ ℝ ∧ 0 < 3)
45 lemuldiv 12140 . . . . . . . . . . . . 13 ((2 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
4636, 44, 45mp3an13 1449 . . . . . . . . . . . 12 ((2 · 𝑁) ∈ ℝ → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
4719, 46syl 17 . . . . . . . . . . 11 (𝜑 → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
4842, 47mpbid 231 . . . . . . . . . 10 (𝜑 → 2 ≤ ((2 · 𝑁) / 3))
49 2z 12640 . . . . . . . . . . 11 2 ∈ ℤ
50 flge 13819 . . . . . . . . . . 11 ((((2 · 𝑁) / 3) ∈ ℝ ∧ 2 ∈ ℤ) → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
5122, 49, 50sylancl 584 . . . . . . . . . 10 (𝜑 → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
5248, 51mpbid 231 . . . . . . . . 9 (𝜑 → 2 ≤ (⌊‘((2 · 𝑁) / 3)))
5352, 15breqtrrdi 5187 . . . . . . . 8 (𝜑 → 2 ≤ 𝐾)
5449eluz1i 12876 . . . . . . . 8 (𝐾 ∈ (ℤ‘2) ↔ (𝐾 ∈ ℤ ∧ 2 ≤ 𝐾))
5524, 53, 54sylanbrc 581 . . . . . . 7 (𝜑𝐾 ∈ (ℤ‘2))
56 eluz2nn 12914 . . . . . . 7 (𝐾 ∈ (ℤ‘2) → 𝐾 ∈ ℕ)
5755, 56syl 17 . . . . . 6 (𝜑𝐾 ∈ ℕ)
5857adantr 479 . . . . 5 ((𝜑𝑝 ∈ ℙ) → 𝐾 ∈ ℕ)
59 simpr 483 . . . . 5 ((𝜑𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
60 oveq1 7423 . . . . 5 (𝑛 = 𝑝 → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
611, 14, 58, 59, 60pcmpt 16889 . . . 4 ((𝜑𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0))
62 iftrue 4529 . . . . . 6 (𝑝𝐾 → if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
6362adantl 480 . . . . 5 (((𝜑𝑝 ∈ ℙ) ∧ 𝑝𝐾) → if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
64 iffalse 4532 . . . . . . 7 𝑝𝐾 → if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
6564adantl 480 . . . . . 6 (((𝜑𝑝 ∈ ℙ) ∧ ¬ 𝑝𝐾) → if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
6624zred 12712 . . . . . . . . 9 (𝜑𝐾 ∈ ℝ)
67 prmz 16671 . . . . . . . . . 10 (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
6867zred 12712 . . . . . . . . 9 (𝑝 ∈ ℙ → 𝑝 ∈ ℝ)
69 ltnle 11334 . . . . . . . . 9 ((𝐾 ∈ ℝ ∧ 𝑝 ∈ ℝ) → (𝐾 < 𝑝 ↔ ¬ 𝑝𝐾))
7066, 68, 69syl2an 594 . . . . . . . 8 ((𝜑𝑝 ∈ ℙ) → (𝐾 < 𝑝 ↔ ¬ 𝑝𝐾))
7170biimpar 476 . . . . . . 7 (((𝜑𝑝 ∈ ℙ) ∧ ¬ 𝑝𝐾) → 𝐾 < 𝑝)
726ad2antrr 724 . . . . . . . . . 10 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝑁 ∈ ℕ)
73 simplr 767 . . . . . . . . . 10 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝑝 ∈ ℙ)
7436a1i 11 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 2 ∈ ℝ)
7566ad2antrr 724 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝐾 ∈ ℝ)
7667ad2antlr 725 . . . . . . . . . . . 12 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝑝 ∈ ℤ)
7776zred 12712 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝑝 ∈ ℝ)
7853ad2antrr 724 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 2 ≤ 𝐾)
79 simprl 769 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝐾 < 𝑝)
8074, 75, 77, 78, 79lelttrd 11413 . . . . . . . . . 10 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 2 < 𝑝)
8115, 79eqbrtrrid 5181 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → (⌊‘((2 · 𝑁) / 3)) < 𝑝)
8222ad2antrr 724 . . . . . . . . . . . 12 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → ((2 · 𝑁) / 3) ∈ ℝ)
83 fllt 13820 . . . . . . . . . . . 12 ((((2 · 𝑁) / 3) ∈ ℝ ∧ 𝑝 ∈ ℤ) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
8482, 76, 83syl2anc 582 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
8581, 84mpbird 256 . . . . . . . . . 10 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → ((2 · 𝑁) / 3) < 𝑝)
86 simprr 771 . . . . . . . . . 10 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → 𝑝𝑁)
8772, 73, 80, 85, 86bposlem2 27311 . . . . . . . . 9 (((𝜑𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝𝑝𝑁)) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
8887expr 455 . . . . . . . 8 (((𝜑𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝𝑁 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
89 rspe 3237 . . . . . . . . . . . . . 14 ((𝑝 ∈ ℙ ∧ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁)))
9089adantll 712 . . . . . . . . . . . . 13 (((𝜑𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁)))
91 bpos.2 . . . . . . . . . . . . . 14 (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁)))
9291ad2antrr 724 . . . . . . . . . . . . 13 (((𝜑𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁))) → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁)))
9390, 92pm2.21dd 194 . . . . . . . . . . . 12 (((𝜑𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁))) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
9493expr 455 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
9510nnzd 12631 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℤ)
967faccld 14296 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (!‘𝑁) ∈ ℕ)
9796, 96nnmulcld 12311 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℕ)
9897nnzd 12631 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℤ)
99 dvdsmul1 16275 . . . . . . . . . . . . . . . . . . 19 ((((2 · 𝑁)C𝑁) ∈ ℤ ∧ ((!‘𝑁) · (!‘𝑁)) ∈ ℤ) → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
10095, 98, 99syl2anc 582 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
101 bcctr 27301 . . . . . . . . . . . . . . . . . . . . 21 (𝑁 ∈ ℕ0 → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
1027, 101syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
103102oveq1d 7431 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))))
10418nnnn0d 12578 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑 → (2 · 𝑁) ∈ ℕ0)
105104faccld 14296 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (!‘(2 · 𝑁)) ∈ ℕ)
106105nncnd 12274 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (!‘(2 · 𝑁)) ∈ ℂ)
10797nncnd 12274 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℂ)
10897nnne0d 12308 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((!‘𝑁) · (!‘𝑁)) ≠ 0)
109106, 107, 108divcan1d 12036 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
110103, 109eqtrd 2766 . . . . . . . . . . . . . . . . . 18 (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
111100, 110breqtrd 5171 . . . . . . . . . . . . . . . . 17 (𝜑 → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
112111adantr 479 . . . . . . . . . . . . . . . 16 ((𝜑𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
11367adantl 480 . . . . . . . . . . . . . . . . 17 ((𝜑𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
11495adantr 479 . . . . . . . . . . . . . . . . 17 ((𝜑𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℤ)
115105nnzd 12631 . . . . . . . . . . . . . . . . . 18 (𝜑 → (!‘(2 · 𝑁)) ∈ ℤ)
116115adantr 479 . . . . . . . . . . . . . . . . 17 ((𝜑𝑝 ∈ ℙ) → (!‘(2 · 𝑁)) ∈ ℤ)
117 dvdstr 16291 . . . . . . . . . . . . . . . . 17 ((𝑝 ∈ ℤ ∧ ((2 · 𝑁)C𝑁) ∈ ℤ ∧ (!‘(2 · 𝑁)) ∈ ℤ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
118113, 114, 116, 117syl3anc 1368 . . . . . . . . . . . . . . . 16 ((𝜑𝑝 ∈ ℙ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
119112, 118mpan2d 692 . . . . . . . . . . . . . . 15 ((𝜑𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ∥ (!‘(2 · 𝑁))))
120 prmfac1 16717 . . . . . . . . . . . . . . . . 17 (((2 · 𝑁) ∈ ℕ0𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘(2 · 𝑁))) → 𝑝 ≤ (2 · 𝑁))
1211203expia 1118 . . . . . . . . . . . . . . . 16 (((2 · 𝑁) ∈ ℕ0𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
122104, 121sylan 578 . . . . . . . . . . . . . . 15 ((𝜑𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
123119, 122syld 47 . . . . . . . . . . . . . 14 ((𝜑𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ≤ (2 · 𝑁)))
124123con3d 152 . . . . . . . . . . . . 13 ((𝜑𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
125 id 22 . . . . . . . . . . . . . 14 (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
126 pceq0 16868 . . . . . . . . . . . . . 14 ((𝑝 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
127125, 10, 126syl2anr 595 . . . . . . . . . . . . 13 ((𝜑𝑝 ∈ ℙ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
128124, 127sylibrd 258 . . . . . . . . . . . 12 ((𝜑𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
129128adantr 479 . . . . . . . . . . 11 (((𝜑𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
13094, 129pm2.61d 179 . . . . . . . . . 10 (((𝜑𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
131130ex 411 . . . . . . . . 9 ((𝜑𝑝 ∈ ℙ) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
132131adantr 479 . . . . . . . 8 (((𝜑𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
133 lelttric 11362 . . . . . . . . . 10 ((𝑝 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑝𝑁𝑁 < 𝑝))
13468, 29, 133syl2anr 595 . . . . . . . . 9 ((𝜑𝑝 ∈ ℙ) → (𝑝𝑁𝑁 < 𝑝))
135134adantr 479 . . . . . . . 8 (((𝜑𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝𝑁𝑁 < 𝑝))
13688, 132, 135mpjaod 858 . . . . . . 7 (((𝜑𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
13771, 136syldan 589 . . . . . 6 (((𝜑𝑝 ∈ ℙ) ∧ ¬ 𝑝𝐾) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
13865, 137eqtr4d 2769 . . . . 5 (((𝜑𝑝 ∈ ℙ) ∧ ¬ 𝑝𝐾) → if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
13963, 138pm2.61dan 811 . . . 4 ((𝜑𝑝 ∈ ℙ) → if(𝑝𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
14061, 139eqtrd 2766 . . 3 ((𝜑𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
141140ralrimiva 3136 . 2 (𝜑 → ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
1421, 13pcmptcl 16888 . . . . . 6 (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
143142simprd 494 . . . . 5 (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
144143, 57ffvelcdmd 7091 . . . 4 (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ)
145144nnnn0d 12578 . . 3 (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ0)
14610nnnn0d 12578 . . 3 (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ0)
147 pc11 16877 . . 3 (((seq1( · , 𝐹)‘𝐾) ∈ ℕ0 ∧ ((2 · 𝑁)C𝑁) ∈ ℕ0) → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
148145, 146, 147syl2anc 582 . 2 (𝜑 → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
149141, 148mpbird 256 1 (𝜑 → (seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 394  wo 845   = wceq 1534  wcel 2099  wral 3051  wrex 3060  ifcif 4523   class class class wbr 5145  cmpt 5228  wf 6542  cfv 6546  (class class class)co 7416  cr 11148  0cc0 11149  1c1 11150   · cmul 11154   < clt 11289  cle 11290   / cdiv 11912  cn 12258  2c2 12313  3c3 12314  5c5 12316  0cn0 12518  cz 12604  cuz 12868  ...cfz 13532  cfl 13804  seqcseq 14015  cexp 14075  !cfa 14285  Ccbc 14314  cdvds 16251  cprime 16667   pCnt cpc 16833
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-rep 5282  ax-sep 5296  ax-nul 5303  ax-pow 5361  ax-pr 5425  ax-un 7738  ax-inf2 9677  ax-cnex 11205  ax-resscn 11206  ax-1cn 11207  ax-icn 11208  ax-addcl 11209  ax-addrcl 11210  ax-mulcl 11211  ax-mulrcl 11212  ax-mulcom 11213  ax-addass 11214  ax-mulass 11215  ax-distr 11216  ax-i2m1 11217  ax-1ne0 11218  ax-1rid 11219  ax-rnegex 11220  ax-rrecex 11221  ax-cnre 11222  ax-pre-lttri 11223  ax-pre-lttrn 11224  ax-pre-ltadd 11225  ax-pre-mulgt0 11226  ax-pre-sup 11227
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3464  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3966  df-nul 4323  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4906  df-int 4947  df-iun 4995  df-br 5146  df-opab 5208  df-mpt 5229  df-tr 5263  df-id 5572  df-eprel 5578  df-po 5586  df-so 5587  df-fr 5629  df-se 5630  df-we 5631  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-pred 6304  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6498  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-isom 6555  df-riota 7372  df-ov 7419  df-oprab 7420  df-mpo 7421  df-om 7869  df-1st 7995  df-2nd 7996  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-1o 8488  df-2o 8489  df-er 8726  df-en 8967  df-dom 8968  df-sdom 8969  df-fin 8970  df-sup 9478  df-inf 9479  df-oi 9546  df-card 9975  df-pnf 11291  df-mnf 11292  df-xr 11293  df-ltxr 11294  df-le 11295  df-sub 11487  df-neg 11488  df-div 11913  df-nn 12259  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-n0 12519  df-z 12605  df-uz 12869  df-q 12979  df-rp 13023  df-fz 13533  df-fzo 13676  df-fl 13806  df-mod 13884  df-seq 14016  df-exp 14076  df-fac 14286  df-bc 14315  df-hash 14343  df-cj 15099  df-re 15100  df-im 15101  df-sqrt 15235  df-abs 15236  df-clim 15485  df-sum 15686  df-dvds 16252  df-gcd 16490  df-prm 16668  df-pc 16834
This theorem is referenced by:  bposlem6  27315
  Copyright terms: Public domain W3C validator