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 25548

Description: Lemma for bpos 25555. Since the binomial coefficient does not have any primes in the range (2𝑁 / 3, 𝑁] or (2𝑁, +∞) by bposlem2 25547 and prmfac1 15896, 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 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → 𝑛 ∈ ℙ)
3		5nn 11577	. . . . . . . . . . . 12 ⊢ 5 ∈ ℕ
4		bpos.1	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘5))
5		eluznn 12171	. . . . . . . . . . . 12 ⊢ ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘5)) → 𝑁 ∈ ℕ)
6	3, 4, 5	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℕ)
7	6	nnnn0d 11809	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
8		fzctr 12873	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ (0...(2 · 𝑁)))
9		bccl2 13537	. . . . . . . . . 10 ⊢ (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
10	7, 8, 9	3syl 18	. . . . . . . . 9 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11	10	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℕ)
12	2, 11	pccld 16020	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
13	12	ralrimiva 3151	. . . . . 6 ⊢ (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
14	13	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ₀)
15		bpos.4	. . . . . . . . 9 ⊢ 𝐾 = (⌊‘((2 · 𝑁) / 3))
16		2nn 11564	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
17		nnmulcl 11515	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
18	16, 6, 17	sylancr 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ)
19	18	nnred 11507	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝑁) ∈ ℝ)
20		3nn 11570	. . . . . . . . . . 11 ⊢ 3 ∈ ℕ
21		nndivre 11532	. . . . . . . . . . 11 ⊢ (((2 · 𝑁) ∈ ℝ ∧ 3 ∈ ℕ) → ((2 · 𝑁) / 3) ∈ ℝ)
22	19, 20, 21	sylancl 586	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝑁) / 3) ∈ ℝ)
23	22	flcld 13022	. . . . . . . . 9 ⊢ (𝜑 → (⌊‘((2 · 𝑁) / 3)) ∈ ℤ)
24	15, 23	syl5eqel 2889	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ ℤ)
25		3re 11571	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℝ
26	25	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ∈ ℝ)
27		5re 11578	. . . . . . . . . . . . . 14 ⊢ 5 ∈ ℝ
28	27	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ∈ ℝ)
29	6	nnred 11507	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℝ)
30		3lt5 11669	. . . . . . . . . . . . . . 15 ⊢ 3 < 5
31	25, 27, 30	ltleii 10616	. . . . . . . . . . . . . 14 ⊢ 3 ≤ 5
32	31	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 3 ≤ 5)
33		eluzle 12110	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘5) → 5 ≤ 𝑁)
34	4, 33	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 5 ≤ 𝑁)
35	26, 28, 29, 32, 34	letrd 10650	. . . . . . . . . . . 12 ⊢ (𝜑 → 3 ≤ 𝑁)
36		2re 11565	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℝ
37		2pos 11594	. . . . . . . . . . . . . . 15 ⊢ 0 < 2
38	36, 37	pm3.2i 471	. . . . . . . . . . . . . 14 ⊢ (2 ∈ ℝ ∧ 0 < 2)
39		lemul2 11347	. . . . . . . . . . . . . 14 ⊢ ((3 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
40	25, 38, 39	mp3an13 1444	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℝ → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
41	29, 40	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → (3 ≤ 𝑁 ↔ (2 · 3) ≤ (2 · 𝑁)))
42	35, 41	mpbid 233	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 3) ≤ (2 · 𝑁))
43		3pos 11596	. . . . . . . . . . . . . 14 ⊢ 0 < 3
44	25, 43	pm3.2i 471	. . . . . . . . . . . . 13 ⊢ (3 ∈ ℝ ∧ 0 < 3)
45		lemuldiv 11374	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
46	36, 44, 45	mp3an13 1444	. . . . . . . . . . . 12 ⊢ ((2 · 𝑁) ∈ ℝ → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
47	19, 46	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · 3) ≤ (2 · 𝑁) ↔ 2 ≤ ((2 · 𝑁) / 3)))
48	42, 47	mpbid 233	. . . . . . . . . 10 ⊢ (𝜑 → 2 ≤ ((2 · 𝑁) / 3))
49		2z 11868	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
50		flge 13029	. . . . . . . . . . 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 233	. . . . . . . . 9 ⊢ (𝜑 → 2 ≤ (⌊‘((2 · 𝑁) / 3)))
53	52, 15	syl6breqr 5010	. . . . . . . 8 ⊢ (𝜑 → 2 ≤ 𝐾)
54	49	eluz1i 12105	. . . . . . . 8 ⊢ (𝐾 ∈ (ℤ_≥‘2) ↔ (𝐾 ∈ ℤ ∧ 2 ≤ 𝐾))
55	24, 53, 54	sylanbrc 583	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (ℤ_≥‘2))
56		eluz2nn 12137	. . . . . . 7 ⊢ (𝐾 ∈ (ℤ_≥‘2) → 𝐾 ∈ ℕ)
57	55, 56	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ ℕ)
58	57	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝐾 ∈ ℕ)
59		simpr 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℙ)
60		oveq1 7030	. . . . 5 ⊢ (𝑛 = 𝑝 → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
61	1, 14, 58, 59, 60	pcmpt 16061	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0))
62		iftrue 4393	. . . . . 6 ⊢ (𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
63	62	adantl 482	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
64		iffalse 4396	. . . . . . 7 ⊢ (¬ 𝑝 ≤ 𝐾 → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
65	64	adantl 482	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = 0)
66	24	zred 11941	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ ℝ)
67		prmz 15852	. . . . . . . . . 10 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℤ)
68	67	zred 11941	. . . . . . . . 9 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℝ)
69		ltnle 10573	. . . . . . . . 9 ⊢ ((𝐾 ∈ ℝ ∧ 𝑝 ∈ ℝ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
70	66, 68, 69	syl2an 595	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝐾 < 𝑝 ↔ ¬ 𝑝 ≤ 𝐾))
71	70	biimpar 478	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → 𝐾 < 𝑝)
72	6	ad2antrr 722	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑁 ∈ ℕ)
73		simplr 765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℙ)
74	36	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ∈ ℝ)
75	66	ad2antrr 722	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 ∈ ℝ)
76	67	ad2antlr 723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℤ)
77	76	zred 11941	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ∈ ℝ)
78	53	ad2antrr 722	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 ≤ 𝐾)
79		simprl 767	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝐾 < 𝑝)
80	74, 75, 77, 78, 79	lelttrd 10651	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 2 < 𝑝)
81	15, 79	eqbrtrrid 5004	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (⌊‘((2 · 𝑁) / 3)) < 𝑝)
82	22	ad2antrr 722	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) ∈ ℝ)
83		fllt 13030	. . . . . . . . . . . 12 ⊢ ((((2 · 𝑁) / 3) ∈ ℝ ∧ 𝑝 ∈ ℤ) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
84	82, 76, 83	syl2anc 584	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (((2 · 𝑁) / 3) < 𝑝 ↔ (⌊‘((2 · 𝑁) / 3)) < 𝑝))
85	81, 84	mpbird 258	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → ((2 · 𝑁) / 3) < 𝑝)
86		simprr 769	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → 𝑝 ≤ 𝑁)
87	72, 73, 80, 85, 86	bposlem2 25547	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝐾 < 𝑝 ∧ 𝑝 ≤ 𝑁)) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
88	87	expr 457	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
89		rspe 3269	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
90	89	adantll 710	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
91		bpos.2	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
92	91	ad2antrr 722	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁)))
93	90, 92	pm2.21dd 196	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ (𝑁 < 𝑝 ∧ 𝑝 ≤ (2 · 𝑁))) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
94	93	expr 457	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
95	10	nnzd 11940	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℤ)
96	7	faccld 13498	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘𝑁) ∈ ℕ)
97	96, 96	nnmulcld 11544	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℕ)
98	97	nnzd 11940	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℤ)
99		dvdsmul1 15468	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((2 · 𝑁)C𝑁) ∈ ℤ ∧ ((!‘𝑁) · (!‘𝑁)) ∈ ℤ) → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
100	95, 98, 99	syl2anc 584	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))))
101		bcctr 25537	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑁 ∈ ℕ₀ → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
102	7, 101	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) = ((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))))
103	102	oveq1d 7038	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))))
104	18	nnnn0d 11809	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ₀)
105	104	faccld 13498	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℕ)
106	105	nncnd 11508	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℂ)
107	97	nncnd 11508	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ∈ ℂ)
108	97	nnne0d 11541	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((!‘𝑁) · (!‘𝑁)) ≠ 0)
109	106, 107, 108	divcan1d 11271	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((!‘(2 · 𝑁)) / ((!‘𝑁) · (!‘𝑁))) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
110	103, 109	eqtrd 2833	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2 · 𝑁)C𝑁) · ((!‘𝑁) · (!‘𝑁))) = (!‘(2 · 𝑁)))
111	100, 110	breqtrd 4994	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
112	111	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁)))
113	67	adantl 482	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑝 ∈ ℤ)
114	95	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((2 · 𝑁)C𝑁) ∈ ℤ)
115	105	nnzd 11940	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (!‘(2 · 𝑁)) ∈ ℤ)
116	115	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (!‘(2 · 𝑁)) ∈ ℤ)
117		dvdstr 15483	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑝 ∈ ℤ ∧ ((2 · 𝑁)C𝑁) ∈ ℤ ∧ (!‘(2 · 𝑁)) ∈ ℤ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
118	113, 114, 116, 117	syl3anc 1364	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 ∥ ((2 · 𝑁)C𝑁) ∧ ((2 · 𝑁)C𝑁) ∥ (!‘(2 · 𝑁))) → 𝑝 ∥ (!‘(2 · 𝑁))))
119	112, 118	mpan2d 690	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ∥ (!‘(2 · 𝑁))))
120		prmfac1 15896	. . . . . . . . . . . . . . . . 17 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ ∧ 𝑝 ∥ (!‘(2 · 𝑁))) → 𝑝 ≤ (2 · 𝑁))
121	120	3expia 1114	. . . . . . . . . . . . . . . 16 ⊢ (((2 · 𝑁) ∈ ℕ₀ ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
122	104, 121	sylan 580	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ (!‘(2 · 𝑁)) → 𝑝 ≤ (2 · 𝑁)))
123	119, 122	syld 47	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ∥ ((2 · 𝑁)C𝑁) → 𝑝 ≤ (2 · 𝑁)))
124	123	con3d 155	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
125		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ ℙ → 𝑝 ∈ ℙ)
126		pceq0 16040	. . . . . . . . . . . . . 14 ⊢ ((𝑝 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
127	125, 10, 126	syl2anr 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0 ↔ ¬ 𝑝 ∥ ((2 · 𝑁)C𝑁)))
128	124, 127	sylibrd 260	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
129	128	adantr 481	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (¬ 𝑝 ≤ (2 · 𝑁) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
130	94, 129	pm2.61d 180	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑁 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
131	130	ex 413	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
132	131	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑁 < 𝑝 → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0))
133		lelttric 10600	. . . . . . . . . 10 ⊢ ((𝑝 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
134	68, 29, 133	syl2anr 596	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
135	134	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 ≤ 𝑁 ∨ 𝑁 < 𝑝))
136	88, 132, 135	mpjaod 855	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝐾 < 𝑝) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
137	71, 136	syldan 591	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → (𝑝 pCnt ((2 · 𝑁)C𝑁)) = 0)
138	65, 137	eqtr4d 2836	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ ¬ 𝑝 ≤ 𝐾) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
139	63, 138	pm2.61dan 809	. . . 4 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → if(𝑝 ≤ 𝐾, (𝑝 pCnt ((2 · 𝑁)C𝑁)), 0) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
140	61, 139	eqtrd 2833	. . 3 ⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
141	140	ralrimiva 3151	. 2 ⊢ (𝜑 → ∀𝑝 ∈ ℙ (𝑝 pCnt (seq1( · , 𝐹)‘𝐾)) = (𝑝 pCnt ((2 · 𝑁)C𝑁)))
142	1, 13	pcmptcl 16060	. . . . . 6 ⊢ (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
143	142	simprd 496	. . . . 5 ⊢ (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
144	143, 57	ffvelrnd 6724	. . . 4 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ)
145	144	nnnn0d 11809	. . 3 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) ∈ ℕ₀)
146	10	nnnn0d 11809	. . 3 ⊢ (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ₀)
147		pc11 16049	. . 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 258	1 ⊢ (𝜑 → (seq1( · , 𝐹)‘𝐾) = ((2 · 𝑁)C𝑁))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 207 ∧ wa 396 ∨ wo 842 = wceq 1525 ∈ wcel 2083 ∀wral 3107 ∃wrex 3108 ifcif 4387 class class class wbr 4968 ↦ cmpt 5047 ⟶wf 6228 ‘cfv 6232 (class class class)co 7023 ℝcr 10389 0cc0 10390 1c1 10391 · cmul 10395 < clt 10528 ≤ cle 10529 / cdiv 11151 ℕcn 11492 2c2 11546 3c3 11547 5c5 11549 ℕ₀cn0 11751 ℤcz 11835 ℤ_≥cuz 12097 ...cfz 12746 ⌊cfl 13014 seqcseq 13223 ↑cexp 13283 !cfa 13487 Ccbc 13516 ∥ cdvds 15444 ℙcprime 15848 pCnt cpc 16006

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1781 ax-4 1795 ax-5 1892 ax-6 1951 ax-7 1996 ax-8 2085 ax-9 2093 ax-10 2114 ax-11 2128 ax-12 2143 ax-13 2346 ax-ext 2771 ax-rep 5088 ax-sep 5101 ax-nul 5108 ax-pow 5164 ax-pr 5228 ax-un 7326 ax-inf2 8957 ax-cnex 10446 ax-resscn 10447 ax-1cn 10448 ax-icn 10449 ax-addcl 10450 ax-addrcl 10451 ax-mulcl 10452 ax-mulrcl 10453 ax-mulcom 10454 ax-addass 10455 ax-mulass 10456 ax-distr 10457 ax-i2m1 10458 ax-1ne0 10459 ax-1rid 10460 ax-rnegex 10461 ax-rrecex 10462 ax-cnre 10463 ax-pre-lttri 10464 ax-pre-lttrn 10465 ax-pre-ltadd 10466 ax-pre-mulgt0 10467 ax-pre-sup 10468

