theorem extracted_formal_statement_33.{w, v} {Z : Type w} {ι : Type v} {f : ι → Z → ℝ} [inst : Nonempty ι]
  {V : (Z → ℝ) → ℝ} (hV₀ : ∀ (f : Z → ℝ), V (-f) = -V f) (a : ℝ)
  (ha : ∀ ⦃a_1 : ℝ⦄, (a_1 ∈ Set.range fun i => |V (f i)|) → a_1 ≤ a) ⦃x : ℝ⦄ (s : Fin 2) (i : ι)
  (eq : (fun i => V (if (↑i.1 == 0) = true then f i.2 else -f i.2)) (s, i) = x) (hax : |V (f i)| ≤ a) : x ≤ a := sorry

State before:
case h.intro.mk
Z : Type w
ι : Type v
f : ι → Z → ℝ
inst✝ : Nonempty ι
V : (Z → ℝ) → ℝ
hV₀ : ∀ (f : Z → ℝ), V (-f) = -V f
a : ℝ
ha : ∀ ⦃a_1 : ℝ⦄, (a_1 ∈ Set.range fun i => |V (f i)|) → a_1 ≤ a
x : ℝ
s : Fin 2
i : ι
eq : (fun i => V (if (↑i.1 == 0) = true then f i.2 else -f i.2)) (s, i) = x
hax : |V (f i)| ≤ a
⊢ x ≤ a

Tactic: rw [← eq]
    dsimp
    if h : s.1 == 0 then 
  rw [if_pos h]
  exact le_of_max_le_left hax
else
  rw [if_neg h, hV₀]
  exact le_of_max_le_right hax

State after:

Relevant lemmas:
if_neg : ∀ {c : Prop} {h : Decidable c}, ¬c → ∀ {α : Sort u} {t e : α}, (if c then t else e) = e
le_of_max_le_left : ∀ {α : Type u} [inst : LinearOrder α] {a b c : α}, a ⊔ b ≤ c → a ≤ c
le_of_max_le_right : ∀ {α : Type u} [inst : LinearOrder α] {a b c : α}, a ⊔ b ≤ c → b ≤ c
if_pos : ∀ {c : Prop} {h : Decidable c}, c → ∀ {α : Sort u} {t e : α}, (if c then t else e) = t