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 27628

Description: Lemma for bpos 27635. Since the binomial coefficient does not have any primes in the range (2𝑁 / 3, 𝑁] or (2𝑁, +∞) by bposlem2 27627 and prmfac1 16911, 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 490	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → 𝑛 ∈ ℙ)
3		5nn 12442	. . . . . . . . . . . 12 ⊢ 5 ∈ ℕ
4		bpos.1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
5		eluznn 13058	. . . . . . . . . . . 12 ⊢ ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘5)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 599	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 12680	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 13787	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 14480	. . . . . . . . . 10 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 19	. . . . . . . . 9 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11	10	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℕ)
12	2, 11	pccld 17043	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
13	12	ralrimiva 3158	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
14	13	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
15		bpos.4	. . . . . . . . 9 ⊢ 𝐾 = (⌊‘((2 · 𝑁) / 3))
16		2nn 12429	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
17		nnmulcl 12372	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
18	16, 6, 17	sylancr 599	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
19	18	nnred 12363	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
20		3nn 12435	. . . . . . . . . . 11 ⊢ 3 ∈ ℕ
21		nndivre 12392	. . . . . . . . . . 11 ⊢ (((2 · 𝑁) ∈ ℝ ∧ 3 ∈ ℕ) → ((2 · 𝑁) / 3) ∈ ℝ)
22	19, 20, 21	sylancl 598	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝑁) / 3) ∈ ℝ)
23	22	flcld 13951	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((2 · 𝑁) / 3)) ∈ ℤ)
24	15, 23	eqeltrid 2868	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℤ)
25		3re 12436	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℝ
26	25	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ∈ ℝ)
27		5re 12443	. . . . . . . . . . . . . 14 ⊢ 5 ∈ ℝ
28	27	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ∈ ℝ)
29	6	nnred 12363	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℝ)
30		3lt5 12536	. . . . . . . . . . . . . . 15 ⊢ 3 < 5
31	25, 27, 30	ltleii 11446	. . . . . . . . . . . . . 14 ⊢ 3 ≤ 5
32	31	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ≤ 5)
33		eluzle 12991	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
34	4, 33	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
35	26, 28, 29, 32, 34	letrd 11480	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ≤ 𝑁)
36		2re 12430	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℝ
37		2pos 12460	. . . . . . . . . . . . . . 15 ⊢ 0 < 2
38	36, 37	pm3.2i 476	. . . . . . . . . . . . . 14 ⊢ (2 ∈ ℝ ∧ 0 < 2)
39		lemul2 12183	. . . . . . . . . . . . . 14 ⊢ ((3 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
40	25, 38, 39	mp3an13 1481	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
41	29, 40	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
42	35, 41	mpbid 235	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 3) ≤ (2 · 𝑁))
43		3pos 12464	. . . . . . . . . . . . . 14 ⊢ 0 < 3
44	25, 43	pm3.2i 476	. . . . . . . . . . . . 13 ⊢ (3 ∈ ℝ ∧ 0 < 3)
45		lemuldiv 12210	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
46	36, 44, 45	mp3an13 1481	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℝ → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
47	19, 46	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
48	42, 47	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → 2 ≤ ((2 · 𝑁) / 3))
49		2z 12741	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
50		flge 13958	. . . . . . . . . . 11 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 2 ∈ ℤ) → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
51	22, 49, 50	sylancl 598	. . . . . . . . . 10 ⊢ (𝜑 → (2 ≤ ((2 · 𝑁) / 3) ↔ 2 ≤ (⌊‘((2 · 𝑁) / 3))))
52	48, 51	mpbid 235	. . . . . . . . 9 ⊢ (𝜑 → 2 ≤ (⌊‘((2 · 𝑁) / 3)))
53	52, 15	breqtrrdi 5150	. . . . . . . 8 ⊢ (𝜑 → 2 ≤ 𝐾)
54	49	eluz1i 12986	. . . . . . . 8 ⊢ (𝐾 ∈ (ℤ_≥‘2) ↔ (𝐾 ∈ ℤ ∧ 2 ≤ 𝐾))
55	24, 53, 54	sylanbrc 595	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
56		eluz2nn 13028	. . . . . . 7 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
57	55, 56	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ ℕ)
58	57	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝐾 ∈ ℕ)
59		simpr 490	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
60		oveq1 7437	. . . . 5 ⊢ (𝑛 = 𝑝 → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
61	1, 14, 58, 59, 60	pcmpt 17085	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0))
62		iftrue 4491	. . . . . 6 ⊢ (𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
63	62	adantl 487	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
64		iffalse 4494	. . . . . . 7 ⊢ (¬ 𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
65	64	adantl 487	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
66	24	zred 12816	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ ℝ)
67		prmz 16865	. . . . . . . . . 10 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
68	67	zred 12816	. . . . . . . . 9 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℝ)
69		ltnle 11402	. . . . . . . . 9 ⊢ ((𝐾 ∈ ℝ ∧ 𝑝 ∈ ℝ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
70	66, 68, 69	syl2an 608	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
71	70	biimpar 483	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → 𝐾 < 𝑝)
72	6	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑁 ∈ ℕ)
73		simplr 781	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℙ)
74	36	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ∈ ℝ)
75	66	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 ∈ ℝ)
76	67	ad2antlr 740	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℤ)
77	76	zred 12816	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℝ)
78	53	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ≤ 𝐾)
79		simprl 783	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 < 𝑝)
80	74, 75, 77, 78, 79	lelttrd 11481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 < 𝑝)
81	15, 79	eqbrtrrid 5144	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (⌊‘((2 · 𝑁) / 3)) < 𝑝)
82	22	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) ∈ ℝ)
83		fllt 13959	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 𝑝 ∈ ℤ) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
84	82, 76, 83	syl2anc 596	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
85	81, 84	mpbird 260	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) < 𝑝)
86		simprr 785	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ≤ 𝑁)
87	72, 73, 80, 85, 86	bposlem2 27627	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
88	87	expr 462	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
89		rspe 3256	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
90	89	adantll 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
91		bpos.2	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
92	91	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
93	90, 92	pm2.21dd 198	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
94	93	expr 462	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
95	10	nnzd 12732	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℤ)
96	7	faccld 14441	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘𝑁) ∈ ℕ)
97	96, 96	nnmulcld 12404	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℕ)
98	97	nnzd 12732	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℤ)
99		dvdsmul1 16462	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((2 · 𝑁)C𝑁) ∈ ℤ ∧ ((!‘𝑁) · (!‘𝑁)) ∈ ℤ) → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
100	95, 98, 99	syl2anc 596	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
101		bcctr 27617	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ₀ → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
102	7, 101	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
103	102	oveq1d 7445	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))))
104	18	nnnn0d 12680	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ₀)
105	104	faccld 14441	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℕ)
106	105	nncnd 12364	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℂ)
107	97	nncnd 12364	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℂ)
108	97	nnne0d 12401	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ≠ 0)
109	106, 107, 108	divcan1d 12107	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
110	103, 109	eqtrd 2798	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
111	100, 110	breqtrd 5134	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
112	111	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
113	67	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
114	95	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℤ)
115	105	nnzd 12732	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℤ)
116	115	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (!‘(2 · 𝑁)) ∈ ℤ)
117		dvdstr 16479	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑝 ∈ ℤ ∧ ((2 · 𝑁)C𝑁) ∈ ℤ ∧ (!‘(2 · 𝑁)) ∈ ℤ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
118	113, 114, 116, 117	syl3anc 1398	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
119	112, 118	mpan2d 707	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ∥ (!‘(2 · 𝑁))))
120		prmfac1 16911	. . . . . . . . . . . . . . . . 17 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘(2 · 𝑁))) → 𝑝 ≤ (2 · 𝑁))
121	120	3expia 1139	. . . . . . . . . . . . . . . 16 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
122	104, 121	sylan 592	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
123	119, 122	syld 48	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ≤ (2 · 𝑁)))
124	123	con3d 153	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
125		id 23	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
126		pceq0 17064	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
127	125, 10, 126	syl2anr 609	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
128	124, 127	sylibrd 262	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
129	128	adantr 486	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
130	94, 129	pm2.61d 181	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
131	130	ex 418	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
132	131	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
133		lelttric 11430	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
134	68, 29, 133	syl2anr 609	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
135	134	adantr 486	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
136	88, 132, 135	mpjaod 874	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
137	71, 136	syldan 603	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
138	65, 137	eqtr4d 2801	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
139	63, 138	pm2.61dan 825	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
140	61, 139	eqtrd 2798	. . 3 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
141	140	ralrimiva 3158	. 2 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
142	1, 13	pcmptcl 17084	. . . . . 6 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
143	142	simprd 501	. . . . 5 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
144	143, 57	ffvelcdmd 7096	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ)
145	144	nnnn0d 12680	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ₀)
146	10	nnnn0d 12680	. . 3 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ₀)
147		pc11 17073	. . 3 ⊢ (((seq1( · , 𝐹)‘𝐾) ∈ ℕ₀ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ₀) → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
148	145, 146, 147	syl2anc 596	. 2 ⊢ (𝜑 → ((seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁))))
149	141, 148	mpbird 260	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∨ wo 861 = wceq 1569 ∈ wcel 2146 ∀wral 3080 ∃wrex 3090 ifcif 4485 class class class wbr 5106 ↦ cmpt 5189 ⟶wf 6543 ‘cfv 6547 (class class class)co 7430 ℝcr 11212 0cc0 11213 1c1 11214 · cmul 11218 < clt 11356 ≤ cle 11357 / cdiv 11986 ℕcn 12348 2c2 12410 3c3 12411 5c5 12413 ℕ₀cn0 12619 ℤcz 12706 ℤ_≥cuz 12978 ...cfz 13652 ⌊cfl 13943 seqcseq 14157 ↑cexp 14217 !cfa 14430 Ccbc 14459 ∥ cdvds 16437 ℙcprime 16861 pCnt cpc 17029

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1944 ax-6 2001 ax-7 2042 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2196 ax-12 2215 ax-ext 2735 ax-rep 5235 ax-sep 5252 ax-nul 5263 ax-pow 5331 ax-pr 5395 ax-un 7761 ax-inf2 9655 ax-cnex 11269 ax-resscn 11270 ax-1cn 11271 ax-icn 11272 ax-addcl 11273 ax-addrcl 11274 ax-mulcl 11275 ax-mulrcl 11276 ax-mulcom 11277 ax-addass 11278 ax-mulass 11279 ax-distr 11280 ax-i2m1 11281 ax-1ne0 11282 ax-1rid 11283 ax-rnegex 11284 ax-rrecex 11285 ax-cnre 11286 ax-pre-lttri 11287 ax-pre-lttrn 11288 ax-pre-ltadd 11289 ax-pre-mulgt0 11290 ax-pre-sup 11291

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2101 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-op 4839 df-uni 4871 df-int 4911 df-iun 4956 df-br 5107 df-opab 5171 df-mpt 5190 df-tr 5216 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6311 df-ord 6372 df-on 6373 df-lim 6374 df-suc 6375 df-iota 6501 df-fun 6549 df-fn 6550 df-f 6551 df-f1 6552 df-fo 6553 df-f1o 6554 df-fv 6555 df-isom 6556 df-riota 7387 df-ov 7433 df-oprab 7434 df-mpo 7435 df-om 7888 df-1st 8011 df-2nd 8012 df-frecs 8313 df-wrecs 8344 df-recs 8393 df-rdg 8432 df-1o 8490 df-2o 8491 df-er 8731 df-en 8988 df-dom 8989 df-sdom 8990 df-fin 8991 df-sup 9447 df-inf 9448 df-oi 9517 df-card 10033 df-pnf 11358 df-mnf 11359 df-xr 11360 df-ltxr 11361 df-le 11362 df-sub 11556 df-neg 11557 df-div 11987 df-nn 12349 df-2 12418 df-3 12419 df-4 12420 df-5 12421 df-n0 12620 df-z 12707 df-uz 12979 df-q 13089 df-rp 13134 df-fz 13653 df-fzo 13802 df-fl 13945 df-mod 14023 df-seq 14158 df-exp 14218 df-fac 14431 df-bc 14460 df-hash 14488 df-cj 15281 df-re 15282 df-im 15283 df-sqrt 15417 df-abs 15418 df-clim 15670 df-sum 15869 df-dvds 16438 df-gcd 16680 df-prm 16862 df-pc 17030

This theorem is used by: bposlem6 27631

W3C validator