Metamath Proof Explorer


Theorem dchrisum0lem1b

Description: Lemma for dchrisum0lem1 . (Contributed by Mario Carneiro, 7-Jun-2016)

Ref Expression
Hypotheses rpvmasum.z ⊢ Z = ℤ/Nℤ
rpvmasum.l ⊢ L = ℤRHom ⁡ Z
rpvmasum.a ⊢ φ → N ∈ ℕ
rpvmasum2.g ⊢ G = DChr ⁡ N
rpvmasum2.d ⊢ D = Base G
rpvmasum2.1 ⊢ 1 ˙ = 0 G
rpvmasum2.w ⊢ W = y ∈ D ∖ 1 ˙ | ∑ m ∈ ℕ y ⁡ L ⁡ m m = 0
dchrisum0.b ⊢ φ → X ∈ W
dchrisum0lem1.f ⊢ F = a ∈ ℕ ⟼ X ⁡ L ⁡ a a
dchrisum0.c ⊢ φ → C ∈ 0 +∞
dchrisum0.s ⊢ φ → seq 1 + F ⇝ S
dchrisum0.1 ⊢ φ → ∀ y ∈ 1 +∞ seq 1 + F ⁡ y − S ≤ C y
Assertion dchrisum0lem1b ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m ≤ 2 ⁢ C x

Proof

