bcval5 - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > bcval5		GIF version

Theorem bcval5 11125

Description: Write out the top and bottom parts of the binomial coefficient (𝑁C𝐾) = (𝑁 · (𝑁 − 1) · ... · ((𝑁 − 𝐾) + 1)) / 𝐾! explicitly. In this form, it is valid even for 𝑁 < 𝐾, although it is no longer valid for nonpositive 𝐾. (Contributed by Mario Carneiro, 22-May-2014.) (Revised by Jim Kingdon, 23-Apr-2023.)

**Assertion**
Ref	Expression
bcval5	⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))

Proof of Theorem bcval5 Dummy variables 𝑥 𝑘 𝑦 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		bcval2 11112	. . . 4 ⊢ (𝐾 ∈ (0...𝑁) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))))
2	1	adantl 277	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))))
3		simprl 531	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → 𝑘 ∈ ℂ)
4		simprr 533	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → 𝑥 ∈ ℂ)
5	3, 4	mulcld 8294	. . . . . . . 8 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑘 · 𝑥) ∈ ℂ)
6		simpr1 1030	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → 𝑘 ∈ ℂ)
7		simpr2 1031	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → 𝑥 ∈ ℂ)
8		simpr3 1032	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → 𝑦 ∈ ℂ)
9	6, 7, 8	mulassd 8297	. . . . . . . 8 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → ((𝑘 · 𝑥) · 𝑦) = (𝑘 · (𝑥 · 𝑦)))
10		simpll 527	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℕ₀)
11	10	nn0zd 9698	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℤ)
12		simplr 529	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ)
13	12	nnzd 9699	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℤ)
14	11, 13	zsubcld 9705	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℤ)
15	14	peano2zd 9703	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ∈ ℤ)
16		1red 8289	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 1 ∈ ℝ)
17	12	nnred 9250	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℝ)
18	10	nn0red 9554	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℝ)
19	12	nnge1d 9280	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 1 ≤ 𝐾)
20	16, 17, 18, 19	lesub2dd 8836	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ≤ (𝑁 − 1))
21	14	zred 9700	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℝ)
22		leaddsub 8712	. . . . . . . . . . . 12 ⊢ (((𝑁 − 𝐾) ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (((𝑁 − 𝐾) + 1) ≤ 𝑁 ↔ (𝑁 − 𝐾) ≤ (𝑁 − 1)))
23	21, 16, 18, 22	syl3anc 1274	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (((𝑁 − 𝐾) + 1) ≤ 𝑁 ↔ (𝑁 − 𝐾) ≤ (𝑁 − 1)))
24	20, 23	mpbird 167	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ≤ 𝑁)
25		eluz2 9859	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)) ↔ (((𝑁 − 𝐾) + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((𝑁 − 𝐾) + 1) ≤ 𝑁))
26	15, 11, 24, 25	syl3anbrc 1208	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)))
27	26	adantrr 479	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → 𝑁 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)))
28		simprr 533	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (𝑁 − 𝐾) ∈ ℕ)
29		nnuz 9890	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
30	28, 29	eleqtrdi 2325	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (𝑁 − 𝐾) ∈ (ℤ_≥‘1))
31		fvi 5734	. . . . . . . . . 10 ⊢ (𝑘 ∈ V → ( I ‘𝑘) = 𝑘)
32	31	elv 2817	. . . . . . . . 9 ⊢ ( I ‘𝑘) = 𝑘
33		eluzelcn 9865	. . . . . . . . . 10 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℂ)
34	33	adantl 277	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℂ)
35	32, 34	eqeltrid 2319	. . . . . . . 8 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ( I ‘𝑘) ∈ ℂ)
36	5, 9, 27, 30, 35	seq3split 10850	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (seq1( · , I )‘𝑁) = ((seq1( · , I )‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
37		elfzuz3 10356	. . . . . . . . . . 11 ⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈ (ℤ_≥‘𝐾))
38	37	adantl 277	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ (ℤ_≥‘𝐾))
39		eluznn 9932	. . . . . . . . . 10 ⊢ ((𝐾 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘𝐾)) → 𝑁 ∈ ℕ)
40	12, 38, 39	syl2anc 411	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℕ)
41	40	adantrr 479	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → 𝑁 ∈ ℕ)
42		facnn 11089	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) = (seq1( · , I )‘𝑁))
43	41, 42	syl 14	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (!‘𝑁) = (seq1( · , I )‘𝑁))
44		facnn 11089	. . . . . . . . 9 ⊢ ((𝑁 − 𝐾) ∈ ℕ → (!‘(𝑁 − 𝐾)) = (seq1( · , I )‘(𝑁 − 𝐾)))
45	28, 44	syl 14	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (!‘(𝑁 − 𝐾)) = (seq1( · , I )‘(𝑁 − 𝐾)))
46	45	oveq1d 6065	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) = ((seq1( · , I )‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
47	36, 43, 46	3eqtr4d 2275	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
48	47	expr 375	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) ∈ ℕ → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁))))
49	10	faccld 11098	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) ∈ ℕ)
50	49	nncnd 9251	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) ∈ ℂ)
51	50	mullidd 8292	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (1 · (!‘𝑁)) = (!‘𝑁))
52	40, 42	syl 14	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) = (seq1( · , I )‘𝑁))
53	52	oveq2d 6066	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (1 · (!‘𝑁)) = (1 · (seq1( · , I )‘𝑁)))
54	51, 53	eqtr3d 2267	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) = (1 · (seq1( · , I )‘𝑁)))
55		fveq2 5670	. . . . . . . . 9 ⊢ ((𝑁 − 𝐾) = 0 → (!‘(𝑁 − 𝐾)) = (!‘0))
56		fac0 11090	. . . . . . . . 9 ⊢ (!‘0) = 1
57	55, 56	eqtrdi 2281	. . . . . . . 8 ⊢ ((𝑁 − 𝐾) = 0 → (!‘(𝑁 − 𝐾)) = 1)
58		oveq1 6057	. . . . . . . . . . 11 ⊢ ((𝑁 − 𝐾) = 0 → ((𝑁 − 𝐾) + 1) = (0 + 1))
59		0p1e1 9351	. . . . . . . . . . 11 ⊢ (0 + 1) = 1
60	58, 59	eqtrdi 2281	. . . . . . . . . 10 ⊢ ((𝑁 − 𝐾) = 0 → ((𝑁 − 𝐾) + 1) = 1)
61	60	seqeq1d 10815	. . . . . . . . 9 ⊢ ((𝑁 − 𝐾) = 0 → seq((𝑁 − 𝐾) + 1)( · , I ) = seq1( · , I ))
62	61	fveq1d 5672	. . . . . . . 8 ⊢ ((𝑁 − 𝐾) = 0 → (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) = (seq1( · , I )‘𝑁))
63	57, 62	oveq12d 6068	. . . . . . 7 ⊢ ((𝑁 − 𝐾) = 0 → ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) = (1 · (seq1( · , I )‘𝑁)))
64	63	eqeq2d 2244	. . . . . 6 ⊢ ((𝑁 − 𝐾) = 0 → ((!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) ↔ (!‘𝑁) = (1 · (seq1( · , I )‘𝑁))))
65	54, 64	syl5ibrcom 157	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) = 0 → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁))))
66		fznn0sub 10391	. . . . . . 7 ⊢ (𝐾 ∈ (0...𝑁) → (𝑁 − 𝐾) ∈ ℕ₀)
67	66	adantl 277	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℕ₀)
68		elnn0 9498	. . . . . 6 ⊢ ((𝑁 − 𝐾) ∈ ℕ₀ ↔ ((𝑁 − 𝐾) ∈ ℕ ∨ (𝑁 − 𝐾) = 0))
69	67, 68	sylib 122	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) ∈ ℕ ∨ (𝑁 − 𝐾) = 0))
70	48, 65, 69	mpjaod 726	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
71	70	oveq1d 6065	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) = (((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))))
72		eqid 2232	. . . . . 6 ⊢ (ℤ_≥‘((𝑁 − 𝐾) + 1)) = (ℤ_≥‘((𝑁 − 𝐾) + 1))
73		fvi 5734	. . . . . . . 8 ⊢ (𝑓 ∈ V → ( I ‘𝑓) = 𝑓)
74	73	elv 2817	. . . . . . 7 ⊢ ( I ‘𝑓) = 𝑓
75		eluzelcn 9865	. . . . . . . 8 ⊢ (𝑓 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)) → 𝑓 ∈ ℂ)
76	75	adantl 277	. . . . . . 7 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) ∧ 𝑓 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → 𝑓 ∈ ℂ)
77	74, 76	eqeltrid 2319	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) ∧ 𝑓 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → ( I ‘𝑓) ∈ ℂ)
78		mulcl 8254	. . . . . . 7 ⊢ ((𝑓 ∈ ℂ ∧ 𝑔 ∈ ℂ) → (𝑓 · 𝑔) ∈ ℂ)
79	78	adantl 277	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) ∧ (𝑓 ∈ ℂ ∧ 𝑔 ∈ ℂ)) → (𝑓 · 𝑔) ∈ ℂ)
80	72, 15, 77, 79	seqf 10826	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → seq((𝑁 − 𝐾) + 1)( · , I ):(ℤ_≥‘((𝑁 − 𝐾) + 1))⟶ℂ)
81	80, 26	ffvelcdmd 5813	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) ∈ ℂ)
82	12	nnnn0d 9553	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ₀)
83	82	faccld 11098	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℕ)
84	83	nncnd 9251	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℂ)
85	67	faccld 11098	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘(𝑁 − 𝐾)) ∈ ℕ)
86	85	nncnd 9251	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘(𝑁 − 𝐾)) ∈ ℂ)
87	83	nnap0d 9283	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) # 0)
88	85	nnap0d 9283	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘(𝑁 − 𝐾)) # 0)
89	81, 84, 86, 87, 88	divcanap5d 9091	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))
90	2, 71, 89	3eqtrd 2269	. 2 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))
91		simplr 529	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ)
92	91	nnnn0d 9553	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ₀)
93	92	faccld 11098	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℕ)
94	93	nncnd 9251	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℂ)
95	93	nnap0d 9283	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) # 0)
96	94, 95	div0apd 9061	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (0 / (!‘𝐾)) = 0)
97		mulcl 8254	. . . . . 6 ⊢ ((𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (𝑘 · 𝑥) ∈ ℂ)
98	97	adantl 277	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑘 · 𝑥) ∈ ℂ)
99		eluzelcn 9865	. . . . . . 7 ⊢ (𝑘 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)) → 𝑘 ∈ ℂ)
100	99	adantl 277	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → 𝑘 ∈ ℂ)
101	32, 100	eqeltrid 2319	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → ( I ‘𝑘) ∈ ℂ)
102		simpr 110	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ ℂ) → 𝑘 ∈ ℂ)
103	102	mul02d 8665	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ ℂ) → (0 · 𝑘) = 0)
104	102	mul01d 8666	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ ℂ) → (𝑘 · 0) = 0)
105		simpr 110	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ¬ 𝐾 ∈ (0...𝑁))
106		nn0uz 9889	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
107	92, 106	eleqtrdi 2325	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ (ℤ_≥‘0))
108		simpll 527	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℕ₀)
109	108	nn0zd 9698	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℤ)
110		elfz5 10351	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ (ℤ_≥‘0) ∧ 𝑁 ∈ ℤ) → (𝐾 ∈ (0...𝑁) ↔ 𝐾 ≤ 𝑁))
111	107, 109, 110	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝐾 ∈ (0...𝑁) ↔ 𝐾 ≤ 𝑁))
112		nn0re 9505	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ ℝ)
113	112	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℝ)
114		nnre 9244	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ ℕ → 𝐾 ∈ ℝ)
115	114	ad2antlr 489	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℝ)
116	113, 115	subge0d 8809	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (0 ≤ (𝑁 − 𝐾) ↔ 𝐾 ≤ 𝑁))
117	111, 116	bitr4d 191	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝐾 ∈ (0...𝑁) ↔ 0 ≤ (𝑁 − 𝐾)))
118	105, 117	mtbid 679	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ¬ 0 ≤ (𝑁 − 𝐾))
119		simpl 109	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝑁 ∈ ℕ₀)
120	119	nn0zd 9698	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝑁 ∈ ℤ)
121		simpr 110	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝐾 ∈ ℕ)
122	121	nnzd 9699	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝐾 ∈ ℤ)
123	120, 122	zsubcld 9705	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝑁 − 𝐾) ∈ ℤ)
124	123	adantr 276	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℤ)
125		0z 9588	. . . . . . . . 9 ⊢ 0 ∈ ℤ
126		zltnle 9623	. . . . . . . . 9 ⊢ (((𝑁 − 𝐾) ∈ ℤ ∧ 0 ∈ ℤ) → ((𝑁 − 𝐾) < 0 ↔ ¬ 0 ≤ (𝑁 − 𝐾)))
127	124, 125, 126	sylancl 413	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) < 0 ↔ ¬ 0 ≤ (𝑁 − 𝐾)))
128	118, 127	mpbird 167	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) < 0)
129		zltp1le 9632	. . . . . . . 8 ⊢ (((𝑁 − 𝐾) ∈ ℤ ∧ 0 ∈ ℤ) → ((𝑁 − 𝐾) < 0 ↔ ((𝑁 − 𝐾) + 1) ≤ 0))
130	124, 125, 129	sylancl 413	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) < 0 ↔ ((𝑁 − 𝐾) + 1) ≤ 0))
131	128, 130	mpbid 147	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ≤ 0)
132		nn0ge0 9521	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → 0 ≤ 𝑁)
133	132	ad2antrr 488	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 0 ≤ 𝑁)
134		0zd 9589	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 0 ∈ ℤ)
135	124	peano2zd 9703	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ∈ ℤ)
136		elfz 10348	. . . . . . 7 ⊢ ((0 ∈ ℤ ∧ ((𝑁 − 𝐾) + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (0 ∈ (((𝑁 − 𝐾) + 1)...𝑁) ↔ (((𝑁 − 𝐾) + 1) ≤ 0 ∧ 0 ≤ 𝑁)))
137	134, 135, 109, 136	syl3anc 1274	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (0 ∈ (((𝑁 − 𝐾) + 1)...𝑁) ↔ (((𝑁 − 𝐾) + 1) ≤ 0 ∧ 0 ≤ 𝑁)))
138	131, 133, 137	mpbir2and 953	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 0 ∈ (((𝑁 − 𝐾) + 1)...𝑁))
139		0cn 8266	. . . . . 6 ⊢ 0 ∈ ℂ
140		fvi 5734	. . . . . 6 ⊢ (0 ∈ ℂ → ( I ‘0) = 0)
141	139, 140	mp1i 10	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ( I ‘0) = 0)
142	98, 101, 103, 104, 138, 141	seq3z 10890	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) = 0)
143	142	oveq1d 6065	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)) = (0 / (!‘𝐾)))
144		nnz 9596	. . . . 5 ⊢ (𝐾 ∈ ℕ → 𝐾 ∈ ℤ)
145		bcval3 11113	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℤ ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = 0)
146	144, 145	syl3an2 1308	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = 0)
147	146	3expa 1230	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = 0)
148	96, 143, 147	3eqtr4rd 2276	. 2 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))
149		0zd 9589	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 0 ∈ ℤ)
150		fzdcel 10374	. . . 4 ⊢ ((𝐾 ∈ ℤ ∧ 0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 𝐾 ∈ (0...𝑁))
151	122, 149, 120, 150	syl3anc 1274	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → DECID 𝐾 ∈ (0...𝑁))
152		exmiddc 844	. . 3 ⊢ (DECID 𝐾 ∈ (0...𝑁) → (𝐾 ∈ (0...𝑁) ∨ ¬ 𝐾 ∈ (0...𝑁)))
153	151, 152	syl 14	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝐾 ∈ (0...𝑁) ∨ ¬ 𝐾 ∈ (0...𝑁)))
154	90, 148, 153	mpjaodan 806	1 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 716 DECID wdc 842 ∧ w3a 1005 = wceq 1398 ∈ wcel 2203 Vcvv 2813 class class class wbr 4109 I cid 4409 ‘cfv 5352 (class class class)co 6050 ℂcc 8125 ℝcr 8126 0cc0 8127 1c1 8128 + caddc 8130 · cmul 8132 < clt 8308 ≤ cle 8309 − cmin 8444 / cdiv 8946 ℕcn 9237 ℕ₀cn0 9496 ℤcz 9577 ℤ_≥cuz 9853 ...cfz 10342 seqcseq 10809 !cfa 11087 Ccbc 11109

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 619 ax-in2 620 ax-io 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2205 ax-14 2206 ax-ext 2214 ax-coll 4225 ax-sep 4228 ax-nul 4236 ax-pow 4287 ax-pr 4322 ax-un 4554 ax-setind 4659 ax-iinf 4710 ax-cnex 8218 ax-resscn 8219 ax-1cn 8220 ax-1re 8221 ax-icn 8222 ax-addcl 8223 ax-addrcl 8224 ax-mulcl 8225 ax-mulrcl 8226 ax-addcom 8227 ax-mulcom 8228 ax-addass 8229 ax-mulass 8230 ax-distr 8231 ax-i2m1 8232 ax-0lt1 8233 ax-1rid 8234 ax-0id 8235 ax-rnegex 8236 ax-precex 8237 ax-cnre 8238 ax-pre-ltirr 8239 ax-pre-ltwlin 8240 ax-pre-lttrn 8241 ax-pre-apti 8242 ax-pre-ltadd 8243 ax-pre-mulgt0 8244 ax-pre-mulext 8245

