-- Lean 4 proof step from Mathlib.RingTheory.FiniteType (goal)
Goal:
R : Type u_1
inst : CommRing R
M : Type u_1
x_1 : AddCommMonoid M
x_2 : Module R M
h : Module.Finite R M
N : Submodule R M
f : ↥N →ₗ[R] M
hf : Surjective (α := ↥N) (β := M) (⇑f : (a : ↥N) → M)
this_1 : AddCommGroup M := addCommMonoidToAddCommGroup R
this_2 : AddCommGroup ↥N := addCommMonoidToAddCommGroup R
i : ↥N →ₗ[R] M := N.subtype
hi : Function.Injective (α := ↥N) (β := M) (⇑i : (a : ↥N) → M) := ⋯
n : ↥N
hn : Eq (α := M) ((f : (a : ↥N) → M) n : M) (0 : M)
k : ℕ
mj : Fin k → M
hmj :
  Surjective (α := Fin k → R) (β := M)
    (⇑((Module.piEquiv (Fin k) R M : (a : Fin k → M) → (Fin k → R) →ₗ[R] M) mj : (Fin k → R) →ₗ[R] M) :
      (a : Fin k → R) → M)
b : Fin k → R
hb :
  Eq (α := M)
    ((((Module.piEquiv (Fin k) R M : (a : Fin k → M) → (Fin k → R) →ₗ[R] M) mj : (Fin k → R) →ₗ[R] M) :
          (a : Fin k → R) → M)
        b :
      M)
    ((i : (a : ↥N) → M) n : M)
nj : (j : Fin k) → ↥N
hnj : ∀ (j : Fin k), (f : (a : ↥N) → M) (nj j) = mj j
c : (j : Fin k) → Fin k → R
hc :
  ∀ (j : Fin k),
    Eq (α := M)
      ((((Module.piEquiv (Fin k) R M : (a : Fin k → M) → (Fin k → R) →ₗ[R] M) mj : (Fin k → R) →ₗ[R] M) :
            (a : Fin k → R) → M)
          (c j) :
        M)
      ((i : (a : ↥N) → M) (nj j) : M)
A : Subring R := Subring.closure (Set.range b ∪ Set.range (Function.uncurry c))
N' : Submodule ↥A ↥N := span (↥A) ({n} ∪ Set.range nj)
M' : Submodule (↥A) M := span (↥A) (Set.range mj)
this_3 : IsNoetherianRing.{u_1} ↥A
this_4 : Module.Finite.{u_1, u_1} ↥A ↥M'
x_3 : ↥M'
x : M
hx : x ∈ M'
this :
  Membership.mem (γ := Submodule (↥A) M)
    (LinearMap.range
      (LinearMap.domRestrict
        ((↑↥A :
            {S M M₂ : Type u_1} →
              [inst_1 : Semiring ↥A] →
                [inst_2 : Semiring S] →
                  [inst_3 : AddCommMonoid M] →
                    [inst_4 : AddCommMonoid M₂] →
                      [inst_5 : Module (↥A) M] →
                        [inst_6 : Module (↥A) M₂] →
                          [inst_7 : Module S M] →
                            [inst_8 : Module S M₂] →
                              [LinearMap.CompatibleSMul M M₂ (↥A) S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[↥A] M₂)
          f)
        N'))
    x
⊢ ∃ (a : ↥N'),
    (LinearMap.restrict
            ((↑↥A :
                {S M M₂ : Type u_1} →
                  [inst_1 : Semiring ↥A] →
                    [inst_2 : Semiring S] →
                      [inst_3 : AddCommMonoid M] →
                        [inst_4 : AddCommMonoid M₂] →
                          [inst_5 : Module (↥A) M] →
                            [inst_6 : Module (↥A) M₂] →
                              [inst_7 : Module S M] →
                                [inst_8 : Module S M₂] →
                                  [LinearMap.CompatibleSMul M M₂ (↥A) S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[↥A] M₂)
              f)
            ⋯ :
          (a : ↥N') → ↥M')
        a =
      Subtype.mk (p := fun (x : M) ↦ x ∈ M') x hx
have obtain : ∀ (a : ↥N')
  (ha :
    (LinearMap.domRestrict
            ((↑↥A :
                {S M M₂ : Type u_1} →
                  [inst_1 : Semiring ↥A] →
                    [inst_2 : Semiring S] →
                      [inst_3 : AddCommMonoid M] →
                        [inst_4 : AddCommMonoid M₂] →
                          [inst_5 : Module (↥A) M] →
                            [inst_6 : Module (↥A) M₂] →
                              [inst_7 : Module S M] →
                                [inst_8 : Module S M₂] →
                                  [LinearMap.CompatibleSMul M M₂ (↥A) S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[↥A] M₂)
              f)
            N' :
          (a : ↥N') → M)
        a =
      x),
  ∃ (a : ↥N'),
    (LinearMap.restrict
            ((↑↥A :
                {S M M₂ : Type u_1} →
                  [inst_1 : Semiring ↥A] →
                    [inst_2 : Semiring S] →
                      [inst_3 : AddCommMonoid M] →
                        [inst_4 : AddCommMonoid M₂] →
                          [inst_5 : Module (↥A) M] →
                            [inst_6 : Module (↥A) M₂] →
                              [inst_7 : Module S M] →
                                [inst_8 : Module S M₂] →
                                  [LinearMap.CompatibleSMul M M₂ (↥A) S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[↥A] M₂)
              f)
            sorry :
          (a : ↥N') → ↥M')
        a =
      Subtype.mk (p := fun (x : M) ↦ x ∈ M') x hx
Tactic: obtain ⟨a, ha⟩ := this
Cleared hypotheses: this