α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (∫⁻ (x : α), f x ∂μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
rw [lintegral_eq_nnreal] at h
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
this :
  (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) <
    (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) + ε
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
have := ENNReal.lt_add_right h hε
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
this :
  (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) <
    ⨆ (i : α →ₛ ℝ≥0) (_ : i ∈ fun φ => ∀ (x : α), ↑(↑φ x) ≤ f x),
      SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ + ε
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
this :
  (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) <
    (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) + ε
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
erw [ENNReal.biSup_add] at this <;> [skip; exact ⟨0, fun x => zero_le _⟩]
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
this :
  ∃ i h b,
    b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ + ε ∧
      ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
this :
  (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) <
    ⨆ (i : α →ₛ ℝ≥0) (_ : i ∈ fun φ => ∀ (x : α), ↑(↑φ x) ≤ f x),
      SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ + ε
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
simp_rw [lt_iSup_iff, iSup_lt_iff, iSup_le_iff] at this
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
this :
  ∃ i h b,
    b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ + ε ∧
      ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
rcases this with ⟨φ, hle : ∀ x, ↑(φ x) ≤ f x, b, hbφ, hb⟩
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
⊢ ∃ φ,
    (∀ (x : α), ↑(↑φ x) ≤ f x) ∧
      ∀ (ψ : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑ψ x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
refine' ⟨φ, hle, fun ψ hψ => _⟩
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
have : (map (↑) φ).lintegral μ ≠ ∞ := ne_top_of_le_ne_top h (by exact le_iSup₂ (α := ℝ≥0∞) φ hle)
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (φ + (ψ - φ))) μ <
    SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (ψ - φ)) μ < ε
rw [← ENNReal.add_lt_add_iff_left this, ← add_lintegral, ← SimpleFunc.map_add @ENNReal.coe_add]
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
x : α
⊢ ↑(↑(φ + (ψ - φ)) x) ≤ max ↑(↑φ x) ↑(↑ψ x)
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some (φ + (ψ - φ))) μ <
    SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
refine' (hb _ fun x => le_trans _ (max_le (hle x) (hψ x))).trans_lt hbφ
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
x : α
⊢ ↑(φ + (ψ - φ)) x ≤ max (↑φ x) (↑ψ x)
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
x : α
⊢ ↑(↑(φ + (ψ - φ)) x) ≤ max ↑(↑φ x) ↑(↑ψ x)
norm_cast
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
x : α
⊢ max (↑φ x) (↑ψ x) ≤ max (↑φ x) (↑ψ x)
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
x : α
⊢ ↑(φ + (ψ - φ)) x ≤ max (↑φ x) (↑ψ x)
simp only [add_apply, sub_apply, add_tsub_eq_max]
no goals
case intro.intro.intro.intro
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
this : SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≠ ⊤
x : α
⊢ max (↑φ x) (↑ψ x) ≤ max (↑φ x) (↑ψ x)
rfl
no goals
α : Type u_1
β : Type ?u.85282
γ : Type ?u.85285
δ : Type ?u.85288
m : MeasurableSpace α
μ ν : Measure α
f : α → ℝ≥0∞
h : (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≠ ⊤
ε : ℝ≥0∞
hε : ε ≠ 0
φ : α →ₛ ℝ≥0
hle : ∀ (x : α), ↑(↑φ x) ≤ f x
b : ℝ≥0∞
hbφ : b < SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ + ε
hb : ∀ (i : α →ₛ ℝ≥0), (∀ (x : α), ↑(↑i x) ≤ f x) → SimpleFunc.lintegral (SimpleFunc.map ENNReal.some i) μ ≤ b
ψ : α →ₛ ℝ≥0
hψ : ∀ (x : α), ↑(↑ψ x) ≤ f x
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ ≤
    ⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ f x), SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ
exact le_iSup₂ (α := ℝ≥0∞) φ hle