Metamath Proof Explorer


Theorem bposlem1

Description: An upper bound on the prime powers dividing a central binomial coefficient. (Contributed by Mario Carneiro, 9-Mar-2014)

Ref Expression
Assertion bposlem1 ⊢ N ∈ ℕ ∧ P ∈ ℙ → P P pCnt ( 2 ⋅ N N) ≤ 2 ⋅ N

Proof

Step Hyp Ref Expression
1 fzfid ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 … 2 ⋅ N ∈ Fin
2 2nn ⊢ 2 ∈ ℕ
3 nnmulcl ⊢ 2 ∈ ℕ ∧ N ∈ ℕ → 2 ⋅ N ∈ ℕ
4 2 3 mpan ⊢ N ∈ ℕ → 2 ⋅ N ∈ ℕ
5 4 ad2antrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N ∈ ℕ
6 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
7 6 ad2antlr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P ∈ ℕ
8 elfznn ⊢ k ∈ 1 … 2 ⋅ N → k ∈ ℕ
9 8 adantl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ ℕ
10 9 nnnn0d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ ℕ 0
11 7 10 nnexpcld ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P k ∈ ℕ
12 nnrp ⊢ 2 ⋅ N ∈ ℕ → 2 ⋅ N ∈ ℝ +
13 nnrp ⊢ P k ∈ ℕ → P k ∈ ℝ +
14 rpdivcl ⊢ 2 ⋅ N ∈ ℝ + ∧ P k ∈ ℝ + → 2 ⋅ N P k ∈ ℝ +
15 12 13 14 syl2an ⊢ 2 ⋅ N ∈ ℕ ∧ P k ∈ ℕ → 2 ⋅ N P k ∈ ℝ +
16 5 11 15 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k ∈ ℝ +
17 16 rpred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k ∈ ℝ
18 17 flcld ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k ∈ ℤ
19 2z ⊢ 2 ∈ ℤ
20 simpll ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N ∈ ℕ
21 nnrp ⊢ N ∈ ℕ → N ∈ ℝ +
22 rpdivcl ⊢ N ∈ ℝ + ∧ P k ∈ ℝ + → N P k ∈ ℝ +
23 21 13 22 syl2an ⊢ N ∈ ℕ ∧ P k ∈ ℕ → N P k ∈ ℝ +
24 20 11 23 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k ∈ ℝ +
25 24 rpred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k ∈ ℝ
26 25 flcld ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k ∈ ℤ
27 zmulcl ⊢ 2 ∈ ℤ ∧ N P k ∈ ℤ → 2 ⁢ N P k ∈ ℤ
28 19 26 27 sylancr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k ∈ ℤ
29 18 28 zsubcld ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ∈ ℤ
30 29 zred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ∈ ℝ
31 1re ⊢ 1 ∈ ℝ
32 0re ⊢ 0 ∈ ℝ
33 31 32 ifcli ⊢ if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 ∈ ℝ
34 33 a1i ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 ∈ ℝ
35 28 zred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k ∈ ℝ
36 17 35 resubcld ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ∈ ℝ
37 2re ⊢ 2 ∈ ℝ
38 37 a1i ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ∈ ℝ
39 18 zred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k ∈ ℝ
40 flle ⊢ 2 ⋅ N P k ∈ ℝ → 2 ⋅ N P k ≤ 2 ⋅ N P k
41 17 40 syl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k ≤ 2 ⋅ N P k
42 39 17 35 41 lesub1dd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ≤ 2 ⋅ N P k − 2 ⁢ N P k
43 resubcl ⊢ N P k ∈ ℝ ∧ 1 ∈ ℝ → N P k − 1 ∈ ℝ
44 25 31 43 sylancl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k − 1 ∈ ℝ
45 remulcl ⊢ 2 ∈ ℝ ∧ N P k − 1 ∈ ℝ → 2 ⁢ N P k − 1 ∈ ℝ
46 37 44 45 sylancr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k − 1 ∈ ℝ
47 flltp1 ⊢ N P k ∈ ℝ → N P k < N P k + 1
48 25 47 syl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k < N P k + 1
49 1red ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 1 ∈ ℝ
50 26 zred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k ∈ ℝ
51 25 49 50 ltsubaddd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k − 1 < N P k ↔ N P k < N P k + 1
52 48 51 mpbird ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k − 1 < N P k
53 2pos ⊢ 0 < 2
54 37 53 pm3.2i ⊢ 2 ∈ ℝ ∧ 0 < 2
55 ltmul2 ⊢ N P k − 1 ∈ ℝ ∧ N P k ∈ ℝ ∧ 2 ∈ ℝ ∧ 0 < 2 → N P k − 1 < N P k ↔ 2 ⁢ N P k − 1 < 2 ⁢ N P k
56 54 55 mp3an3 ⊢ N P k − 1 ∈ ℝ ∧ N P k ∈ ℝ → N P k − 1 < N P k ↔ 2 ⁢ N P k − 1 < 2 ⁢ N P k
57 44 50 56 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k − 1 < N P k ↔ 2 ⁢ N P k − 1 < 2 ⁢ N P k
58 52 57 mpbid ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k − 1 < 2 ⁢ N P k
59 46 35 17 58 ltsub2dd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k < 2 ⋅ N P k − 2 ⁢ N P k − 1
60 2cnd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ∈ ℂ
61 nncn ⊢ N ∈ ℕ → N ∈ ℂ
62 61 ad2antrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N ∈ ℂ
63 11 nncnd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P k ∈ ℂ
64 11 nnne0d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P k ≠ 0
65 60 62 63 64 divassd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k = 2 ⁢ N P k
66 25 recnd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k ∈ ℂ
67 60 66 muls1d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k − 1 = 2 ⁢ N P k − 2
68 65 67 oveq12d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k − 1 = 2 ⁢ N P k − 2 ⁢ N P k − 2
69 remulcl ⊢ 2 ∈ ℝ ∧ N P k ∈ ℝ → 2 ⁢ N P k ∈ ℝ
70 37 25 69 sylancr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k ∈ ℝ
71 70 recnd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k ∈ ℂ
72 2cn ⊢ 2 ∈ ℂ
73 nncan ⊢ 2 ⁢ N P k ∈ ℂ ∧ 2 ∈ ℂ → 2 ⁢ N P k − 2 ⁢ N P k − 2 = 2
74 71 72 73 sylancl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⁢ N P k − 2 ⁢ N P k − 2 = 2
75 68 74 eqtrd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k − 1 = 2
76 59 75 breqtrd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k < 2
77 30 36 38 42 76 lelttrd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k < 2
78 df-2 ⊢ 2 = 1 + 1
79 77 78 breqtrdi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k < 1 + 1
80 1z ⊢ 1 ∈ ℤ
81 zleltp1 ⊢ 2 ⋅ N P k − 2 ⁢ N P k ∈ ℤ ∧ 1 ∈ ℤ → 2 ⋅ N P k − 2 ⁢ N P k ≤ 1 ↔ 2 ⋅ N P k − 2 ⁢ N P k < 1 + 1
82 29 80 81 sylancl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ≤ 1 ↔ 2 ⋅ N P k − 2 ⁢ N P k < 1 + 1
83 79 82 mpbird ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ≤ 1
84 iftrue ⊢ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 = 1
85 84 breq2d ⊢ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → 2 ⋅ N P k − 2 ⁢ N P k ≤ if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 ↔ 2 ⋅ N P k − 2 ⁢ N P k ≤ 1
86 83 85 syl5ibrcom ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → 2 ⋅ N P k − 2 ⁢ N P k ≤ if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
87 9 nnge1d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 1 ≤ k
88 87 biantrurd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ≤ log ⁡ 2 ⋅ N log ⁡ P ↔ 1 ≤ k ∧ k ≤ log ⁡ 2 ⋅ N log ⁡ P
89 6 adantl ⊢ N ∈ ℕ ∧ P ∈ ℙ → P ∈ ℕ
90 89 nnred ⊢ N ∈ ℕ ∧ P ∈ ℙ → P ∈ ℝ
91 prmuz2 ⊢ P ∈ ℙ → P ∈ ℤ ≥ 2
92 91 adantl ⊢ N ∈ ℕ ∧ P ∈ ℙ → P ∈ ℤ ≥ 2
93 eluz2gt1 ⊢ P ∈ ℤ ≥ 2 → 1 < P
94 92 93 syl ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 < P
95 90 94 jca ⊢ N ∈ ℕ ∧ P ∈ ℙ → P ∈ ℝ ∧ 1 < P
96 95 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P ∈ ℝ ∧ 1 < P
97 elfzelz ⊢ k ∈ 1 … 2 ⋅ N → k ∈ ℤ
98 97 adantl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ ℤ
99 4 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℕ
100 99 nnrpd ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℝ +
101 100 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N ∈ ℝ +
102 efexple ⊢ P ∈ ℝ ∧ 1 < P ∧ k ∈ ℤ ∧ 2 ⋅ N ∈ ℝ + → P k ≤ 2 ⋅ N ↔ k ≤ log ⁡ 2 ⋅ N log ⁡ P
103 96 98 101 102 syl3anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P k ≤ 2 ⋅ N ↔ k ≤ log ⁡ 2 ⋅ N log ⁡ P
104 9 nnzd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ ℤ
105 80 a1i ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 1 ∈ ℤ
106 99 nnred ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℝ
107 1red ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 ∈ ℝ
108 37 a1i ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ∈ ℝ
109 1lt2 ⊢ 1 < 2
110 109 a1i ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 < 2
111 2t1e2 ⊢ 2 ⋅ 1 = 2
112 nnre ⊢ N ∈ ℕ → N ∈ ℝ
113 112 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ → N ∈ ℝ
114 0le2 ⊢ 0 ≤ 2
115 37 114 pm3.2i ⊢ 2 ∈ ℝ ∧ 0 ≤ 2
116 115 a1i ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ∈ ℝ ∧ 0 ≤ 2
117 nnge1 ⊢ N ∈ ℕ → 1 ≤ N
118 117 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 ≤ N
119 lemul2a ⊢ 1 ∈ ℝ ∧ N ∈ ℝ ∧ 2 ∈ ℝ ∧ 0 ≤ 2 ∧ 1 ≤ N → 2 ⋅ 1 ≤ 2 ⋅ N
120 107 113 116 118 119 syl31anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ 1 ≤ 2 ⋅ N
121 111 120 eqbrtrrid ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ≤ 2 ⋅ N
122 107 108 106 110 121 ltletrd ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 < 2 ⋅ N
123 106 122 rplogcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N ∈ ℝ +
124 90 94 rplogcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ P ∈ ℝ +
125 123 124 rpdivcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ∈ ℝ +
126 125 rpred ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ∈ ℝ
127 126 flcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ∈ ℤ
128 127 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → log ⁡ 2 ⋅ N log ⁡ P ∈ ℤ
129 elfz ⊢ k ∈ ℤ ∧ 1 ∈ ℤ ∧ log ⁡ 2 ⋅ N log ⁡ P ∈ ℤ → k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P ↔ 1 ≤ k ∧ k ≤ log ⁡ 2 ⋅ N log ⁡ P
130 104 105 128 129 syl3anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P ↔ 1 ≤ k ∧ k ≤ log ⁡ 2 ⋅ N log ⁡ P
131 88 103 130 3bitr4rd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P ↔ P k ≤ 2 ⋅ N
132 131 notbid ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P ↔ ¬ P k ≤ 2 ⋅ N
133 106 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N ∈ ℝ
134 11 nnred ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P k ∈ ℝ
135 133 134 ltnled ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N < P k ↔ ¬ P k ≤ 2 ⋅ N
136 132 135 bitr4d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P ↔ 2 ⋅ N < P k
137 16 rpge0d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 0 ≤ 2 ⋅ N P k
138 137 adantrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 0 ≤ 2 ⋅ N P k
139 11 nngt0d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 0 < P k
140 ltdivmul ⊢ 2 ⋅ N ∈ ℝ ∧ 1 ∈ ℝ ∧ P k ∈ ℝ ∧ 0 < P k → 2 ⋅ N P k < 1 ↔ 2 ⋅ N < P k ⋅ 1
141 133 49 134 139 140 syl112anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k < 1 ↔ 2 ⋅ N < P k ⋅ 1
142 63 mulridd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → P k ⋅ 1 = P k
143 142 breq2d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N < P k ⋅ 1 ↔ 2 ⋅ N < P k
144 141 143 bitrd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k < 1 ↔ 2 ⋅ N < P k
145 144 biimprd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N < P k → 2 ⋅ N P k < 1
146 145 impr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k < 1
147 0p1e1 ⊢ 0 + 1 = 1
148 146 147 breqtrrdi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k < 0 + 1
149 17 adantrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k ∈ ℝ
150 0z ⊢ 0 ∈ ℤ
151 flbi ⊢ 2 ⋅ N P k ∈ ℝ ∧ 0 ∈ ℤ → 2 ⋅ N P k = 0 ↔ 0 ≤ 2 ⋅ N P k ∧ 2 ⋅ N P k < 0 + 1
152 149 150 151 sylancl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k = 0 ↔ 0 ≤ 2 ⋅ N P k ∧ 2 ⋅ N P k < 0 + 1
153 138 148 152 mpbir2and ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k = 0
154 24 rpge0d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 0 ≤ N P k
155 154 adantrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 0 ≤ N P k
156 112 21 ltaddrp2d ⊢ N ∈ ℕ → N < N + N
157 61 2timesd ⊢ N ∈ ℕ → 2 ⋅ N = N + N
158 156 157 breqtrrd ⊢ N ∈ ℕ → N < 2 ⋅ N
159 158 ad2antrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N < 2 ⋅ N
160 112 ad2antrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N ∈ ℝ
161 lttr ⊢ N ∈ ℝ ∧ 2 ⋅ N ∈ ℝ ∧ P k ∈ ℝ → N < 2 ⋅ N ∧ 2 ⋅ N < P k → N < P k
162 160 133 134 161 syl3anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N < 2 ⋅ N ∧ 2 ⋅ N < P k → N < P k
163 159 162 mpand ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N < P k → N < P k
164 ltdivmul ⊢ N ∈ ℝ ∧ 1 ∈ ℝ ∧ P k ∈ ℝ ∧ 0 < P k → N P k < 1 ↔ N < P k ⋅ 1
165 160 49 134 139 164 syl112anc ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k < 1 ↔ N < P k ⋅ 1
166 142 breq2d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N < P k ⋅ 1 ↔ N < P k
167 165 166 bitrd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → N P k < 1 ↔ N < P k
168 163 167 sylibrd ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N < P k → N P k < 1
169 168 impr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → N P k < 1
170 169 147 breqtrrdi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → N P k < 0 + 1
171 25 adantrr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → N P k ∈ ℝ
172 flbi ⊢ N P k ∈ ℝ ∧ 0 ∈ ℤ → N P k = 0 ↔ 0 ≤ N P k ∧ N P k < 0 + 1
173 171 150 172 sylancl ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → N P k = 0 ↔ 0 ≤ N P k ∧ N P k < 0 + 1
174 155 170 173 mpbir2and ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → N P k = 0
175 174 oveq2d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⁢ N P k = 2 ⋅ 0
176 2t0e0 ⊢ 2 ⋅ 0 = 0
177 175 176 eqtrdi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⁢ N P k = 0
178 153 177 oveq12d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k − 2 ⁢ N P k = 0 − 0
179 0m0e0 ⊢ 0 − 0 = 0
180 178 179 eqtrdi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k − 2 ⁢ N P k = 0
181 0le0 ⊢ 0 ≤ 0
182 180 181 eqbrtrdi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N ∧ 2 ⋅ N < P k → 2 ⋅ N P k − 2 ⁢ N P k ≤ 0
183 182 expr ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N < P k → 2 ⋅ N P k − 2 ⁢ N P k ≤ 0
184 136 183 sylbid ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → 2 ⋅ N P k − 2 ⁢ N P k ≤ 0
185 iffalse ⊢ ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 = 0
186 185 eqcomd ⊢ ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → 0 = if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
187 186 breq2d ⊢ ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → 2 ⋅ N P k − 2 ⁢ N P k ≤ 0 ↔ 2 ⋅ N P k − 2 ⁢ N P k ≤ if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
188 184 187 mpbidi ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → ¬ k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P → 2 ⋅ N P k − 2 ⁢ N P k ≤ if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
189 86 188 pm2.61d ⊢ N ∈ ℕ ∧ P ∈ ℙ ∧ k ∈ 1 … 2 ⋅ N → 2 ⋅ N P k − 2 ⁢ N P k ≤ if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
190 1 30 34 189 fsumle ⊢ N ∈ ℕ ∧ P ∈ ℙ → ∑ k = 1 2 ⋅ N 2 ⋅ N P k − 2 ⁢ N P k ≤ ∑ k = 1 2 ⋅ N if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
191 pcbcctr ⊢ N ∈ ℕ ∧ P ∈ ℙ → P pCnt ( 2 ⋅ N N) = ∑ k = 1 2 ⋅ N 2 ⋅ N P k − 2 ⁢ N P k
192 127 zred ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ∈ ℝ
193 flle ⊢ log ⁡ 2 ⋅ N log ⁡ P ∈ ℝ → log ⁡ 2 ⋅ N log ⁡ P ≤ log ⁡ 2 ⋅ N log ⁡ P
194 126 193 syl ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ≤ log ⁡ 2 ⋅ N log ⁡ P
195 99 nnnn0d ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℕ 0
196 89 195 nnexpcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → P 2 ⋅ N ∈ ℕ
197 196 nnred ⊢ N ∈ ℕ ∧ P ∈ ℙ → P 2 ⋅ N ∈ ℝ
198 bernneq3 ⊢ P ∈ ℤ ≥ 2 ∧ 2 ⋅ N ∈ ℕ 0 → 2 ⋅ N < P 2 ⋅ N
199 92 195 198 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N < P 2 ⋅ N
200 106 197 199 ltled ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ≤ P 2 ⋅ N
201 100 reeflogd ⊢ N ∈ ℕ ∧ P ∈ ℙ → e log ⁡ 2 ⋅ N = 2 ⋅ N
202 89 nnrpd ⊢ N ∈ ℕ ∧ P ∈ ℙ → P ∈ ℝ +
203 99 nnzd ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℤ
204 reexplog ⊢ P ∈ ℝ + ∧ 2 ⋅ N ∈ ℤ → P 2 ⋅ N = e 2 ⋅ N ⁢ log ⁡ P
205 202 203 204 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → P 2 ⋅ N = e 2 ⋅ N ⁢ log ⁡ P
206 205 eqcomd ⊢ N ∈ ℕ ∧ P ∈ ℙ → e 2 ⋅ N ⁢ log ⁡ P = P 2 ⋅ N
207 200 201 206 3brtr4d ⊢ N ∈ ℕ ∧ P ∈ ℙ → e log ⁡ 2 ⋅ N ≤ e 2 ⋅ N ⁢ log ⁡ P
208 100 relogcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N ∈ ℝ
209 124 rpred ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ P ∈ ℝ
210 106 209 remulcld ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ⁢ log ⁡ P ∈ ℝ
211 efle ⊢ log ⁡ 2 ⋅ N ∈ ℝ ∧ 2 ⋅ N ⁢ log ⁡ P ∈ ℝ → log ⁡ 2 ⋅ N ≤ 2 ⋅ N ⁢ log ⁡ P ↔ e log ⁡ 2 ⋅ N ≤ e 2 ⋅ N ⁢ log ⁡ P
212 208 210 211 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N ≤ 2 ⋅ N ⁢ log ⁡ P ↔ e log ⁡ 2 ⋅ N ≤ e 2 ⋅ N ⁢ log ⁡ P
213 207 212 mpbird ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N ≤ 2 ⋅ N ⁢ log ⁡ P
214 208 106 124 ledivmul2d ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ≤ 2 ⋅ N ↔ log ⁡ 2 ⋅ N ≤ 2 ⋅ N ⁢ log ⁡ P
215 213 214 mpbird ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ≤ 2 ⋅ N
216 192 126 106 194 215 letrd ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ≤ 2 ⋅ N
217 eluz ⊢ log ⁡ 2 ⋅ N log ⁡ P ∈ ℤ ∧ 2 ⋅ N ∈ ℤ → 2 ⋅ N ∈ ℤ ≥ log ⁡ 2 ⋅ N log ⁡ P ↔ log ⁡ 2 ⋅ N log ⁡ P ≤ 2 ⋅ N
218 127 203 217 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℤ ≥ log ⁡ 2 ⋅ N log ⁡ P ↔ log ⁡ 2 ⋅ N log ⁡ P ≤ 2 ⋅ N
219 216 218 mpbird ⊢ N ∈ ℕ ∧ P ∈ ℙ → 2 ⋅ N ∈ ℤ ≥ log ⁡ 2 ⋅ N log ⁡ P
220 fzss2 ⊢ 2 ⋅ N ∈ ℤ ≥ log ⁡ 2 ⋅ N log ⁡ P → 1 … log ⁡ 2 ⋅ N log ⁡ P ⊆ 1 … 2 ⋅ N
221 219 220 syl ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 … log ⁡ 2 ⋅ N log ⁡ P ⊆ 1 … 2 ⋅ N
222 sumhash ⊢ 1 … 2 ⋅ N ∈ Fin ∧ 1 … log ⁡ 2 ⋅ N log ⁡ P ⊆ 1 … 2 ⋅ N → ∑ k = 1 2 ⋅ N if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 = 1 … log ⁡ 2 ⋅ N log ⁡ P
223 1 221 222 syl2anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → ∑ k = 1 2 ⋅ N if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0 = 1 … log ⁡ 2 ⋅ N log ⁡ P
224 125 rprege0d ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P ∈ ℝ ∧ 0 ≤ log ⁡ 2 ⋅ N log ⁡ P
225 flge0nn0 ⊢ log ⁡ 2 ⋅ N log ⁡ P ∈ ℝ ∧ 0 ≤ log ⁡ 2 ⋅ N log ⁡ P → log ⁡ 2 ⋅ N log ⁡ P ∈ ℕ 0
226 hashfz1 ⊢ log ⁡ 2 ⋅ N log ⁡ P ∈ ℕ 0 → 1 … log ⁡ 2 ⋅ N log ⁡ P = log ⁡ 2 ⋅ N log ⁡ P
227 224 225 226 3syl ⊢ N ∈ ℕ ∧ P ∈ ℙ → 1 … log ⁡ 2 ⋅ N log ⁡ P = log ⁡ 2 ⋅ N log ⁡ P
228 223 227 eqtr2d ⊢ N ∈ ℕ ∧ P ∈ ℙ → log ⁡ 2 ⋅ N log ⁡ P = ∑ k = 1 2 ⋅ N if k ∈ 1 … log ⁡ 2 ⋅ N log ⁡ P 1 0
229 190 191 228 3brtr4d ⊢ N ∈ ℕ ∧ P ∈ ℙ → P pCnt ( 2 ⋅ N N) ≤ log ⁡ 2 ⋅ N log ⁡ P
230 simpr ⊢ N ∈ ℕ ∧ P ∈ ℙ → P ∈ ℙ
231 nnnn0 ⊢ N ∈ ℕ → N ∈ ℕ 0
232 fzctr ⊢ N ∈ ℕ 0 → N ∈ 0 … 2 ⋅ N
233 bccl2 ⊢ N ∈ 0 … 2 ⋅ N → ( 2 ⋅ N N) ∈ ℕ
234 231 232 233 3syl ⊢ N ∈ ℕ → ( 2 ⋅ N N) ∈ ℕ
235 234 adantr ⊢ N ∈ ℕ ∧ P ∈ ℙ → ( 2 ⋅ N N) ∈ ℕ
236 230 235 pccld ⊢ N ∈ ℕ ∧ P ∈ ℙ → P pCnt ( 2 ⋅ N N) ∈ ℕ 0
237 236 nn0zd ⊢ N ∈ ℕ ∧ P ∈ ℙ → P pCnt ( 2 ⋅ N N) ∈ ℤ
238 efexple ⊢ P ∈ ℝ ∧ 1 < P ∧ P pCnt ( 2 ⋅ N N) ∈ ℤ ∧ 2 ⋅ N ∈ ℝ + → P P pCnt ( 2 ⋅ N N) ≤ 2 ⋅ N ↔ P pCnt ( 2 ⋅ N N) ≤ log ⁡ 2 ⋅ N log ⁡ P
239 90 94 237 100 238 syl211anc ⊢ N ∈ ℕ ∧ P ∈ ℙ → P P pCnt ( 2 ⋅ N N) ≤ 2 ⋅ N ↔ P pCnt ( 2 ⋅ N N) ≤ log ⁡ 2 ⋅ N log ⁡ P
240 229 239 mpbird ⊢ N ∈ ℕ ∧ P ∈ ℙ → P P pCnt ( 2 ⋅ N N) ≤ 2 ⋅ N