Metamath Proof Explorer


Theorem divsqrtsumlem

Description: Lemma for divsqrsum and divsqrtsum2 . (Contributed by Mario Carneiro, 18-May-2016)

Ref Expression
Hypothesis divsqrtsum.2 ⊢ F = x ∈ ℝ + ⟼ ∑ n = 1 x 1 n − 2 ⁢ x
Assertion divsqrtsumlem ⊢ F : ℝ + ⟶ ℝ ∧ F ∈ dom ⁡ ⇝ℝ ∧ F ⇝ℝ L ∧ A ∈ ℝ + → F ⁡ A − L ≤ 1 A

Proof

Step Hyp Ref Expression
1 divsqrtsum.2 ⊢ F = x ∈ ℝ + ⟼ ∑ n = 1 x 1 n − 2 ⁢ x
2 ioorp ⊢ 0 +∞ = ℝ +
3 2 eqcomi ⊢ ℝ + = 0 +∞
4 nnuz ⊢ ℕ = ℤ ≥ 1
5 1zzd ⊢ ⊤ → 1 ∈ ℤ
6 0red ⊢ ⊤ → 0 ∈ ℝ
7 1re ⊢ 1 ∈ ℝ
8 0nn0 ⊢ 0 ∈ ℕ 0
9 7 8 nn0addge2i ⊢ 1 ≤ 0 + 1
10 9 a1i ⊢ ⊤ → 1 ≤ 0 + 1
11 2re ⊢ 2 ∈ ℝ
12 rpsqrtcl ⊢ x ∈ ℝ + → x ∈ ℝ +
13 12 adantl ⊢ ⊤ ∧ x ∈ ℝ + → x ∈ ℝ +
14 13 rpred ⊢ ⊤ ∧ x ∈ ℝ + → x ∈ ℝ
15 remulcl ⊢ 2 ∈ ℝ ∧ x ∈ ℝ → 2 ⁢ x ∈ ℝ
16 11 14 15 sylancr ⊢ ⊤ ∧ x ∈ ℝ + → 2 ⁢ x ∈ ℝ
17 13 rprecred ⊢ ⊤ ∧ x ∈ ℝ + → 1 x ∈ ℝ
18 nnrp ⊢ x ∈ ℕ → x ∈ ℝ +
19 18 17 sylan2 ⊢ ⊤ ∧ x ∈ ℕ → 1 x ∈ ℝ
20 reelprrecn ⊢ ℝ ∈ ℝ ℂ
21 20 a1i ⊢ ⊤ → ℝ ∈ ℝ ℂ
22 13 rpcnd ⊢ ⊤ ∧ x ∈ ℝ + → x ∈ ℂ
23 2rp ⊢ 2 ∈ ℝ +
24 rpmulcl ⊢ 2 ∈ ℝ + ∧ x ∈ ℝ + → 2 ⁢ x ∈ ℝ +
25 23 13 24 sylancr ⊢ ⊤ ∧ x ∈ ℝ + → 2 ⁢ x ∈ ℝ +
26 25 rpreccld ⊢ ⊤ ∧ x ∈ ℝ + → 1 2 ⁢ x ∈ ℝ +
27 dvsqrt ⊢ dx ∈ ℝ + x d ℝ x = x ∈ ℝ + ⟼ 1 2 ⁢ x
28 27 a1i ⊢ ⊤ → dx ∈ ℝ + x d ℝ x = x ∈ ℝ + ⟼ 1 2 ⁢ x
29 2cnd ⊢ ⊤ → 2 ∈ ℂ
30 21 22 26 28 29 dvmptcmul ⊢ ⊤ → dx ∈ ℝ + 2 ⁢ x d ℝ x = x ∈ ℝ + ⟼ 2 ⁢ 1 2 ⁢ x
31 2cnd ⊢ ⊤ ∧ x ∈ ℝ + → 2 ∈ ℂ
32 1cnd ⊢ ⊤ ∧ x ∈ ℝ + → 1 ∈ ℂ
33 25 rpcnne0d ⊢ ⊤ ∧ x ∈ ℝ + → 2 ⁢ x ∈ ℂ ∧ 2 ⁢ x ≠ 0
34 divass ⊢ 2 ∈ ℂ ∧ 1 ∈ ℂ ∧ 2 ⁢ x ∈ ℂ ∧ 2 ⁢ x ≠ 0 → 2 ⋅ 1 2 ⁢ x = 2 ⁢ 1 2 ⁢ x
35 31 32 33 34 syl3anc ⊢ ⊤ ∧ x ∈ ℝ + → 2 ⋅ 1 2 ⁢ x = 2 ⁢ 1 2 ⁢ x
36 13 rpcnne0d ⊢ ⊤ ∧ x ∈ ℝ + → x ∈ ℂ ∧ x ≠ 0
37 rpcnne0 ⊢ 2 ∈ ℝ + → 2 ∈ ℂ ∧ 2 ≠ 0
38 23 37 mp1i ⊢ ⊤ ∧ x ∈ ℝ + → 2 ∈ ℂ ∧ 2 ≠ 0
39 divcan5 ⊢ 1 ∈ ℂ ∧ x ∈ ℂ ∧ x ≠ 0 ∧ 2 ∈ ℂ ∧ 2 ≠ 0 → 2 ⋅ 1 2 ⁢ x = 1 x
40 32 36 38 39 syl3anc ⊢ ⊤ ∧ x ∈ ℝ + → 2 ⋅ 1 2 ⁢ x = 1 x
41 35 40 eqtr3d ⊢ ⊤ ∧ x ∈ ℝ + → 2 ⁢ 1 2 ⁢ x = 1 x
42 41 mpteq2dva ⊢ ⊤ → x ∈ ℝ + ⟼ 2 ⁢ 1 2 ⁢ x = x ∈ ℝ + ⟼ 1 x
43 30 42 eqtrd ⊢ ⊤ → dx ∈ ℝ + 2 ⁢ x d ℝ x = x ∈ ℝ + ⟼ 1 x
44 fveq2 ⊢ x = n → x = n
45 44 oveq2d ⊢ x = n → 1 x = 1 n
46 simp3r ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ≤ n
47 simp2l ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ∈ ℝ +
48 47 rprege0d ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ∈ ℝ ∧ 0 ≤ x
49 simp2r ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → n ∈ ℝ +
50 49 rprege0d ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → n ∈ ℝ ∧ 0 ≤ n
51 sqrtle ⊢ x ∈ ℝ ∧ 0 ≤ x ∧ n ∈ ℝ ∧ 0 ≤ n → x ≤ n ↔ x ≤ n
52 48 50 51 syl2anc ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ≤ n ↔ x ≤ n
53 46 52 mpbid ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ≤ n
54 47 rpsqrtcld ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ∈ ℝ +
55 49 rpsqrtcld ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → n ∈ ℝ +
56 54 55 lerecd ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → x ≤ n ↔ 1 n ≤ 1 x
57 53 56 mpbid ⊢ ⊤ ∧ x ∈ ℝ + ∧ n ∈ ℝ + ∧ 0 ≤ x ∧ x ≤ n → 1 n ≤ 1 x
58 sqrtlim ⊢ x ∈ ℝ + ⟼ 1 x ⇝ℝ 0
59 58 a1i ⊢ ⊤ → x ∈ ℝ + ⟼ 1 x ⇝ℝ 0
60 fveq2 ⊢ x = A → x = A
61 60 oveq2d ⊢ x = A → 1 x = 1 A
62 3 4 5 6 10 6 16 17 19 43 45 57 1 59 61 dvfsumrlim3 ⊢ ⊤ → F : ℝ + ⟶ ℝ ∧ F ∈ dom ⁡ ⇝ℝ ∧ F ⇝ℝ L ∧ A ∈ ℝ + ∧ 0 ≤ A → F ⁡ A − L ≤ 1 A
63 62 simp1d ⊢ ⊤ → F : ℝ + ⟶ ℝ
64 63 mptru ⊢ F : ℝ + ⟶ ℝ
65 62 simp2d ⊢ ⊤ → F ∈ dom ⁡ ⇝ℝ
66 65 mptru ⊢ F ∈ dom ⁡ ⇝ℝ
67 rpge0 ⊢ A ∈ ℝ + → 0 ≤ A
68 67 adantl ⊢ F ⇝ℝ L ∧ A ∈ ℝ + → 0 ≤ A
69 62 simp3d ⊢ ⊤ → F ⇝ℝ L ∧ A ∈ ℝ + ∧ 0 ≤ A → F ⁡ A − L ≤ 1 A
70 69 mptru ⊢ F ⇝ℝ L ∧ A ∈ ℝ + ∧ 0 ≤ A → F ⁡ A − L ≤ 1 A
71 68 70 mpd3an3 ⊢ F ⇝ℝ L ∧ A ∈ ℝ + → F ⁡ A − L ≤ 1 A
72 64 66 71 3pm3.2i ⊢ F : ℝ + ⟶ ℝ ∧ F ∈ dom ⁡ ⇝ℝ ∧ F ⇝ℝ L ∧ A ∈ ℝ + → F ⁡ A − L ≤ 1 A