Metamath Proof Explorer


Theorem bernneq3

Description: A corollary of bernneq . (Contributed by Mario Carneiro, 11-Mar-2014)

Ref Expression
Assertion bernneq3 ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ < ( ๐‘ƒ โ†‘ ๐‘ ) )

Proof

Step Hyp Ref Expression
1 nn0re โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„ )
2 1 adantl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„ )
3 peano2re โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ + 1 ) โˆˆ โ„ )
4 2 3 syl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ + 1 ) โˆˆ โ„ )
5 eluzelre โŠข ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘ƒ โˆˆ โ„ )
6 reexpcl โŠข ( ( ๐‘ƒ โˆˆ โ„ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ƒ โ†‘ ๐‘ ) โˆˆ โ„ )
7 5 6 sylan โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ƒ โ†‘ ๐‘ ) โˆˆ โ„ )
8 2 ltp1d โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ < ( ๐‘ + 1 ) )
9 uz2m1nn โŠข ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ƒ โˆ’ 1 ) โˆˆ โ„• )
10 9 adantr โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ƒ โˆ’ 1 ) โˆˆ โ„• )
11 10 nnred โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ƒ โˆ’ 1 ) โˆˆ โ„ )
12 11 2 remulcld โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) โˆˆ โ„ )
13 peano2re โŠข ( ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) โˆˆ โ„ โ†’ ( ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) + 1 ) โˆˆ โ„ )
14 12 13 syl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) + 1 ) โˆˆ โ„ )
15 1red โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ 1 โˆˆ โ„ )
16 nn0ge0 โŠข ( ๐‘ โˆˆ โ„•0 โ†’ 0 โ‰ค ๐‘ )
17 16 adantl โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ 0 โ‰ค ๐‘ )
18 10 nnge1d โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ 1 โ‰ค ( ๐‘ƒ โˆ’ 1 ) )
19 2 11 17 18 lemulge12d โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ โ‰ค ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) )
20 2 12 15 19 leadd1dd โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ + 1 ) โ‰ค ( ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) + 1 ) )
21 5 adantr โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ƒ โˆˆ โ„ )
22 simpr โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ โˆˆ โ„•0 )
23 eluzge2nn0 โŠข ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘ƒ โˆˆ โ„•0 )
24 nn0ge0 โŠข ( ๐‘ƒ โˆˆ โ„•0 โ†’ 0 โ‰ค ๐‘ƒ )
25 23 24 syl โŠข ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 0 โ‰ค ๐‘ƒ )
26 25 adantr โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ 0 โ‰ค ๐‘ƒ )
27 bernneq2 โŠข ( ( ๐‘ƒ โˆˆ โ„ โˆง ๐‘ โˆˆ โ„•0 โˆง 0 โ‰ค ๐‘ƒ ) โ†’ ( ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) + 1 ) โ‰ค ( ๐‘ƒ โ†‘ ๐‘ ) )
28 21 22 26 27 syl3anc โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ( ๐‘ƒ โˆ’ 1 ) ยท ๐‘ ) + 1 ) โ‰ค ( ๐‘ƒ โ†‘ ๐‘ ) )
29 4 14 7 20 28 letrd โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘ + 1 ) โ‰ค ( ๐‘ƒ โ†‘ ๐‘ ) )
30 2 4 7 8 29 ltletrd โŠข ( ( ๐‘ƒ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ๐‘ < ( ๐‘ƒ โ†‘ ๐‘ ) )