This theorem depends on definitions: df-bi 208 df-an 397 df-or 843 df-3or 1081 df-3an 1082 df-tru 1528 df-fal 1538 df-ex 1766 df-nf 1770 df-sb 2045 df-mo 2578 df-eu 2614 df-clab 2778 df-cleq 2790 df-clel 2865 df-nfc 2937 df-ne 2987 df-nel 3093 df-ral 3112 df-rex 3113 df-reu 3114 df-rmo 3115 df-rab 3116 df-v 3442 df-sbc 3712 df-csb 3818 df-dif 3868 df-un 3870 df-in 3872 df-ss 3880 df-pss 3882 df-nul 4218 df-if 4388 df-pw 4461 df-sn 4479 df-pr 4481 df-tp 4483 df-op 4485 df-uni 4752 df-int 4789 df-iun 4833 df-br 4969 df-opab 5031 df-mpt 5048 df-tr 5071 df-id 5355 df-eprel 5360 df-po 5369 df-so 5370 df-fr 5409 df-se 5410 df-we 5411 df-xp 5456 df-rel 5457 df-cnv 5458 df-co 5459 df-dm 5460 df-rn 5461 df-res 5462 df-ima 5463 df-pred 6030 df-ord 6076 df-on 6077 df-lim 6078 df-suc 6079 df-iota 6196 df-fun 6234 df-fn 6235 df-f 6236 df-f1 6237 df-fo 6238 df-f1o 6239 df-fv 6240 df-isom 6241 df-riota 6984 df-ov 7026 df-oprab 7027 df-mpo 7028 df-om 7444 df-1st 7552 df-2nd 7553 df-wrecs 7805 df-recs 7867 df-rdg 7905 df-1o 7960 df-2o 7961 df-oadd 7964 df-er 8146 df-en 8365 df-dom 8366 df-sdom 8367 df-fin 8368 df-sup 8759 df-inf 8760 df-oi 8827 df-card 9221 df-pnf 10530 df-mnf 10531 df-xr 10532 df-ltxr 10533 df-le 10534 df-sub 10725 df-neg 10726 df-div 11152 df-nn 11493 df-2 11554 df-3 11555 df-4 11556 df-5 11557 df-n0 11752 df-z 11836 df-uz 12098 df-q 12202 df-rp 12244 df-fz 12747 df-fzo 12888 df-fl 13016 df-mod 13092 df-seq 13224 df-exp 13284 df-fac 13488 df-bc 13517 df-hash 13545 df-cj 14296 df-re 14297 df-im 14298 df-sqrt 14432 df-abs 14433 df-clim 14683 df-sum 14881 df-dvds 15445 df-gcd 15681 df-prm 15849 df-pc 16007

This theorem is referenced by: bposlem6 25551

W3C validator