-- Lean 4 proof step from Mathlib.RingTheory.MvPowerSeries.NoZeroDivisors (goal)
Goal:
σ : Type u_1
R : Type u_2
inst : Semiring R
φ : MvPowerSeries σ R
hφ :
  Membership.mem (α := R) (γ := Submonoid R) (nonZeroDivisorsRight R)
    ((constantCoeff : (a : MvPowerSeries σ R) → R) φ : R)
intro intro₁ : ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0), x = 0
h :
  ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0) (d : σ →₀ ℕ),
    Eq.{u_2 + 1} (α := R) ((coeff d : (a : MvPowerSeries σ R) → R) x : R)
      ((coeff d : (a : MvPowerSeries σ R) → R) 0 : R)
h₁ h₂ :
  ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0) (d e : σ →₀ ℕ)
    (he :
      ∀ y < e,
        Eq.{u_2 + 1} (α := R) ((coeff y : (a : MvPowerSeries σ R) → R) x : R)
          ((coeff y : (a : MvPowerSeries σ R) → R) 0 : R)),
    Eq.{u_2 + 1} (α := R) ((coeff e : (a : MvPowerSeries σ R) → R) x : R)
      ((coeff e : (a : MvPowerSeries σ R) → R) 0 : R)
h₃ :
  ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0) (d e : σ →₀ ℕ)
    (he :
      ∀ y < e,
        Eq.{u_2 + 1} (α := R) ((coeff y : (a : MvPowerSeries σ R) → R) x : R)
          ((coeff y : (a : MvPowerSeries σ R) → R) 0 : R)),
    HMul.hMul (α := R) (β := R) ((coeff e : (a : MvPowerSeries σ R) → R) x : R)
        ((constantCoeff : (a : MvPowerSeries σ R) → R) φ : R) =
      (coeff e : (a : MvPowerSeries σ R) → R) (x * φ)
h₄ :
  ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0) (d e : σ →₀ ℕ)
    (he :
      ∀ y < e,
        Eq.{u_2 + 1} (α := R) ((coeff y : (a : MvPowerSeries σ R) → R) x : R)
          ((coeff y : (a : MvPowerSeries σ R) → R) 0 : R)),
    HMul.hMul (α := R) (β := R) ((coeff e : (a : MvPowerSeries σ R) → R) x : R)
        ((constantCoeff : (a : MvPowerSeries σ R) → R) φ : R) =
      ∑ p ∈ @antidiagonal _ Finsupp.instAddMonoid _ e,
        HMul.hMul (α := R) (β := R) ((coeff p.1 : (a : MvPowerSeries σ R) → R) x : R)
          ((coeff p.2 : (a : MvPowerSeries σ R) → R) φ : R)
h₅ :
  ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0) (d e : σ →₀ ℕ)
    (he :
      ∀ y < e,
        Eq.{u_2 + 1} (α := R) ((coeff y : (a : MvPowerSeries σ R) → R) x : R)
          ((coeff y : (a : MvPowerSeries σ R) → R) 0 : R)),
    ∀ b ∈ @antidiagonal _ Finsupp.instAddMonoid _ e,
      b ≠ (e, 0) →
        HMul.hMul (α := R) (β := R) ((coeff b.1 : (a : MvPowerSeries σ R) → R) x : R)
            ((coeff b.2 : (a : MvPowerSeries σ R) → R) φ : R) =
          0
⊢ Membership.mem (γ := Submonoid (MvPowerSeries σ R)) (nonZeroDivisorsRight (MvPowerSeries σ R)) φ
have h₆ : ∀ (x : MvPowerSeries σ R) (hx : x * φ = 0) (d e : σ →₀ ℕ)
  (he :
    ∀ y < e,
      Eq.{u_2 + 1} (α := R) ((coeff y : (a : MvPowerSeries σ R) → R) x : R)
        ((coeff y : (a : MvPowerSeries σ R) → R) 0 : R)),
  (e, 0) ∉ @antidiagonal _ Finsupp.instAddMonoid _ e →
    HMul.hMul (α := R) (β := R) ((coeff (e, 0).1 : (a : MvPowerSeries σ R) → R) x : R)
        ((coeff (e, 0).2 : (a : MvPowerSeries σ R) → R) φ : R) =
      0
Tactic: classical
  intro x hx
  ext d
  apply WellFoundedLT.induction d
  intro e he
  rw [map_zero, ← mul_right_mem_nonZeroDivisorsRight_eq_zero_iff hφ,
    ← map_zero (f := coeff e), ← hx]
  convert! (coeff_mul e x φ).symm
  rw [Finset.sum_eq_single (e, 0), coeff_zero_eq_constantCoeff]
  · rintro ⟨u, _⟩ huv _
    suffices u < e by simp only [he u this, zero_mul, map_zero]
    apply lt_of_le_of_ne
    · simp only [← mem_antidiagonal.mp huv, le_add_iff_nonneg_right, zero_le]
    · rintro rfl
      simp_all
  · simp