α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
⊢ (∫⁻ (a : α), ⨆ (n : ℕ), f n a ∂μ) = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
⊢ (∫⁻ (a : α), ⨆ (n : ℕ), f n a ∂μ) = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
set c : ℝ≥0 → ℝ≥0∞ := (↑)
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
⊢ lintegral μ F = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
⊢ (∫⁻ (a : α), ⨆ (n : ℕ), f n a ∂μ) = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
set F := fun a : α => ⨆ n, f n a
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
⊢ lintegral μ F = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
⊢ lintegral μ F = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
have _ : Measurable F := measurable_iSup hf
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
⊢ lintegral μ F ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
⊢ lintegral μ F = ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
refine' le_antisymm _ (iSup_lintegral_le _)
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
⊢ (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ ⨆ (n : ℕ), f n x),
      SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≤
    ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
⊢ lintegral μ F ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
rw [lintegral_eq_nnreal]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
⊢ (⨆ (φ : α →ₛ ℝ≥0) (_ : ∀ (x : α), ↑(↑φ x) ≤ ⨆ (n : ℕ), f n x),
      SimpleFunc.lintegral (SimpleFunc.map ENNReal.some φ) μ) ≤
    ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
refine' iSup_le fun s => iSup_le fun hsf => _
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
a : ℝ≥0∞
ha : a < 1
⊢ a * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
⊢ SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
refine' ENNReal.le_of_forall_lt_one_mul_le fun a ha => _
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha : ↑r < 1
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
a : ℝ≥0∞
ha : a < 1
⊢ a * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
rcases ENNReal.lt_iff_exists_coe.1 ha with ⟨r, rfl, _⟩
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha : ↑r < 1
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
have ha : r < 1 := ENNReal.coe_lt_coe.1 ha
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
let rs := s.map fun a => r * a
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
have eq_rs : (const α r : α →ₛ ℝ≥0∞) * map c s = rs.map c := by
  ext1 a
  exact ENNReal.coe_mul.symm
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
have mono : ∀ r : ℝ≥0∞, Monotone fun n => rs.map c ⁻¹' {r} ∩ { a | r ≤ f n a } := by
  intro r i j h
  refine' inter_subset_inter (Subset.refl _) _
  intro x (hx : r ≤ f i x)
  exact le_trans hx (h_mono h x)
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
case intro.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map ENNReal.some s) μ ≤ ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
have h_meas : ∀ n, MeasurableSet { a : α | (⇑(map c rs)) a ≤ f n a } := fun n =>
  measurableSet_le (SimpleFunc.measurable _) (hf n)
