-- Lean 4 proof step from Mathlib.RingTheory.PicardGroup (goal)
Goal:
R : Type u
A : Type u_4
inst : CommSemiring R
inst_1 : Semiring A
inst_2 : Algebra R A
inst_3 : FaithfulSMul R A
I : (Submodule R A)ˣ
T T' : Finset A
hT : (↑T : Set A) ⊆ (↑(↑I⁻¹ : Submodule R A) : Set A)
hT' : (↑T' : Set A) ⊆ (↑(↑I : Submodule R A) : Set A)
S : Finset A := Finset.image₂ (fun (x1 x2 : A) ↦ x1 * x2) T T'
r : A → R
hr : Function.support r ⊆ (↑S : Set A) ∧ Eq (α := A) (∑ a ∈ S, r a • a) 1
a : (i : ↥S) → A
ha : ∀ (i : ↥S), a i ∈ T
b : (i : ↥S) → A
hb : ∀ (i : ↥S), b i ∈ T'
eq_1 : ∀ (i : ↥S), a i * b i = (↑i : A)
f : ↥(↑I : Submodule R A) →ₗ[R] ↥S → R :=
  LinearMap.pi (φ := fun (a : ↥S) ↦ R) fun (i : ↥S) ↦
    ((↑(LinearEquiv.symm (LinearEquiv.ofInjective (Algebra.linearMap R A) ⋯)) :
          LinearMap.{u, u, u_4, u} (RingHom.id R) (↥(range (Algebra.linearMap R A))) R) :
        LinearMap.{u, u, u_4, u} (RingHom.id R) (↥(range (Algebra.linearMap R A))) R) ∘ₗ
      (restrict (LinearMap.mulRight R (r (↑i : A) • a i)) ⋯ :
        ↥(↑I : Submodule R A) →ₗ[R] ↥(range (Algebra.linearMap R A)))
hf :
  ∀ (x : ↥(↑I : Submodule R A)) (i : ↥S),
    (algebraMap R A : (a : R) → A) ((f : (a : ↥(↑I : Submodule R A)) → ↥S → R) x i : R) = (↑x : A) * r (↑i : A) • a i
g : (↥S → R) →ₗ[R] ↥(↑I : Submodule R A) :=
  (lsum R (fun (a : ↥S) ↦ R) ℕ :
      (a : (i : ↥S) → R →ₗ[R] ↥(↑I : Submodule R A)) → ((i : ↥S) → R) →ₗ[R] ↥(↑I : Submodule R A))
    fun (i : ↥S) ↦
    toSpanSingleton R (↥(↑I : Submodule R A)) (Subtype.mk (p := fun (x : A) ↦ x ∈ (↑I : Submodule R A)) (b i) ⋯)
hgf : g ∘ₗ f = LinearMap.id
m : A ⊗[R] ↥(↑I : Submodule R A) →ₗ[R] A := mul' R A ∘ₗ lTensor A (↑I : Submodule R A).subtype
eq :
  ((↑(piScalarRight R R A ↥S) : A ⊗[R] (↥S → R) →ₗ[R] ↥S → A) : A ⊗[R] (↥S → R) →ₗ[R] ↥S → A) ∘ₗ
      (lTensor A f : A ⊗[R] ↥(↑I : Submodule R A) →ₗ[R] A ⊗[R] (↥S → R)) =
    (LinearMap.pi (φ := fun (a : ↥S) ↦ A) fun (i : ↥S) ↦ LinearMap.mulRight R (r (↑i : A) • a i)) ∘ₗ m
this :
  Function.Injective (α := A ⊗[R] ↥(↑I : Submodule R A)) (β := ↥S → A)
    (Function.comp (β := A)
      (⇑(LinearMap.pi (φ := fun (a : ↥S) ↦ A) fun (i : ↥S) ↦ LinearMap.mulRight R (r (↑i : A) • a i)) :
        (a : A) → (i : ↥S) → A)
      (⇑m : (a : A ⊗[R] ↥(↑I : Submodule R A)) → A))
⊢ m =
    mulMap ⊤ (↑I : Submodule R A) ∘ₗ
      (↑(LinearEquiv.rTensor (↥(↑I : Submodule R A)) (LinearEquiv.symm topEquiv)) :
        A ⊗[R] ↥(↑I : Submodule R A) →ₗ[R] ↥⊤ ⊗[R] ↥(↑I : Submodule R A))
have a₁ : ∀ (x : A) (x_1 : ↥(↑I : Submodule R A)),
  Eq (α := A)
    (((((AlgebraTensorModule.curry m : A →ₗ[R] ↥(↑I : Submodule R A) →ₗ[R] A) : (a : A) → ↥(↑I : Submodule R A) →ₗ[R] A)
              x :
            ↥(↑I : Submodule R A) →ₗ[R] A) :
          (a : ↥(↑I : Submodule R A)) → A)
        x_1 :
      A)
    (((((AlgebraTensorModule.curry
                    (mulMap ⊤ (↑I : Submodule R A) ∘ₗ
                      (↑(LinearEquiv.rTensor (↥(↑I : Submodule R A)) (LinearEquiv.symm topEquiv)) :
                        A ⊗[R] ↥(↑I : Submodule R A) →ₗ[R] ↥⊤ ⊗[R] ↥(↑I : Submodule R A))) :
                  A →ₗ[R] ↥(↑I : Submodule R A) →ₗ[R] A) :
                (a : A) → ↥(↑I : Submodule R A) →ₗ[R] A)
              x :
            ↥(↑I : Submodule R A) →ₗ[R] A) :
          (a : ↥(↑I : Submodule R A)) → A)
        x_1 :
      A)
Tactic: ext