Step Hyp Ref Expression
1 rpvmasum.z ⊢ Z = ℤ/Nℤ
2 rpvmasum.l ⊢ L = ℤRHom ⁡ Z
3 rpvmasum.a ⊢ φ → N ∈ ℕ
4 rpvmasum2.g ⊢ G = DChr ⁡ N
5 rpvmasum2.d ⊢ D = Base G
6 rpvmasum2.1 ⊢ 1 ˙ = 0 G
7 rpvmasum2.w ⊢ W = y ∈ D ∖ 1 ˙ | ∑ m ∈ ℕ y ⁡ L ⁡ m m = 0
8 dchrisum0.b ⊢ φ → X ∈ W
9 dchrisum0lem1.f ⊢ F = a ∈ ℕ ⟼ X ⁡ L ⁡ a a
10 dchrisum0.c ⊢ φ → C ∈ 0 +∞
11 dchrisum0.s ⊢ φ → seq 1 + F ⇝ S
12 dchrisum0.1 ⊢ φ → ∀ y ∈ 1 +∞ seq 1 + F ⁡ y − S ≤ C y
13 fzfid ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x + 1 … x 2 d ∈ Fin
14 ssun2 ⊢ x + 1 … x 2 d ⊆ 1 … x ∪ x + 1 … x 2 d
15 simpr ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ +
16 15 rprege0d ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ ∧ 0 ≤ x
17 flge0nn0 ⊢ x ∈ ℝ ∧ 0 ≤ x → x ∈ ℕ 0
18 16 17 syl ⊢ φ ∧ x ∈ ℝ + → x ∈ ℕ 0
19 nn0p1nn ⊢ x ∈ ℕ 0 → x + 1 ∈ ℕ
20 18 19 syl ⊢ φ ∧ x ∈ ℝ + → x + 1 ∈ ℕ
21 20 adantr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x + 1 ∈ ℕ
22 nnuz ⊢ ℕ = ℤ ≥ 1
23 21 22 eleqtrdi ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x + 1 ∈ ℤ ≥ 1
24 dchrisum0lem1a ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ≤ x 2 d ∧ x 2 d ∈ ℤ ≥ x
25 24 simprd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℤ ≥ x
26 fzsplit2 ⊢ x + 1 ∈ ℤ ≥ 1 ∧ x 2 d ∈ ℤ ≥ x → 1 … x 2 d = 1 … x ∪ x + 1 … x 2 d
27 23 25 26 syl2anc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 … x 2 d = 1 … x ∪ x + 1 … x 2 d
28 14 27 sseqtrrid ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x + 1 … x 2 d ⊆ 1 … x 2 d
29 28 sselda ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ x + 1 … x 2 d → m ∈ 1 … x 2 d
30 7 ssrab3 ⊢ W ⊆ D ∖ 1 ˙
31 30 8 sselid ⊢ φ → X ∈ D ∖ 1 ˙
32 31 eldifad ⊢ φ → X ∈ D
33 32 ad3antrrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → X ∈ D
34 elfzelz ⊢ m ∈ 1 … x 2 d → m ∈ ℤ
35 34 adantl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → m ∈ ℤ
36 4 1 5 2 33 35 dchrzrhcl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → X ⁡ L ⁡ m ∈ ℂ
37 elfznn ⊢ m ∈ 1 … x 2 d → m ∈ ℕ
38 37 adantl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → m ∈ ℕ
39 38 nnrpd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → m ∈ ℝ +
40 39 rpsqrtcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → m ∈ ℝ +
41 40 rpcnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → m ∈ ℂ
42 40 rpne0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → m ≠ 0
43 36 41 42 divcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → X ⁡ L ⁡ m m ∈ ℂ
44 29 43 syldan ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ x + 1 … x 2 d → X ⁡ L ⁡ m m ∈ ℂ
45 13 44 fsumcl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m ∈ ℂ
46 45 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m ∈ ℝ
47 1zzd ⊢ φ → 1 ∈ ℤ
48 32 adantr ⊢ φ ∧ m ∈ ℕ → X ∈ D
49 nnz ⊢ m ∈ ℕ → m ∈ ℤ
50 49 adantl ⊢ φ ∧ m ∈ ℕ → m ∈ ℤ
51 4 1 5 2 48 50 dchrzrhcl ⊢ φ ∧ m ∈ ℕ → X ⁡ L ⁡ m ∈ ℂ
52 nnrp ⊢ m ∈ ℕ → m ∈ ℝ +
53 52 adantl ⊢ φ ∧ m ∈ ℕ → m ∈ ℝ +
54 53 rpsqrtcld ⊢ φ ∧ m ∈ ℕ → m ∈ ℝ +
55 54 rpcnd ⊢ φ ∧ m ∈ ℕ → m ∈ ℂ
56 54 rpne0d ⊢ φ ∧ m ∈ ℕ → m ≠ 0
57 51 55 56 divcld ⊢ φ ∧ m ∈ ℕ → X ⁡ L ⁡ m m ∈ ℂ
58 2fveq3 ⊢ a = m → X ⁡ L ⁡ a = X ⁡ L ⁡ m
59 fveq2 ⊢ a = m → a = m
60 58 59 oveq12d ⊢ a = m → X ⁡ L ⁡ a a = X ⁡ L ⁡ m m
61 60 cbvmptv ⊢ a ∈ ℕ ⟼ X ⁡ L ⁡ a a = m ∈ ℕ ⟼ X ⁡ L ⁡ m m
62 9 61 eqtri ⊢ F = m ∈ ℕ ⟼ X ⁡ L ⁡ m m
63 57 62 fmptd ⊢ φ → F : ℕ ⟶ ℂ
64 63 ffvelcdmda ⊢ φ ∧ m ∈ ℕ → F ⁡ m ∈ ℂ
65 22 47 64 serf ⊢ φ → seq 1 + F : ℕ ⟶ ℂ
66 65 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F : ℕ ⟶ ℂ
67 15 rpregt0d ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ ∧ 0 < x
68 67 adantr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ ∧ 0 < x
69 68 simpld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ
70 1red ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 ∈ ℝ
71 elfznn ⊢ d ∈ 1 … x → d ∈ ℕ
72 71 adantl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℕ
73 72 nnred ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℝ
74 72 nnge1d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 ≤ d
75 15 rpred ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ
76 fznnfl ⊢ x ∈ ℝ → d ∈ 1 … x ↔ d ∈ ℕ ∧ d ≤ x
77 75 76 syl ⊢ φ ∧ x ∈ ℝ + → d ∈ 1 … x ↔ d ∈ ℕ ∧ d ≤ x
78 77 simplbda ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ≤ x
79 70 73 69 74 78 letrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 ≤ x
80 flge1nn ⊢ x ∈ ℝ ∧ 1 ≤ x → x ∈ ℕ
81 69 79 80 syl2anc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℕ
82 eluznn ⊢ x ∈ ℕ ∧ x 2 d ∈ ℤ ≥ x → x 2 d ∈ ℕ
83 81 25 82 syl2anc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℕ
84 66 83 ffvelcdmd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d ∈ ℂ
85 climcl ⊢ seq 1 + F ⇝ S → S ∈ ℂ
86 11 85 syl ⊢ φ → S ∈ ℂ
87 86 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → S ∈ ℂ
88 84 87 subcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S ∈ ℂ
89 88 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S ∈ ℝ
90 66 81 ffvelcdmd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x ∈ ℂ
91 87 90 subcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → S − seq 1 + F ⁡ x ∈ ℂ
92 91 abscld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → S − seq 1 + F ⁡ x ∈ ℝ
93 89 92 readdcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S + S − seq 1 + F ⁡ x ∈ ℝ
94 2re ⊢ 2 ∈ ℝ
95 elrege0 ⊢ C ∈ 0 +∞ ↔ C ∈ ℝ ∧ 0 ≤ C
96 10 95 sylib ⊢ φ → C ∈ ℝ ∧ 0 ≤ C
97 96 simpld ⊢ φ → C ∈ ℝ
98 remulcl ⊢ 2 ∈ ℝ ∧ C ∈ ℝ → 2 ⁢ C ∈ ℝ
99 94 97 98 sylancr ⊢ φ → 2 ⁢ C ∈ ℝ
100 99 adantr ⊢ φ ∧ x ∈ ℝ + → 2 ⁢ C ∈ ℝ
101 15 rpsqrtcld ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ +
102 100 101 rerpdivcld ⊢ φ ∧ x ∈ ℝ + → 2 ⁢ C x ∈ ℝ
103 102 adantr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 2 ⁢ C x ∈ ℝ
104 ssun1 ⊢ 1 … x ⊆ 1 … x ∪ x + 1 … x 2 d
105 104 27 sseqtrrid ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 … x ⊆ 1 … x 2 d
106 105 sselda ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x → m ∈ 1 … x 2 d
107 ovex ⊢ X ⁡ L ⁡ a a ∈ V
108 60 9 107 fvmpt3i ⊢ m ∈ ℕ → F ⁡ m = X ⁡ L ⁡ m m
109 38 108 syl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x 2 d → F ⁡ m = X ⁡ L ⁡ m m
110 106 109 syldan ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x → F ⁡ m = X ⁡ L ⁡ m m
111 81 22 eleqtrdi ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℤ ≥ 1
112 106 43 syldan ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ∈ ℂ
113 110 111 112 fsumser ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x X ⁡ L ⁡ m m = seq 1 + F ⁡ x
114 113 90 eqeltrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x X ⁡ L ⁡ m m ∈ ℂ
115 114 45 pncan2d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x X ⁡ L ⁡ m m + ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m - ∑ m = 1 x X ⁡ L ⁡ m m = ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m
116 reflcl ⊢ x ∈ ℝ → x ∈ ℝ
117 69 116 syl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ
118 117 ltp1d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x < x + 1
119 fzdisj ⊢ x < x + 1 → 1 … x ∩ x + 1 … x 2 d = ∅
120 118 119 syl ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 … x ∩ x + 1 … x 2 d = ∅
121 fzfid ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 … x 2 d ∈ Fin
122 120 27 121 43 fsumsplit ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x 2 d X ⁡ L ⁡ m m = ∑ m = 1 x X ⁡ L ⁡ m m + ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m
123 83 22 eleqtrdi ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℤ ≥ 1
124 109 123 43 fsumser ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x 2 d X ⁡ L ⁡ m m = seq 1 + F ⁡ x 2 d
125 122 124 eqtr3d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x X ⁡ L ⁡ m m + ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m = seq 1 + F ⁡ x 2 d
126 125 113 oveq12d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = 1 x X ⁡ L ⁡ m m + ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m - ∑ m = 1 x X ⁡ L ⁡ m m = seq 1 + F ⁡ x 2 d − seq 1 + F ⁡ x
127 115 126 eqtr3d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m = seq 1 + F ⁡ x 2 d − seq 1 + F ⁡ x
128 127 fveq2d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m = seq 1 + F ⁡ x 2 d − seq 1 + F ⁡ x
129 84 90 87 abs3difd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − seq 1 + F ⁡ x ≤ seq 1 + F ⁡ x 2 d − S + S − seq 1 + F ⁡ x
130 128 129 eqbrtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m ≤ seq 1 + F ⁡ x 2 d − S + S − seq 1 + F ⁡ x
131 97 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C ∈ ℝ
132 simplr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ +
133 132 rpsqrtcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ +
134 131 133 rerpdivcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C x ∈ ℝ
135 2z ⊢ 2 ∈ ℤ
136 rpexpcl ⊢ x ∈ ℝ + ∧ 2 ∈ ℤ → x 2 ∈ ℝ +
137 15 135 136 sylancl ⊢ φ ∧ x ∈ ℝ + → x 2 ∈ ℝ +
138 137 adantr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 ∈ ℝ +
139 72 nnrpd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → d ∈ ℝ +
140 138 139 rpdivcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℝ +
141 140 rpsqrtcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℝ +
142 131 141 rerpdivcld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C x 2 d ∈ ℝ
143 2fveq3 ⊢ y = x 2 d → seq 1 + F ⁡ y = seq 1 + F ⁡ x 2 d
144 143 fvoveq1d ⊢ y = x 2 d → seq 1 + F ⁡ y − S = seq 1 + F ⁡ x 2 d − S
145 fveq2 ⊢ y = x 2 d → y = x 2 d
146 145 oveq2d ⊢ y = x 2 d → C y = C x 2 d
147 144 146 breq12d ⊢ y = x 2 d → seq 1 + F ⁡ y − S ≤ C y ↔ seq 1 + F ⁡ x 2 d − S ≤ C x 2 d
148 12 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∀ y ∈ 1 +∞ seq 1 + F ⁡ y − S ≤ C y
149 137 rpred ⊢ φ ∧ x ∈ ℝ + → x 2 ∈ ℝ
150 nndivre ⊢ x 2 ∈ ℝ ∧ d ∈ ℕ → x 2 d ∈ ℝ
151 149 71 150 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℝ
152 24 simpld ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ≤ x 2 d
153 70 69 151 79 152 letrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 1 ≤ x 2 d
154 1re ⊢ 1 ∈ ℝ
155 elicopnf ⊢ 1 ∈ ℝ → x 2 d ∈ 1 +∞ ↔ x 2 d ∈ ℝ ∧ 1 ≤ x 2 d
156 154 155 ax-mp ⊢ x 2 d ∈ 1 +∞ ↔ x 2 d ∈ ℝ ∧ 1 ≤ x 2 d
157 151 153 156 sylanbrc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ 1 +∞
158 147 148 157 rspcdva ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S ≤ C x 2 d
159 133 rpregt0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ ∧ 0 < x
160 141 rpregt0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℝ ∧ 0 < x 2 d
161 96 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C ∈ ℝ ∧ 0 ≤ C
162 132 rprege0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℝ ∧ 0 ≤ x
163 140 rprege0d ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x 2 d ∈ ℝ ∧ 0 ≤ x 2 d
164 sqrtle ⊢ x ∈ ℝ ∧ 0 ≤ x ∧ x 2 d ∈ ℝ ∧ 0 ≤ x 2 d → x ≤ x 2 d ↔ x ≤ x 2 d
165 162 163 164 syl2anc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ≤ x 2 d ↔ x ≤ x 2 d
166 152 165 mpbid ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ≤ x 2 d
167 lediv2a ⊢ x ∈ ℝ ∧ 0 < x ∧ x 2 d ∈ ℝ ∧ 0 < x 2 d ∧ C ∈ ℝ ∧ 0 ≤ C ∧ x ≤ x 2 d → C x 2 d ≤ C x
168 159 160 161 166 167 syl31anc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C x 2 d ≤ C x
169 89 142 134 158 168 letrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S ≤ C x
170 87 90 abssubd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → S − seq 1 + F ⁡ x = seq 1 + F ⁡ x − S
171 2fveq3 ⊢ y = x → seq 1 + F ⁡ y = seq 1 + F ⁡ x
172 171 fvoveq1d ⊢ y = x → seq 1 + F ⁡ y − S = seq 1 + F ⁡ x − S
173 fveq2 ⊢ y = x → y = x
174 173 oveq2d ⊢ y = x → C y = C x
175 172 174 breq12d ⊢ y = x → seq 1 + F ⁡ y − S ≤ C y ↔ seq 1 + F ⁡ x − S ≤ C x
176 elicopnf ⊢ 1 ∈ ℝ → x ∈ 1 +∞ ↔ x ∈ ℝ ∧ 1 ≤ x
177 154 176 ax-mp ⊢ x ∈ 1 +∞ ↔ x ∈ ℝ ∧ 1 ≤ x
178 69 79 177 sylanbrc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ 1 +∞
179 175 148 178 rspcdva ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x − S ≤ C x
180 170 179 eqbrtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → S − seq 1 + F ⁡ x ≤ C x
181 89 92 134 134 169 180 le2addd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S + S − seq 1 + F ⁡ x ≤ C x + C x
182 2cnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 2 ∈ ℂ
183 97 adantr ⊢ φ ∧ x ∈ ℝ + → C ∈ ℝ
184 183 recnd ⊢ φ ∧ x ∈ ℝ + → C ∈ ℂ
185 184 adantr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C ∈ ℂ
186 101 rpcnne0d ⊢ φ ∧ x ∈ ℝ + → x ∈ ℂ ∧ x ≠ 0
187 186 adantr ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → x ∈ ℂ ∧ x ≠ 0
188 divass ⊢ 2 ∈ ℂ ∧ C ∈ ℂ ∧ x ∈ ℂ ∧ x ≠ 0 → 2 ⁢ C x = 2 ⁢ C x
189 182 185 187 188 syl3anc ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 2 ⁢ C x = 2 ⁢ C x
190 134 recnd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → C x ∈ ℂ
191 190 2timesd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 2 ⁢ C x = C x + C x
192 189 191 eqtrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → 2 ⁢ C x = C x + C x
193 181 192 breqtrrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → seq 1 + F ⁡ x 2 d − S + S − seq 1 + F ⁡ x ≤ 2 ⁢ C x
194 46 93 103 130 193 letrd ⊢ φ ∧ x ∈ ℝ + ∧ d ∈ 1 … x → ∑ m = x + 1 x 2 d X ⁡ L ⁡ m m ≤ 2 ⁢ C x