prmdvdsbc - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > prmdvdsbc		Structured version Visualization version GIF version

Theorem prmdvdsbc 31032

Description: Condition for a prime number to divide a binomial coefficient. (Contributed by Thierry Arnoux, 17-Sep-2023.)

**Assertion**
Ref	Expression
prmdvdsbc	⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∥ (𝑃C𝑁))

**Proof of Theorem prmdvdsbc**
Step	Hyp	Ref	Expression
1		eqid 2738	. . 3 ⊢ ((!‘𝑃) / ((!‘(𝑃 − 𝑁)) · (!‘𝑁))) = ((!‘𝑃) / ((!‘(𝑃 − 𝑁)) · (!‘𝑁)))
2		simpl 482	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∈ ℙ)
3		prmnn 16307	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
4	3	nnzd 12354	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
5		1nn0 12179	. . . . . . . . 9 ⊢ 1 ∈ ℕ₀
6		eluzmn 12518	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℤ ∧ 1 ∈ ℕ₀) → 𝑃 ∈ (ℤ_≥‘(𝑃 − 1)))
7	4, 5, 6	sylancl 585	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘(𝑃 − 1)))
8		fzss2 13225	. . . . . . . 8 ⊢ (𝑃 ∈ (ℤ_≥‘(𝑃 − 1)) → (1...(𝑃 − 1)) ⊆ (1...𝑃))
9	7, 8	syl 17	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → (1...(𝑃 − 1)) ⊆ (1...𝑃))
10		fz1ssfz0 13281	. . . . . . 7 ⊢ (1...𝑃) ⊆ (0...𝑃)
11	9, 10	sstrdi 3929	. . . . . 6 ⊢ (𝑃 ∈ ℙ → (1...(𝑃 − 1)) ⊆ (0...𝑃))
12	11	sselda 3917	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 ∈ (0...𝑃))
13		bcval2 13947	. . . . 5 ⊢ (𝑁 ∈ (0...𝑃) → (𝑃C𝑁) = ((!‘𝑃) / ((!‘(𝑃 − 𝑁)) · (!‘𝑁))))
14	12, 13	syl 17	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (𝑃C𝑁) = ((!‘𝑃) / ((!‘(𝑃 − 𝑁)) · (!‘𝑁))))
15	3	nnnn0d 12223	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ₀)
16	15	adantr 480	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∈ ℕ₀)
17		elfzelz 13185	. . . . . . 7 ⊢ (𝑁 ∈ (1...(𝑃 − 1)) → 𝑁 ∈ ℤ)
18	17	adantl 481	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 ∈ ℤ)
19		bccl 13964	. . . . . 6 ⊢ ((𝑃 ∈ ℕ₀ ∧ 𝑁 ∈ ℤ) → (𝑃C𝑁) ∈ ℕ₀)
20	16, 18, 19	syl2anc 583	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (𝑃C𝑁) ∈ ℕ₀)
21	20	nn0zd 12353	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (𝑃C𝑁) ∈ ℤ)
22	14, 21	eqeltrrd 2840	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → ((!‘𝑃) / ((!‘(𝑃 − 𝑁)) · (!‘𝑁))) ∈ ℤ)
23		elfznn 13214	. . . . . . . . 9 ⊢ (𝑁 ∈ (1...(𝑃 − 1)) → 𝑁 ∈ ℕ)
24	23	adantl 481	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 ∈ ℕ)
25	24	nnnn0d 12223	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 ∈ ℕ₀)
26		1zzd 12281	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 1 ∈ ℤ)
27	4	adantr 480	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∈ ℤ)
28		simpr 484	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 ∈ (1...(𝑃 − 1)))
29		elfzm11 13256	. . . . . . . . . 10 ⊢ ((1 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑁 ∈ (1...(𝑃 − 1)) ↔ (𝑁 ∈ ℤ ∧ 1 ≤ 𝑁 ∧ 𝑁 < 𝑃)))
30	29	biimpa 476	. . . . . . . . 9 ⊢ (((1 ∈ ℤ ∧ 𝑃 ∈ ℤ) ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (𝑁 ∈ ℤ ∧ 1 ≤ 𝑁 ∧ 𝑁 < 𝑃))
31	30	simp3d 1142	. . . . . . . 8 ⊢ (((1 ∈ ℤ ∧ 𝑃 ∈ ℤ) ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 < 𝑃)
32	26, 27, 28, 31	syl21anc 834	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 < 𝑃)
33		ltsubnn0 12214	. . . . . . . 8 ⊢ ((𝑃 ∈ ℕ₀ ∧ 𝑁 ∈ ℕ₀) → (𝑁 < 𝑃 → (𝑃 − 𝑁) ∈ ℕ₀))
34	33	imp 406	. . . . . . 7 ⊢ (((𝑃 ∈ ℕ₀ ∧ 𝑁 ∈ ℕ₀) ∧ 𝑁 < 𝑃) → (𝑃 − 𝑁) ∈ ℕ₀)
35	16, 25, 32, 34	syl21anc 834	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (𝑃 − 𝑁) ∈ ℕ₀)
36	35	faccld 13926	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘(𝑃 − 𝑁)) ∈ ℕ)
37	36	nnzd 12354	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘(𝑃 − 𝑁)) ∈ ℤ)
38	25	faccld 13926	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘𝑁) ∈ ℕ)
39	38	nnzd 12354	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘𝑁) ∈ ℤ)
40	37, 39	zmulcld 12361	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → ((!‘(𝑃 − 𝑁)) · (!‘𝑁)) ∈ ℤ)
41	37	zcnd 12356	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘(𝑃 − 𝑁)) ∈ ℂ)
42	39	zcnd 12356	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘𝑁) ∈ ℂ)
43		facne0 13928	. . . . 5 ⊢ ((𝑃 − 𝑁) ∈ ℕ₀ → (!‘(𝑃 − 𝑁)) ≠ 0)
44	35, 43	syl 17	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘(𝑃 − 𝑁)) ≠ 0)
45		facne0 13928	. . . . 5 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ≠ 0)
46	25, 45	syl 17	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (!‘𝑁) ≠ 0)
47	41, 42, 44, 46	mulne0d 11557	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → ((!‘(𝑃 − 𝑁)) · (!‘𝑁)) ≠ 0)
48		uzid 12526	. . . . . 6 ⊢ (𝑃 ∈ ℤ → 𝑃 ∈ (ℤ_≥‘𝑃))
49	4, 48	syl 17	. . . . 5 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ (ℤ_≥‘𝑃))
50		dvdsfac 15963	. . . . 5 ⊢ ((𝑃 ∈ ℕ ∧ 𝑃 ∈ (ℤ_≥‘𝑃)) → 𝑃 ∥ (!‘𝑃))
51	3, 49, 50	syl2anc 583	. . . 4 ⊢ (𝑃 ∈ ℙ → 𝑃 ∥ (!‘𝑃))
52	51	adantr 480	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∥ (!‘𝑃))
53	16	nn0red 12224	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∈ ℝ)
54	24	nnrpd 12699	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑁 ∈ ℝ⁺)
55	53, 54	ltsubrpd 12733	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → (𝑃 − 𝑁) < 𝑃)
56		prmndvdsfaclt 16358	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ (𝑃 − 𝑁) ∈ ℕ₀) → ((𝑃 − 𝑁) < 𝑃 → ¬ 𝑃 ∥ (!‘(𝑃 − 𝑁))))
57	56	imp 406	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ (𝑃 − 𝑁) ∈ ℕ₀) ∧ (𝑃 − 𝑁) < 𝑃) → ¬ 𝑃 ∥ (!‘(𝑃 − 𝑁)))
58	2, 35, 55, 57	syl21anc 834	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ (!‘(𝑃 − 𝑁)))
59		prmndvdsfaclt 16358	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℕ₀) → (𝑁 < 𝑃 → ¬ 𝑃 ∥ (!‘𝑁)))
60	59	imp 406	. . . . 5 ⊢ (((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℕ₀) ∧ 𝑁 < 𝑃) → ¬ 𝑃 ∥ (!‘𝑁))
61	2, 25, 32, 60	syl21anc 834	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ (!‘𝑁))
62		ioran 980	. . . . . 6 ⊢ (¬ (𝑃 ∥ (!‘(𝑃 − 𝑁)) ∨ 𝑃 ∥ (!‘𝑁)) ↔ (¬ 𝑃 ∥ (!‘(𝑃 − 𝑁)) ∧ ¬ 𝑃 ∥ (!‘𝑁)))
63		euclemma 16346	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ (!‘(𝑃 − 𝑁)) ∈ ℤ ∧ (!‘𝑁) ∈ ℤ) → (𝑃 ∥ ((!‘(𝑃 − 𝑁)) · (!‘𝑁)) ↔ (𝑃 ∥ (!‘(𝑃 − 𝑁)) ∨ 𝑃 ∥ (!‘𝑁))))
64	63	biimpd 228	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ (!‘(𝑃 − 𝑁)) ∈ ℤ ∧ (!‘𝑁) ∈ ℤ) → (𝑃 ∥ ((!‘(𝑃 − 𝑁)) · (!‘𝑁)) → (𝑃 ∥ (!‘(𝑃 − 𝑁)) ∨ 𝑃 ∥ (!‘𝑁))))
65	64	con3d 152	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ (!‘(𝑃 − 𝑁)) ∈ ℤ ∧ (!‘𝑁) ∈ ℤ) → (¬ (𝑃 ∥ (!‘(𝑃 − 𝑁)) ∨ 𝑃 ∥ (!‘𝑁)) → ¬ 𝑃 ∥ ((!‘(𝑃 − 𝑁)) · (!‘𝑁))))
66	62, 65	syl5bir 242	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ (!‘(𝑃 − 𝑁)) ∈ ℤ ∧ (!‘𝑁) ∈ ℤ) → ((¬ 𝑃 ∥ (!‘(𝑃 − 𝑁)) ∧ ¬ 𝑃 ∥ (!‘𝑁)) → ¬ 𝑃 ∥ ((!‘(𝑃 − 𝑁)) · (!‘𝑁))))
67	66	imp 406	. . . 4 ⊢ (((𝑃 ∈ ℙ ∧ (!‘(𝑃 − 𝑁)) ∈ ℤ ∧ (!‘𝑁) ∈ ℤ) ∧ (¬ 𝑃 ∥ (!‘(𝑃 − 𝑁)) ∧ ¬ 𝑃 ∥ (!‘𝑁))) → ¬ 𝑃 ∥ ((!‘(𝑃 − 𝑁)) · (!‘𝑁)))
68	2, 37, 39, 58, 61, 67	syl32anc 1376	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ ((!‘(𝑃 − 𝑁)) · (!‘𝑁)))
69	1, 2, 22, 40, 47, 52, 68	dvdszzq 31031	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∥ ((!‘𝑃) / ((!‘(𝑃 − 𝑁)) · (!‘𝑁))))
70	69, 14	breqtrrd 5098	1 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ (1...(𝑃 − 1))) → 𝑃 ∥ (𝑃C𝑁))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 ∨ wo 843 ∧ w3a 1085 = wceq 1539 ∈ wcel 2108 ≠ wne 2942 ⊆ wss 3883 class class class wbr 5070 ‘cfv 6418 (class class class)co 7255 0cc0 10802 1c1 10803 · cmul 10807 < clt 10940 ≤ cle 10941 − cmin 11135 / cdiv 11562 ℕcn 11903 ℕ₀cn0 12163 ℤcz 12249 ℤ_≥cuz 12511 ...cfz 13168 !cfa 13915 Ccbc 13944 ∥ cdvds 15891 ℙcprime 16304

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-sep 5218 ax-nul 5225 ax-pow 5283 ax-pr 5347 ax-un 7566 ax-cnex 10858 ax-resscn 10859 ax-1cn 10860 ax-icn 10861 ax-addcl 10862 ax-addrcl 10863 ax-mulcl 10864 ax-mulrcl 10865 ax-mulcom 10866 ax-addass 10867 ax-mulass 10868 ax-distr 10869 ax-i2m1 10870 ax-1ne0 10871 ax-1rid 10872 ax-rnegex 10873 ax-rrecex 10874 ax-cnre 10875 ax-pre-lttri 10876 ax-pre-lttrn 10877 ax-pre-ltadd 10878 ax-pre-mulgt0 10879 ax-pre-sup 10880

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-nel 3049 df-ral 3068 df-rex 3069 df-reu 3070 df-rmo 3071 df-rab 3072 df-v 3424 df-sbc 3712 df-csb 3829 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3902 df-nul 4254 df-if 4457 df-pw 4532 df-sn 4559 df-pr 4561 df-tp 4563 df-op 4565 df-uni 4837 df-iun 4923 df-br 5071 df-opab 5133 df-mpt 5154 df-tr 5188 df-id 5480 df-eprel 5486 df-po 5494 df-so 5495 df-fr 5535 df-we 5537 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-res 5592 df-ima 5593 df-pred 6191 df-ord 6254 df-on 6255 df-lim 6256 df-suc 6257 df-iota 6376 df-fun 6420 df-fn 6421 df-f 6422 df-f1 6423 df-fo 6424 df-f1o 6425 df-fv 6426 df-riota 7212 df-ov 7258 df-oprab 7259 df-mpo 7260 df-om 7688 df-1st 7804 df-2nd 7805 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-1o 8267 df-2o 8268 df-er 8456 df-en 8692 df-dom 8693 df-sdom 8694 df-fin 8695 df-sup 9131 df-inf 9132 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-div 11563 df-nn 11904 df-2 11966 df-3 11967 df-n0 12164 df-z 12250 df-uz 12512 df-rp 12660 df-fz 13169 df-fl 13440 df-mod 13518 df-seq 13650 df-exp 13711 df-fac 13916 df-bc 13945 df-cj 14738 df-re 14739 df-im 14740 df-sqrt 14874 df-abs 14875 df-dvds 15892 df-gcd 16130 df-prm 16305

This theorem is referenced by: freshmansdream 31386

W3C validator