MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  bposlem5 Structured version   Visualization version   GIF version

Theorem bposlem5 27346
Description: Lemma for bpos 27351. Bound the product of all small primes in the binomial coefficient. (Contributed by Mario Carneiro, 15-Mar-2014.) (Proof shortened by AV, 15-Sep-2021.)
Hypotheses
Ref Expression
bpos.1 (𝜑𝑁 ∈ (ℤ‘5))
bpos.2 (𝜑 → ¬ ∃𝑝 ∈ ℙ (𝑁 < 𝑝𝑝 ≤ (2 · 𝑁)))
bpos.3 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
bpos.4 𝐾 = (⌊‘((2 · 𝑁) / 3))
bpos.5 𝑀 = (⌊‘(√‘(2 · 𝑁)))
Assertion
Ref Expression
bposlem5 (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
Distinct variable groups:   𝐹,𝑝   𝑛,𝑝,𝐾   𝑀,𝑝   𝑛,𝑁,𝑝   𝜑,𝑛,𝑝
Allowed substitution hints:   𝐹(𝑛)   𝑀(𝑛)

Proof of Theorem bposlem5
Dummy variables 𝑘 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 bpos.3 . . . . . 6 𝐹 = (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1))
2 id 22 . . . . . . . 8 (𝑛 ∈ ℙ → 𝑛 ∈ ℙ)
3 5nn 12349 . . . . . . . . . . 11 5 ∈ ℕ
4 bpos.1 . . . . . . . . . . 11 (𝜑𝑁 ∈ (ℤ‘5))
5 eluznn 12957 . . . . . . . . . . 11 ((5 ∈ ℕ ∧ 𝑁 ∈ (ℤ‘5)) → 𝑁 ∈ ℕ)
63, 4, 5sylancr 587 . . . . . . . . . 10 (𝜑𝑁 ∈ ℕ)
76nnnn0d 12584 . . . . . . . . 9 (𝜑𝑁 ∈ ℕ0)
8 fzctr 13676 . . . . . . . . 9 (𝑁 ∈ ℕ0𝑁 ∈ (0...(2 · 𝑁)))
9 bccl2 14358 . . . . . . . . 9 (𝑁 ∈ (0...(2 · 𝑁)) → ((2 · 𝑁)C𝑁) ∈ ℕ)
107, 8, 93syl 18 . . . . . . . 8 (𝜑 → ((2 · 𝑁)C𝑁) ∈ ℕ)
11 pccl 16882 . . . . . . . 8 ((𝑛 ∈ ℙ ∧ ((2 · 𝑁)C𝑁) ∈ ℕ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ0)
122, 10, 11syl2anr 597 . . . . . . 7 ((𝜑𝑛 ∈ ℙ) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ0)
1312ralrimiva 3143 . . . . . 6 (𝜑 → ∀𝑛 ∈ ℙ (𝑛 pCnt ((2 · 𝑁)C𝑁)) ∈ ℕ0)
141, 13pcmptcl 16924 . . . . 5 (𝜑 → (𝐹:ℕ⟶ℕ ∧ seq1( · , 𝐹):ℕ⟶ℕ))
1514simprd 495 . . . 4 (𝜑 → seq1( · , 𝐹):ℕ⟶ℕ)
16 3nn 12342 . . . . 5 3 ∈ ℕ
17 bpos.5 . . . . . 6 𝑀 = (⌊‘(√‘(2 · 𝑁)))
18 2z 12646 . . . . . . . . . . 11 2 ∈ ℤ
196nnzd 12637 . . . . . . . . . . 11 (𝜑𝑁 ∈ ℤ)
20 zmulcl 12663 . . . . . . . . . . 11 ((2 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (2 · 𝑁) ∈ ℤ)
2118, 19, 20sylancr 587 . . . . . . . . . 10 (𝜑 → (2 · 𝑁) ∈ ℤ)
2221zred 12719 . . . . . . . . 9 (𝜑 → (2 · 𝑁) ∈ ℝ)
23 2nn 12336 . . . . . . . . . . . 12 2 ∈ ℕ
24 nnmulcl 12287 . . . . . . . . . . . 12 ((2 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
2523, 6, 24sylancr 587 . . . . . . . . . . 11 (𝜑 → (2 · 𝑁) ∈ ℕ)
2625nnrpd 13072 . . . . . . . . . 10 (𝜑 → (2 · 𝑁) ∈ ℝ+)
2726rpge0d 13078 . . . . . . . . 9 (𝜑 → 0 ≤ (2 · 𝑁))
2822, 27resqrtcld 15452 . . . . . . . 8 (𝜑 → (√‘(2 · 𝑁)) ∈ ℝ)
2928flcld 13834 . . . . . . 7 (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ ℤ)
30 sqrt9 15308 . . . . . . . . 9 (√‘9) = 3
31 9re 12362 . . . . . . . . . . . 12 9 ∈ ℝ
3231a1i 11 . . . . . . . . . . 11 (𝜑 → 9 ∈ ℝ)
33 10re 12749 . . . . . . . . . . . 12 10 ∈ ℝ
3433a1i 11 . . . . . . . . . . 11 (𝜑10 ∈ ℝ)
35 lep1 12105 . . . . . . . . . . . . . 14 (9 ∈ ℝ → 9 ≤ (9 + 1))
3631, 35ax-mp 5 . . . . . . . . . . . . 13 9 ≤ (9 + 1)
37 9p1e10 12732 . . . . . . . . . . . . 13 (9 + 1) = 10
3836, 37breqtri 5172 . . . . . . . . . . . 12 9 ≤ 10
3938a1i 11 . . . . . . . . . . 11 (𝜑 → 9 ≤ 10)
40 5cn 12351 . . . . . . . . . . . . 13 5 ∈ ℂ
41 2cn 12338 . . . . . . . . . . . . 13 2 ∈ ℂ
42 5t2e10 12830 . . . . . . . . . . . . 13 (5 · 2) = 10
4340, 41, 42mulcomli 11267 . . . . . . . . . . . 12 (2 · 5) = 10
44 eluzle 12888 . . . . . . . . . . . . . 14 (𝑁 ∈ (ℤ‘5) → 5 ≤ 𝑁)
454, 44syl 17 . . . . . . . . . . . . 13 (𝜑 → 5 ≤ 𝑁)
466nnred 12278 . . . . . . . . . . . . . 14 (𝜑𝑁 ∈ ℝ)
47 5re 12350 . . . . . . . . . . . . . . 15 5 ∈ ℝ
48 2re 12337 . . . . . . . . . . . . . . . 16 2 ∈ ℝ
49 2pos 12366 . . . . . . . . . . . . . . . 16 0 < 2
5048, 49pm3.2i 470 . . . . . . . . . . . . . . 15 (2 ∈ ℝ ∧ 0 < 2)
51 lemul2 12117 . . . . . . . . . . . . . . 15 ((5 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
5247, 50, 51mp3an13 1451 . . . . . . . . . . . . . 14 (𝑁 ∈ ℝ → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
5346, 52syl 17 . . . . . . . . . . . . 13 (𝜑 → (5 ≤ 𝑁 ↔ (2 · 5) ≤ (2 · 𝑁)))
5445, 53mpbid 232 . . . . . . . . . . . 12 (𝜑 → (2 · 5) ≤ (2 · 𝑁))
5543, 54eqbrtrrid 5183 . . . . . . . . . . 11 (𝜑10 ≤ (2 · 𝑁))
5632, 34, 22, 39, 55letrd 11415 . . . . . . . . . 10 (𝜑 → 9 ≤ (2 · 𝑁))
57 0re 11260 . . . . . . . . . . . . 13 0 ∈ ℝ
58 9pos 12376 . . . . . . . . . . . . 13 0 < 9
5957, 31, 58ltleii 11381 . . . . . . . . . . . 12 0 ≤ 9
6031, 59pm3.2i 470 . . . . . . . . . . 11 (9 ∈ ℝ ∧ 0 ≤ 9)
6122, 27jca 511 . . . . . . . . . . 11 (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁)))
62 sqrtle 15295 . . . . . . . . . . 11 (((9 ∈ ℝ ∧ 0 ≤ 9) ∧ ((2 · 𝑁) ∈ ℝ ∧ 0 ≤ (2 · 𝑁))) → (9 ≤ (2 · 𝑁) ↔ (√‘9) ≤ (√‘(2 · 𝑁))))
6360, 61, 62sylancr 587 . . . . . . . . . 10 (𝜑 → (9 ≤ (2 · 𝑁) ↔ (√‘9) ≤ (√‘(2 · 𝑁))))
6456, 63mpbid 232 . . . . . . . . 9 (𝜑 → (√‘9) ≤ (√‘(2 · 𝑁)))
6530, 64eqbrtrrid 5183 . . . . . . . 8 (𝜑 → 3 ≤ (√‘(2 · 𝑁)))
66 3z 12647 . . . . . . . . 9 3 ∈ ℤ
67 flge 13841 . . . . . . . . 9 (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℤ) → (3 ≤ (√‘(2 · 𝑁)) ↔ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
6828, 66, 67sylancl 586 . . . . . . . 8 (𝜑 → (3 ≤ (√‘(2 · 𝑁)) ↔ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
6965, 68mpbid 232 . . . . . . 7 (𝜑 → 3 ≤ (⌊‘(√‘(2 · 𝑁))))
7066eluz1i 12883 . . . . . . 7 ((⌊‘(√‘(2 · 𝑁))) ∈ (ℤ‘3) ↔ ((⌊‘(√‘(2 · 𝑁))) ∈ ℤ ∧ 3 ≤ (⌊‘(√‘(2 · 𝑁)))))
7129, 69, 70sylanbrc 583 . . . . . 6 (𝜑 → (⌊‘(√‘(2 · 𝑁))) ∈ (ℤ‘3))
7217, 71eqeltrid 2842 . . . . 5 (𝜑𝑀 ∈ (ℤ‘3))
73 eluznn 12957 . . . . 5 ((3 ∈ ℕ ∧ 𝑀 ∈ (ℤ‘3)) → 𝑀 ∈ ℕ)
7416, 72, 73sylancr 587 . . . 4 (𝜑𝑀 ∈ ℕ)
7515, 74ffvelcdmd 7104 . . 3 (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℕ)
7675nnred 12278 . 2 (𝜑 → (seq1( · , 𝐹)‘𝑀) ∈ ℝ)
7774nnred 12278 . . . . 5 (𝜑𝑀 ∈ ℝ)
78 ppicl 27188 . . . . 5 (𝑀 ∈ ℝ → (π𝑀) ∈ ℕ0)
7977, 78syl 17 . . . 4 (𝜑 → (π𝑀) ∈ ℕ0)
8025, 79nnexpcld 14280 . . 3 (𝜑 → ((2 · 𝑁)↑(π𝑀)) ∈ ℕ)
8180nnred 12278 . 2 (𝜑 → ((2 · 𝑁)↑(π𝑀)) ∈ ℝ)
82 nndivre 12304 . . . . 5 (((√‘(2 · 𝑁)) ∈ ℝ ∧ 3 ∈ ℕ) → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
8328, 16, 82sylancl 586 . . . 4 (𝜑 → ((√‘(2 · 𝑁)) / 3) ∈ ℝ)
84 readdcl 11235 . . . 4 ((((√‘(2 · 𝑁)) / 3) ∈ ℝ ∧ 2 ∈ ℝ) → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
8583, 48, 84sylancl 586 . . 3 (𝜑 → (((√‘(2 · 𝑁)) / 3) + 2) ∈ ℝ)
8622, 27, 85recxpcld 26779 . 2 (𝜑 → ((2 · 𝑁)↑𝑐(((√‘(2 · 𝑁)) / 3) + 2)) ∈ ℝ)
87 fveq2 6906 . . . . . 6 (𝑥 = 1 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘1))
88 fveq2 6906 . . . . . . . 8 (𝑥 = 1 → (π𝑥) = (π‘1))
89 ppi1 27221 . . . . . . . 8 (π‘1) = 0
9088, 89eqtrdi 2790 . . . . . . 7 (𝑥 = 1 → (π𝑥) = 0)
9190oveq2d 7446 . . . . . 6 (𝑥 = 1 → ((2 · 𝑁)↑(π𝑥)) = ((2 · 𝑁)↑0))
9287, 91breq12d 5160 . . . . 5 (𝑥 = 1 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥)) ↔ (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0)))
9392imbi2d 340 . . . 4 (𝑥 = 1 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))))
94 fveq2 6906 . . . . . 6 (𝑥 = 𝑘 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑘))
95 fveq2 6906 . . . . . . 7 (𝑥 = 𝑘 → (π𝑥) = (π𝑘))
9695oveq2d 7446 . . . . . 6 (𝑥 = 𝑘 → ((2 · 𝑁)↑(π𝑥)) = ((2 · 𝑁)↑(π𝑘)))
9794, 96breq12d 5160 . . . . 5 (𝑥 = 𝑘 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥)) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘))))
9897imbi2d 340 . . . 4 (𝑥 = 𝑘 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)))))
99 fveq2 6906 . . . . . 6 (𝑥 = (𝑘 + 1) → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘(𝑘 + 1)))
100 fveq2 6906 . . . . . . 7 (𝑥 = (𝑘 + 1) → (π𝑥) = (π‘(𝑘 + 1)))
101100oveq2d 7446 . . . . . 6 (𝑥 = (𝑘 + 1) → ((2 · 𝑁)↑(π𝑥)) = ((2 · 𝑁)↑(π‘(𝑘 + 1))))
10299, 101breq12d 5160 . . . . 5 (𝑥 = (𝑘 + 1) → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥)) ↔ (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
103102imbi2d 340 . . . 4 (𝑥 = (𝑘 + 1) → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
104 fveq2 6906 . . . . . 6 (𝑥 = 𝑀 → (seq1( · , 𝐹)‘𝑥) = (seq1( · , 𝐹)‘𝑀))
105 fveq2 6906 . . . . . . 7 (𝑥 = 𝑀 → (π𝑥) = (π𝑀))
106105oveq2d 7446 . . . . . 6 (𝑥 = 𝑀 → ((2 · 𝑁)↑(π𝑥)) = ((2 · 𝑁)↑(π𝑀)))
107104, 106breq12d 5160 . . . . 5 (𝑥 = 𝑀 → ((seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥)) ↔ (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π𝑀))))
108107imbi2d 340 . . . 4 (𝑥 = 𝑀 → ((𝜑 → (seq1( · , 𝐹)‘𝑥) ≤ ((2 · 𝑁)↑(π𝑥))) ↔ (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π𝑀)))))
109 1z 12644 . . . . . . . 8 1 ∈ ℤ
110 seq1 14051 . . . . . . . 8 (1 ∈ ℤ → (seq1( · , 𝐹)‘1) = (𝐹‘1))
111109, 110ax-mp 5 . . . . . . 7 (seq1( · , 𝐹)‘1) = (𝐹‘1)
112 1nn 12274 . . . . . . . 8 1 ∈ ℕ
113 1nprm 16712 . . . . . . . . . . 11 ¬ 1 ∈ ℙ
114 eleq1 2826 . . . . . . . . . . 11 (𝑛 = 1 → (𝑛 ∈ ℙ ↔ 1 ∈ ℙ))
115113, 114mtbiri 327 . . . . . . . . . 10 (𝑛 = 1 → ¬ 𝑛 ∈ ℙ)
116115iffalsed 4541 . . . . . . . . 9 (𝑛 = 1 → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
117 1ex 11254 . . . . . . . . 9 1 ∈ V
118116, 1, 117fvmpt 7015 . . . . . . . 8 (1 ∈ ℕ → (𝐹‘1) = 1)
119112, 118ax-mp 5 . . . . . . 7 (𝐹‘1) = 1
120111, 119eqtri 2762 . . . . . 6 (seq1( · , 𝐹)‘1) = 1
121 1le1 11888 . . . . . 6 1 ≤ 1
122120, 121eqbrtri 5168 . . . . 5 (seq1( · , 𝐹)‘1) ≤ 1
12321zcnd 12720 . . . . . 6 (𝜑 → (2 · 𝑁) ∈ ℂ)
124123exp0d 14176 . . . . 5 (𝜑 → ((2 · 𝑁)↑0) = 1)
125122, 124breqtrrid 5185 . . . 4 (𝜑 → (seq1( · , 𝐹)‘1) ≤ ((2 · 𝑁)↑0))
12615ffvelcdmda 7103 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
127126nnred 12278 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
128127adantr 480 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
12925ad2antrr 726 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℕ)
130 nnre 12270 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
131130ad2antlr 727 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → 𝑘 ∈ ℝ)
132 ppicl 27188 . . . . . . . . . . . . 13 (𝑘 ∈ ℝ → (π𝑘) ∈ ℕ0)
133131, 132syl 17 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π𝑘) ∈ ℕ0)
134129, 133nnexpcld 14280 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π𝑘)) ∈ ℕ)
135134nnred 12278 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π𝑘)) ∈ ℝ)
136 nnre 12270 . . . . . . . . . . . . 13 ((2 · 𝑁) ∈ ℕ → (2 · 𝑁) ∈ ℝ)
137 nngt0 12294 . . . . . . . . . . . . 13 ((2 · 𝑁) ∈ ℕ → 0 < (2 · 𝑁))
138136, 137jca 511 . . . . . . . . . . . 12 ((2 · 𝑁) ∈ ℕ → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
13925, 138syl 17 . . . . . . . . . . 11 (𝜑 → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
140139ad2antrr 726 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁)))
141 lemul1 12116 . . . . . . . . . 10 (((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ ((2 · 𝑁)↑(π𝑘)) ∈ ℝ ∧ ((2 · 𝑁) ∈ ℝ ∧ 0 < (2 · 𝑁))) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π𝑘)) · (2 · 𝑁))))
142128, 135, 140, 141syl3anc 1370 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π𝑘)) · (2 · 𝑁))))
143 nnz 12631 . . . . . . . . . . . . . 14 (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
144143adantl 481 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
145 ppiprm 27208 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π𝑘) + 1))
146144, 145sylan 580 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = ((π𝑘) + 1))
147146oveq2d 7446 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑((π𝑘) + 1)))
148123ad2antrr 726 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℂ)
149148, 133expp1d 14183 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑((π𝑘) + 1)) = (((2 · 𝑁)↑(π𝑘)) · (2 · 𝑁)))
150147, 149eqtrd 2774 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = (((2 · 𝑁)↑(π𝑘)) · (2 · 𝑁)))
151150breq2d 5159 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ (((2 · 𝑁)↑(π𝑘)) · (2 · 𝑁))))
152142, 151bitr4d 282 . . . . . . . 8 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) ↔ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
153 simpr 484 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
154 nnuz 12918 . . . . . . . . . . . . 13 ℕ = (ℤ‘1)
155153, 154eleqtrdi 2848 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ‘1))
156 seqp1 14053 . . . . . . . . . . . 12 (𝑘 ∈ (ℤ‘1) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
157155, 156syl 17 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
158157adantr 480 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
159 peano2nn 12275 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
160159adantl 481 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
161 eleq1 2826 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑘 + 1) → (𝑛 ∈ ℙ ↔ (𝑘 + 1) ∈ ℙ))
162 id 22 . . . . . . . . . . . . . . . . 17 (𝑛 = (𝑘 + 1) → 𝑛 = (𝑘 + 1))
163 oveq1 7437 . . . . . . . . . . . . . . . . 17 (𝑛 = (𝑘 + 1) → (𝑛 pCnt ((2 · 𝑁)C𝑁)) = ((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁)))
164162, 163oveq12d 7448 . . . . . . . . . . . . . . . 16 (𝑛 = (𝑘 + 1) → (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
165161, 164ifbieq1d 4554 . . . . . . . . . . . . . . 15 (𝑛 = (𝑘 + 1) → if(𝑛 ∈ ℙ, (𝑛↑(𝑛 pCnt ((2 · 𝑁)C𝑁))), 1) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
166 ovex 7463 . . . . . . . . . . . . . . . 16 ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ∈ V
167166, 117ifex 4580 . . . . . . . . . . . . . . 15 if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) ∈ V
168165, 1, 167fvmpt 7015 . . . . . . . . . . . . . 14 ((𝑘 + 1) ∈ ℕ → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
169160, 168syl 17 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) = if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1))
170 iftrue 4536 . . . . . . . . . . . . 13 ((𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
171169, 170sylan9eq 2794 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))))
1726adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → 𝑁 ∈ ℕ)
173 bposlem1 27342 . . . . . . . . . . . . 13 ((𝑁 ∈ ℕ ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ≤ (2 · 𝑁))
174172, 173sylan 580 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))) ≤ (2 · 𝑁))
175171, 174eqbrtrd 5169 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁))
17614simpld 494 . . . . . . . . . . . . . . 15 (𝜑𝐹:ℕ⟶ℕ)
177 ffvelcdm 7100 . . . . . . . . . . . . . . 15 ((𝐹:ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
178176, 159, 177syl2an 596 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℕ)
179178nnred 12278 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
180179adantr 480 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) ∈ ℝ)
18122ad2antrr 726 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (2 · 𝑁) ∈ ℝ)
182 nnre 12270 . . . . . . . . . . . . . . 15 ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → (seq1( · , 𝐹)‘𝑘) ∈ ℝ)
183 nngt0 12294 . . . . . . . . . . . . . . 15 ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → 0 < (seq1( · , 𝐹)‘𝑘))
184182, 183jca 511 . . . . . . . . . . . . . 14 ((seq1( · , 𝐹)‘𝑘) ∈ ℕ → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
185126, 184syl 17 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
186185adantr 480 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘)))
187 lemul2 12117 . . . . . . . . . . . 12 (((𝐹‘(𝑘 + 1)) ∈ ℝ ∧ (2 · 𝑁) ∈ ℝ ∧ ((seq1( · , 𝐹)‘𝑘) ∈ ℝ ∧ 0 < (seq1( · , 𝐹)‘𝑘))) → ((𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁) ↔ ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁))))
188180, 181, 186, 187syl3anc 1370 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((𝐹‘(𝑘 + 1)) ≤ (2 · 𝑁) ↔ ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁))))
189175, 188mpbid 232 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
190158, 189eqbrtrd 5169 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)))
191 ffvelcdm 7100 . . . . . . . . . . . . 13 ((seq1( · , 𝐹):ℕ⟶ℕ ∧ (𝑘 + 1) ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
19215, 159, 191syl2an 596 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℕ)
193192nnred 12278 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → (seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℝ)
19425adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → (2 · 𝑁) ∈ ℕ)
195126, 194nnmulcld 12316 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℕ)
196195nnred 12278 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℝ)
197160nnred 12278 . . . . . . . . . . . . . 14 ((𝜑𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
198 ppicl 27188 . . . . . . . . . . . . . 14 ((𝑘 + 1) ∈ ℝ → (π‘(𝑘 + 1)) ∈ ℕ0)
199197, 198syl 17 . . . . . . . . . . . . 13 ((𝜑𝑘 ∈ ℕ) → (π‘(𝑘 + 1)) ∈ ℕ0)
200194, 199nnexpcld 14280 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℕ)
201200nnred 12278 . . . . . . . . . . 11 ((𝜑𝑘 ∈ ℕ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℝ)
202 letr 11352 . . . . . . . . . . 11 (((seq1( · , 𝐹)‘(𝑘 + 1)) ∈ ℝ ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∈ ℝ ∧ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ∈ ℝ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
203193, 196, 201, 202syl3anc 1370 . . . . . . . . . 10 ((𝜑𝑘 ∈ ℕ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
204203adantr 480 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ∧ ((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
205190, 204mpand 695 . . . . . . . 8 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → (((seq1( · , 𝐹)‘𝑘) · (2 · 𝑁)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
206152, 205sylbid 240 . . . . . . 7 (((𝜑𝑘 ∈ ℕ) ∧ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
207157adantr 480 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))))
208 iffalse 4539 . . . . . . . . . . . 12 (¬ (𝑘 + 1) ∈ ℙ → if((𝑘 + 1) ∈ ℙ, ((𝑘 + 1)↑((𝑘 + 1) pCnt ((2 · 𝑁)C𝑁))), 1) = 1)
209169, 208sylan9eq 2794 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (𝐹‘(𝑘 + 1)) = 1)
210209oveq2d 7446 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · (𝐹‘(𝑘 + 1))) = ((seq1( · , 𝐹)‘𝑘) · 1))
211126adantr 480 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℕ)
212211nncnd 12279 . . . . . . . . . . 11 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘𝑘) ∈ ℂ)
213212mulridd 11275 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) · 1) = (seq1( · , 𝐹)‘𝑘))
214207, 210, 2133eqtrd 2778 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (seq1( · , 𝐹)‘(𝑘 + 1)) = (seq1( · , 𝐹)‘𝑘))
215 ppinprm 27209 . . . . . . . . . . 11 ((𝑘 ∈ ℤ ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π𝑘))
216144, 215sylan 580 . . . . . . . . . 10 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → (π‘(𝑘 + 1)) = (π𝑘))
217216oveq2d 7446 . . . . . . . . 9 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((2 · 𝑁)↑(π‘(𝑘 + 1))) = ((2 · 𝑁)↑(π𝑘)))
218214, 217breq12d 5160 . . . . . . . 8 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))) ↔ (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘))))
219218biimprd 248 . . . . . . 7 (((𝜑𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) ∈ ℙ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
220206, 219pm2.61dan 813 . . . . . 6 ((𝜑𝑘 ∈ ℕ) → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1)))))
221220expcom 413 . . . . 5 (𝑘 ∈ ℕ → (𝜑 → ((seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘)) → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
222221a2d 29 . . . 4 (𝑘 ∈ ℕ → ((𝜑 → (seq1( · , 𝐹)‘𝑘) ≤ ((2 · 𝑁)↑(π𝑘))) → (𝜑 → (seq1( · , 𝐹)‘(𝑘 + 1)) ≤ ((2 · 𝑁)↑(π‘(𝑘 + 1))))))
22393, 98, 103, 108, 125, 222nnind 12281 . . 3 (𝑀 ∈ ℕ → (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π𝑀))))
22474, 223mpcom 38 . 2 (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑(π𝑀)))
225 cxpexp 26724 . . . 4 (((2 · 𝑁) ∈ ℂ ∧ (π𝑀) ∈ ℕ0) → ((2 · 𝑁)↑𝑐(π𝑀)) = ((2 · 𝑁)↑(π𝑀)))
226123, 79, 225syl2anc 584 . . 3 (𝜑 → ((2 · 𝑁)↑𝑐(π𝑀)) = ((2 · 𝑁)↑(π𝑀)))
22779nn0red 12585 . . . . 5 (𝜑 → (π𝑀) ∈ ℝ)
228 nndivre 12304 . . . . . . 7 ((𝑀 ∈ ℝ ∧ 3 ∈ ℕ) → (𝑀 / 3) ∈ ℝ)
22977, 16, 228sylancl 586 . . . . . 6 (𝜑 → (𝑀 / 3) ∈ ℝ)
230 readdcl 11235 . . . . . 6 (((𝑀 / 3) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝑀 / 3) + 2) ∈ ℝ)
231229, 48, 230sylancl 586 . . . . 5 (𝜑 → ((𝑀 / 3) + 2) ∈ ℝ)
23274nnnn0d 12584 . . . . . . 7 (𝜑𝑀 ∈ ℕ0)
233232nn0ge0d 12587 . . . . . 6 (𝜑 → 0 ≤ 𝑀)
234 ppiub 27262 . . . . . 6 ((𝑀 ∈ ℝ ∧ 0 ≤ 𝑀) → (π𝑀) ≤ ((𝑀 / 3) + 2))
23577, 233, 234syl2anc 584 . . . . 5 (𝜑 → (π𝑀) ≤ ((𝑀 / 3) + 2))
23648a1i 11 . . . . . 6 (𝜑 → 2 ∈ ℝ)
237 flle 13835 . . . . . . . . 9 ((√‘(2 · 𝑁)) ∈ ℝ → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
23828, 237syl 17 . . . . . . . 8 (𝜑 → (⌊‘(√‘(2 · 𝑁))) ≤ (√‘(2 · 𝑁)))
23917, 238eqbrtrid 5182 . . . . . . 7 (𝜑𝑀 ≤ (√‘(2 · 𝑁)))
240 3re 12343 . . . . . . . . . 10 3 ∈ ℝ
241 3pos 12368 . . . . . . . . . 10 0 < 3
242240, 241pm3.2i 470 . . . . . . . . 9 (3 ∈ ℝ ∧ 0 < 3)
243242a1i 11 . . . . . . . 8 (𝜑 → (3 ∈ ℝ ∧ 0 < 3))
244 lediv1 12130 . . . . . . . 8 ((𝑀 ∈ ℝ ∧ (√‘(2 · 𝑁)) ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) → (𝑀 ≤ (√‘(2 · 𝑁)) ↔ (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3)))
24577, 28, 243, 244syl3anc 1370 . . . . . . 7 (𝜑 → (𝑀 ≤ (√‘(2 · 𝑁)) ↔ (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3)))
246239, 245mpbid 232 . . . . . 6 (𝜑 → (𝑀 / 3) ≤ ((√‘(2 · 𝑁)) / 3))
247229, 83, 236, 246leadd1dd 11874 . . . . 5 (𝜑 → ((𝑀 / 3) + 2) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
248227, 231, 85, 235, 247letrd 11415 . . . 4 (𝜑 → (π𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2))
249 2t1e2 12426 . . . . . . . 8 (2 · 1) = 2
2506nnge1d 12311 . . . . . . . . 9 (𝜑 → 1 ≤ 𝑁)
251 1re 11258 . . . . . . . . . . 11 1 ∈ ℝ
252 lemul2 12117 . . . . . . . . . . 11 ((1 ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
253251, 50, 252mp3an13 1451 . . . . . . . . . 10 (𝑁 ∈ ℝ → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
25446, 253syl 17 . . . . . . . . 9 (𝜑 → (1 ≤ 𝑁 ↔ (2 · 1) ≤ (2 · 𝑁)))
255250, 254mpbid 232 . . . . . . . 8 (𝜑 → (2 · 1) ≤ (2 · 𝑁))
256249, 255eqbrtrrid 5183 . . . . . . 7 (𝜑 → 2 ≤ (2 · 𝑁))
25718eluz1i 12883 . . . . . . 7 ((2 · 𝑁) ∈ (ℤ‘2) ↔ ((2 · 𝑁) ∈ ℤ ∧ 2 ≤ (2 · 𝑁)))
25821, 256, 257sylanbrc 583 . . . . . 6 (𝜑 → (2 · 𝑁) ∈ (ℤ‘2))
259 eluz2gt1 12959 . . . . . 6 ((2 · 𝑁) ∈ (ℤ‘2) → 1 < (2 · 𝑁))
260258, 259syl 17 . . . . 5 (𝜑 → 1 < (2 · 𝑁))
26122, 260, 227, 85cxpled 26776 . . . 4 (𝜑 → ((π𝑀) ≤ (((√‘(2 · 𝑁)) / 3) + 2) ↔ ((2 · 𝑁)↑𝑐(π𝑀)) ≤ ((2 · 𝑁)↑𝑐(((√‘(2 · 𝑁)) / 3) + 2))))
262248, 261mpbid 232 . . 3 (𝜑 → ((2 · 𝑁)↑𝑐(π𝑀)) ≤ ((2 · 𝑁)↑𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
263226, 262eqbrtrrd 5171 . 2 (𝜑 → ((2 · 𝑁)↑(π𝑀)) ≤ ((2 · 𝑁)↑𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
26476, 81, 86, 224, 263letrd 11415 1 (𝜑 → (seq1( · , 𝐹)‘𝑀) ≤ ((2 · 𝑁)↑𝑐(((√‘(2 · 𝑁)) / 3) + 2)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395   = wceq 1536  wcel 2105  wrex 3067  ifcif 4530   class class class wbr 5147  cmpt 5230  wf 6558  cfv 6562  (class class class)co 7430  cc 11150  cr 11151  0cc0 11152  1c1 11153   + caddc 11155   · cmul 11157   < clt 11292  cle 11293   / cdiv 11917  cn 12263  2c2 12318  3c3 12319  5c5 12321  9c9 12325  0cn0 12523  cz 12610  cdc 12730  cuz 12875  ...cfz 13543  cfl 13826  seqcseq 14038  cexp 14098  Ccbc 14337  csqrt 15268  cprime 16704   pCnt cpc 16869  𝑐ccxp 26611  πcppi 27151
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-rep 5284  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753  ax-inf2 9678  ax-cnex 11208  ax-resscn 11209  ax-1cn 11210  ax-icn 11211  ax-addcl 11212  ax-addrcl 11213  ax-mulcl 11214  ax-mulrcl 11215  ax-mulcom 11216  ax-addass 11217  ax-mulass 11218  ax-distr 11219  ax-i2m1 11220  ax-1ne0 11221  ax-1rid 11222  ax-rnegex 11223  ax-rrecex 11224  ax-cnre 11225  ax-pre-lttri 11226  ax-pre-lttrn 11227  ax-pre-ltadd 11228  ax-pre-mulgt0 11229  ax-pre-sup 11230  ax-addf 11231
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2726  df-clel 2813  df-nfc 2889  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3377  df-reu 3378  df-rab 3433  df-v 3479  df-sbc 3791  df-csb 3908  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-pss 3982  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4912  df-int 4951  df-iun 4997  df-iin 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5582  df-eprel 5588  df-po 5596  df-so 5597  df-fr 5640  df-se 5641  df-we 5642  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700  df-ima 5701  df-pred 6322  df-ord 6388  df-on 6389  df-lim 6390  df-suc 6391  df-iota 6515  df-fun 6564  df-fn 6565  df-f 6566  df-f1 6567  df-fo 6568  df-f1o 6569  df-fv 6570  df-isom 6571  df-riota 7387  df-ov 7433  df-oprab 7434  df-mpo 7435  df-of 7696  df-om 7887  df-1st 8012  df-2nd 8013  df-supp 8184  df-frecs 8304  df-wrecs 8335  df-recs 8409  df-rdg 8448  df-1o 8504  df-2o 8505  df-oadd 8508  df-er 8743  df-map 8866  df-pm 8867  df-ixp 8936  df-en 8984  df-dom 8985  df-sdom 8986  df-fin 8987  df-fsupp 9399  df-fi 9448  df-sup 9479  df-inf 9480  df-oi 9547  df-dju 9938  df-card 9976  df-pnf 11294  df-mnf 11295  df-xr 11296  df-ltxr 11297  df-le 11298  df-sub 11491  df-neg 11492  df-div 11918  df-nn 12264  df-2 12326  df-3 12327  df-4 12328  df-5 12329  df-6 12330  df-7 12331  df-8 12332  df-9 12333  df-n0 12524  df-xnn0 12597  df-z 12611  df-dec 12731  df-uz 12876  df-q 12988  df-rp 13032  df-xneg 13151  df-xadd 13152  df-xmul 13153  df-ioo 13387  df-ioc 13388  df-ico 13389  df-icc 13390  df-fz 13544  df-fzo 13691  df-fl 13828  df-mod 13906  df-seq 14039  df-exp 14099  df-fac 14309  df-bc 14338  df-hash 14366  df-shft 15102  df-cj 15134  df-re 15135  df-im 15136  df-sqrt 15270  df-abs 15271  df-limsup 15503  df-clim 15520  df-rlim 15521  df-sum 15719  df-ef 16099  df-sin 16101  df-cos 16102  df-pi 16104  df-dvds 16287  df-gcd 16528  df-prm 16705  df-pc 16870  df-struct 17180  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17245  df-ress 17274  df-plusg 17310  df-mulr 17311  df-starv 17312  df-sca 17313  df-vsca 17314  df-ip 17315  df-tset 17316  df-ple 17317  df-ds 17319  df-unif 17320  df-hom 17321  df-cco 17322  df-rest 17468  df-topn 17469  df-0g 17487  df-gsum 17488  df-topgen 17489  df-pt 17490  df-prds 17493  df-xrs 17548  df-qtop 17553  df-imas 17554  df-xps 17556  df-mre 17630  df-mrc 17631  df-acs 17633  df-mgm 18665  df-sgrp 18744  df-mnd 18760  df-submnd 18809  df-mulg 19098  df-cntz 19347  df-cmn 19814  df-psmet 21373  df-xmet 21374  df-met 21375  df-bl 21376  df-mopn 21377  df-fbas 21378  df-fg 21379  df-cnfld 21382  df-top 22915  df-topon 22932  df-topsp 22954  df-bases 22968  df-cld 23042  df-ntr 23043  df-cls 23044  df-nei 23121  df-lp 23159  df-perf 23160  df-cn 23250  df-cnp 23251  df-haus 23338  df-tx 23585  df-hmeo 23778  df-fil 23869  df-fm 23961  df-flim 23962  df-flf 23963  df-xms 24345  df-ms 24346  df-tms 24347  df-cncf 24917  df-limc 25915  df-dv 25916  df-log 26612  df-cxp 26613  df-ppi 27157
This theorem is referenced by:  bposlem6  27347
  Copyright terms: Public domain W3C validator