@@ -8,10 +8,10 @@ Authors: Johannes Hölzl
88! Please do not edit these lines, except to modify the commit id
99! if you have ported upstream changes.
1010-/
11- import Mathbin .Algebra.Order.Archimedean
12- import Mathbin .Topology.Algebra.InfiniteSum.Basic
13- import Mathbin .Topology.Algebra.Order.Field
14- import Mathbin .Topology.Algebra.Order.MonotoneConvergence
11+ import Mathlib .Algebra.Order.Archimedean
12+ import Mathlib .Topology.Algebra.InfiniteSum.Basic
13+ import Mathlib .Topology.Algebra.Order.Field
14+ import Mathlib .Topology.Algebra.Order.MonotoneConvergence
1515
1616/-!
1717# Infinite sum in an order
@@ -64,8 +64,7 @@ theorem le_hasSum_of_le_sum (hf : HasSum f a) (h : ∀ s, a₂ ≤ ∑ i in s, f
6464/- ./././Mathport/Syntax/Translate/Basic.lean:635:2: warning: expanding binder collection (c «expr ∉ » set.range[ set.range ] e) -/
6565theorem hasSum_le_inj {g : κ → α} (e : ι → κ) (he : Injective e)
6666 (hs : ∀ (c) (_ : c ∉ Set.range e), 0 ≤ g c) (h : ∀ i, f i ≤ g (e i)) (hf : HasSum f a₁)
67- (hg : HasSum g a₂) : a₁ ≤ a₂ :=
68- by
67+ (hg : HasSum g a₂) : a₁ ≤ a₂ := by
6968 have : HasSum (fun c => (partialInv e c).casesOn' 0 f) a₁ :=
7069 by
7170 refine'
@@ -144,8 +143,7 @@ theorem tsum_le_of_sum_le (hf : Summable f) (h : ∀ s, (∑ i in s, f i) ≤ a
144143 hasSum_le_of_sum_le hf.HasSum h
145144#align tsum_le_of_sum_le tsum_le_of_sum_le
146145
147- theorem tsum_le_of_sum_le' (ha₂ : 0 ≤ a₂) (h : ∀ s, (∑ i in s, f i) ≤ a₂) : (∑' i, f i) ≤ a₂ :=
148- by
146+ theorem tsum_le_of_sum_le' (ha₂ : 0 ≤ a₂) (h : ∀ s, (∑ i in s, f i) ≤ a₂) : (∑' i, f i) ≤ a₂ := by
149147 by_cases hf : Summable f
150148 · exact tsum_le_of_sum_le hf h
151149 · rw [tsum_eq_zero_of_not_summable hf]
@@ -160,15 +158,13 @@ theorem HasSum.nonpos (h : ∀ i, g i ≤ 0) (ha : HasSum g a) : a ≤ 0 :=
160158 hasSum_le h ha hasSum_zero
161159#align has_sum.nonpos HasSum.nonpos
162160
163- theorem tsum_nonneg (h : ∀ i, 0 ≤ g i) : 0 ≤ ∑' i, g i :=
164- by
161+ theorem tsum_nonneg (h : ∀ i, 0 ≤ g i) : 0 ≤ ∑' i, g i := by
165162 by_cases hg : Summable g
166163 · exact hg.has_sum.nonneg h
167164 · simp [tsum_eq_zero_of_not_summable hg]
168165#align tsum_nonneg tsum_nonneg
169166
170- theorem tsum_nonpos (h : ∀ i, f i ≤ 0 ) : (∑' i, f i) ≤ 0 :=
171- by
167+ theorem tsum_nonpos (h : ∀ i, f i ≤ 0 ) : (∑' i, f i) ≤ 0 := by
172168 by_cases hf : Summable f
173169 · exact hf.has_sum.nonpos h
174170 · simp [tsum_eq_zero_of_not_summable hf]
@@ -181,8 +177,7 @@ section OrderedAddCommGroup
181177variable [OrderedAddCommGroup α] [TopologicalSpace α] [TopologicalAddGroup α]
182178 [OrderClosedTopology α] {f g : ι → α} {a₁ a₂ : α} {i : ι}
183179
184- theorem hasSum_lt (h : f ≤ g) (hi : f i < g i) (hf : HasSum f a₁) (hg : HasSum g a₂) : a₁ < a₂ :=
185- by
180+ theorem hasSum_lt (h : f ≤ g) (hi : f i < g i) (hf : HasSum f a₁) (hg : HasSum g a₂) : a₁ < a₂ := by
186181 have : update f i 0 ≤ update g i 0 := update_le_update_iff.mpr ⟨rfl.le, fun i _ => h i⟩
187182 have : 0 - f i + a₁ ≤ 0 - g i + a₂ := hasSum_le this (hf.update i 0 ) (hg.update i 0 )
188183 simpa only [zero_sub, add_neg_cancel_left] using add_lt_add_of_lt_of_le hi this
@@ -212,8 +207,7 @@ theorem tsum_pos (hsum : Summable g) (hg : ∀ i, 0 ≤ g i) (i : ι) (hi : 0 <
212207 exact tsum_lt_tsum hg hi summable_zero hsum
213208#align tsum_pos tsum_pos
214209
215- theorem hasSum_zero_iff_of_nonneg (hf : ∀ i, 0 ≤ f i) : HasSum f 0 ↔ f = 0 :=
216- by
210+ theorem hasSum_zero_iff_of_nonneg (hf : ∀ i, 0 ≤ f i) : HasSum f 0 ↔ f = 0 := by
217211 refine' ⟨fun hf' => _, _⟩
218212 · ext i
219213 refine' (hf i).eq_of_not_gt fun hi => _
@@ -237,8 +231,7 @@ theorem le_tsum' (hf : Summable f) (i : ι) : f i ≤ ∑' i, f i :=
237231 le_tsum hf i fun _ _ => zero_le _
238232#align le_tsum' le_tsum'
239233
240- theorem hasSum_zero_iff : HasSum f 0 ↔ ∀ x, f x = 0 :=
241- by
234+ theorem hasSum_zero_iff : HasSum f 0 ↔ ∀ x, f x = 0 := by
242235 refine' ⟨_, fun h => _⟩
243236 · contrapose!
244237 exact fun ⟨x, hx⟩ h => hx (nonpos_iff_eq_zero.1 <| le_has_sum' h x)
@@ -304,8 +297,7 @@ alias summable_abs_iff ↔ Summable.of_abs Summable.abs
304297--TODO: Change the conclusion to `finite ι`
305298theorem finite_of_summable_const [LinearOrderedAddCommGroup α] [TopologicalSpace α] [Archimedean α]
306299 [OrderClosedTopology α] {b : α} (hb : 0 < b) (hf : Summable fun i : ι => b) :
307- (Set.univ : Set ι).Finite :=
308- by
300+ (Set.univ : Set ι).Finite := by
309301 have H : ∀ s : Finset ι, s.card • b ≤ ∑' i : ι, b :=
310302 by
311303 intro s
@@ -321,8 +313,7 @@ theorem finite_of_summable_const [LinearOrderedAddCommGroup α] [TopologicalSpac
321313end LinearOrder
322314
323315theorem Summable.tendsto_top_of_pos [LinearOrderedField α] [TopologicalSpace α] [OrderTopology α]
324- {f : ℕ → α} (hf : Summable f⁻¹) (hf' : ∀ n, 0 < f n) : Tendsto f atTop atTop :=
325- by
316+ {f : ℕ → α} (hf : Summable f⁻¹) (hf' : ∀ n, 0 < f n) : Tendsto f atTop atTop := by
326317 rw [← inv_inv f]
327318 apply Filter.Tendsto.inv_tendsto_zero
328319 apply tendsto_nhdsWithin_of_tendsto_nhds_of_eventually_within _ (Summable.tendsto_atTop_zero hf)
0 commit comments