theorem extracted_formal_statement_13.{u} {Ω : Type u} [inst : MeasurableSpace Ω] (μ : Measure Ω)
  [inst_1 : IsProbabilityMeasure μ] {n : ℕ} {X : Fin n → Ω → ℝ} (hXm : ∀ (i : Fin n), Measurable (X i))
  (hX_bdd : ∀ (i : Fin n), ∀ᵐ (ω : Ω) ∂μ, |X i ω| ≤ 1) (τ : ℝ) (hlam : τ ≥ 0) :
  let S := fun ω => ∑ i, X i ω;
  Measurable S →
    (Measurable fun ω => rexp (τ * S ω)) →
      ∀ (i : Fin n) (ω : Ω), |X i ω| ≤ 1 → rexp (τ * X i ω) ≤ rexp τ → τ * X i ω ≤ τ := sorry

State before:
case h
Ω : Type u
inst : MeasurableSpace Ω
μ : Measure Ω
inst_1 : IsProbabilityMeasure μ
n : ℕ
X : Fin n → Ω → ℝ
hXm : ∀ (i : Fin n), Measurable (X i)
hX_bdd : ∀ (i : Fin n), ∀ᵐ (ω : Ω) ∂μ, |X i ω| ≤ 1
τ : ℝ
hlam : τ ≥ 0
S : Ω → ℝ := fun ω => ∑ i, X i ω
hS_meas : Measurable S
f : ℝ → ℝ := fun x => rexp (τ * x)
f_meas : Measurable f
f_measω : Measurable fun ω => rexp (τ * S ω)
i : Fin n
ω : Ω
hω : |X i ω| ≤ 1
⊢ rexp (τ * X i ω) ≤ rexp τ

Tactic: rw [exp_le_exp]

State after:
[case h
 Ω : Type u
 inst : MeasurableSpace Ω
 μ : Measure Ω
 inst_1 : IsProbabilityMeasure μ
 n : ℕ
 X : Fin n → Ω → ℝ
 hXm : ∀ (i : Fin n), Measurable (X i)
 hX_bdd : ∀ (i : Fin n), ∀ᵐ (ω : Ω) ∂μ, |X i ω| ≤ 1
 τ : ℝ
 hlam : τ ≥ 0
 S : Ω → ℝ := fun ω => ∑ i, X i ω
 hS_meas : Measurable S
 f : ℝ → ℝ := fun x => rexp (τ * x)
 f_meas : Measurable f
 f_measω : Measurable fun ω => rexp (τ * S ω)
 i : Fin n
 ω : Ω
 hω : |X i ω| ≤ 1
 ⊢ τ * X i ω ≤ τ]

Relevant lemmas:
Real.exp_le_exp : ∀ {x y : ℝ}, rexp x ≤ rexp y ↔ x ≤ y