-- Lean 4 proof step from Mathlib.AlgebraicGeometry.Morphisms.ClosedImmersion (goal)
Goal:
X Y : Scheme
inst : IsAffine Y
f : X ⟶ Y
inst_1 : CompactSpace.{u} ↥X
hfopen : IsOpenMap (X := ↥X) (Y := ↥Y) ⇑f
hfinj₁ : Function.Injective (α := ↥X) (β := ↥Y) ⇑f
hfinj₂ :
  Function.Injective (α := (↑Γ(Y, ⊤) : Type u)) (β := (↑Γ(X, ⊤) : Type u))
    (⇑(ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
          CommRingCat.carrier) (Scheme.Hom.appTop f)) :
      (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
x : ↥X
φ : Γ(Y, ⊤) ⟶ Γ(X, ⊤) := Scheme.Hom.appTop f
𝒰 : X.OpenCover := X.affineCover.finiteSubcover
res : (i : 𝒰.I₀) → Γ(X, ⊤) ⟶ Γ(𝒰.X i, ⊤) := fun (i : 𝒰.I₀) ↦ Scheme.Hom.appTop (𝒰.f i)
g : (↑Γ(Y, ⊤) : Type u)
h :
  Eq (α := (↑(X.presheaf.stalk x) : Type u))
    ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) (X := X.presheaf.obj (op (f ⁻¹ᵁ ⊤))) (Y := X.presheaf.stalk x)
            (X.presheaf.germ (f ⁻¹ᵁ ⊤) x True.intro) :
          (a : (↑(X.presheaf.obj (op (f ⁻¹ᵁ ⊤))) : Type u)) → (↑(X.presheaf.stalk x) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) (X := Γ(Y, ⊤)) (Scheme.Hom.app f ⊤) :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, f ⁻¹ᵁ ⊤) : Type u))
            g :
          (↑Γ(X, f ⁻¹ᵁ ⊤) : Type u)) :
      (↑(X.presheaf.stalk x) : Type u))
    (0 : (↑(X.presheaf.stalk x) : Type u))
U : Opens (↑(↑X.toRingedSpace.toPresheafedSpace : TopCat) : Type u)
w : U ⟶ ⊤
hx : x ∈ U
hg :
  Eq (α := (↑(X.toRingedSpace.presheaf.obj (op U)) : Type u))
    ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) (X.toRingedSpace.presheaf.map w.op) :
          (a : (↑(X.toRingedSpace.presheaf.obj (op ⊤)) : Type u)) → (↑(X.toRingedSpace.presheaf.obj (op U)) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            g :
          (↑Γ(X, ⊤) : Type u)) :
      (↑(X.toRingedSpace.presheaf.obj (op U)) : Type u))
    (0 : (↑(X.toRingedSpace.presheaf.obj (op U)) : Type u))
s : (↑Γ(Y, ⊤) : Type u)
hyv : Membership.mem (α := ↥Y) (Y.basicOpen s) (f x : ↥Y)
bsle : Y.basicOpen s ≤ { carrier := ⇑f '' U.carrier, is_open' := ⋯ }
W : (i : 𝒰.I₀) → Opens ↥(𝒰.X i) :=
  fun (i : 𝒰.I₀) ↦
    (𝒰.X i).basicOpen (U := ⊤)
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) (res i) :
          (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) φ :
            (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
          s))
hwle : ∀ (i : 𝒰.I₀), W i ≤ 𝒰.f i ⁻¹ᵁ U
h0 :
  ∀ (i : 𝒰.I₀),
    Eq (α := (↑Γ(𝒰.X i, W i) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (X := Γ(X, ⊤)) (Y := Γ(𝒰.X i, W i)) (Scheme.Hom.appLE (𝒰.f i) ⊤ (W i) ⋯) :
            (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, W i) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            g) :
        (↑Γ(𝒰.X i, W i) : Type u))
      (0 : (↑Γ(𝒰.X i, W i) : Type u))
i : 𝒰.I₀
n : ℕ
hn :
  HMul.hMul (β := (↑Γ(𝒰.X i, ⊤) : Type u))
      (HPow.hPow (α := (↑Γ(𝒰.X i, ⊤) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) (res i) :
              (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
            ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                  CommRingCat.carrier) φ :
                (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
              s) :
          (↑Γ(𝒰.X i, ⊤) : Type u))
        n)
      ((CommRingCat.Hom.hom' (Scheme.Hom.app (𝒰.f i) ⊤) : (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, 𝒰.f i ⁻¹ᵁ ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            g) :
        (↑Γ(𝒰.X i, 𝒰.f i ⁻¹ᵁ ⊤) : Type u)) =
    0
rwa :
  Eq (α := (↑Γ(𝒰.X i, ⊤) : Type u))
    ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) (res i) :
          (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
        (HMul.hMul (α := (↑Γ(X, ⊤) : Type u)) (β := (↑Γ(X, ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                  CommRingCat.carrier) φ :
                (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
              (s ^ n) :
            (↑Γ(X, ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                  CommRingCat.carrier) φ :
                (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
              g :
            (↑Γ(X, ⊤) : Type u))) :
      (↑Γ(𝒰.X i, ⊤) : Type u))
    (0 : (↑Γ(𝒰.X i, ⊤) : Type u))
rwa₁ :
  HMul.hMul (α := (↑Γ(𝒰.X i, ⊤) : Type u)) (β := (↑Γ(𝒰.X i, ⊤) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (res i) :
            (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            (s ^ n)) :
        (↑Γ(𝒰.X i, ⊤) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (res i) :
            (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            g) :
        (↑Γ(𝒰.X i, ⊤) : Type u)) =
    0
rwa₂ :
  HMul.hMul (α := (↑Γ(𝒰.X i, ⊤) : Type u)) (β := (↑Γ(𝒰.X i, ⊤) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (res i) :
            (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
          (HPow.hPow (α := (↑Γ(X, ⊤) : Type u))
            ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                    CommRingCat.carrier) φ :
                  (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
                s :
              (↑Γ(X, ⊤) : Type u))
            n) :
        (↑Γ(𝒰.X i, ⊤) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (res i) :
            (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            g) :
        (↑Γ(𝒰.X i, ⊤) : Type u)) =
    0
⊢ Eq (α := (↑Γ(𝒰.X i, ⊤) : Type u))
    ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) (res i) :
          (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) φ :
            (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
          (s ^ n * g)) :
      (↑Γ(𝒰.X i, ⊤) : Type u))
    (0 : (↑Γ(𝒰.X i, ⊤) : Type u))
have rwa₃ : HMul.hMul (β := (↑Γ(𝒰.X i, ⊤) : Type u))
    (HPow.hPow (α := (↑Γ(𝒰.X i, ⊤) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (res i) :
            (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
          ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) φ :
              (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
            s) :
        (↑Γ(𝒰.X i, ⊤) : Type u))
      n)
    ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) (res i) :
          (a : (↑Γ(X, ⊤) : Type u)) → (↑Γ(𝒰.X i, ⊤) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) φ :
            (a : (↑Γ(Y, ⊤) : Type u)) → (↑Γ(X, ⊤) : Type u))
          g) :
      (↑Γ(𝒰.X i, ⊤) : Type u)) =
  0
Tactic: rwa [map_mul, map_mul, map_pow, map_pow]