Metamath Proof Explorer


Theorem basellem1

Description: Lemma for basel . Closure of the sequence of roots. (Contributed by Mario Carneiro, 30-Jul-2014) Replace OLD theorem. (Revised by Wolf Lammen, 18-Sep-2020)

Ref Expression
Hypothesis basel.n ⊢ N = 2 ⋅ M + 1
Assertion basellem1 ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π N ∈ 0 π 2

Proof

Step Hyp Ref Expression
1 basel.n ⊢ N = 2 ⋅ M + 1
2 elfznn ⊢ K ∈ 1 … M → K ∈ ℕ
3 2 nnrpd ⊢ K ∈ 1 … M → K ∈ ℝ +
4 pirp ⊢ π ∈ ℝ +
5 rpmulcl ⊢ K ∈ ℝ + ∧ π ∈ ℝ + → K ⁢ π ∈ ℝ +
6 3 4 5 sylancl ⊢ K ∈ 1 … M → K ⁢ π ∈ ℝ +
7 2nn ⊢ 2 ∈ ℕ
8 nnmulcl ⊢ 2 ∈ ℕ ∧ M ∈ ℕ → 2 ⋅ M ∈ ℕ
9 7 8 mpan ⊢ M ∈ ℕ → 2 ⋅ M ∈ ℕ
10 9 peano2nnd ⊢ M ∈ ℕ → 2 ⋅ M + 1 ∈ ℕ
11 1 10 eqeltrid ⊢ M ∈ ℕ → N ∈ ℕ
12 11 nnrpd ⊢ M ∈ ℕ → N ∈ ℝ +
13 rpdivcl ⊢ K ⁢ π ∈ ℝ + ∧ N ∈ ℝ + → K ⁢ π N ∈ ℝ +
14 6 12 13 syl2anr ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π N ∈ ℝ +
15 14 rpred ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π N ∈ ℝ
16 14 rpgt0d ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 0 < K ⁢ π N
17 2 adantl ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ∈ ℕ
18 nnmulcl ⊢ K ∈ ℕ ∧ 2 ∈ ℕ → K ⋅ 2 ∈ ℕ
19 17 7 18 sylancl ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 ∈ ℕ
20 19 nnred ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 ∈ ℝ
21 9 adantr ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ⋅ M ∈ ℕ
22 21 nnred ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ⋅ M ∈ ℝ
23 11 adantr ⊢ M ∈ ℕ ∧ K ∈ 1 … M → N ∈ ℕ
24 23 nnred ⊢ M ∈ ℕ ∧ K ∈ 1 … M → N ∈ ℝ
25 1 24 eqeltrrid ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ⋅ M + 1 ∈ ℝ
26 17 nncnd ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ∈ ℂ
27 2cn ⊢ 2 ∈ ℂ
28 mulcom ⊢ K ∈ ℂ ∧ 2 ∈ ℂ → K ⋅ 2 = 2 ⁢ K
29 26 27 28 sylancl ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 = 2 ⁢ K
30 elfzle2 ⊢ K ∈ 1 … M → K ≤ M
31 30 adantl ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ≤ M
32 17 nnred ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ∈ ℝ
33 nnre ⊢ M ∈ ℕ → M ∈ ℝ
34 33 adantr ⊢ M ∈ ℕ ∧ K ∈ 1 … M → M ∈ ℝ
35 2re ⊢ 2 ∈ ℝ
36 2pos ⊢ 0 < 2
37 35 36 pm3.2i ⊢ 2 ∈ ℝ ∧ 0 < 2
38 37 a1i ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ∈ ℝ ∧ 0 < 2
39 lemul2 ⊢ K ∈ ℝ ∧ M ∈ ℝ ∧ 2 ∈ ℝ ∧ 0 < 2 → K ≤ M ↔ 2 ⁢ K ≤ 2 ⋅ M
40 32 34 38 39 syl3anc ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ≤ M ↔ 2 ⁢ K ≤ 2 ⋅ M
41 31 40 mpbid ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ⁢ K ≤ 2 ⋅ M
42 29 41 eqbrtrd ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 ≤ 2 ⋅ M
43 22 ltp1d ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ⋅ M < 2 ⋅ M + 1
44 20 22 25 42 43 lelttrd ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 < 2 ⋅ M + 1
45 44 1 breqtrrdi ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 < N
46 19 nngt0d ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 0 < K ⋅ 2
47 23 nngt0d ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 0 < N
48 pire ⊢ π ∈ ℝ
49 remulcl ⊢ K ∈ ℝ ∧ π ∈ ℝ → K ⁢ π ∈ ℝ
50 32 48 49 sylancl ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π ∈ ℝ
51 6 adantl ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π ∈ ℝ +
52 51 rpgt0d ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 0 < K ⁢ π
53 ltdiv2 ⊢ K ⋅ 2 ∈ ℝ ∧ 0 < K ⋅ 2 ∧ N ∈ ℝ ∧ 0 < N ∧ K ⁢ π ∈ ℝ ∧ 0 < K ⁢ π → K ⋅ 2 < N ↔ K ⁢ π N < K ⁢ π K ⋅ 2
54 20 46 24 47 50 52 53 syl222anc ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⋅ 2 < N ↔ K ⁢ π N < K ⁢ π K ⋅ 2
55 45 54 mpbid ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π N < K ⁢ π K ⋅ 2
56 picn ⊢ π ∈ ℂ
57 56 a1i ⊢ M ∈ ℕ ∧ K ∈ 1 … M → π ∈ ℂ
58 2cnne0 ⊢ 2 ∈ ℂ ∧ 2 ≠ 0
59 58 a1i ⊢ M ∈ ℕ ∧ K ∈ 1 … M → 2 ∈ ℂ ∧ 2 ≠ 0
60 17 nnne0d ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ≠ 0
61 divcan5 ⊢ π ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0 ∧ K ∈ ℂ ∧ K ≠ 0 → K ⁢ π K ⋅ 2 = π 2
62 57 59 26 60 61 syl112anc ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π K ⋅ 2 = π 2
63 55 62 breqtrd ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π N < π 2
64 0xr ⊢ 0 ∈ ℝ *
65 rehalfcl ⊢ π ∈ ℝ → π 2 ∈ ℝ
66 rexr ⊢ π 2 ∈ ℝ → π 2 ∈ ℝ *
67 48 65 66 mp2b ⊢ π 2 ∈ ℝ *
68 elioo2 ⊢ 0 ∈ ℝ * ∧ π 2 ∈ ℝ * → K ⁢ π N ∈ 0 π 2 ↔ K ⁢ π N ∈ ℝ ∧ 0 < K ⁢ π N ∧ K ⁢ π N < π 2
69 64 67 68 mp2an ⊢ K ⁢ π N ∈ 0 π 2 ↔ K ⁢ π N ∈ ℝ ∧ 0 < K ⁢ π N ∧ K ⁢ π N < π 2
70 15 16 63 69 syl3anbrc ⊢ M ∈ ℕ ∧ K ∈ 1 … M → K ⁢ π N ∈ 0 π 2