Metamath Proof Explorer


Theorem nprmdvdsfacm1

Description: A non-prime integer greater than 5 divides the factorial of the integer decreased by 1 (see remark in Ribenboim p. 181). Note: not valid for N = 4 , but for N = 1 ! (Contributed by AV, 7-Apr-2026)

Ref Expression
Assertion nprmdvdsfacm1 N 6 N N N 1 !

Proof

Step Hyp Ref Expression
1 4z 4
2 6nn 6
3 2 nnzi 6
4 4re 4
5 6re 6
6 4lt6 4 < 6
7 4 5 6 ltleii 4 6
8 eluz2 6 4 4 6 4 6
9 1 3 7 8 mpbir3an 6 4
10 uzss 6 4 6 4
11 9 10 ax-mp 6 4
12 11 sseli N 6 N 4
13 nprmmul3 N 4 N a 2 ..^ N b 2 ..^ N a < b N = a b a 2 ..^ N N = a 2
14 12 13 syl N 6 N a 2 ..^ N b 2 ..^ N a < b N = a b a 2 ..^ N N = a 2
15 elfzo2nn a 2 ..^ N a
16 15 ad2antrl N 6 a 2 ..^ N b 2 ..^ N a
17 16 adantr N 6 a 2 ..^ N b 2 ..^ N a < b N = a b a
18 elfzo2nn b 2 ..^ N b
19 18 ad2antll N 6 a 2 ..^ N b 2 ..^ N b
20 19 adantr N 6 a 2 ..^ N b 2 ..^ N a < b N = a b b
21 simprl N 6 a 2 ..^ N b 2 ..^ N a < b N = a b a < b
22 elfzo1 a 1 ..^ b a b a < b
23 17 20 21 22 syl3anbrc N 6 a 2 ..^ N b 2 ..^ N a < b N = a b a 1 ..^ b
24 2eluzge1 2 1
25 fzoss1 2 1 2 ..^ N 1 ..^ N
26 24 25 ax-mp 2 ..^ N 1 ..^ N
27 26 sseli b 2 ..^ N b 1 ..^ N
28 27 ad2antll N 6 a 2 ..^ N b 2 ..^ N b 1 ..^ N
29 28 adantr N 6 a 2 ..^ N b 2 ..^ N a < b N = a b b 1 ..^ N
30 muldvdsfacm1 a 1 ..^ b b 1 ..^ N a b N 1 !
31 23 29 30 syl2anc N 6 a 2 ..^ N b 2 ..^ N a < b N = a b a b N 1 !
32 breq1 N = a b N N 1 ! a b N 1 !
33 32 ad2antll N 6 a 2 ..^ N b 2 ..^ N a < b N = a b N N 1 ! a b N 1 !
34 31 33 mpbird N 6 a 2 ..^ N b 2 ..^ N a < b N = a b N N 1 !
35 34 ex N 6 a 2 ..^ N b 2 ..^ N a < b N = a b N N 1 !
36 35 rexlimdvva N 6 a 2 ..^ N b 2 ..^ N a < b N = a b N N 1 !
37 nprmdvdsfacm1lem4 N 6 a 2 ..^ N N = a 2 N N 1 !
38 37 3expia N 6 a 2 ..^ N N = a 2 N N 1 !
39 38 rexlimdva N 6 a 2 ..^ N N = a 2 N N 1 !
40 36 39 jaod N 6 a 2 ..^ N b 2 ..^ N a < b N = a b a 2 ..^ N N = a 2 N N 1 !
41 14 40 sylbid N 6 N N N 1 !
42 41 imp N 6 N N N 1 !