case H
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
a : α
⊢ ↑(const α ↑r * SimpleFunc.map c s) a = ↑(SimpleFunc.map c rs) a
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
⊢ const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
ext1 a
no goals
case H
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
a : α
⊢ ↑(const α ↑r * SimpleFunc.map c s) a = ↑(SimpleFunc.map c rs) a
exact ENNReal.coe_mul.symm
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
⊢ ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
⊢ ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
intro p
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
⊢ ↑(SimpleFunc.map c rs) ⁻¹' {p} = ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ ⋃ (i : ℕ), {a | p ≤ f i a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
⊢ ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
rw [← inter_iUnion]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
⊢ ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ univ = ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ ⋃ (i : ℕ), {a | p ≤ f i a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
⊢ ↑(SimpleFunc.map c rs) ⁻¹' {p} = ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ ⋃ (i : ℕ), {a | p ≤ f i a}
nth_rw 1 [← inter_univ (map c rs ⁻¹' {p})]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
hx : x ∈ ↑(SimpleFunc.map c rs) ⁻¹' {p}
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
⊢ ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ univ = ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ ⋃ (i : ℕ), {a | p ≤ f i a}
refine' Set.ext fun x => and_congr_right fun hx => true_iff_iff.2 _
case pos
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
hx : x ∈ ↑(SimpleFunc.map c rs) ⁻¹' {p}
p_eq : p = 0
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}

case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
hx : x ∈ ↑(SimpleFunc.map c rs) ⁻¹' {p}
p_eq : ¬p = 0
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
hx : x ∈ ↑(SimpleFunc.map c rs) ⁻¹' {p}
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
by_cases p_eq : p = 0
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
p_eq : ¬p = 0
hx : ↑(r * ↑s x) = p
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
hx : x ∈ ↑(SimpleFunc.map c rs) ⁻¹' {p}
p_eq : ¬p = 0
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
simp [-ENNReal.coe_mul] at hx
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
p_eq : ¬p = 0
hx : ↑(r * ↑s x) = p
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
subst hx
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
have : r * s x ≠ 0 := by rwa [Ne, ← ENNReal.coe_eq_zero]
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
have : s x ≠ 0 := by
  refine' mt _ this
  intro h
  rw [h, MulZeroClass.mul_zero]
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝¹ : r * ↑s x ≠ 0
this✝ : ↑s x ≠ 0
this : ↑(SimpleFunc.map c rs) x < ⨆ (n : ℕ), f n x
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
have : (rs.map c) x < ⨆ n : ℕ, f n x := by
  refine' lt_of_lt_of_le (ENNReal.coe_lt_coe.2 _) (hsf x)
  suffices : r * s x < 1 * s x
  simpa
  exact mul_lt_mul_of_pos_right ha (pos_iff_ne_zero.2 this)
case neg.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝¹ : r * ↑s x ≠ 0
this✝ : ↑s x ≠ 0
this : ↑(SimpleFunc.map c rs) x < ⨆ (n : ℕ), f n x
i : ℕ
hi : ↑(SimpleFunc.map c rs) x < f i x
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
case neg
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝¹ : r * ↑s x ≠ 0
this✝ : ↑s x ≠ 0
this : ↑(SimpleFunc.map c rs) x < ⨆ (n : ℕ), f n x
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
rcases lt_iSup_iff.1 this with ⟨i, hi⟩
no goals
case neg.intro
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝¹ : r * ↑s x ≠ 0
this✝ : ↑s x ≠ 0
this : ↑(SimpleFunc.map c rs) x < ⨆ (n : ℕ), f n x
i : ℕ
hi : ↑(SimpleFunc.map c rs) x < f i x
⊢ x ∈ ⋃ (i : ℕ), {a | ↑(r * ↑s x) ≤ f i a}
exact mem_iUnion.2 ⟨i, le_of_lt hi⟩
no goals
case pos
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
p : ℝ≥0∞
x : α
hx : x ∈ ↑(SimpleFunc.map c rs) ⁻¹' {p}
p_eq : p = 0
⊢ x ∈ ⋃ (i : ℕ), {a | p ≤ f i a}
simp [p_eq]
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
⊢ r * ↑s x ≠ 0
rwa [Ne, ← ENNReal.coe_eq_zero]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
⊢ ↑s x = 0 → r * ↑s x = 0
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
⊢ ↑s x ≠ 0
refine' mt _ this
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
h : ↑s x = 0
⊢ r * ↑s x = 0
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
⊢ ↑s x = 0 → r * ↑s x = 0
intro h
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this : r * ↑s x ≠ 0
h : ↑s x = 0
⊢ r * ↑s x = 0
rw [h, MulZeroClass.mul_zero]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ ↑rs x < ↑s x
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ ↑(SimpleFunc.map c rs) x < ⨆ (n : ℕ), f n x
refine' lt_of_lt_of_le (ENNReal.coe_lt_coe.2 _) (hsf x)
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝¹ : r * ↑s x ≠ 0
this✝ : ↑s x ≠ 0
this : r * ↑s x < 1 * ↑s x
⊢ ↑rs x < ↑s x

case this
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ r * ↑s x < 1 * ↑s x
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ ↑rs x < ↑s x
suffices : r * s x < 1 * s x
case this
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ r * ↑s x < 1 * ↑s x
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝¹ : r * ↑s x ≠ 0
this✝ : ↑s x ≠ 0
this : r * ↑s x < 1 * ↑s x
⊢ ↑rs x < ↑s x

case this
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ r * ↑s x < 1 * ↑s x
simpa
no goals
case this
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
x : α
p_eq : ¬↑(r * ↑s x) = 0
this✝ : r * ↑s x ≠ 0
this : ↑s x ≠ 0
⊢ r * ↑s x < 1 * ↑s x
exact mul_lt_mul_of_pos_right ha (pos_iff_ne_zero.2 this)
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
r : ℝ≥0∞
i j : ℕ
h : i ≤ j
⊢ (fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) i ≤
    (fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) j
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
⊢ ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
intro r i j h
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
r : ℝ≥0∞
i j : ℕ
h : i ≤ j
⊢ {a | r ≤ f i a} ⊆ {a | r ≤ f j a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
r : ℝ≥0∞
i j : ℕ
h : i ≤ j
⊢ (fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) i ≤
    (fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) j
refine' inter_subset_inter (Subset.refl _) _
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
r : ℝ≥0∞
i j : ℕ
h : i ≤ j
x : α
hx : r ≤ f i x
⊢ x ∈ {a | r ≤ f j a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
r : ℝ≥0∞
i j : ℕ
h : i ≤ j
⊢ {a | r ≤ f i a} ⊆ {a | r ≤ f j a}
intro x (hx : r ≤ f i x)
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
r : ℝ≥0∞
i j : ℕ
h : i ≤ j
x : α
hx : r ≤ f i x
⊢ x ∈ {a | r ≤ f j a}
exact le_trans hx (h_mono h x)
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ ↑r * SimpleFunc.lintegral (SimpleFunc.map c s) μ =
    ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r})
rw [← const_mul_lintegral, eq_rs, SimpleFunc.lintegral]
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r}) =
    ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a})
