Metamath Proof Explorer


Theorem bposlem3

Description: Lemma for bpos . Since the binomial coefficient does not have any primes in the range ( 2 N / 3 , N ] or ( 2 N , +oo ) by bposlem2 and prmfac1 , respectively, and it does not have any in the range ( N , 2 N ] by hypothesis, the product of the primes up through 2 N / 3 must be sufficient to compose the whole binomial coefficient. (Contributed by Mario Carneiro, 13-Mar-2014)

Ref Expression
Hypotheses bpos.1 ⊢ φ → N ∈ ℤ ≥ 5
bpos.2 ⊢ φ → ¬ ∃ p ∈ ℙ N < p ∧ p ≤ 2 ⋅ N
bpos.3 ⊢ F = n ∈ ℕ ⟼ if n ∈ ℙ n n pCnt ( 2 ⋅ N N) 1
bpos.4 ⊢ K = 2 ⋅ N 3
Assertion bposlem3 ⊢ φ → seq 1 × F ⁡ K = ( 2 ⋅ N N)

Proof

Step Hyp Ref Expression
1 bpos.1 ⊢ φ → N ∈ ℤ ≥ 5
2 bpos.2 ⊢ φ → ¬ ∃ p ∈ ℙ N < p ∧ p ≤ 2 ⋅ N
3 bpos.3 ⊢ F = n ∈ ℕ ⟼ if n ∈ ℙ n n pCnt ( 2 ⋅ N N) 1
4 bpos.4 ⊢ K = 2 ⋅ N 3
5 simpr ⊢ φ ∧ n ∈ ℙ → n ∈ ℙ
6 5nn ⊢ 5 ∈ ℕ
7 eluznn ⊢ 5 ∈ ℕ ∧ N ∈ ℤ ≥ 5 → N ∈ ℕ
8 6 1 7 sylancr ⊢ φ → N ∈ ℕ
9 8 nnnn0d ⊢ φ → N ∈ ℕ 0
10 fzctr ⊢ N ∈ ℕ 0 → N ∈ 0 … 2 ⋅ N
11 bccl2 ⊢ N ∈ 0 … 2 ⋅ N → ( 2 ⋅ N N) ∈ ℕ
12 9 10 11 3syl ⊢ φ → ( 2 ⋅ N N) ∈ ℕ
13 12 adantr ⊢ φ ∧ n ∈ ℙ → ( 2 ⋅ N N) ∈ ℕ
14 5 13 pccld ⊢ φ ∧ n ∈ ℙ → n pCnt ( 2 ⋅ N N) ∈ ℕ 0
15 14 ralrimiva ⊢ φ → ∀ n ∈ ℙ n pCnt ( 2 ⋅ N N) ∈ ℕ 0
16 15 adantr ⊢ φ ∧ p ∈ ℙ → ∀ n ∈ ℙ n pCnt ( 2 ⋅ N N) ∈ ℕ 0
17 2nn ⊢ 2 ∈ ℕ
18 nnmulcl ⊢ 2 ∈ ℕ ∧ N ∈ ℕ → 2 ⋅ N ∈ ℕ
19 17 8 18 sylancr ⊢ φ → 2 ⋅ N ∈ ℕ
20 19 nnred ⊢ φ → 2 ⋅ N ∈ ℝ
21 3nn ⊢ 3 ∈ ℕ
22 nndivre ⊢ 2 ⋅ N ∈ ℝ ∧ 3 ∈ ℕ → 2 ⋅ N 3 ∈ ℝ
23 20 21 22 sylancl ⊢ φ → 2 ⋅ N 3 ∈ ℝ
24 23 flcld ⊢ φ → 2 ⋅ N 3 ∈ ℤ
25 4 24 eqeltrid ⊢ φ → K ∈ ℤ
26 3re ⊢ 3 ∈ ℝ
27 26 a1i ⊢ φ → 3 ∈ ℝ
28 5re ⊢ 5 ∈ ℝ
29 28 a1i ⊢ φ → 5 ∈ ℝ
30 8 nnred ⊢ φ → N ∈ ℝ
31 3lt5 ⊢ 3 < 5
32 26 28 31 ltleii ⊢ 3 ≤ 5
33 32 a1i ⊢ φ → 3 ≤ 5
34 eluzle ⊢ N ∈ ℤ ≥ 5 → 5 ≤ N
35 1 34 syl ⊢ φ → 5 ≤ N
36 27 29 30 33 35 letrd ⊢ φ → 3 ≤ N
37 2re ⊢ 2 ∈ ℝ
38 2pos ⊢ 0 < 2
39 37 38 pm3.2i ⊢ 2 ∈ ℝ ∧ 0 < 2
40 lemul2 ⊢ 3 ∈ ℝ ∧ N ∈ ℝ ∧ 2 ∈ ℝ ∧ 0 < 2 → 3 ≤ N ↔ 2 ⋅ 3 ≤ 2 ⋅ N
41 26 39 40 mp3an13 ⊢ N ∈ ℝ → 3 ≤ N ↔ 2 ⋅ 3 ≤ 2 ⋅ N
42 30 41 syl ⊢ φ → 3 ≤ N ↔ 2 ⋅ 3 ≤ 2 ⋅ N
43 36 42 mpbid ⊢ φ → 2 ⋅ 3 ≤ 2 ⋅ N
44 3pos ⊢ 0 < 3
45 26 44 pm3.2i ⊢ 3 ∈ ℝ ∧ 0 < 3
46 lemuldiv ⊢ 2 ∈ ℝ ∧ 2 ⋅ N ∈ ℝ ∧ 3 ∈ ℝ ∧ 0 < 3 → 2 ⋅ 3 ≤ 2 ⋅ N ↔ 2 ≤ 2 ⋅ N 3
47 37 45 46 mp3an13 ⊢ 2 ⋅ N ∈ ℝ → 2 ⋅ 3 ≤ 2 ⋅ N ↔ 2 ≤ 2 ⋅ N 3
48 20 47 syl ⊢ φ → 2 ⋅ 3 ≤ 2 ⋅ N ↔ 2 ≤ 2 ⋅ N 3
49 43 48 mpbid ⊢ φ → 2 ≤ 2 ⋅ N 3
50 2z ⊢ 2 ∈ ℤ
51 flge ⊢ 2 ⋅ N 3 ∈ ℝ ∧ 2 ∈ ℤ → 2 ≤ 2 ⋅ N 3 ↔ 2 ≤ 2 ⋅ N 3
52 23 50 51 sylancl ⊢ φ → 2 ≤ 2 ⋅ N 3 ↔ 2 ≤ 2 ⋅ N 3
53 49 52 mpbid ⊢ φ → 2 ≤ 2 ⋅ N 3
54 53 4 breqtrrdi ⊢ φ → 2 ≤ K
55 50 eluz1i ⊢ K ∈ ℤ ≥ 2 ↔ K ∈ ℤ ∧ 2 ≤ K
56 25 54 55 sylanbrc ⊢ φ → K ∈ ℤ ≥ 2
57 eluz2nn ⊢ K ∈ ℤ ≥ 2 → K ∈ ℕ
58 56 57 syl ⊢ φ → K ∈ ℕ
59 58 adantr ⊢ φ ∧ p ∈ ℙ → K ∈ ℕ
60 simpr ⊢ φ ∧ p ∈ ℙ → p ∈ ℙ
61 oveq1 ⊢ n = p → n pCnt ( 2 ⋅ N N) = p pCnt ( 2 ⋅ N N)
62 3 16 59 60 61 pcmpt ⊢ φ ∧ p ∈ ℙ → p pCnt seq 1 × F ⁡ K = if p ≤ K p pCnt ( 2 ⋅ N N) 0
63 iftrue ⊢ p ≤ K → if p ≤ K p pCnt ( 2 ⋅ N N) 0 = p pCnt ( 2 ⋅ N N)
64 63 adantl ⊢ φ ∧ p ∈ ℙ ∧ p ≤ K → if p ≤ K p pCnt ( 2 ⋅ N N) 0 = p pCnt ( 2 ⋅ N N)
65 iffalse ⊢ ¬ p ≤ K → if p ≤ K p pCnt ( 2 ⋅ N N) 0 = 0
66 65 adantl ⊢ φ ∧ p ∈ ℙ ∧ ¬ p ≤ K → if p ≤ K p pCnt ( 2 ⋅ N N) 0 = 0
67 25 zred ⊢ φ → K ∈ ℝ
68 prmz ⊢ p ∈ ℙ → p ∈ ℤ
69 68 zred ⊢ p ∈ ℙ → p ∈ ℝ
70 ltnle ⊢ K ∈ ℝ ∧ p ∈ ℝ → K < p ↔ ¬ p ≤ K
71 67 69 70 syl2an ⊢ φ ∧ p ∈ ℙ → K < p ↔ ¬ p ≤ K
72 71 biimpar ⊢ φ ∧ p ∈ ℙ ∧ ¬ p ≤ K → K < p
73 8 ad2antrr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → N ∈ ℕ
74 simplr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → p ∈ ℙ
75 37 a1i ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 ∈ ℝ
76 67 ad2antrr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → K ∈ ℝ
77 68 ad2antlr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → p ∈ ℤ
78 77 zred ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → p ∈ ℝ
79 54 ad2antrr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 ≤ K
80 simprl ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → K < p
81 75 76 78 79 80 lelttrd ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 < p
82 4 80 eqbrtrrid ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 ⋅ N 3 < p
83 23 ad2antrr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 ⋅ N 3 ∈ ℝ
84 fllt ⊢ 2 ⋅ N 3 ∈ ℝ ∧ p ∈ ℤ → 2 ⋅ N 3 < p ↔ 2 ⋅ N 3 < p
85 83 77 84 syl2anc ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 ⋅ N 3 < p ↔ 2 ⋅ N 3 < p
86 82 85 mpbird ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → 2 ⋅ N 3 < p
87 simprr ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → p ≤ N
88 73 74 81 86 87 bposlem2 ⊢ φ ∧ p ∈ ℙ ∧ K < p ∧ p ≤ N → p pCnt ( 2 ⋅ N N) = 0
89 88 expr ⊢ φ ∧ p ∈ ℙ ∧ K < p → p ≤ N → p pCnt ( 2 ⋅ N N) = 0
90 rspe ⊢ p ∈ ℙ ∧ N < p ∧ p ≤ 2 ⋅ N → ∃ p ∈ ℙ N < p ∧ p ≤ 2 ⋅ N
91 90 adantll ⊢ φ ∧ p ∈ ℙ ∧ N < p ∧ p ≤ 2 ⋅ N → ∃ p ∈ ℙ N < p ∧ p ≤ 2 ⋅ N
92 2 ad2antrr ⊢ φ ∧ p ∈ ℙ ∧ N < p ∧ p ≤ 2 ⋅ N → ¬ ∃ p ∈ ℙ N < p ∧ p ≤ 2 ⋅ N
93 91 92 pm2.21dd ⊢ φ ∧ p ∈ ℙ ∧ N < p ∧ p ≤ 2 ⋅ N → p pCnt ( 2 ⋅ N N) = 0
94 93 expr ⊢ φ ∧ p ∈ ℙ ∧ N < p → p ≤ 2 ⋅ N → p pCnt ( 2 ⋅ N N) = 0
95 12 nnzd ⊢ φ → ( 2 ⋅ N N) ∈ ℤ
96 9 faccld ⊢ φ → N ! ∈ ℕ
97 96 96 nnmulcld ⊢ φ → N ! ⁢ N ! ∈ ℕ
98 97 nnzd ⊢ φ → N ! ⁢ N ! ∈ ℤ
99 dvdsmul1 ⊢ ( 2 ⋅ N N) ∈ ℤ ∧ N ! ⁢ N ! ∈ ℤ → ( 2 ⋅ N N) ∥ ( 2 ⋅ N N) ⁢ N ! ⁢ N !
100 95 98 99 syl2anc ⊢ φ → ( 2 ⋅ N N) ∥ ( 2 ⋅ N N) ⁢ N ! ⁢ N !
101 bcctr ⊢ N ∈ ℕ 0 → ( 2 ⋅ N N) = 2 ⋅ N ! N ! ⁢ N !
102 9 101 syl ⊢ φ → ( 2 ⋅ N N) = 2 ⋅ N ! N ! ⁢ N !
103 102 oveq1d ⊢ φ → ( 2 ⋅ N N) ⁢ N ! ⁢ N ! = 2 ⋅ N ! N ! ⁢ N ! ⁢ N ! ⁢ N !
104 19 nnnn0d ⊢ φ → 2 ⋅ N ∈ ℕ 0
105 104 faccld ⊢ φ → 2 ⋅ N ! ∈ ℕ
106 105 nncnd ⊢ φ → 2 ⋅ N ! ∈ ℂ
107 97 nncnd ⊢ φ → N ! ⁢ N ! ∈ ℂ
108 97 nnne0d ⊢ φ → N ! ⁢ N ! ≠ 0
109 106 107 108 divcan1d ⊢ φ → 2 ⋅ N ! N ! ⁢ N ! ⁢ N ! ⁢ N ! = 2 ⋅ N !
110 103 109 eqtrd ⊢ φ → ( 2 ⋅ N N) ⁢ N ! ⁢ N ! = 2 ⋅ N !
111 100 110 breqtrd ⊢ φ → ( 2 ⋅ N N) ∥ 2 ⋅ N !
112 111 adantr ⊢ φ ∧ p ∈ ℙ → ( 2 ⋅ N N) ∥ 2 ⋅ N !
113 68 adantl ⊢ φ ∧ p ∈ ℙ → p ∈ ℤ
114 95 adantr ⊢ φ ∧ p ∈ ℙ → ( 2 ⋅ N N) ∈ ℤ
115 105 nnzd ⊢ φ → 2 ⋅ N ! ∈ ℤ
116 115 adantr ⊢ φ ∧ p ∈ ℙ → 2 ⋅ N ! ∈ ℤ
117 dvdstr ⊢ p ∈ ℤ ∧ ( 2 ⋅ N N) ∈ ℤ ∧ 2 ⋅ N ! ∈ ℤ → p ∥ ( 2 ⋅ N N) ∧ ( 2 ⋅ N N) ∥ 2 ⋅ N ! → p ∥ 2 ⋅ N !
118 113 114 116 117 syl3anc ⊢ φ ∧ p ∈ ℙ → p ∥ ( 2 ⋅ N N) ∧ ( 2 ⋅ N N) ∥ 2 ⋅ N ! → p ∥ 2 ⋅ N !
119 112 118 mpan2d ⊢ φ ∧ p ∈ ℙ → p ∥ ( 2 ⋅ N N) → p ∥ 2 ⋅ N !
120 prmfac1 ⊢ 2 ⋅ N ∈ ℕ 0 ∧ p ∈ ℙ ∧ p ∥ 2 ⋅ N ! → p ≤ 2 ⋅ N
121 120 3expia ⊢ 2 ⋅ N ∈ ℕ 0 ∧ p ∈ ℙ → p ∥ 2 ⋅ N ! → p ≤ 2 ⋅ N
122 104 121 sylan ⊢ φ ∧ p ∈ ℙ → p ∥ 2 ⋅ N ! → p ≤ 2 ⋅ N
123 119 122 syld ⊢ φ ∧ p ∈ ℙ → p ∥ ( 2 ⋅ N N) → p ≤ 2 ⋅ N
124 123 con3d ⊢ φ ∧ p ∈ ℙ → ¬ p ≤ 2 ⋅ N → ¬ p ∥ ( 2 ⋅ N N)
125 id ⊢ p ∈ ℙ → p ∈ ℙ
126 pceq0 ⊢ p ∈ ℙ ∧ ( 2 ⋅ N N) ∈ ℕ → p pCnt ( 2 ⋅ N N) = 0 ↔ ¬ p ∥ ( 2 ⋅ N N)
127 125 12 126 syl2anr ⊢ φ ∧ p ∈ ℙ → p pCnt ( 2 ⋅ N N) = 0 ↔ ¬ p ∥ ( 2 ⋅ N N)
128 124 127 sylibrd ⊢ φ ∧ p ∈ ℙ → ¬ p ≤ 2 ⋅ N → p pCnt ( 2 ⋅ N N) = 0
129 128 adantr ⊢ φ ∧ p ∈ ℙ ∧ N < p → ¬ p ≤ 2 ⋅ N → p pCnt ( 2 ⋅ N N) = 0
130 94 129 pm2.61d ⊢ φ ∧ p ∈ ℙ ∧ N < p → p pCnt ( 2 ⋅ N N) = 0
131 130 ex ⊢ φ ∧ p ∈ ℙ → N < p → p pCnt ( 2 ⋅ N N) = 0
132 131 adantr ⊢ φ ∧ p ∈ ℙ ∧ K < p → N < p → p pCnt ( 2 ⋅ N N) = 0
133 lelttric ⊢ p ∈ ℝ ∧ N ∈ ℝ → p ≤ N ∨ N < p
134 69 30 133 syl2anr ⊢ φ ∧ p ∈ ℙ → p ≤ N ∨ N < p
135 134 adantr ⊢ φ ∧ p ∈ ℙ ∧ K < p → p ≤ N ∨ N < p
136 89 132 135 mpjaod ⊢ φ ∧ p ∈ ℙ ∧ K < p → p pCnt ( 2 ⋅ N N) = 0
137 72 136 syldan ⊢ φ ∧ p ∈ ℙ ∧ ¬ p ≤ K → p pCnt ( 2 ⋅ N N) = 0
138 66 137 eqtr4d ⊢ φ ∧ p ∈ ℙ ∧ ¬ p ≤ K → if p ≤ K p pCnt ( 2 ⋅ N N) 0 = p pCnt ( 2 ⋅ N N)
139 64 138 pm2.61dan ⊢ φ ∧ p ∈ ℙ → if p ≤ K p pCnt ( 2 ⋅ N N) 0 = p pCnt ( 2 ⋅ N N)
140 62 139 eqtrd ⊢ φ ∧ p ∈ ℙ → p pCnt seq 1 × F ⁡ K = p pCnt ( 2 ⋅ N N)
141 140 ralrimiva ⊢ φ → ∀ p ∈ ℙ p pCnt seq 1 × F ⁡ K = p pCnt ( 2 ⋅ N N)
142 3 15 pcmptcl ⊢ φ → F : ℕ ⟶ ℕ ∧ seq 1 × F : ℕ ⟶ ℕ
143 142 simprd ⊢ φ → seq 1 × F : ℕ ⟶ ℕ
144 143 58 ffvelcdmd ⊢ φ → seq 1 × F ⁡ K ∈ ℕ
145 144 nnnn0d ⊢ φ → seq 1 × F ⁡ K ∈ ℕ 0
146 12 nnnn0d ⊢ φ → ( 2 ⋅ N N) ∈ ℕ 0
147 pc11 ⊢ seq 1 × F ⁡ K ∈ ℕ 0 ∧ ( 2 ⋅ N N) ∈ ℕ 0 → seq 1 × F ⁡ K = ( 2 ⋅ N N) ↔ ∀ p ∈ ℙ p pCnt seq 1 × F ⁡ K = p pCnt ( 2 ⋅ N N)
148 145 146 147 syl2anc ⊢ φ → seq 1 × F ⁡ K = ( 2 ⋅ N N) ↔ ∀ p ∈ ℙ p pCnt seq 1 × F ⁡ K = p pCnt ( 2 ⋅ N N)
149 141 148 mpbird ⊢ φ → seq 1 × F ⁡ K = ( 2 ⋅ N N)