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 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**
Step	Hyp	Ref	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)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 585	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 12578	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 13661	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 14335	. . . . . . . . . 10 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11	10	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℕ)
12	2, 11	pccld 16847	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
13	12	ralrimiva 3136	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
14	13	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
15		bpos.4	. . . . . . . . 9 ⊢ 𝐾 = (⌊‘((2 · 𝑁) / 3))
16		2nn 12331	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
17		nnmulcl 12282	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
18	16, 6, 17	sylancr 585	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
19	18	nnred 12273	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
20		3nn 12337	. . . . . . . . . . 11 ⊢ 3 ∈ ℕ
21		nndivre 12299	. . . . . . . . . . 11 ⊢ (((2 · 𝑁) ∈ ℝ ∧ 3 ∈ ℕ) → ((2 · 𝑁) / 3) ∈ ℝ)
22	19, 20, 21	sylancl 584	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝑁) / 3) ∈ ℝ)
23	22	flcld 13812	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((2 · 𝑁) / 3)) ∈ ℤ)
24	15, 23	eqeltrid 2830	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℤ)
25		3re 12338	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℝ
26	25	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ∈ ℝ)
27		5re 12345	. . . . . . . . . . . . . 14 ⊢ 5 ∈ ℝ
28	27	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ∈ ℝ)
29	6	nnred 12273	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℝ)
30		3lt5 12436	. . . . . . . . . . . . . . 15 ⊢ 3 < 5
31	25, 27, 30	ltleii 11378	. . . . . . . . . . . . . 14 ⊢ 3 ≤ 5
32	31	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ≤ 5)
33		eluzle 12881	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
34	4, 33	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
35	26, 28, 29, 32, 34	letrd 11412	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ≤ 𝑁)
36		2re 12332	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℝ
37		2pos 12361	. . . . . . . . . . . . . . 15 ⊢ 0 < 2
38	36, 37	pm3.2i 469	. . . . . . . . . . . . . 14 ⊢ (2 ∈ ℝ ∧ 0 < 2)
39		lemul2 12112	. . . . . . . . . . . . . 14 ⊢ ((3 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
40	25, 38, 39	mp3an13 1449	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
41	29, 40	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
42	35, 41	mpbid 231	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 3) ≤ (2 · 𝑁))
43		3pos 12363	. . . . . . . . . . . . . 14 ⊢ 0 < 3
44	25, 43	pm3.2i 469	. . . . . . . . . . . . 13 ⊢ (3 ∈ ℝ ∧ 0 < 3)
45		lemuldiv 12140	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
46	36, 44, 45	mp3an13 1449	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℝ → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
47	19, 46	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
48	42, 47	mpbid 231	. . . . . . . . . 10 ⊢ (𝜑 → 2 ≤ ((2 · 𝑁) / 3))
49		2z 12640	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
50		flge 13819	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 2 ∈ ℤ) → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
51	22, 49, 50	sylancl 584	. . . . . . . . . 10 ⊢ (𝜑 → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
52	48, 51	mpbid 231	. . . . . . . . 9 ⊢ (𝜑 → 2 ≤ (⌊‘((2 · 𝑁) / 3)))
53	52, 15	breqtrrdi 5187	. . . . . . . 8 ⊢ (𝜑 → 2 ≤ 𝐾)
54	49	eluz1i 12876	. . . . . . . 8 ⊢ (𝐾 ∈ (ℤ_≥‘2) ↔ (𝐾 ∈ ℤ ∧ 2 ≤ 𝐾))
55	24, 53, 54	sylanbrc 581	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
56		eluz2nn 12914	. . . . . . 7 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
57	55, 56	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ ℕ)
58	57	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝐾 ∈ ℕ)
59		simpr 483	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
60		oveq1 7423	. . . . 5 ⊢ (𝑛 = 𝑝 → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
61	1, 14, 58, 59, 60	pcmpt 16889	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0))
62		iftrue 4529	. . . . . 6 ⊢ (𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
63	62	adantl 480	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
64		iffalse 4532	. . . . . . 7 ⊢ (¬ 𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
65	64	adantl 480	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
66	24	zred 12712	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ ℝ)
67		prmz 16671	. . . . . . . . . 10 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
68	67	zred 12712	. . . . . . . . 9 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℝ)
69		ltnle 11334	. . . . . . . . 9 ⊢ ((𝐾 ∈ ℝ ∧ 𝑝 ∈ ℝ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
70	66, 68, 69	syl2an 594	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
71	70	biimpar 476	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → 𝐾 < 𝑝)
72	6	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑁 ∈ ℕ)
73		simplr 767	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℙ)
74	36	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ∈ ℝ)
75	66	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 ∈ ℝ)
76	67	ad2antlr 725	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℤ)
77	76	zred 12712	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℝ)
78	53	ad2antrr 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ≤ 𝐾)
79		simprl 769	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 < 𝑝)
80	74, 75, 77, 78, 79	lelttrd 11413	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 < 𝑝)
81	15, 79	eqbrtrrid 5181	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (⌊‘((2 · 𝑁) / 3)) < 𝑝)
82	22	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) ∈ ℝ)
83		fllt 13820	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 𝑝 ∈ ℤ) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
84	82, 76, 83	syl2anc 582	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
85	81, 84	mpbird 256	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) < 𝑝)
86		simprr 771	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ≤ 𝑁)
87	72, 73, 80, 85, 86	bposlem2 27311	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
88	87	expr 455	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
89		rspe 3237	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
90	89	adantll 712	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
91		bpos.2	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
92	91	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
93	90, 92	pm2.21dd 194	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
94	93	expr 455	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
95	10	nnzd 12631	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℤ)
96	7	faccld 14296	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘𝑁) ∈ ℕ)
97	96, 96	nnmulcld 12311	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℕ)
98	97	nnzd 12631	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℤ)
99		dvdsmul1 16275	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((2 · 𝑁)C𝑁) ∈ ℤ ∧ ((!‘𝑁) · (!‘𝑁)) ∈ ℤ) → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
100	95, 98, 99	syl2anc 582	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
101		bcctr 27301	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ₀ → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
102	7, 101	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
103	102	oveq1d 7431	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))))
104	18	nnnn0d 12578	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ₀)
105	104	faccld 14296	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℕ)
106	105	nncnd 12274	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℂ)
107	97	nncnd 12274	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℂ)
108	97	nnne0d 12308	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ≠ 0)
109	106, 107, 108	divcan1d 12036	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
110	103, 109	eqtrd 2766	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
111	100, 110	breqtrd 5171	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
112	111	adantr 479	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
113	67	adantl 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
114	95	adantr 479	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℤ)
115	105	nnzd 12631	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℤ)
116	115	adantr 479	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (!‘(2 · 𝑁)) ∈ ℤ)
117		dvdstr 16291	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑝 ∈ ℤ ∧ ((2 · 𝑁)C𝑁) ∈ ℤ ∧ (!‘(2 · 𝑁)) ∈ ℤ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
118	113, 114, 116, 117	syl3anc 1368	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
119	112, 118	mpan2d 692	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ∥ (!‘(2 · 𝑁))))
120		prmfac1 16717	. . . . . . . . . . . . . . . . 17 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘(2 · 𝑁))) → 𝑝 ≤ (2 · 𝑁))
121	120	3expia 1118	. . . . . . . . . . . . . . . 16 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
122	104, 121	sylan 578	. . . . . . . . . . . . . . 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 16868	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
127	125, 10, 126	syl2anr 595	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
128	124, 127	sylibrd 258	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
129	128	adantr 479	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
130	94, 129	pm2.61d 179	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
131	130	ex 411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
132	131	adantr 479	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
133		lelttric 11362	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
134	68, 29, 133	syl2anr 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
135	134	adantr 479	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
136	88, 132, 135	mpjaod 858	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
137	71, 136	syldan 589	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
138	65, 137	eqtr4d 2769	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
139	63, 138	pm2.61dan 811	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
140	61, 139	eqtrd 2766	. . 3 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
141	140	ralrimiva 3136	. 2 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
142	1, 13	pcmptcl 16888	. . . . . 6 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
143	142	simprd 494	. . . . 5 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
144	143, 57	ffvelcdmd 7091	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ)
145	144	nnnn0d 12578	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ₀)
146	10	nnnn0d 12578	. . 3 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ₀)
147		pc11 16877	. . 3 ⊢ (((seq1( · , 𝐹)‘𝐾) ∈ ℕ₀ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ₀) → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
148	145, 146, 147	syl2anc 582	. 2 ⊢ (𝜑 → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
149	141, 148	mpbird 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 ℕ₀cn0 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

W3C validator