Metamath Proof Explorer


Theorem dvdsfac

Description: A positive integer divides any greater factorial. (Contributed by Paul Chapman, 28-Nov-2012)

Ref Expression
Assertion dvdsfac ⊢ K ∈ ℕ ∧ N ∈ ℤ ≥ K → K ∥ N !

Proof

Step Hyp Ref Expression
1 fveq2 ⊢ x = K → x ! = K !
2 1 breq2d ⊢ x = K → K ∥ x ! ↔ K ∥ K !
3 2 imbi2d ⊢ x = K → K ∈ ℕ → K ∥ x ! ↔ K ∈ ℕ → K ∥ K !
4 fveq2 ⊢ x = y → x ! = y !
5 4 breq2d ⊢ x = y → K ∥ x ! ↔ K ∥ y !
6 5 imbi2d ⊢ x = y → K ∈ ℕ → K ∥ x ! ↔ K ∈ ℕ → K ∥ y !
7 fveq2 ⊢ x = y + 1 → x ! = y + 1 !
8 7 breq2d ⊢ x = y + 1 → K ∥ x ! ↔ K ∥ y + 1 !
9 8 imbi2d ⊢ x = y + 1 → K ∈ ℕ → K ∥ x ! ↔ K ∈ ℕ → K ∥ y + 1 !
10 fveq2 ⊢ x = N → x ! = N !
11 10 breq2d ⊢ x = N → K ∥ x ! ↔ K ∥ N !
12 11 imbi2d ⊢ x = N → K ∈ ℕ → K ∥ x ! ↔ K ∈ ℕ → K ∥ N !
13 nnm1nn0 ⊢ K ∈ ℕ → K − 1 ∈ ℕ 0
14 13 faccld ⊢ K ∈ ℕ → K − 1 ! ∈ ℕ
15 14 nnzd ⊢ K ∈ ℕ → K − 1 ! ∈ ℤ
16 nnz ⊢ K ∈ ℕ → K ∈ ℤ
17 dvdsmul2 ⊢ K − 1 ! ∈ ℤ ∧ K ∈ ℤ → K ∥ K − 1 ! ⁢ K
18 15 16 17 syl2anc ⊢ K ∈ ℕ → K ∥ K − 1 ! ⁢ K
19 facnn2 ⊢ K ∈ ℕ → K ! = K − 1 ! ⁢ K
20 18 19 breqtrrd ⊢ K ∈ ℕ → K ∥ K !
21 16 adantl ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → K ∈ ℤ
22 elnnuz ⊢ K ∈ ℕ ↔ K ∈ ℤ ≥ 1
23 uztrn ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℤ ≥ 1 → y ∈ ℤ ≥ 1
24 22 23 sylan2b ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y ∈ ℤ ≥ 1
25 elnnuz ⊢ y ∈ ℕ ↔ y ∈ ℤ ≥ 1
26 24 25 sylibr ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y ∈ ℕ
27 26 nnnn0d ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y ∈ ℕ 0
28 27 faccld ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y ! ∈ ℕ
29 28 nnzd ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y ! ∈ ℤ
30 26 nnzd ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y ∈ ℤ
31 30 peano2zd ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y + 1 ∈ ℤ
32 dvdsmultr1 ⊢ K ∈ ℤ ∧ y ! ∈ ℤ ∧ y + 1 ∈ ℤ → K ∥ y ! → K ∥ y ! ⁢ y + 1
33 21 29 31 32 syl3anc ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → K ∥ y ! → K ∥ y ! ⁢ y + 1
34 facp1 ⊢ y ∈ ℕ 0 → y + 1 ! = y ! ⁢ y + 1
35 27 34 syl ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → y + 1 ! = y ! ⁢ y + 1
36 35 breq2d ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → K ∥ y + 1 ! ↔ K ∥ y ! ⁢ y + 1
37 33 36 sylibrd ⊢ y ∈ ℤ ≥ K ∧ K ∈ ℕ → K ∥ y ! → K ∥ y + 1 !
38 37 ex ⊢ y ∈ ℤ ≥ K → K ∈ ℕ → K ∥ y ! → K ∥ y + 1 !
39 38 a2d ⊢ y ∈ ℤ ≥ K → K ∈ ℕ → K ∥ y ! → K ∈ ℕ → K ∥ y + 1 !
40 3 6 9 12 20 39 uzind4i ⊢ N ∈ ℤ ≥ K → K ∈ ℕ → K ∥ N !
41 40 impcom ⊢ K ∈ ℕ ∧ N ∈ ℤ ≥ K → K ∥ N !