Metamath Proof Explorer


Theorem facp2

Description: The factorial of a successor's successor. (Contributed by metakunt, 19-Apr-2024)

Ref Expression
Assertion facp2 ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐‘ + 2 ) ) = ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ + 1 ) ยท ( ๐‘ + 2 ) ) ) )

Proof

Step Hyp Ref Expression
1 nn0cn โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„‚ )
2 ax-1cn โŠข 1 โˆˆ โ„‚
3 addass โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ ) โ†’ ( ( ๐‘ + 1 ) + 1 ) = ( ๐‘ + ( 1 + 1 ) ) )
4 2 2 3 mp3an23 โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ( ๐‘ + 1 ) + 1 ) = ( ๐‘ + ( 1 + 1 ) ) )
5 1 4 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) + 1 ) = ( ๐‘ + ( 1 + 1 ) ) )
6 df-2 โŠข 2 = ( 1 + 1 )
7 6 oveq2i โŠข ( ๐‘ + 2 ) = ( ๐‘ + ( 1 + 1 ) )
8 7 eqcomi โŠข ( ๐‘ + ( 1 + 1 ) ) = ( ๐‘ + 2 )
9 8 a1i โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ + ( 1 + 1 ) ) = ( ๐‘ + 2 ) )
10 5 9 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) + 1 ) = ( ๐‘ + 2 ) )
11 10 fveq2d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ( ๐‘ + 1 ) + 1 ) ) = ( ! โ€˜ ( ๐‘ + 2 ) ) )
12 peano2nn0 โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ + 1 ) โˆˆ โ„•0 )
13 facp1 โŠข ( ( ๐‘ + 1 ) โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ( ๐‘ + 1 ) + 1 ) ) = ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ( ๐‘ + 1 ) + 1 ) ) )
14 12 13 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ( ๐‘ + 1 ) + 1 ) ) = ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ( ๐‘ + 1 ) + 1 ) ) )
15 11 14 eqtr3d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐‘ + 2 ) ) = ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ( ๐‘ + 1 ) + 1 ) ) )
16 10 oveq2d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ( ๐‘ + 1 ) + 1 ) ) = ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) )
17 15 16 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐‘ + 2 ) ) = ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) )
18 facp1 โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐‘ + 1 ) ) = ( ( ! โ€˜ ๐‘ ) ยท ( ๐‘ + 1 ) ) )
19 18 oveq1d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ! โ€˜ ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) = ( ( ( ! โ€˜ ๐‘ ) ยท ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) )
20 17 19 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐‘ + 2 ) ) = ( ( ( ! โ€˜ ๐‘ ) ยท ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) )
21 faccl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ๐‘ ) โˆˆ โ„• )
22 nncn โŠข ( ( ! โ€˜ ๐‘ ) โˆˆ โ„• โ†’ ( ! โ€˜ ๐‘ ) โˆˆ โ„‚ )
23 21 22 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ๐‘ ) โˆˆ โ„‚ )
24 nn0cn โŠข ( ( ๐‘ + 1 ) โˆˆ โ„•0 โ†’ ( ๐‘ + 1 ) โˆˆ โ„‚ )
25 12 24 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ + 1 ) โˆˆ โ„‚ )
26 2cn โŠข 2 โˆˆ โ„‚
27 addcl โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ ) โ†’ ( ๐‘ + 2 ) โˆˆ โ„‚ )
28 26 27 mpan2 โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ๐‘ + 2 ) โˆˆ โ„‚ )
29 1 28 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ + 2 ) โˆˆ โ„‚ )
30 mulass โŠข ( ( ( ! โ€˜ ๐‘ ) โˆˆ โ„‚ โˆง ( ๐‘ + 1 ) โˆˆ โ„‚ โˆง ( ๐‘ + 2 ) โˆˆ โ„‚ ) โ†’ ( ( ( ! โ€˜ ๐‘ ) ยท ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) = ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ + 1 ) ยท ( ๐‘ + 2 ) ) ) )
31 23 25 29 30 syl3anc โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ( ! โ€˜ ๐‘ ) ยท ( ๐‘ + 1 ) ) ยท ( ๐‘ + 2 ) ) = ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ + 1 ) ยท ( ๐‘ + 2 ) ) ) )
32 20 31 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐‘ + 2 ) ) = ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ + 1 ) ยท ( ๐‘ + 2 ) ) ) )