theorem extracted_formal_statement_48.{u_1} {Ω : Type u_1} [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) (τ : ℝ) (i : Fin n) (h1 : Integrable (fun ω => 1 + τ * X i ω) μ)
  (a : Ω) (ha : |X i a| ≤ 1) (h_original_goal : X i a ^ 2 ≤ 1) : |X i a| ≤ 1 := sorry

State before:
case h
Ω : Type u_1
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
τ : ℝ
i : Fin n
h1 : Integrable (fun ω => 1 + τ * X i ω) μ
a : Ω
ha : |X i a| ≤ 1
⊢ X i a ^ 2 ≤ 1

Tactic: rw [sq_le_one_iff_abs_le_one]

State after:
[case h
 Ω : Type u_1
 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
 τ : ℝ
 i : Fin n
 h1 : Integrable (fun ω => 1 + τ * X i ω) μ
 a : Ω
 ha : |X i a| ≤ 1
 ⊢ |X i a| ≤ 1]

Relevant lemmas:
sq_le_one_iff_abs_le_one : ∀ {α : Type u_1} [inst : LinearOrderedRing α] (a : α), a ^ 2 ≤ 1 ↔ |a| ≤ 1