@@ -379,18 +379,18 @@ by applying the functional to the indicator functions. -/
379379def _root_.continuous_linear_map.to_bounded_additive_measure
380380 [topological_space α] [discrete_topology α]
381381 (f : (α →ᵇ ℝ) →L[ℝ] ℝ) : bounded_additive_measure α :=
382- { to_fun := λ s, f (of_normed_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)),
382+ { to_fun := λ s, f (of_normed_add_comm_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)),
383383 additive' := λ s t hst,
384384 begin
385- have : of_normed_group_discrete (indicator (s ∪ t) 1 ) 1 (norm_indicator_le_one (s ∪ t) )
386- = of_normed_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)
387- + of_normed_group_discrete (indicator t 1 ) 1 (norm_indicator_le_one t),
385+ have : of_normed_add_comm_group_discrete (indicator (s ∪ t) 1 ) 1 (norm_indicator_le_one _ )
386+ = of_normed_add_comm_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)
387+ + of_normed_add_comm_group_discrete (indicator t 1 ) 1 (norm_indicator_le_one t),
388388 by { ext x, simp [indicator_union_of_disjoint hst], },
389389 rw [this , f.map_add],
390390 end ,
391391 exists_bound := ⟨∥f∥, λ s, begin
392- have I : ∥of_normed_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)∥ ≤ 1 ,
393- by apply norm_of_normed_group_le _ zero_le_one,
392+ have I : ∥of_normed_add_comm_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)∥ ≤ 1 ,
393+ by apply norm_of_normed_add_comm_group_le _ zero_le_one,
394394 apply le_trans (f.le_op_norm _),
395395 simpa using mul_le_mul_of_nonneg_left I (norm_nonneg f),
396396 end ⟩ }
@@ -410,7 +410,7 @@ lemma to_functions_to_measure [measurable_space α] (μ : measure α) [is_finite
410410 μ.extension_to_bounded_functions.to_bounded_additive_measure s = (μ s).to_real :=
411411begin
412412 change μ.extension_to_bounded_functions
413- (of_normed_group_discrete (indicator s (λ x, 1 ) ) 1 (norm_indicator_le_one s)) = (μ s).to_real,
413+ (of_normed_add_comm_group_discrete (indicator s 1 ) 1 (norm_indicator_le_one s)) = (μ s).to_real,
414414 rw extension_to_bounded_functions_apply,
415415 { change ∫ x, s.indicator (λ y, (1 : ℝ)) x ∂μ = _,
416416 simp [integral_indicator hs] },
@@ -500,7 +500,7 @@ which is large (it has countable complement), as in the Sierpinski pathological
500500taking values in `{0, 1}`), indexed by a real parameter `x`, corresponding to the characteristic
501501functions of the different fibers of the Sierpinski pathological family -/
502502def f (Hcont : #ℝ = aleph 1 ) (x : ℝ) : (discrete_copy ℝ →ᵇ ℝ) :=
503- of_normed_group_discrete (indicator (spf Hcont x) 1 ) 1 (norm_indicator_le_one _)
503+ of_normed_add_comm_group_discrete (indicator (spf Hcont x) 1 ) 1 (norm_indicator_le_one _)
504504
505505lemma apply_f_eq_continuous_part (Hcont : #ℝ = aleph 1 )
506506 (φ : (discrete_copy ℝ →ᵇ ℝ) →L[ℝ] ℝ) (x : ℝ)
579579
580580/-- The function `f Hcont : ℝ → (discrete_copy ℝ →ᵇ ℝ)` is uniformly bounded by `1` in norm. -/
581581lemma norm_bound (Hcont : #ℝ = aleph 1 ) (x : ℝ) : ∥f Hcont x∥ ≤ 1 :=
582- norm_of_normed_group_le _ zero_le_one _
582+ norm_of_normed_add_comm_group_le _ zero_le_one _
583583
584584/-- The function `f Hcont : ℝ → (discrete_copy ℝ →ᵇ ℝ)` has no Pettis integral. -/
585585theorem no_pettis_integral (Hcont : #ℝ = aleph 1 ) :
0 commit comments