This theorem depends on definitions: df-bi 117 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1812 df-eu 2083 df-mo 2084 df-clab 2219 df-cleq 2225 df-clel 2228 df-nfc 2373 df-ne 2413 df-nel 2508 df-ral 2525 df-rex 2526 df-reu 2527 df-rmo 2528 df-rab 2529 df-v 2815 df-sbc 3043 df-csb 3139 df-dif 3213 df-un 3215 df-in 3217 df-ss 3224 df-nul 3509 df-if 3621 df-pw 3671 df-sn 3695 df-pr 3696 df-op 3698 df-uni 3915 df-int 3950 df-iun 3993 df-br 4110 df-opab 4172 df-mpt 4173 df-tr 4209 df-id 4414 df-po 4417 df-iso 4418 df-iord 4487 df-on 4489 df-ilim 4490 df-suc 4492 df-iom 4713 df-xp 4755 df-rel 4756 df-cnv 4757 df-co 4758 df-dm 4759 df-rn 4760 df-res 4761 df-ima 4762 df-iota 5312 df-fun 5354 df-fn 5355 df-f 5356 df-f1 5357 df-fo 5358 df-f1o 5359 df-fv 5360 df-riota 6003 df-ov 6053 df-oprab 6054 df-mpo 6055 df-1st 6334 df-2nd 6335 df-recs 6536 df-frec 6622 df-pnf 8310 df-mnf 8311 df-xr 8312 df-ltxr 8313 df-le 8314 df-sub 8446 df-neg 8447 df-reap 8849 df-ap 8856 df-div 8947 df-inn 9238 df-n0 9497 df-z 9578 df-uz 9854 df-q 9952 df-fz 10343 df-seqfrec 10810 df-fac 11088 df-bc 11110

This theorem is referenced by: bcn2 11126

W3C validator