Theorem faccl 14240

Description: Closure of the factorial function. (Contributed by NM, 2-Dec-2004.)

Assertion

Ref	Expression
faccl	⊢ (𝑁 ∈ ℕ0 → (!‘𝑁) ∈ ℕ)

Proof of Theorem faccl

Dummy variables 𝑗 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6830	. . 3 ⊢ (𝑗 = 0 → (!‘𝑗) = (!‘0))
2	1	eleq1d 2826	. 2 ⊢ (𝑗 = 0 → ((!‘𝑗) ∈ ℕ ↔ (!‘0) ∈ ℕ))
3		fveq2 6830	. . 3 ⊢ (𝑗 = 𝑘 → (!‘𝑗) = (!‘𝑘))
4	3	eleq1d 2826	. 2 ⊢ (𝑗 = 𝑘 → ((!‘𝑗) ∈ ℕ ↔ (!‘𝑘) ∈ ℕ))
5		fveq2 6830	. . 3 ⊢ (𝑗 = (𝑘 + 1) → (!‘𝑗) = (!‘(𝑘 + 1)))
6	5	eleq1d 2826	. 2 ⊢ (𝑗 = (𝑘 + 1) → ((!‘𝑗) ∈ ℕ ↔ (!‘(𝑘 + 1)) ∈ ℕ))
7		fveq2 6830	. . 3 ⊢ (𝑗 = 𝑁 → (!‘𝑗) = (!‘𝑁))
8	7	eleq1d 2826	. 2 ⊢ (𝑗 = 𝑁 → ((!‘𝑗) ∈ ℕ ↔ (!‘𝑁) ∈ ℕ))
9		fac0 14233	. . 3 ⊢ (!‘0) = 1
10		1nn 12180	. . 3 ⊢ 1 ∈ ℕ
11	9, 10	eqeltri 2837	. 2 ⊢ (!‘0) ∈ ℕ
12		facp1 14235	. . . . 5 ⊢ (𝑘 ∈ ℕ0 → (!‘(𝑘 + 1)) = ((!‘𝑘) · (𝑘 + 1)))
13	12	adantl 483	. . . 4 ⊢ (((!‘𝑘) ∈ ℕ ∧ 𝑘 ∈ ℕ0) → (!‘(𝑘 + 1)) = ((!‘𝑘) · (𝑘 + 1)))
14		nn0p1nn 12471	. . . . 5 ⊢ (𝑘 ∈ ℕ0 → (𝑘 + 1) ∈ ℕ)
15		nnmulcl 12193	. . . . 5 ⊢ (((!‘𝑘) ∈ ℕ ∧ (𝑘 + 1) ∈ ℕ) → ((!‘𝑘) · (𝑘 + 1)) ∈ ℕ)
16	14, 15	sylan2 600	. . . 4 ⊢ (((!‘𝑘) ∈ ℕ ∧ 𝑘 ∈ ℕ0) → ((!‘𝑘) · (𝑘 + 1)) ∈ ℕ)
17	13, 16	eqeltrd 2841	. . 3 ⊢ (((!‘𝑘) ∈ ℕ ∧ 𝑘 ∈ ℕ0) → (!‘(𝑘 + 1)) ∈ ℕ)
18	17	expcom 415	. 2 ⊢ (𝑘 ∈ ℕ0 → ((!‘𝑘) ∈ ℕ → (!‘(𝑘 + 1)) ∈ ℕ))
19	2, 4, 6, 8, 11, 18	nn0ind 12619	1 ⊢ (𝑁 ∈ ℕ0 → (!‘𝑁) ∈ ℕ)

Syntax hints:   → wi 4   ∧ wa 397   = wceq 1548   ∈ wcel 2121  ‘cfv 6488  (class class class)co 7359  0cc0 11034  1c1 11035   + caddc 11037   · cmul 11039  ℕcn 12169  ℕ₀cn0 12432  !cfa 14230

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7681  ax-cnex 11090  ax-resscn 11091  ax-1cn 11092  ax-icn 11093  ax-addcl 11094  ax-addrcl 11095  ax-mulcl 11096  ax-mulrcl 11097  ax-mulcom 11098  ax-addass 11099  ax-mulass 11100  ax-distr 11101  ax-i2m1 11102  ax-1ne0 11103  ax-1rid 11104  ax-rnegex 11105  ax-rrecex 11106  ax-cnre 11107  ax-pre-lttri 11108  ax-pre-lttrn 11109  ax-pre-ltadd 11110  ax-pre-mulgt0 11111

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-nel 3041  df-ral 3056  df-rex 3066  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3725  df-csb 3833  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-pss 3904  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4841  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6255  df-ord 6316  df-on 6317  df-lim 6318  df-suc 6319  df-iota 6444  df-fun 6490  df-fn 6491  df-f 6492  df-f1 6493  df-fo 6494  df-f1o 6495  df-fv 6496  df-riota 7316  df-ov 7362  df-oprab 7363  df-mpo 7364  df-om 7810  df-2nd 7934  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8343  df-er 8637  df-en 8888  df-dom 8889  df-sdom 8890  df-pnf 11177  df-mnf 11178  df-xr 11179  df-ltxr 11180  df-le 11181  df-sub 11375  df-neg 11376  df-nn 12170  df-n0 12433  df-z 12520  df-uz 12784  df-seq 13959  df-fac 14231

This theorem is referenced by:  faccld  14241  facne0  14243  facdiv  14244  facndiv  14245  facwordi  14246  faclbnd  14247  faclbnd2  14248  faclbnd3  14249  faclbnd4lem1  14250  faclbnd5  14255  faclbnd6  14256  facubnd  14257  facavg  14258  bcrpcl  14265  bcn0  14267  bcm1k  14272  bcval5  14275  permnn  14283  4bc2eq6  14286  fallfacfac  16005  eftcl  16033  reeftcl  16034  eftabs  16035  ef0lem  16038  ege2le3  16050  efcj  16052  efaddlem  16053  effsumlt  16073  eflegeo  16083  ef01bndlem  16146  eirrlem  16166  prmfac1  16685  pcfac  16865  prmunb  16880  aaliou3lem7  26336  aaliou3lem9  26337  advlogexp  26640  wilth  27055  logfacrlim  27208  logexprlim  27209  bcmono  27261  vmadivsum  27466  subfacval2  35428  subfaclim  35429  subfacval3  35430  bcprod  35979  faclim2  35989  lcmineqlem18  42544  facp2  42641  bcccl  44796  bcc0  44797  bccp1k  44798  binomcxplemwb  44805  dvnxpaek  46397  wallispi2lem2  46527  stirlinglem2  46530  stirlinglem3  46531  stirlinglem4  46532  stirlinglem13  46541  stirlinglem14  46542  stirlinglem15  46543  stirlingr  46545  facnn0dvdsfac  47860  muldvdsfacgt  47861  pgrple2abl  48868