Theorem facp1 11149

Description: The factorial of a successor. (Contributed by NM, 2-Dec-2004.) (Revised by Mario Carneiro, 13-Jul-2013.)

Assertion

Ref	Expression
facp1	|- ( N e. NN0 -> ( ! ` ( N + 1 ) ) = ( ( ! ` N ) x. ( N + 1 ) ) )

Proof of Theorem facp1

Dummy variables f g are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elnn0 9547	. 2 |- ( N e. NN0 <-> ( N e. NN \/ N = 0 ) )
2		elnnuz 9941	. . . . . . 7 |- ( N e. NN <-> N e. ( ZZ>= ` 1 ) )
3	2	biimpi 120	. . . . . 6 |- ( N e. NN -> N e. ( ZZ>= ` 1 ) )
4		fvi 5757	. . . . . . . 8 |- ( f e. ( ZZ>= ` 1 ) -> ( _I ` f ) = f )
5		eluzelcn 9915	. . . . . . . 8 |- ( f e. ( ZZ>= ` 1 ) -> f e. CC )
6	4, 5	eqeltrd 2315	. . . . . . 7 |- ( f e. ( ZZ>= ` 1 ) -> ( _I ` f ) e. CC )
7	6	adantl 277	. . . . . 6 |- ( ( N e. NN /\ f e. ( ZZ>= ` 1 ) ) -> ( _I ` f ) e. CC )
8		mulcl 8299	. . . . . . 7 |- ( ( f e. CC /\ g e. CC ) -> ( f x. g ) e. CC )
9	8	adantl 277	. . . . . 6 |- ( ( N e. NN /\ ( f e. CC /\ g e. CC ) ) -> ( f x. g ) e. CC )
10	3, 7, 9	seq3p1 10883	. . . . 5 |- ( N e. NN -> ( seq 1 ( x. , _I ) ` ( N + 1 ) ) = ( ( seq 1 ( x. , _I ) ` N ) x. ( _I ` ( N + 1 ) ) ) )
11		peano2nn 9298	. . . . . . 7 |- ( N e. NN -> ( N + 1 ) e. NN )
12		fvi 5757	. . . . . . 7 |- ( ( N + 1 ) e. NN -> ( _I ` ( N + 1 ) ) = ( N + 1 ) )
13	11, 12	syl 14	. . . . . 6 |- ( N e. NN -> ( _I ` ( N + 1 ) ) = ( N + 1 ) )
14	13	oveq2d 6094	. . . . 5 |- ( N e. NN -> ( ( seq 1 ( x. , _I ) ` N ) x. ( _I ` ( N + 1 ) ) ) = ( ( seq 1 ( x. , _I ) ` N ) x. ( N + 1 ) ) )
15	10, 14	eqtrd 2271	. . . 4 |- ( N e. NN -> ( seq 1 ( x. , _I ) ` ( N + 1 ) ) = ( ( seq 1 ( x. , _I ) ` N ) x. ( N + 1 ) ) )
16		facnn 11146	. . . . 5 |- ( ( N + 1 ) e. NN -> ( ! ` ( N + 1 ) ) = ( seq 1 ( x. , _I ) ` ( N + 1 ) ) )
17	11, 16	syl 14	. . . 4 |- ( N e. NN -> ( ! ` ( N + 1 ) ) = ( seq 1 ( x. , _I ) ` ( N + 1 ) ) )
18		facnn 11146	. . . . 5 |- ( N e. NN -> ( ! ` N ) = ( seq 1 ( x. , _I ) ` N ) )
19	18	oveq1d 6093	. . . 4 |- ( N e. NN -> ( ( ! ` N ) x. ( N + 1 ) ) = ( ( seq 1 ( x. , _I ) ` N ) x. ( N + 1 ) ) )
20	15, 17, 19	3eqtr4d 2281	. . 3 |- ( N e. NN -> ( ! ` ( N + 1 ) ) = ( ( ! ` N ) x. ( N + 1 ) ) )
21		0p1e1 9400	. . . . . 6 |- ( 0 + 1 ) = 1
22	21	fveq2i 5696	. . . . 5 |- ( ! ` ( 0 + 1 ) ) = ( ! ` 1 )
23		fac1 11148	. . . . 5 |- ( ! ` 1 ) = 1
24	22, 23	eqtri 2259	. . . 4 |- ( ! ` ( 0 + 1 ) ) = 1
25		fvoveq1 6101	. . . 4 |- ( N = 0 -> ( ! ` ( N + 1 ) ) = ( ! ` ( 0 + 1 ) ) )
26		fveq2 5693	. . . . . 6 |- ( N = 0 -> ( ! ` N ) = ( ! ` 0 ) )
27		oveq1 6085	. . . . . 6 |- ( N = 0 -> ( N + 1 ) = ( 0 + 1 ) )
28	26, 27	oveq12d 6096	. . . . 5 |- ( N = 0 -> ( ( ! ` N ) x. ( N + 1 ) ) = ( ( ! ` 0 ) x. ( 0 + 1 ) ) )
29		fac0 11147	. . . . . . 7 |- ( ! ` 0 ) = 1
30	29, 21	oveq12i 6090	. . . . . 6 |- ( ( ! ` 0 ) x. ( 0 + 1 ) ) = ( 1 x. 1 )
31		1t1e1 9439	. . . . . 6 |- ( 1 x. 1 ) = 1
32	30, 31	eqtri 2259	. . . . 5 |- ( ( ! ` 0 ) x. ( 0 + 1 ) ) = 1
33	28, 32	eqtrdi 2287	. . . 4 |- ( N = 0 -> ( ( ! ` N ) x. ( N + 1 ) ) = 1 )
34	24, 25, 33	3eqtr4a 2297	. . 3 |- ( N = 0 -> ( ! ` ( N + 1 ) ) = ( ( ! ` N ) x. ( N + 1 ) ) )
35	20, 34	jaoi 728	. 2 |- ( ( N e. NN \/ N = 0 ) -> ( ! ` ( N + 1 ) ) = ( ( ! ` N ) x. ( N + 1 ) ) )
36	1, 35	sylbi 121	1 |- ( N e. NN0 -> ( ! ` ( N + 1 ) ) = ( ( ! ` N ) x. ( N + 1 ) ) )

Syntax hints:   -> wi 4   /\ wa 104   \/ wo 720   = wceq 1402   e. wcel 2209   _I cid 4431   ` cfv 5375  (class class class)co 6078   CCcc 8170   0cc0 8172   1c1 8173   + caddc 8175   x. cmul 8177   NNcn 9286   NN0cn0 9545   ZZ>=cuz 9903   seqcseq 10865   !cfa 11144

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 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4244  ax-sep 4247  ax-nul 4257  ax-pow 4309  ax-pr 4344  ax-un 4576  ax-setind 4682  ax-iinf 4733  ax-cnex 8263  ax-resscn 8264  ax-1cn 8265  ax-1re 8266  ax-icn 8267  ax-addcl 8268  ax-addrcl 8269  ax-mulcl 8270  ax-addcom 8272  ax-mulcom 8273  ax-addass 8274  ax-mulass 8275  ax-distr 8276  ax-i2m1 8277  ax-0lt1 8278  ax-1rid 8279  ax-0id 8280  ax-rnegex 8281  ax-cnre 8283  ax-pre-ltirr 8284  ax-pre-ltwlin 8285  ax-pre-lttrn 8286  ax-pre-ltadd 8288

This theorem depends on definitions:  df-bi 117  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3690  df-sn 3714  df-pr 3715  df-op 3717  df-uni 3934  df-int 3969  df-iun 4012  df-br 4129  df-opab 4191  df-mpt 4192  df-tr 4228  df-id 4436  df-iord 4509  df-on 4511  df-ilim 4512  df-suc 4514  df-iom 4736  df-xp 4778  df-rel 4779  df-cnv 4780  df-co 4781  df-dm 4782  df-rn 4783  df-res 4784  df-ima 4785  df-iota 5335  df-fun 5377  df-fn 5378  df-f 5379  df-f1 5380  df-fo 5381  df-f1o 5382  df-fv 5383  df-riota 6031  df-ov 6081  df-oprab 6082  df-mpo 6083  df-1st 6367  df-2nd 6368  df-recs 6569  df-frec 6655  df-pnf 8355  df-mnf 8356  df-xr 8357  df-ltxr 8358  df-le 8359  df-sub 8492  df-neg 8493  df-inn 9287  df-n0 9546  df-z 9627  df-uz 9904  df-seqfrec 10866  df-fac 11145

This theorem is referenced by:  fac2  11150  fac3  11151  fac4  11152  facnn2  11153  faccl  11154  facdiv  11157  facwordi  11159  faclbnd  11160  faclbnd6  11163  facubnd  11164  bcm1k  11179  bcp1n  11180  4bc2eq6  11194  fprodfac  12363  efcllemp  12406  ef01bndlem  12504  eirraplem  12525  dvdsfac  12608  prmfac1  12911  pcfac  13110  2expltfac  13199  ex-fac  16659