-- Lean 4 proof step from Mathlib.AlgebraicGeometry.StructureSheaf (goal)
Goal:
R M : Type u
inst : CommRing R
inst_1 : AddCommGroup M
inst_2 : Module R M
U : Opens (↑(PrimeSpectrum.Top R) : Type u)
s :
  Functor.obj
    (ObjectProperty.FullSubcategory.obj (P :=
      CategoryTheory.Presheaf.IsSheaf (Opens.grothendieckTopology (↑(PrimeSpectrum.Top R) : Type u)))
      (structureSheafInType R M))
    (op U)
x : (↑(PrimeSpectrum.Top R) : Type u)
hx : x ∈ U
V : Opens (↑(PrimeSpectrum.Top R) : Type u)
hxV :
  (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ unop (op U)) x hx) :
      (↑(PrimeSpectrum.Top R) : Type u)) ∈
    V
iVU : V ⟶ unop (op U)
f : M
g : R
hfg :
  ∀ (x : ↥V),
    ∃ (hs : g ∉ (↑x : (↑(PrimeSpectrum.Top R) : Type u)).asIdeal),
      Eq (α := Localizations M (↑x : (↑(PrimeSpectrum.Top R) : Type u)))
        ((fun (x : ↥V) ↦
            (↑s : (x : ↥(unop (op U))) → Localizations M (↑x : (↑(PrimeSpectrum.Top R) : Type u)))
              ((iVU : (a : ↥V) → ↥(unop (op U))) x))
          x)
        (LocalizedModule.mk f
          (Subtype.mk (p := fun (x_2 : R) ↦ x_2 ∈ (↑x : (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl) g hs))
g' : R
hxg' :
  (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ unop (op U)) x hx) :
      (↑(PrimeSpectrum.Top R) : Type u)) ∈
    (↑(basicOpen g') : Set (PrimeSpectrum R))
hg'U : (↑(basicOpen g') : Set (PrimeSpectrum R)) ⊆ (↑V : Set (↑(PrimeSpectrum.Top R) : Type u))
x_1 : ↥(unop (op (basicOpen (g' * g))))
y : (↑(PrimeSpectrum.Top R) : Type u)
hy_1 : Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (unop (op (basicOpen (g' * g)))) y
hy : Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (unop (op (basicOpen g' ⊓ basicOpen g))) y
hgy :
  g ∉
    (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ V) y ⋯) :
        (↑(PrimeSpectrum.Top R) : Type u)).asIdeal
H :
  Eq (α :=
    Localizations M
      (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ V) y ⋯) :
        (↑(PrimeSpectrum.Top R) : Type u)))
    ((fun (x : ↥V) ↦
        (↑s : (x : ↥(unop (op U))) → Localizations M (↑x : (↑(PrimeSpectrum.Top R) : Type u)))
          ((iVU : (a : ↥V) → ↥(unop (op U))) x))
      (Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ V) y ⋯))
    (LocalizedModule.mk f
      (Subtype.mk (p := fun (x : R) ↦
        x ∈
          (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ V) y ⋯) :
                (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
        g hgy))
⊢ HSMul.hSMul (α :=
      ↥(↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦
                  Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (basicOpen (g' * g)) x) y hy_1) :
              (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
      1
      (HSMul.hSMul (α :=
        ↥(↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦
                    Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (basicOpen (g' * g)) x) y hy_1) :
                (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
        (Subtype.mk (p := fun (x : R) ↦
          x ∈
            (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦ x ∈ V) y ⋯) :
                  (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
          g hgy)
        (g' • f)) =
    HSMul.hSMul (α :=
      ↥(↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦
                  Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (basicOpen (g' * g)) x) y hy_1) :
              (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
      1
      (HSMul.hSMul (α :=
        ↥(↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦
                    Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (basicOpen (g' * g)) x) y hy_1) :
                (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
        (Subtype.mk (p := fun (x : R) ↦
          x ∈
            (↑(Subtype.mk (p := fun (x : (↑(PrimeSpectrum.Top R) : Type u)) ↦
                      Membership.mem (γ := Opens (↑(PrimeSpectrum.Top R) : Type u)) (basicOpen (g' * g)) x) y hy_1) :
                  (↑(PrimeSpectrum.Top R) : Type u)).asIdeal.primeCompl)
          (g' * g) ⋯)
        f)
have refine_3 : (g * g') • f = (g' * g) • f
Tactic: simp [Submonoid.smul_def, ← smul_assoc]