bposlem3 - Metamath Proof Explorer

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

Theorem bposlem3 27230

Description: Lemma for bpos 27237. Since the binomial coefficient does not have any primes in the range (2𝑁 / 3, 𝑁] or (2𝑁, +∞) by bposlem2 27229 and prmfac1 16666, 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**
Step	Hyp	Ref	Expression
1		bpos.3	. . . . 5 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
2		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → 𝑛 ∈ ℙ)
3		5nn 12248	. . . . . . . . . . . 12 ⊢ 5 ∈ ℕ
4		bpos.1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
5		eluznn 12853	. . . . . . . . . . . 12 ⊢ ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘5)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 12479	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 13577	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 14264	. . . . . . . . . 10 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11	10	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℕ)
12	2, 11	pccld 16797	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
13	12	ralrimiva 3125	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
14	13	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
15		bpos.4	. . . . . . . . 9 ⊢ 𝐾 = (⌊‘((2 · 𝑁) / 3))
16		2nn 12235	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
17		nnmulcl 12186	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
18	16, 6, 17	sylancr 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
19	18	nnred 12177	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
20		3nn 12241	. . . . . . . . . . 11 ⊢ 3 ∈ ℕ
21		nndivre 12203	. . . . . . . . . . 11 ⊢ (((2 · 𝑁) ∈ ℝ ∧ 3 ∈ ℕ) → ((2 · 𝑁) / 3) ∈ ℝ)
22	19, 20, 21	sylancl 586	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝑁) / 3) ∈ ℝ)
23	22	flcld 13736	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((2 · 𝑁) / 3)) ∈ ℤ)
24	15, 23	eqeltrid 2832	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℤ)
25		3re 12242	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℝ
26	25	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ∈ ℝ)
27		5re 12249	. . . . . . . . . . . . . 14 ⊢ 5 ∈ ℝ
28	27	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ∈ ℝ)
29	6	nnred 12177	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℝ)
30		3lt5 12335	. . . . . . . . . . . . . . 15 ⊢ 3 < 5
31	25, 27, 30	ltleii 11273	. . . . . . . . . . . . . 14 ⊢ 3 ≤ 5
32	31	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ≤ 5)
33		eluzle 12782	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
34	4, 33	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
35	26, 28, 29, 32, 34	letrd 11307	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ≤ 𝑁)
36		2re 12236	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℝ
37		2pos 12265	. . . . . . . . . . . . . . 15 ⊢ 0 < 2
38	36, 37	pm3.2i 470	. . . . . . . . . . . . . 14 ⊢ (2 ∈ ℝ ∧ 0 < 2)
39		lemul2 12011	. . . . . . . . . . . . . 14 ⊢ ((3 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
40	25, 38, 39	mp3an13 1454	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
41	29, 40	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
42	35, 41	mpbid 232	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 3) ≤ (2 · 𝑁))
43		3pos 12267	. . . . . . . . . . . . . 14 ⊢ 0 < 3
44	25, 43	pm3.2i 470	. . . . . . . . . . . . 13 ⊢ (3 ∈ ℝ ∧ 0 < 3)
45		lemuldiv 12039	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
46	36, 44, 45	mp3an13 1454	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℝ → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
47	19, 46	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
48	42, 47	mpbid 232	. . . . . . . . . 10 ⊢ (𝜑 → 2 ≤ ((2 · 𝑁) / 3))
49		2z 12541	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
50		flge 13743	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 2 ∈ ℤ) → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
51	22, 49, 50	sylancl 586	. . . . . . . . . 10 ⊢ (𝜑 → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
52	48, 51	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → 2 ≤ (⌊‘((2 · 𝑁) / 3)))
53	52, 15	breqtrrdi 5144	. . . . . . . 8 ⊢ (𝜑 → 2 ≤ 𝐾)
54	49	eluz1i 12777	. . . . . . . 8 ⊢ (𝐾 ∈ (ℤ_≥‘2) ↔ (𝐾 ∈ ℤ ∧ 2 ≤ 𝐾))
55	24, 53, 54	sylanbrc 583	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
56		eluz2nn 12823	. . . . . . 7 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
57	55, 56	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ ℕ)
58	57	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝐾 ∈ ℕ)
59		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
60		oveq1 7376	. . . . 5 ⊢ (𝑛 = 𝑝 → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
61	1, 14, 58, 59, 60	pcmpt 16839	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0))
62		iftrue 4490	. . . . . 6 ⊢ (𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
63	62	adantl 481	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
64		iffalse 4493	. . . . . . 7 ⊢ (¬ 𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
65	64	adantl 481	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
66	24	zred 12614	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ ℝ)
67		prmz 16621	. . . . . . . . . 10 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
68	67	zred 12614	. . . . . . . . 9 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℝ)
69		ltnle 11229	. . . . . . . . 9 ⊢ ((𝐾 ∈ ℝ ∧ 𝑝 ∈ ℝ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
70	66, 68, 69	syl2an 596	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
71	70	biimpar 477	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → 𝐾 < 𝑝)
72	6	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑁 ∈ ℕ)
73		simplr 768	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℙ)
74	36	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ∈ ℝ)
75	66	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 ∈ ℝ)
76	67	ad2antlr 727	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℤ)
77	76	zred 12614	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℝ)
78	53	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ≤ 𝐾)
79		simprl 770	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 < 𝑝)
80	74, 75, 77, 78, 79	lelttrd 11308	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 < 𝑝)
81	15, 79	eqbrtrrid 5138	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (⌊‘((2 · 𝑁) / 3)) < 𝑝)
82	22	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) ∈ ℝ)
83		fllt 13744	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 𝑝 ∈ ℤ) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
84	82, 76, 83	syl2anc 584	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
85	81, 84	mpbird 257	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) < 𝑝)
86		simprr 772	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ≤ 𝑁)
87	72, 73, 80, 85, 86	bposlem2 27229	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
88	87	expr 456	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
89		rspe 3225	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
90	89	adantll 714	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
91		bpos.2	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
92	91	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
93	90, 92	pm2.21dd 195	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
94	93	expr 456	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
95	10	nnzd 12532	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℤ)
96	7	faccld 14225	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘𝑁) ∈ ℕ)
97	96, 96	nnmulcld 12215	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℕ)
98	97	nnzd 12532	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℤ)
99		dvdsmul1 16223	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((2 · 𝑁)C𝑁) ∈ ℤ ∧ ((!‘𝑁) · (!‘𝑁)) ∈ ℤ) → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
100	95, 98, 99	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
101		bcctr 27219	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ₀ → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
102	7, 101	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
103	102	oveq1d 7384	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))))
104	18	nnnn0d 12479	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ₀)
105	104	faccld 14225	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℕ)
106	105	nncnd 12178	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℂ)
107	97	nncnd 12178	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℂ)
108	97	nnne0d 12212	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ≠ 0)
109	106, 107, 108	divcan1d 11935	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
110	103, 109	eqtrd 2764	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
111	100, 110	breqtrd 5128	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
112	111	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
113	67	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
114	95	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℤ)
115	105	nnzd 12532	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℤ)
116	115	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (!‘(2 · 𝑁)) ∈ ℤ)
117		dvdstr 16240	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑝 ∈ ℤ ∧ ((2 · 𝑁)C𝑁) ∈ ℤ ∧ (!‘(2 · 𝑁)) ∈ ℤ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
118	113, 114, 116, 117	syl3anc 1373	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
119	112, 118	mpan2d 694	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ∥ (!‘(2 · 𝑁))))
120		prmfac1 16666	. . . . . . . . . . . . . . . . 17 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘(2 · 𝑁))) → 𝑝 ≤ (2 · 𝑁))
121	120	3expia 1121	. . . . . . . . . . . . . . . 16 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
122	104, 121	sylan 580	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
123	119, 122	syld 47	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ≤ (2 · 𝑁)))
124	123	con3d 152	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
125		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
126		pceq0 16818	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
127	125, 10, 126	syl2anr 597	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
128	124, 127	sylibrd 259	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
129	128	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
130	94, 129	pm2.61d 179	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
131	130	ex 412	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
132	131	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
133		lelttric 11257	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
134	68, 29, 133	syl2anr 597	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
135	134	adantr 480	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
136	88, 132, 135	mpjaod 860	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
137	71, 136	syldan 591	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
138	65, 137	eqtr4d 2767	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
139	63, 138	pm2.61dan 812	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
140	61, 139	eqtrd 2764	. . 3 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
141	140	ralrimiva 3125	. 2 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
142	1, 13	pcmptcl 16838	. . . . . 6 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
143	142	simprd 495	. . . . 5 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
144	143, 57	ffvelcdmd 7039	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ)
145	144	nnnn0d 12479	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ₀)
146	10	nnnn0d 12479	. . 3 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ₀)
147		pc11 16827	. . 3 ⊢ (((seq1( · , 𝐹)‘𝐾) ∈ ℕ₀ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ₀) → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
148	145, 146, 147	syl2anc 584	. 2 ⊢ (𝜑 → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
149	141, 148	mpbird 257	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 = wceq 1540 ∈ wcel 2109 ∀wral 3044 ∃wrex 3053 ifcif 4484 class class class wbr 5102 ↦ cmpt 5183 ⟶wf 6495 ‘cfv 6499 (class class class)co 7369 ℝcr 11043 0cc0 11044 1c1 11045 · cmul 11049 < clt 11184 ≤ cle 11185 / cdiv 11811 ℕcn 12162 2c2 12217 3c3 12218 5c5 12220 ℕ₀cn0 12418 ℤcz 12505 ℤ_≥cuz 12769 ...cfz 13444 ⌊cfl 13728 seqcseq 13942 ↑cexp 14002 !cfa 14214 Ccbc 14243 ∥ cdvds 16198 ℙcprime 16617 pCnt cpc 16783

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5229 ax-sep 5246 ax-nul 5256 ax-pow 5315 ax-pr 5382 ax-un 7691 ax-inf2 9570 ax-cnex 11100 ax-resscn 11101 ax-1cn 11102 ax-icn 11103 ax-addcl 11104 ax-addrcl 11105 ax-mulcl 11106 ax-mulrcl 11107 ax-mulcom 11108 ax-addass 11109 ax-mulass 11110 ax-distr 11111 ax-i2m1 11112 ax-1ne0 11113 ax-1rid 11114 ax-rnegex 11115 ax-rrecex 11116 ax-cnre 11117 ax-pre-lttri 11118 ax-pre-lttrn 11119 ax-pre-ltadd 11120 ax-pre-mulgt0 11121 ax-pre-sup 11122

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3351 df-reu 3352 df-rab 3403 df-v 3446 df-sbc 3751 df-csb 3860 df-dif 3914 df-un 3916 df-in 3918 df-ss 3928 df-pss 3931 df-nul 4293 df-if 4485 df-pw 4561 df-sn 4586 df-pr 4588 df-op 4592 df-uni 4868 df-int 4907 df-iun 4953 df-br 5103 df-opab 5165 df-mpt 5184 df-tr 5210 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-se 5585 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6262 df-ord 6323 df-on 6324 df-lim 6325 df-suc 6326 df-iota 6452 df-fun 6501 df-fn 6502 df-f 6503 df-f1 6504 df-fo 6505 df-f1o 6506 df-fv 6507 df-isom 6508 df-riota 7326 df-ov 7372 df-oprab 7373 df-mpo 7374 df-om 7823 df-1st 7947 df-2nd 7948 df-frecs 8237 df-wrecs 8268 df-recs 8317 df-rdg 8355 df-1o 8411 df-2o 8412 df-er 8648 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-sup 9369 df-inf 9370 df-oi 9439 df-card 9868 df-pnf 11186 df-mnf 11187 df-xr 11188 df-ltxr 11189 df-le 11190 df-sub 11383 df-neg 11384 df-div 11812 df-nn 12163 df-2 12225 df-3 12226 df-4 12227 df-5 12228 df-n0 12419 df-z 12506 df-uz 12770 df-q 12884 df-rp 12928 df-fz 13445 df-fzo 13592 df-fl 13730 df-mod 13808 df-seq 13943 df-exp 14003 df-fac 14215 df-bc 14244 df-hash 14272 df-cj 15041 df-re 15042 df-im 15043 df-sqrt 15177 df-abs 15178 df-clim 15430 df-sum 15629 df-dvds 16199 df-gcd 16441 df-prm 16618 df-pc 16784

This theorem is referenced by: bposlem6 27233

W3C validator