-- File: FoML/FoML/Rademacher.lean
Theorem statement:
theorem extracted_formal_statement_37.{u_3, u_2} {α : Type u_2} [inst : MeasurableSpace α] (μ : Measure α)
  [inst_1 : IsFiniteMeasure μ] {ι : Sort u_3} [inst_2 : Countable ι] (f : ι → α → ℝ≥0∞)
  (hfm : ∀ (i : ι), Measurable (f i)) {b : ℝ≥0∞} (hb : b ≠ ⊤) (hf : ∀ (i : ι) (x : α), f i x ≤ b)
  (hf_le : ∀ (i : ι) (x : α), f i x < ⊤) (hfle : ∀ (i : ι), ∀ᵐ (x : α) ∂μ, f i x < ⊤)
  (hfne : ∀ᵐ (x : α) ∂μ, ∀ (i : ι), f i x ≠ ⊤) (hb' : b * μ Set.univ < ⊤) (hf_nebot : ⨆ i, ∫⁻ (a : α), f i a ∂μ ≠ ⊤)
  (h_original_goal : ∫⁻ (a : α), ⨆ i, f i a ∂μ ≤ ∫⁻ (a : α), b ∂μ) : (fun a => ⨆ i, f i a) ≤ fun a => b := sorry

Tactic state before:
α : Type u_2
inst✝² : MeasurableSpace α
μ : Measure α
inst✝¹ : IsFiniteMeasure μ
ι : Sort u_3
inst✝ : Countable ι
f : ι → α → ℝ≥0∞
hfm : ∀ (i : ι), Measurable (f i)
b : ℝ≥0∞
hb : b ≠ ⊤
hf : ∀ (i : ι) (x : α), f i x ≤ b
hf_le : ∀ (i : ι) (x : α), f i x < ⊤
hfle : ∀ (i : ι), ∀ᵐ (x : α) ∂μ, f i x < ⊤
hfne : ∀ᵐ (x : α) ∂μ, ∀ (i : ι), f i x ≠ ⊤
hb' : b * μ Set.univ < ⊤
hf_nebot : ⨆ i, ∫⁻ (a : α), f i a ∂μ ≠ ⊤
⊢ ∫⁻ (a : α), ⨆ i, f i a ∂μ ≤ ∫⁻ (a : α), b ∂μ

Tactic: apply lintegral_mono

Tactic state after:
[case hfg
 α : Type u_2
 inst✝² : MeasurableSpace α
 μ : Measure α
 inst✝¹ : IsFiniteMeasure μ
 ι : Sort u_3
 inst✝ : Countable ι
 f : ι → α → ℝ≥0∞
 hfm : ∀ (i : ι), Measurable (f i)
 b : ℝ≥0∞
 hb : b ≠ ⊤
 hf : ∀ (i : ι) (x : α), f i x ≤ b
 hf_le : ∀ (i : ι) (x : α), f i x < ⊤
 hfle : ∀ (i : ι), ∀ᵐ (x : α) ∂μ, f i x < ⊤
 hfne : ∀ᵐ (x : α) ∂μ, ∀ (i : ι), f i x ≠ ⊤
 hb' : b * μ Set.univ < ⊤
 hf_nebot : ⨆ i, ∫⁻ (a : α), f i a ∂μ ≠ ⊤
 ⊢ (fun a => ⨆ i, f i a) ≤ fun a => b]

Premises used:
MeasureTheory.lintegral_mono : ∀ {α : Type u_1} {m : MeasurableSpace α} {μ : Measure α} ⦃f g : α → ℝ≥0∞⦄,
  f ≤ g → ∫⁻ (a : α), f a ∂μ ≤ ∫⁻ (a : α), g a ∂μ