simp only [(eq _).symm]
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
x : ℝ≥0∞
x✝ : x ∈ SimpleFunc.range (SimpleFunc.map c rs)
⊢ x * ↑↑μ (⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {x} ∩ {a | x ≤ f n a}) =
    ⨆ (n : ℕ), x * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {x} ∩ {a | x ≤ f n a})
rw [measure_iUnion_eq_iSup (directed_of_sup <| mono x), ENNReal.mul_iSup]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ ∀ (a : ℝ≥0∞), Monotone fun n => a * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {a} ∩ {a_1 | a ≤ f n a_1})
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ (∑ r in SimpleFunc.range (SimpleFunc.map c rs),
      ⨆ (n : ℕ), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a})) =
    ⨆ (n : ℕ), ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a})
rw [ENNReal.finset_sum_iSup_nat]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
p : ℝ≥0∞
i j : ℕ
h : i ≤ j
⊢ (fun n => p * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a})) i ≤
    (fun n => p * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a})) j
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ ∀ (a : ℝ≥0∞), Monotone fun n => a * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {a} ∩ {a_1 | a ≤ f n a_1})
intro p i j h
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
p : ℝ≥0∞
i j : ℕ
h : i ≤ j
⊢ (fun n => p * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a})) i ≤
    (fun n => p * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a})) j
exact mul_le_mul_left' (measure_mono <| mono p h) _
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) ≤
    SimpleFunc.lintegral (restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ (⨆ (n : ℕ),
      ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a})) ≤
    ⨆ (n : ℕ), SimpleFunc.lintegral (restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) μ
refine' iSup_mono fun n => _
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) ≤
    ∑ r in SimpleFunc.range (SimpleFunc.map c rs),
      r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | ↑(SimpleFunc.map c rs) a ≤ f n a})
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) ≤
    SimpleFunc.lintegral (restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) μ
rw [restrict_lintegral _ (h_meas n)]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
r : ℝ≥0∞
x✝ : r ∈ SimpleFunc.range (SimpleFunc.map c rs)
⊢ r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) =
    r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | ↑(SimpleFunc.map c rs) a ≤ f n a})
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ ∑ r in SimpleFunc.range (SimpleFunc.map c rs), r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) ≤
    ∑ r in SimpleFunc.range (SimpleFunc.map c rs),
      r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | ↑(SimpleFunc.map c rs) a ≤ f n a})
refine' le_of_eq (Finset.sum_congr rfl fun r _ => _)
case e_a.e_a.h
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
r : ℝ≥0∞
x✝ : r ∈ SimpleFunc.range (SimpleFunc.map c rs)
a : α
⊢ a ∈ ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a} ↔
    a ∈ ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
r : ℝ≥0∞
x✝ : r ∈ SimpleFunc.range (SimpleFunc.map c rs)
⊢ r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}) =
    r * ↑↑μ (↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | ↑(SimpleFunc.map c rs) a ≤ f n a})
