Description: The primorial of a successor. (Contributed by AV, 28-Aug-2020)
Ref | Expression | ||
---|---|---|---|
Assertion | prmop1 | |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | peano2nn0 | |
|
2 | prmoval | |
|
3 | 1 2 | syl | |
4 | nn0p1nn | |
|
5 | elnnuz | |
|
6 | 4 5 | sylib | |
7 | elfzelz | |
|
8 | 7 | zcnd | |
9 | 8 | adantl | |
10 | 1cnd | |
|
11 | 9 10 | ifcld | |
12 | eleq1 | |
|
13 | id | |
|
14 | 12 13 | ifbieq1d | |
15 | 6 11 14 | fprodm1 | |
16 | nn0cn | |
|
17 | pncan1 | |
|
18 | 16 17 | syl | |
19 | 18 | oveq2d | |
20 | 19 | prodeq1d | |
21 | 20 | oveq1d | |
22 | prmoval | |
|
23 | 22 | eqcomd | |
24 | 23 | adantl | |
25 | 24 | oveq1d | |
26 | iftrue | |
|
27 | 26 | oveq2d | |
28 | iftrue | |
|
29 | 27 28 | eqeq12d | |
30 | 29 | adantr | |
31 | 25 30 | mpbird | |
32 | fzfid | |
|
33 | elfznn | |
|
34 | 1nn | |
|
35 | 34 | a1i | |
36 | 33 35 | ifcld | |
37 | 36 | adantl | |
38 | 32 37 | fprodnncl | |
39 | 38 | nncnd | |
40 | 39 | adantl | |
41 | 40 | mulridd | |
42 | 22 | adantl | |
43 | 41 42 | eqtr4d | |
44 | iffalse | |
|
45 | 44 | oveq2d | |
46 | iffalse | |
|
47 | 45 46 | eqeq12d | |
48 | 47 | adantr | |
49 | 43 48 | mpbird | |
50 | 31 49 | pm2.61ian | |
51 | 21 50 | eqtrd | |
52 | 3 15 51 | 3eqtrd | |