Metamath Proof Explorer


Theorem dchrisum0lem2a

Description: Lemma for dchrisum0 . (Contributed by Mario Carneiro, 12-May-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
dchrisum0lem2.h ⊢ H = y ∈ ℝ + ⟼ ∑ d = 1 y 1 d − 2 ⁢ y
dchrisum0lem2.u ⊢ φ → H ⇝ℝ U
Assertion dchrisum0lem2a ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m ∈ 𝑂⁡1

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 dchrisum0lem2.h ⊢ H = y ∈ ℝ + ⟼ ∑ d = 1 y 1 d − 2 ⁢ y
14 dchrisum0lem2.u ⊢ φ → H ⇝ℝ U
15 fzfid ⊢ φ ∧ x ∈ ℝ + → 1 … x ∈ Fin
16 simpl ⊢ φ ∧ x ∈ ℝ + → φ
17 elfznn ⊢ m ∈ 1 … x → m ∈ ℕ
18 7 ssrab3 ⊢ W ⊆ D ∖ 1 ˙
19 18 8 sselid ⊢ φ → X ∈ D ∖ 1 ˙
20 19 eldifad ⊢ φ → X ∈ D
21 20 adantr ⊢ φ ∧ m ∈ ℕ → X ∈ D
22 nnz ⊢ m ∈ ℕ → m ∈ ℤ
23 22 adantl ⊢ φ ∧ m ∈ ℕ → m ∈ ℤ
24 4 1 5 2 21 23 dchrzrhcl ⊢ φ ∧ m ∈ ℕ → X ⁡ L ⁡ m ∈ ℂ
25 nnrp ⊢ m ∈ ℕ → m ∈ ℝ +
26 25 adantl ⊢ φ ∧ m ∈ ℕ → m ∈ ℝ +
27 26 rpsqrtcld ⊢ φ ∧ m ∈ ℕ → m ∈ ℝ +
28 27 rpcnd ⊢ φ ∧ m ∈ ℕ → m ∈ ℂ
29 27 rpne0d ⊢ φ ∧ m ∈ ℕ → m ≠ 0
30 24 28 29 divcld ⊢ φ ∧ m ∈ ℕ → X ⁡ L ⁡ m m ∈ ℂ
31 16 17 30 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ∈ ℂ
32 15 31 fsumcl ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ∈ ℂ
33 rlimcl ⊢ H ⇝ℝ U → U ∈ ℂ
34 14 33 syl ⊢ φ → U ∈ ℂ
35 34 adantr ⊢ φ ∧ x ∈ ℝ + → U ∈ ℂ
36 0xr ⊢ 0 ∈ ℝ *
37 0lt1 ⊢ 0 < 1
38 df-ioo ⊢ . = x ∈ ℝ * , y ∈ ℝ * ⟼ z ∈ ℝ * | x < z ∧ z < y
39 df-ico ⊢ . = x ∈ ℝ * , y ∈ ℝ * ⟼ z ∈ ℝ * | x ≤ z ∧ z < y
40 xrltletr ⊢ 0 ∈ ℝ * ∧ 1 ∈ ℝ * ∧ w ∈ ℝ * → 0 < 1 ∧ 1 ≤ w → 0 < w
41 38 39 40 ixxss1 ⊢ 0 ∈ ℝ * ∧ 0 < 1 → 1 +∞ ⊆ 0 +∞
42 36 37 41 mp2an ⊢ 1 +∞ ⊆ 0 +∞
43 ioorp ⊢ 0 +∞ = ℝ +
44 42 43 sseqtri ⊢ 1 +∞ ⊆ ℝ +
45 resmpt ⊢ 1 +∞ ⊆ ℝ + → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ↾ 1 +∞ = x ∈ 1 +∞ ⟼ ∑ m = 1 x X ⁡ L ⁡ m m
46 44 45 ax-mp ⊢ x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ↾ 1 +∞ = x ∈ 1 +∞ ⟼ ∑ m = 1 x X ⁡ L ⁡ m m
47 44 sseli ⊢ x ∈ 1 +∞ → x ∈ ℝ +
48 17 adantl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m ∈ ℕ
49 2fveq3 ⊢ a = m → X ⁡ L ⁡ a = X ⁡ L ⁡ m
50 fveq2 ⊢ a = m → a = m
51 49 50 oveq12d ⊢ a = m → X ⁡ L ⁡ a a = X ⁡ L ⁡ m m
52 ovex ⊢ X ⁡ L ⁡ a a ∈ V
53 51 9 52 fvmpt3i ⊢ m ∈ ℕ → F ⁡ m = X ⁡ L ⁡ m m
54 48 53 syl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → F ⁡ m = X ⁡ L ⁡ m m
55 47 54 sylanl2 ⊢ φ ∧ x ∈ 1 +∞ ∧ m ∈ 1 … x → F ⁡ m = X ⁡ L ⁡ m m
56 1re ⊢ 1 ∈ ℝ
57 elicopnf ⊢ 1 ∈ ℝ → x ∈ 1 +∞ ↔ x ∈ ℝ ∧ 1 ≤ x
58 56 57 ax-mp ⊢ x ∈ 1 +∞ ↔ x ∈ ℝ ∧ 1 ≤ x
59 flge1nn ⊢ x ∈ ℝ ∧ 1 ≤ x → x ∈ ℕ
60 58 59 sylbi ⊢ x ∈ 1 +∞ → x ∈ ℕ
61 60 adantl ⊢ φ ∧ x ∈ 1 +∞ → x ∈ ℕ
62 nnuz ⊢ ℕ = ℤ ≥ 1
63 61 62 eleqtrdi ⊢ φ ∧ x ∈ 1 +∞ → x ∈ ℤ ≥ 1
64 47 31 sylanl2 ⊢ φ ∧ x ∈ 1 +∞ ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ∈ ℂ
65 55 63 64 fsumser ⊢ φ ∧ x ∈ 1 +∞ → ∑ m = 1 x X ⁡ L ⁡ m m = seq 1 + F ⁡ x
66 65 mpteq2dva ⊢ φ → x ∈ 1 +∞ ⟼ ∑ m = 1 x X ⁡ L ⁡ m m = x ∈ 1 +∞ ⟼ seq 1 + F ⁡ x
67 46 66 eqtrid ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ↾ 1 +∞ = x ∈ 1 +∞ ⟼ seq 1 + F ⁡ x
68 fveq2 ⊢ m = x → seq 1 + F ⁡ m = seq 1 + F ⁡ x
69 rpssre ⊢ ℝ + ⊆ ℝ
70 69 a1i ⊢ φ → ℝ + ⊆ ℝ
71 44 70 sstrid ⊢ φ → 1 +∞ ⊆ ℝ
72 1zzd ⊢ φ → 1 ∈ ℤ
73 51 cbvmptv ⊢ a ∈ ℕ ⟼ X ⁡ L ⁡ a a = m ∈ ℕ ⟼ X ⁡ L ⁡ m m
74 9 73 eqtri ⊢ F = m ∈ ℕ ⟼ X ⁡ L ⁡ m m
75 30 74 fmptd ⊢ φ → F : ℕ ⟶ ℂ
76 75 ffvelcdmda ⊢ φ ∧ m ∈ ℕ → F ⁡ m ∈ ℂ
77 62 72 76 serf ⊢ φ → seq 1 + F : ℕ ⟶ ℂ
78 77 feqmptd ⊢ φ → seq 1 + F = m ∈ ℕ ⟼ seq 1 + F ⁡ m
79 78 11 eqbrtrrd ⊢ φ → m ∈ ℕ ⟼ seq 1 + F ⁡ m ⇝ S
80 77 ffvelcdmda ⊢ φ ∧ m ∈ ℕ → seq 1 + F ⁡ m ∈ ℂ
81 58 simprbi ⊢ x ∈ 1 +∞ → 1 ≤ x
82 81 adantl ⊢ φ ∧ x ∈ 1 +∞ → 1 ≤ x
83 62 68 71 72 79 80 82 climrlim2 ⊢ φ → x ∈ 1 +∞ ⟼ seq 1 + F ⁡ x ⇝ℝ S
84 rlimo1 ⊢ x ∈ 1 +∞ ⟼ seq 1 + F ⁡ x ⇝ℝ S → x ∈ 1 +∞ ⟼ seq 1 + F ⁡ x ∈ 𝑂⁡1
85 83 84 syl ⊢ φ → x ∈ 1 +∞ ⟼ seq 1 + F ⁡ x ∈ 𝑂⁡1
86 67 85 eqeltrd ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ↾ 1 +∞ ∈ 𝑂⁡1
87 32 fmpttd ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m : ℝ + ⟶ ℂ
88 1red ⊢ φ → 1 ∈ ℝ
89 87 70 88 o1resb ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ∈ 𝑂⁡1 ↔ x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ↾ 1 +∞ ∈ 𝑂⁡1
90 86 89 mpbird ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ∈ 𝑂⁡1
91 o1const ⊢ ℝ + ⊆ ℝ ∧ U ∈ ℂ → x ∈ ℝ + ⟼ U ∈ 𝑂⁡1
92 69 34 91 sylancr ⊢ φ → x ∈ ℝ + ⟼ U ∈ 𝑂⁡1
93 32 35 90 92 o1mul2 ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U ∈ 𝑂⁡1
94 simpr ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ +
95 2z ⊢ 2 ∈ ℤ
96 rpexpcl ⊢ x ∈ ℝ + ∧ 2 ∈ ℤ → x 2 ∈ ℝ +
97 94 95 96 sylancl ⊢ φ ∧ x ∈ ℝ + → x 2 ∈ ℝ +
98 17 nnrpd ⊢ m ∈ 1 … x → m ∈ ℝ +
99 rpdivcl ⊢ x 2 ∈ ℝ + ∧ m ∈ ℝ + → x 2 m ∈ ℝ +
100 97 98 99 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x 2 m ∈ ℝ +
101 13 divsqrsumf ⊢ H : ℝ + ⟶ ℝ
102 101 ffvelcdmi ⊢ x 2 m ∈ ℝ + → H ⁡ x 2 m ∈ ℝ
103 100 102 syl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⁡ x 2 m ∈ ℝ
104 103 recnd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⁡ x 2 m ∈ ℂ
105 31 104 mulcld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m ∈ ℂ
106 15 105 fsumcl ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m ∈ ℂ
107 32 35 mulcld ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U ∈ ℂ
108 14 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⇝ℝ U
109 108 33 syl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → U ∈ ℂ
110 31 109 mulcld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ U ∈ ℂ
111 15 105 110 fsumsub ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − X ⁡ L ⁡ m m ⁢ U = ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U
112 31 104 109 subdid ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U = X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − X ⁡ L ⁡ m m ⁢ U
113 112 sumeq2dv ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U = ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − X ⁡ L ⁡ m m ⁢ U
114 15 35 31 fsummulc1 ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U = ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U
115 114 oveq2d ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U = ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U
116 111 113 115 3eqtr4d ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U = ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U
117 116 mpteq2dva ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U = x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U
118 104 109 subcld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⁡ x 2 m − U ∈ ℂ
119 31 118 mulcld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ∈ ℂ
120 15 119 fsumcl ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ∈ ℂ
121 120 abscld ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ∈ ℝ
122 119 abscld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ∈ ℝ
123 15 122 fsumrecl ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ∈ ℝ
124 1red ⊢ φ ∧ x ∈ ℝ + → 1 ∈ ℝ
125 15 119 fsumabs ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U
126 rprege0 ⊢ x ∈ ℝ + → x ∈ ℝ ∧ 0 ≤ x
127 126 adantl ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ ∧ 0 ≤ x
128 127 simpld ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ
129 reflcl ⊢ x ∈ ℝ → x ∈ ℝ
130 128 129 syl ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ
131 130 94 rerpdivcld ⊢ φ ∧ x ∈ ℝ + → x x ∈ ℝ
132 simplr ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x ∈ ℝ +
133 132 rprecred ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 x ∈ ℝ
134 31 abscld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ∈ ℝ
135 98 rpsqrtcld ⊢ m ∈ 1 … x → m ∈ ℝ +
136 135 adantl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m ∈ ℝ +
137 136 rprecred ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 m ∈ ℝ
138 118 abscld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⁡ x 2 m − U ∈ ℝ
139 136 132 rpdivcld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m x ∈ ℝ +
140 69 139 sselid ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m x ∈ ℝ
141 31 absge0d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 0 ≤ X ⁡ L ⁡ m m
142 118 absge0d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 0 ≤ H ⁡ x 2 m − U
143 16 17 24 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m ∈ ℂ
144 136 rpcnd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m ∈ ℂ
145 136 rpne0d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m ≠ 0
146 143 144 145 absdivd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m = X ⁡ L ⁡ m m
147 136 rprege0d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m ∈ ℝ ∧ 0 ≤ m
148 absid ⊢ m ∈ ℝ ∧ 0 ≤ m → m = m
149 147 148 syl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m = m
150 149 oveq2d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m = X ⁡ L ⁡ m m
151 146 150 eqtrd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m = X ⁡ L ⁡ m m
152 143 abscld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m ∈ ℝ
153 1red ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 ∈ ℝ
154 eqid ⊢ Base Z = Base Z
155 20 ad2antrr ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ∈ D
156 3 nnnn0d ⊢ φ → N ∈ ℕ 0
157 1 154 2 znzrhfo ⊢ N ∈ ℕ 0 → L : ℤ ⟶ onto Base Z
158 fof ⊢ L : ℤ ⟶ onto Base Z → L : ℤ ⟶ Base Z
159 156 157 158 3syl ⊢ φ → L : ℤ ⟶ Base Z
160 159 adantr ⊢ φ ∧ x ∈ ℝ + → L : ℤ ⟶ Base Z
161 elfzelz ⊢ m ∈ 1 … x → m ∈ ℤ
162 ffvelcdm ⊢ L : ℤ ⟶ Base Z ∧ m ∈ ℤ → L ⁡ m ∈ Base Z
163 160 161 162 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → L ⁡ m ∈ Base Z
164 4 5 1 154 155 163 dchrabs2 ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m ≤ 1
165 152 153 136 164 lediv1dd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ≤ 1 m
166 151 165 eqbrtrd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ≤ 1 m
167 13 108 divsqrtsum2 ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x ∧ x 2 m ∈ ℝ + → H ⁡ x 2 m − U ≤ 1 x 2 m
168 100 167 mpdan ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⁡ x 2 m − U ≤ 1 x 2 m
169 97 rprege0d ⊢ φ ∧ x ∈ ℝ + → x 2 ∈ ℝ ∧ 0 ≤ x 2
170 sqrtdiv ⊢ x 2 ∈ ℝ ∧ 0 ≤ x 2 ∧ m ∈ ℝ + → x 2 m = x 2 m
171 169 98 170 syl2an ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x 2 m = x 2 m
172 126 ad2antlr ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x ∈ ℝ ∧ 0 ≤ x
173 sqrtsq ⊢ x ∈ ℝ ∧ 0 ≤ x → x 2 = x
174 172 173 syl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x 2 = x
175 174 oveq1d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x 2 m = x m
176 171 175 eqtrd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x 2 m = x m
177 176 oveq2d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 x 2 m = 1 x m
178 rpcnne0 ⊢ x ∈ ℝ + → x ∈ ℂ ∧ x ≠ 0
179 178 ad2antlr ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → x ∈ ℂ ∧ x ≠ 0
180 136 rpcnne0d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m ∈ ℂ ∧ m ≠ 0
181 recdiv ⊢ x ∈ ℂ ∧ x ≠ 0 ∧ m ∈ ℂ ∧ m ≠ 0 → 1 x m = m x
182 179 180 181 syl2anc ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 x m = m x
183 177 182 eqtrd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 x 2 m = m x
184 168 183 breqtrd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → H ⁡ x 2 m − U ≤ m x
185 134 137 138 140 141 142 166 184 lemul12ad ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ 1 m ⁢ m x
186 31 118 absmuld ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U = X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U
187 1cnd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 ∈ ℂ
188 dmdcan ⊢ m ∈ ℂ ∧ m ≠ 0 ∧ x ∈ ℂ ∧ x ≠ 0 ∧ 1 ∈ ℂ → m x ⁢ 1 m = 1 x
189 180 179 187 188 syl3anc ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m x ⁢ 1 m = 1 x
190 139 rpcnd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m x ∈ ℂ
191 reccl ⊢ m ∈ ℂ ∧ m ≠ 0 → 1 m ∈ ℂ
192 180 191 syl ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 m ∈ ℂ
193 190 192 mulcomd ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → m x ⁢ 1 m = 1 m ⁢ m x
194 189 193 eqtr3d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → 1 x = 1 m ⁢ m x
195 185 186 194 3brtr4d ⊢ φ ∧ x ∈ ℝ + ∧ m ∈ 1 … x → X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ 1 x
196 15 122 133 195 fsumle ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ ∑ m = 1 x 1 x
197 flge0nn0 ⊢ x ∈ ℝ ∧ 0 ≤ x → x ∈ ℕ 0
198 hashfz1 ⊢ x ∈ ℕ 0 → 1 … x = x
199 127 197 198 3syl ⊢ φ ∧ x ∈ ℝ + → 1 … x = x
200 199 oveq1d ⊢ φ ∧ x ∈ ℝ + → 1 … x ⁢ 1 x = x ⁢ 1 x
201 94 rpreccld ⊢ φ ∧ x ∈ ℝ + → 1 x ∈ ℝ +
202 201 rpcnd ⊢ φ ∧ x ∈ ℝ + → 1 x ∈ ℂ
203 fsumconst ⊢ 1 … x ∈ Fin ∧ 1 x ∈ ℂ → ∑ m = 1 x 1 x = 1 … x ⁢ 1 x
204 15 202 203 syl2anc ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x 1 x = 1 … x ⁢ 1 x
205 130 recnd ⊢ φ ∧ x ∈ ℝ + → x ∈ ℂ
206 178 adantl ⊢ φ ∧ x ∈ ℝ + → x ∈ ℂ ∧ x ≠ 0
207 206 simpld ⊢ φ ∧ x ∈ ℝ + → x ∈ ℂ
208 206 simprd ⊢ φ ∧ x ∈ ℝ + → x ≠ 0
209 205 207 208 divrecd ⊢ φ ∧ x ∈ ℝ + → x x = x ⁢ 1 x
210 200 204 209 3eqtr4d ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x 1 x = x x
211 196 210 breqtrd ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ x x
212 flle ⊢ x ∈ ℝ → x ≤ x
213 128 212 syl ⊢ φ ∧ x ∈ ℝ + → x ≤ x
214 128 recnd ⊢ φ ∧ x ∈ ℝ + → x ∈ ℂ
215 214 mulridd ⊢ φ ∧ x ∈ ℝ + → x ⋅ 1 = x
216 213 215 breqtrrd ⊢ φ ∧ x ∈ ℝ + → x ≤ x ⋅ 1
217 rpregt0 ⊢ x ∈ ℝ + → x ∈ ℝ ∧ 0 < x
218 217 adantl ⊢ φ ∧ x ∈ ℝ + → x ∈ ℝ ∧ 0 < x
219 ledivmul ⊢ x ∈ ℝ ∧ 1 ∈ ℝ ∧ x ∈ ℝ ∧ 0 < x → x x ≤ 1 ↔ x ≤ x ⋅ 1
220 130 124 218 219 syl3anc ⊢ φ ∧ x ∈ ℝ + → x x ≤ 1 ↔ x ≤ x ⋅ 1
221 216 220 mpbird ⊢ φ ∧ x ∈ ℝ + → x x ≤ 1
222 123 131 124 211 221 letrd ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ 1
223 121 123 124 125 222 letrd ⊢ φ ∧ x ∈ ℝ + → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ 1
224 223 adantrr ⊢ φ ∧ x ∈ ℝ + ∧ 1 ≤ x → ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ≤ 1
225 70 120 88 88 224 elo1d ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − U ∈ 𝑂⁡1
226 117 225 eqeltrrd ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m − ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U ∈ 𝑂⁡1
227 106 107 226 o1dif ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m ∈ 𝑂⁡1 ↔ x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ U ∈ 𝑂⁡1
228 93 227 mpbird ⊢ φ → x ∈ ℝ + ⟼ ∑ m = 1 x X ⁡ L ⁡ m m ⁢ H ⁡ x 2 m ∈ 𝑂⁡1