-- Module: Mathlib.RingTheory.Etale.QuasiFinite
Goal:
R : Type u
S : Type v
T : Type u_1
inst : CommRing R
inst_1 : CommRing S
inst_2 : CommRing T
inst_3 : Algebra R S
inst_4 : Algebra R T
inst_5 : Algebra.FiniteType R T
inst_6 : Algebra.IsIntegral R S
f : S →ₐ[R] T
g : S
hg :
  Function.Surjective.{v + 1, u_1 + 1} (α := Away g) (β := Away (M := T) ((f : (a : S) → T) g : T))
    (⇑(awayMapₐ f g) : (a : Away g) → Away ((f : (a : S) → T) g))
p : Ideal R
inst_7 : p.IsPrime
hgp : IsUnit (M := p.Fiber S) (1 ⊗ₜ[R] g)
this_1 :
  IsClosed (X := PrimeSpectrum R)
    (Set.image (α := PrimeSpectrum S) (PrimeSpectrum.comap (algebraMap R S)) (PrimeSpectrum.zeroLocus {g}))
r : R
hpr : { asIdeal := p, isPrime := inst_7 : PrimeSpectrum R } ∈ (↑(PrimeSpectrum.basicOpen r) : Set (PrimeSpectrum R))
hrg :
  (↑(PrimeSpectrum.basicOpen r) : Set (PrimeSpectrum R)) ⊆
    (Set.image (α := PrimeSpectrum S) (PrimeSpectrum.comap (algebraMap R S)) (PrimeSpectrum.zeroLocus {g}))ᶜ
this :
  IsLocalization.Away.{u_1, u_1} (R := T) ((f.toRingHom : (a : S) → T) ((algebraMap R S : (a : R) → S) r : S) : T)
    (Away (M := T) ((algebraMap R T : (a : R) → T) r : T))
h₁ :
  RingHom.IsIntegral.{u, v} (R := Away r) (A := Away (M := S) ((algebraMap R S : (a : R) → S) r : S))
    (awayMap (algebraMap R S) r)
x : Away (M := T) ((algebraMap R T : (a : R) → T) r : T)
obtain :
  ∀ (x : T) (n : ℕ),
    ∃ (a : Away (M := S) ((algebraMap R S : (a : R) → S) r : S)),
      Eq (α := Away (M := T) ((algebraMap R T : (a : R) → T) r : T))
        (((IsLocalization.Away.map (Away (M := S) ((algebraMap R S : (a : R) → S) r : S))
                  (Away (M := T) ((algebraMap R T : (a : R) → T) r : T)) f.toRingHom
                  ((algebraMap R S : (a : R) → S) r) :
                RingHom.{v, u_1} (Away (M := S) ((algebraMap R S : (a : R) → S) r : S))
                  (Away (M := T) ((algebraMap R T : (a : R) → T) r : T))) :
              (a : Away ((algebraMap R S : (a : R) → S) r)) → Away ((algebraMap R T : (a : R) → T) r))
            a :
          Away (M := T) ((algebraMap R T : (a : R) → T) r : T))
        (IsLocalization.mk' (Away (M := T) ((algebraMap R T : (a : R) → T) r : T)) x
            (Subtype.mk (p := fun (x : T) ↦
              Membership.mem (γ := Submonoid T) (Submonoid.powers ((algebraMap R T : (a : R) → T) r) : Submonoid T) x)
              ((fun (x : ℕ) ↦ HPow.hPow (α := T) ((algebraMap R T : (a : R) → T) r : T) x) n) ⋯) :
          Away (M := T) ((algebraMap R T : (a : R) → T) r : T))
⊢ ∃ (a : Away (M := S) ((algebraMap R S : (a : R) → S) r : S)),
    ((IsLocalization.Away.map (Away (M := S) ((algebraMap R S : (a : R) → S) r : S))
              (Away (M := T) ((algebraMap R T : (a : R) → T) r : T)) f.toRingHom ((algebraMap R S : (a : R) → S) r) :
            RingHom.{v, u_1} (Away (M := S) ((algebraMap R S : (a : R) → S) r : S))
              (Away (M := T) ((algebraMap R T : (a : R) → T) r : T))) :
          (a : Away ((algebraMap R S : (a : R) → S) r)) → Away ((algebraMap R T : (a : R) → T) r))
        a =
      x

Tactic:
obtain ⟨x, ⟨_, n, rfl⟩, rfl⟩ := IsLocalization.exists_mk'_eq (.powers (algebraMap R T r)) x

Premises used: Algebra.algebraMap, Submonoid.powers, DFunLike.coe, rfl, IsLocalization.exists_mk'_eq