@@ -20,8 +20,8 @@ continuous functions.
2020When `β` has more structures, `C_c(α, β)` inherits such structures as `AddCommGroup`,
2121`NonUnitalRing` and `StarRing`.
2222
23- When the domain `α` is compact, `ContinuousMap.liftCompactlySupported` gives the identification
24- `C(α, β) ≃ C_c(α, β)`.
23+ When the domain `α` is compact, `CompactlySupportedContinuousMap.continuousMapEquiv`
24+ gives the identification `C(α, β) ≃ C_c(α, β)`.
2525
2626-/
2727
@@ -116,12 +116,15 @@ theorem eq_of_empty [IsEmpty α] (f g : C_c(α, β)) : f = g :=
116116
117117/-- A continuous function on a compact space automatically has compact support. -/
118118@[simps]
119- def ContinuousMap.liftCompactlySupported [CompactSpace α] : C(α, β) ≃ C_c(α, β) where
119+ def continuousMapEquiv [CompactSpace α] : C(α, β) ≃ C_c(α, β) where
120120 toFun f :=
121121 { toFun := f
122122 hasCompactSupport' := HasCompactSupport.of_compactSpace f }
123123 invFun f := f
124124
125+ @ [deprecated (since := "2025-10-21" )] alias ContinuousMap.liftCompactlySupported :=
126+ continuousMapEquiv
127+
125128variable {γ : Type *} [TopologicalSpace γ] [Zero γ]
126129
127130/-- Composition of a continuous function `f` with compact support with another continuous function
@@ -715,45 +718,10 @@ lemma exists_add_nnrealPart_add_eq (f g : C_c(α, ℝ)) : ∃ (h : C_c(α, ℝ
715718 use h
716719 refine ⟨hh, ?_⟩
717720 ext x
721+ have hhx := congr(($hh x : ℝ))
718722 simp only [coe_add, Pi.add_apply, nnrealPart_apply, coe_neg, Pi.neg_apply, NNReal.coe_add,
719- Real.coe_toNNReal', ← neg_add]
720- have hhx : (f x + g x) ⊔ 0 + ↑(h x) = f x ⊔ 0 + g x ⊔ 0 := by
721- rw [← Real.coe_toNNReal', ← Real.coe_toNNReal', ← Real.coe_toNNReal', ← NNReal.coe_add,
722- ← NNReal.coe_add]
723- have hhx' : ((f + g).nnrealPart + h) x = (f.nnrealPart + g.nnrealPart) x := by congr
724- simp only [coe_add, Pi.add_apply, nnrealPart_apply] at hhx'
725- exact congrArg toReal hhx'
726- rcases le_total 0 (f x) with hfx | hfx
727- · rcases le_total 0 (g x) with hgx | hgx
728- · simp only [hfx, hgx, add_nonneg, sup_of_le_left, add_eq_left, coe_eq_zero] at hhx
729- simp [hhx, hfx, hgx, add_nonpos]
730- · rcases le_total 0 (f x + g x) with hfgx | hfgx
731- · simp only [hfgx, sup_of_le_left, add_assoc, hfx, hgx, sup_of_le_right, add_zero,
732- add_eq_left] at hhx
733- rw [sup_of_le_right (neg_nonpos.mpr hfx), sup_of_le_left (neg_nonneg.mpr hgx),
734- sup_of_le_right (neg_nonpos.mpr hfgx)]
735- linarith
736- · simp only [hfgx, sup_of_le_right, zero_add, hfx, sup_of_le_left, hgx, add_zero] at hhx
737- rw [sup_of_le_right (neg_nonpos.mpr hfx), sup_of_le_left (neg_nonneg.mpr hgx),
738- sup_of_le_left (neg_nonneg.mpr hfgx), hhx]
739- ring
740- · rcases le_total 0 (g x) with hgx | hgx
741- · rcases le_total 0 (f x + g x) with hfgx | hfgx
742- · simp only [hfgx, sup_of_le_left, add_comm, hfx, sup_of_le_right, hgx, zero_add] at hhx
743- rw [sup_of_le_left (neg_nonneg.mpr hfx), sup_of_le_right (neg_nonpos.mpr hgx),
744- sup_of_le_right (neg_nonpos.mpr hfgx), zero_add, add_zero]
745- linarith
746- · simp only [hfgx, sup_of_le_right, zero_add, hfx, hgx, sup_of_le_left] at hhx
747- rw [sup_of_le_left (neg_nonneg.mpr hfx), sup_of_le_right (neg_nonpos.mpr hgx),
748- sup_of_le_left (neg_nonneg.mpr hfgx), hhx]
749- ring
750- · simp only [(add_nonpos hfx hgx), sup_of_le_right, zero_add, hfx, hgx, add_zero,
751- coe_eq_zero] at hhx
752- rw [sup_of_le_left (neg_nonneg.mpr hfx),
753- sup_of_le_left (neg_nonneg.mpr hgx),
754- sup_of_le_left (neg_nonneg.mpr (add_nonpos hfx hgx)), hhx, neg_add_rev, NNReal.coe_zero,
755- add_zero]
756- ring
723+ Real.coe_toNNReal', ← neg_add, max_neg_zero] at hhx ⊢
724+ linear_combination hhx
757725
758726/-- The compactly supported continuous `ℝ≥0`-valued function as a compactly supported `ℝ`-valued
759727function. -/
0 commit comments