congr 2 with a
case e_a.e_a.h
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
r : ℝ≥0∞
x✝ : r ∈ SimpleFunc.range (SimpleFunc.map c rs)
a : α
⊢ a ∈ ↑(SimpleFunc.map c rs) ⁻¹' {r} → (a ∈ {a | r ≤ f n a} ↔ a ∈ {a | ↑(SimpleFunc.map c rs) a ≤ f n a})
case e_a.e_a.h
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
r : ℝ≥0∞
x✝ : r ∈ SimpleFunc.range (SimpleFunc.map c rs)
a : α
⊢ a ∈ ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a} ↔
    a ∈ ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
refine' and_congr_right _
no goals
case e_a.e_a.h
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝¹ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r✝ : ℝ≥0
right✝ ha✝ : ↑r✝ < 1
ha : r✝ < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r✝ * a) s
eq_rs : const α ↑r✝ * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
r : ℝ≥0∞
x✝ : r ∈ SimpleFunc.range (SimpleFunc.map c rs)
a : α
⊢ a ∈ ↑(SimpleFunc.map c rs) ⁻¹' {r} → (a ∈ {a | r ≤ f n a} ↔ a ∈ {a | ↑(SimpleFunc.map c rs) a ≤ f n a})
simp (config := { contextual := true })
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ SimpleFunc.lintegral (restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) μ ≤ ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
⊢ (⨆ (n : ℕ), SimpleFunc.lintegral (restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) μ) ≤
    ⨆ (n : ℕ), ∫⁻ (a : α), f n a ∂μ
refine' iSup_mono fun n => _
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ (∫⁻ (a : α), ↑(restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) a ∂μ) ≤ ∫⁻ (a : α), f n a ∂μ
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ SimpleFunc.lintegral (restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) μ ≤ ∫⁻ (a : α), f n a ∂μ
rw [← SimpleFunc.lintegral_eq_lintegral]
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
a : α
⊢ ↑(restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) a ≤ f n a
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
⊢ (∫⁻ (a : α), ↑(restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) a ∂μ) ≤ ∫⁻ (a : α), f n a ∂μ
refine' lintegral_mono fun a => _
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(r * ↑s a) ≤ f n a}
n : ℕ
a : α
⊢ ↑(restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) a ≤ f n a
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(SimpleFunc.map c rs) a ≤ f n a}
n : ℕ
a : α
⊢ ↑(restrict (SimpleFunc.map c rs) {a | ↑(SimpleFunc.map c rs) a ≤ f n a}) a ≤ f n a
simp only [map_apply] at h_meas
no goals
α : Type u_1
β : Type ?u.296965
γ : Type ?u.296968
δ : Type ?u.296971
m : MeasurableSpace α
μ ν : Measure α
f : ℕ → α → ℝ≥0∞
hf : ∀ (n : ℕ), Measurable (f n)
h_mono : Monotone f
c : ℝ≥0 → ℝ≥0∞ := ENNReal.some
F : α → ℝ≥0∞ := fun a => ⨆ (n : ℕ), f n a
x✝ : Measurable F
s : α →ₛ ℝ≥0
hsf : ∀ (x : α), ↑(↑s x) ≤ ⨆ (n : ℕ), f n x
r : ℝ≥0
right✝ ha✝ : ↑r < 1
ha : r < 1
rs : α →ₛ ℝ≥0 := SimpleFunc.map (fun a => r * a) s
eq_rs : const α ↑r * SimpleFunc.map c s = SimpleFunc.map c rs
eq : ∀ (p : ℝ≥0∞), ↑(SimpleFunc.map c rs) ⁻¹' {p} = ⋃ (n : ℕ), ↑(SimpleFunc.map c rs) ⁻¹' {p} ∩ {a | p ≤ f n a}
mono : ∀ (r : ℝ≥0∞), Monotone fun n => ↑(SimpleFunc.map c rs) ⁻¹' {r} ∩ {a | r ≤ f n a}
h_meas : ∀ (n : ℕ), MeasurableSet {a | ↑(r * ↑s a) ≤ f n a}
n : ℕ
a : α
⊢ indicator {a | ↑(r * ↑s a) ≤ f n a} (fun x => ↑(r * ↑s x)) a ≤ f n a
exact indicator_apply_le id