bcval5 - Intuitionistic Logic Explorer

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

Theorem bcval5 10997

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 10984	. . . 4 ⊢ (𝐾 ∈ (0...𝑁) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))))
2	1	adantl 277	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))))
3		simprl 529	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → 𝑘 ∈ ℂ)
4		simprr 531	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → 𝑥 ∈ ℂ)
5	3, 4	mulcld 8178	. . . . . . . 8 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑘 · 𝑥) ∈ ℂ)
6		simpr1 1027	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → 𝑘 ∈ ℂ)
7		simpr2 1028	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → 𝑥 ∈ ℂ)
8		simpr3 1029	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → 𝑦 ∈ ℂ)
9	6, 7, 8	mulassd 8181	. . . . . . . 8 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → ((𝑘 · 𝑥) · 𝑦) = (𝑘 · (𝑥 · 𝑦)))
10		simpll 527	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℕ₀)
11	10	nn0zd 9578	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℤ)
12		simplr 528	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ)
13	12	nnzd 9579	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℤ)
14	11, 13	zsubcld 9585	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℤ)
15	14	peano2zd 9583	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ∈ ℤ)
16		1red 8172	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 1 ∈ ℝ)
17	12	nnred 9134	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℝ)
18	10	nn0red 9434	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℝ)
19	12	nnge1d 9164	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 1 ≤ 𝐾)
20	16, 17, 18, 19	lesub2dd 8720	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ≤ (𝑁 − 1))
21	14	zred 9580	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℝ)
22		leaddsub 8596	. . . . . . . . . . . 12 ⊢ (((𝑁 − 𝐾) ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (((𝑁 − 𝐾) + 1) ≤ 𝑁 ↔ (𝑁 − 𝐾) ≤ (𝑁 − 1)))
23	21, 16, 18, 22	syl3anc 1271	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (((𝑁 − 𝐾) + 1) ≤ 𝑁 ↔ (𝑁 − 𝐾) ≤ (𝑁 − 1)))
24	20, 23	mpbird 167	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ≤ 𝑁)
25		eluz2 9739	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)) ↔ (((𝑁 − 𝐾) + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ ∧ ((𝑁 − 𝐾) + 1) ≤ 𝑁))
26	15, 11, 24, 25	syl3anbrc 1205	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)))
27	26	adantrr 479	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → 𝑁 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)))
28		simprr 531	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (𝑁 − 𝐾) ∈ ℕ)
29		nnuz 9770	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
30	28, 29	eleqtrdi 2322	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (𝑁 − 𝐾) ∈ (ℤ_≥‘1))
31		fvi 5693	. . . . . . . . . 10 ⊢ (𝑘 ∈ V → ( I ‘𝑘) = 𝑘)
32	31	elv 2803	. . . . . . . . 9 ⊢ ( I ‘𝑘) = 𝑘
33		eluzelcn 9745	. . . . . . . . . 10 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℂ)
34	33	adantl 277	. . . . . . . . 9 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℂ)
35	32, 34	eqeltrid 2316	. . . . . . . 8 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ( I ‘𝑘) ∈ ℂ)
36	5, 9, 27, 30, 35	seq3split 10722	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (seq1( · , I )‘𝑁) = ((seq1( · , I )‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
37		elfzuz3 10230	. . . . . . . . . . 11 ⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈ (ℤ_≥‘𝐾))
38	37	adantl 277	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ (ℤ_≥‘𝐾))
39		eluznn 9807	. . . . . . . . . 10 ⊢ ((𝐾 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘𝐾)) → 𝑁 ∈ ℕ)
40	12, 38, 39	syl2anc 411	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℕ)
41	40	adantrr 479	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → 𝑁 ∈ ℕ)
42		facnn 10961	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) = (seq1( · , I )‘𝑁))
43	41, 42	syl 14	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (!‘𝑁) = (seq1( · , I )‘𝑁))
44		facnn 10961	. . . . . . . . 9 ⊢ ((𝑁 − 𝐾) ∈ ℕ → (!‘(𝑁 − 𝐾)) = (seq1( · , I )‘(𝑁 − 𝐾)))
45	28, 44	syl 14	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (!‘(𝑁 − 𝐾)) = (seq1( · , I )‘(𝑁 − 𝐾)))
46	45	oveq1d 6022	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) = ((seq1( · , I )‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
47	36, 43, 46	3eqtr4d 2272	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ (𝐾 ∈ (0...𝑁) ∧ (𝑁 − 𝐾) ∈ ℕ)) → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
48	47	expr 375	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) ∈ ℕ → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁))))
49	10	faccld 10970	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) ∈ ℕ)
50	49	nncnd 9135	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) ∈ ℂ)
51	50	mulid2d 8176	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (1 · (!‘𝑁)) = (!‘𝑁))
52	40, 42	syl 14	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) = (seq1( · , I )‘𝑁))
53	52	oveq2d 6023	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (1 · (!‘𝑁)) = (1 · (seq1( · , I )‘𝑁)))
54	51, 53	eqtr3d 2264	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) = (1 · (seq1( · , I )‘𝑁)))
55		fveq2 5629	. . . . . . . . 9 ⊢ ((𝑁 − 𝐾) = 0 → (!‘(𝑁 − 𝐾)) = (!‘0))
56		fac0 10962	. . . . . . . . 9 ⊢ (!‘0) = 1
57	55, 56	eqtrdi 2278	. . . . . . . 8 ⊢ ((𝑁 − 𝐾) = 0 → (!‘(𝑁 − 𝐾)) = 1)
58		oveq1 6014	. . . . . . . . . . 11 ⊢ ((𝑁 − 𝐾) = 0 → ((𝑁 − 𝐾) + 1) = (0 + 1))
59		0p1e1 9235	. . . . . . . . . . 11 ⊢ (0 + 1) = 1
60	58, 59	eqtrdi 2278	. . . . . . . . . 10 ⊢ ((𝑁 − 𝐾) = 0 → ((𝑁 − 𝐾) + 1) = 1)
61	60	seqeq1d 10687	. . . . . . . . 9 ⊢ ((𝑁 − 𝐾) = 0 → seq((𝑁 − 𝐾) + 1)( · , I ) = seq1( · , I ))
62	61	fveq1d 5631	. . . . . . . 8 ⊢ ((𝑁 − 𝐾) = 0 → (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) = (seq1( · , I )‘𝑁))
63	57, 62	oveq12d 6025	. . . . . . 7 ⊢ ((𝑁 − 𝐾) = 0 → ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) = (1 · (seq1( · , I )‘𝑁)))
64	63	eqeq2d 2241	. . . . . 6 ⊢ ((𝑁 − 𝐾) = 0 → ((!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) ↔ (!‘𝑁) = (1 · (seq1( · , I )‘𝑁))))
65	54, 64	syl5ibrcom 157	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) = 0 → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁))))
66		fznn0sub 10265	. . . . . . 7 ⊢ (𝐾 ∈ (0...𝑁) → (𝑁 − 𝐾) ∈ ℕ₀)
67	66	adantl 277	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℕ₀)
68		elnn0 9382	. . . . . 6 ⊢ ((𝑁 − 𝐾) ∈ ℕ₀ ↔ ((𝑁 − 𝐾) ∈ ℕ ∨ (𝑁 − 𝐾) = 0))
69	67, 68	sylib 122	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) ∈ ℕ ∨ (𝑁 − 𝐾) = 0))
70	48, 65, 69	mpjaod 723	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝑁) = ((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)))
71	70	oveq1d 6022	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) = (((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))))
72		eqid 2229	. . . . . 6 ⊢ (ℤ_≥‘((𝑁 − 𝐾) + 1)) = (ℤ_≥‘((𝑁 − 𝐾) + 1))
73		fvi 5693	. . . . . . . 8 ⊢ (𝑓 ∈ V → ( I ‘𝑓) = 𝑓)
74	73	elv 2803	. . . . . . 7 ⊢ ( I ‘𝑓) = 𝑓
75		eluzelcn 9745	. . . . . . . 8 ⊢ (𝑓 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)) → 𝑓 ∈ ℂ)
76	75	adantl 277	. . . . . . 7 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) ∧ 𝑓 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → 𝑓 ∈ ℂ)
77	74, 76	eqeltrid 2316	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) ∧ 𝑓 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → ( I ‘𝑓) ∈ ℂ)
78		mulcl 8137	. . . . . . 7 ⊢ ((𝑓 ∈ ℂ ∧ 𝑔 ∈ ℂ) → (𝑓 · 𝑔) ∈ ℂ)
79	78	adantl 277	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) ∧ (𝑓 ∈ ℂ ∧ 𝑔 ∈ ℂ)) → (𝑓 · 𝑔) ∈ ℂ)
80	72, 15, 77, 79	seqf 10698	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → seq((𝑁 − 𝐾) + 1)( · , I ):(ℤ_≥‘((𝑁 − 𝐾) + 1))⟶ℂ)
81	80, 26	ffvelcdmd 5773	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) ∈ ℂ)
82	12	nnnn0d 9433	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ₀)
83	82	faccld 10970	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℕ)
84	83	nncnd 9135	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℂ)
85	67	faccld 10970	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘(𝑁 − 𝐾)) ∈ ℕ)
86	85	nncnd 9135	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘(𝑁 − 𝐾)) ∈ ℂ)
87	83	nnap0d 9167	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) # 0)
88	85	nnap0d 9167	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (!‘(𝑁 − 𝐾)) # 0)
89	81, 84, 86, 87, 88	divcanap5d 8975	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (((!‘(𝑁 − 𝐾)) · (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁)) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))
90	2, 71, 89	3eqtrd 2266	. 2 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))
91		simplr 528	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ)
92	91	nnnn0d 9433	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℕ₀)
93	92	faccld 10970	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℕ)
94	93	nncnd 9135	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) ∈ ℂ)
95	93	nnap0d 9167	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (!‘𝐾) # 0)
96	94, 95	div0apd 8945	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (0 / (!‘𝐾)) = 0)
97		mulcl 8137	. . . . . 6 ⊢ ((𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (𝑘 · 𝑥) ∈ ℂ)
98	97	adantl 277	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ (𝑘 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑘 · 𝑥) ∈ ℂ)
99		eluzelcn 9745	. . . . . . 7 ⊢ (𝑘 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1)) → 𝑘 ∈ ℂ)
100	99	adantl 277	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → 𝑘 ∈ ℂ)
101	32, 100	eqeltrid 2316	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ (ℤ_≥‘((𝑁 − 𝐾) + 1))) → ( I ‘𝑘) ∈ ℂ)
102		simpr 110	. . . . . 6 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ ℂ) → 𝑘 ∈ ℂ)
103	102	mul02d 8549	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ ℂ) → (0 · 𝑘) = 0)
104	102	mul01d 8550	. . . . 5 ⊢ ((((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) ∧ 𝑘 ∈ ℂ) → (𝑘 · 0) = 0)
105		simpr 110	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ¬ 𝐾 ∈ (0...𝑁))
106		nn0uz 9769	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
107	92, 106	eleqtrdi 2322	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ (ℤ_≥‘0))
108		simpll 527	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℕ₀)
109	108	nn0zd 9578	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℤ)
110		elfz5 10225	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ (ℤ_≥‘0) ∧ 𝑁 ∈ ℤ) → (𝐾 ∈ (0...𝑁) ↔ 𝐾 ≤ 𝑁))
111	107, 109, 110	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝐾 ∈ (0...𝑁) ↔ 𝐾 ≤ 𝑁))
112		nn0re 9389	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ₀ → 𝑁 ∈ ℝ)
113	112	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝑁 ∈ ℝ)
114		nnre 9128	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ ℕ → 𝐾 ∈ ℝ)
115	114	ad2antlr 489	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 𝐾 ∈ ℝ)
116	113, 115	subge0d 8693	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (0 ≤ (𝑁 − 𝐾) ↔ 𝐾 ≤ 𝑁))
117	111, 116	bitr4d 191	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝐾 ∈ (0...𝑁) ↔ 0 ≤ (𝑁 − 𝐾)))
118	105, 117	mtbid 676	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ¬ 0 ≤ (𝑁 − 𝐾))
119		simpl 109	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝑁 ∈ ℕ₀)
120	119	nn0zd 9578	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝑁 ∈ ℤ)
121		simpr 110	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝐾 ∈ ℕ)
122	121	nnzd 9579	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 𝐾 ∈ ℤ)
123	120, 122	zsubcld 9585	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝑁 − 𝐾) ∈ ℤ)
124	123	adantr 276	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) ∈ ℤ)
125		0z 9468	. . . . . . . . 9 ⊢ 0 ∈ ℤ
126		zltnle 9503	. . . . . . . . 9 ⊢ (((𝑁 − 𝐾) ∈ ℤ ∧ 0 ∈ ℤ) → ((𝑁 − 𝐾) < 0 ↔ ¬ 0 ≤ (𝑁 − 𝐾)))
127	124, 125, 126	sylancl 413	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) < 0 ↔ ¬ 0 ≤ (𝑁 − 𝐾)))
128	118, 127	mpbird 167	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁 − 𝐾) < 0)
129		zltp1le 9512	. . . . . . . 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 9405	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → 0 ≤ 𝑁)
133	132	ad2antrr 488	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 0 ≤ 𝑁)
134		0zd 9469	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 0 ∈ ℤ)
135	124	peano2zd 9583	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((𝑁 − 𝐾) + 1) ∈ ℤ)
136		elfz 10222	. . . . . . 7 ⊢ ((0 ∈ ℤ ∧ ((𝑁 − 𝐾) + 1) ∈ ℤ ∧ 𝑁 ∈ ℤ) → (0 ∈ (((𝑁 − 𝐾) + 1)...𝑁) ↔ (((𝑁 − 𝐾) + 1) ≤ 0 ∧ 0 ≤ 𝑁)))
137	134, 135, 109, 136	syl3anc 1271	. . . . . 6 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (0 ∈ (((𝑁 − 𝐾) + 1)...𝑁) ↔ (((𝑁 − 𝐾) + 1) ≤ 0 ∧ 0 ≤ 𝑁)))
138	131, 133, 137	mpbir2and 950	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → 0 ∈ (((𝑁 − 𝐾) + 1)...𝑁))
139		0cn 8149	. . . . . 6 ⊢ 0 ∈ ℂ
140		fvi 5693	. . . . . 6 ⊢ (0 ∈ ℂ → ( I ‘0) = 0)
141	139, 140	mp1i 10	. . . . 5 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ( I ‘0) = 0)
142	98, 101, 103, 104, 138, 141	seq3z 10762	. . . 4 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) = 0)
143	142	oveq1d 6022	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)) = (0 / (!‘𝐾)))
144		nnz 9476	. . . . 5 ⊢ (𝐾 ∈ ℕ → 𝐾 ∈ ℤ)
145		bcval3 10985	. . . . 5 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℤ ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = 0)
146	144, 145	syl3an2 1305	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = 0)
147	146	3expa 1227	. . 3 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = 0)
148	96, 143, 147	3eqtr4rd 2273	. 2 ⊢ (((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) ∧ ¬ 𝐾 ∈ (0...𝑁)) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))
149		0zd 9469	. . . 4 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → 0 ∈ ℤ)
150		fzdcel 10248	. . . 4 ⊢ ((𝐾 ∈ ℤ ∧ 0 ∈ ℤ ∧ 𝑁 ∈ ℤ) → DECID 𝐾 ∈ (0...𝑁))
151	122, 149, 120, 150	syl3anc 1271	. . 3 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → DECID 𝐾 ∈ (0...𝑁))
152		exmiddc 841	. . 3 ⊢ (DECID 𝐾 ∈ (0...𝑁) → (𝐾 ∈ (0...𝑁) ∨ ¬ 𝐾 ∈ (0...𝑁)))
153	151, 152	syl 14	. 2 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝐾 ∈ (0...𝑁) ∨ ¬ 𝐾 ∈ (0...𝑁)))
154	90, 148, 153	mpjaodan 803	1 ⊢ ((𝑁 ∈ ℕ₀ ∧ 𝐾 ∈ ℕ) → (𝑁C𝐾) = ((seq((𝑁 − 𝐾) + 1)( · , I )‘𝑁) / (!‘𝐾)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 713 DECID wdc 839 ∧ w3a 1002 = wceq 1395 ∈ wcel 2200 Vcvv 2799 class class class wbr 4083 I cid 4379 ‘cfv 5318 (class class class)co 6007 ℂcc 8008 ℝcr 8009 0cc0 8010 1c1 8011 + caddc 8013 · cmul 8015 < clt 8192 ≤ cle 8193 − cmin 8328 / cdiv 8830 ℕcn 9121 ℕ₀cn0 9380 ℤcz 9457 ℤ_≥cuz 9733 ...cfz 10216 seqcseq 10681 !cfa 10959 Ccbc 10981

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 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4199 ax-sep 4202 ax-nul 4210 ax-pow 4258 ax-pr 4293 ax-un 4524 ax-setind 4629 ax-iinf 4680 ax-cnex 8101 ax-resscn 8102 ax-1cn 8103 ax-1re 8104 ax-icn 8105 ax-addcl 8106 ax-addrcl 8107 ax-mulcl 8108 ax-mulrcl 8109 ax-addcom 8110 ax-mulcom 8111 ax-addass 8112 ax-mulass 8113 ax-distr 8114 ax-i2m1 8115 ax-0lt1 8116 ax-1rid 8117 ax-0id 8118 ax-rnegex 8119 ax-precex 8120 ax-cnre 8121 ax-pre-ltirr 8122 ax-pre-ltwlin 8123 ax-pre-lttrn 8124 ax-pre-apti 8125 ax-pre-ltadd 8126 ax-pre-mulgt0 8127 ax-pre-mulext 8128

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-nel 2496 df-ral 2513 df-rex 2514 df-reu 2515 df-rmo 2516 df-rab 2517 df-v 2801 df-sbc 3029 df-csb 3125 df-dif 3199 df-un 3201 df-in 3203 df-ss 3210 df-nul 3492 df-if 3603 df-pw 3651 df-sn 3672 df-pr 3673 df-op 3675 df-uni 3889 df-int 3924 df-iun 3967 df-br 4084 df-opab 4146 df-mpt 4147 df-tr 4183 df-id 4384 df-po 4387 df-iso 4388 df-iord 4457 df-on 4459 df-ilim 4460 df-suc 4462 df-iom 4683 df-xp 4725 df-rel 4726 df-cnv 4727 df-co 4728 df-dm 4729 df-rn 4730 df-res 4731 df-ima 4732 df-iota 5278 df-fun 5320 df-fn 5321 df-f 5322 df-f1 5323 df-fo 5324 df-f1o 5325 df-fv 5326 df-riota 5960 df-ov 6010 df-oprab 6011 df-mpo 6012 df-1st 6292 df-2nd 6293 df-recs 6457 df-frec 6543 df-pnf 8194 df-mnf 8195 df-xr 8196 df-ltxr 8197 df-le 8198 df-sub 8330 df-neg 8331 df-reap 8733 df-ap 8740 df-div 8831 df-inn 9122 df-n0 9381 df-z 9458 df-uz 9734 df-q 9827 df-fz 10217 df-seqfrec 10682 df-fac 10960 df-bc 10982

This theorem is referenced by: bcn2 10998

W3C validator