-- Lean 4 proof step from Mathlib.LinearAlgebra.TensorProduct.Tower (goal)
Goal:
R : Type uR
A : Type uA
M : Type uM
N : Type uN
P : Type uP
Q : Type uQ
inst : CommSemiring R
inst_1 : Semiring A
inst_2 : Algebra R A
inst_3 : AddCommMonoid M
inst_4 : Module R M
inst_5 : Module A M
inst_6 : IsScalarTower R A M
inst_7 : AddCommMonoid N
inst_8 : Module R N
inst_9 : AddCommMonoid P
inst_10 : Module R P
inst_11 : Module A P
inst_12 : IsScalarTower R A P
inst_13 : AddCommMonoid Q
inst_14 : Module R Q
f : M →ₗ[A] P
g₁ g₂ : N →ₗ[R] Q
x : M
x_1 : N
a :
  Eq (α := P ⊗[R] Q)
    ((((TensorProduct.curry
                  ((↑R :
                      {S : Type uA} →
                        {M : Type (max uM uN)} →
                          {M₂ : Type (max uP uQ)} →
                            [inst : Semiring R] →
                              [inst_15 : Semiring S] →
                                [inst_16 : AddCommMonoid M] →
                                  [inst_17 : AddCommMonoid M₂] →
                                    [inst_18 : Module R M] →
                                      [inst_19 : Module R M₂] →
                                        [inst_20 : Module S M] →
                                          [inst_21 : Module S M₂] →
                                            [LinearMap.CompatibleSMul M M₂ R S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[R] M₂)
                    (map f (g₁ + g₂) : M ⊗[R] N →ₗ[A] P ⊗[R] Q)) :
                (a : M) → N →ₗ[R] P ⊗[R] Q)
              x :
            N →ₗ[R] P ⊗[R] Q) :
          (a : N) → P ⊗[R] Q)
        x_1 :
      P ⊗[R] Q)
    ((((TensorProduct.curry
                  ((↑R :
                      {S : Type uA} →
                        {M : Type (max uM uN)} →
                          {M₂ : Type (max uP uQ)} →
                            [inst : Semiring R] →
                              [inst_15 : Semiring S] →
                                [inst_16 : AddCommMonoid M] →
                                  [inst_17 : AddCommMonoid M₂] →
                                    [inst_18 : Module R M] →
                                      [inst_19 : Module R M₂] →
                                        [inst_20 : Module S M] →
                                          [inst_21 : Module S M₂] →
                                            [LinearMap.CompatibleSMul M M₂ R S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[R] M₂)
                    (HAdd.hAdd (α := M ⊗[R] N →ₗ[A] P ⊗[R] Q) (β := M ⊗[R] N →ₗ[A] P ⊗[R] Q)
                      (map f g₁ : M ⊗[R] N →ₗ[A] P ⊗[R] Q) (map f g₂ : M ⊗[R] N →ₗ[A] P ⊗[R] Q))) :
                (a : M) → N →ₗ[R] P ⊗[R] Q)
              x :
            N →ₗ[R] P ⊗[R] Q) :
          (a : N) → P ⊗[R] Q)
        x_1 :
      P ⊗[R] Q)
a₁ :
  Eq (α := P ⊗[R] Q)
    (((↑R :
              {S : Type uA} →
                {M : Type (max uM uN)} →
                  {M₂ : Type (max uP uQ)} →
                    [inst : Semiring R] →
                      [inst_15 : Semiring S] →
                        [inst_16 : AddCommMonoid M] →
                          [inst_17 : AddCommMonoid M₂] →
                            [inst_18 : Module R M] →
                              [inst_19 : Module R M₂] →
                                [inst_20 : Module S M] →
                                  [inst_21 : Module S M₂] →
                                    [LinearMap.CompatibleSMul M M₂ R S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[R] M₂)
            (map f (g₁ + g₂) : M ⊗[R] N →ₗ[A] P ⊗[R] Q) :
          (a : M ⊗[R] N) → P ⊗[R] Q)
        (x ⊗ₜ[R] x_1) :
      P ⊗[R] Q)
    (((↑R :
              {S : Type uA} →
                {M : Type (max uM uN)} →
                  {M₂ : Type (max uP uQ)} →
                    [inst : Semiring R] →
                      [inst_15 : Semiring S] →
                        [inst_16 : AddCommMonoid M] →
                          [inst_17 : AddCommMonoid M₂] →
                            [inst_18 : Module R M] →
                              [inst_19 : Module R M₂] →
                                [inst_20 : Module S M] →
                                  [inst_21 : Module S M₂] →
                                    [LinearMap.CompatibleSMul M M₂ R S] → (fₗ : M →ₗ[S] M₂) → M →ₗ[R] M₂)
            (HAdd.hAdd (α := M ⊗[R] N →ₗ[A] P ⊗[R] Q) (β := M ⊗[R] N →ₗ[A] P ⊗[R] Q)
              (map f g₁ : M ⊗[R] N →ₗ[A] P ⊗[R] Q) (map f g₂ : M ⊗[R] N →ₗ[A] P ⊗[R] Q)) :
          (a : M ⊗[R] N) → P ⊗[R] Q)
        (x ⊗ₜ[R] x_1) :
      P ⊗[R] Q)
a₂ :
  Eq (α := P ⊗[R] Q)
    (((map f (g₁ + g₂) : M ⊗[R] N →ₗ[A] P ⊗[R] Q) : (a : M ⊗[R] N) → P ⊗[R] Q) (x ⊗ₜ[R] x_1) : P ⊗[R] Q)
    ((HAdd.hAdd (α := M ⊗[R] N →ₗ[A] P ⊗[R] Q) (β := M ⊗[R] N →ₗ[A] P ⊗[R] Q) (map f g₁ : M ⊗[R] N →ₗ[A] P ⊗[R] Q)
            (map f g₂ : M ⊗[R] N →ₗ[A] P ⊗[R] Q) :
          (a : M ⊗[R] N) → P ⊗[R] Q)
        (x ⊗ₜ[R] x_1) :
      P ⊗[R] Q)
a₃ :
  ((map f (g₁ + g₂) : M ⊗[R] N →ₗ[A] P ⊗[R] Q) : (a : M ⊗[R] N) → P ⊗[R] Q) (x ⊗ₜ[R] x_1) =
    HAdd.hAdd (α := P ⊗[R] Q) (β := P ⊗[R] Q)
      (((map f g₁ : M ⊗[R] N →ₗ[A] P ⊗[R] Q) : (a : M ⊗[R] N) → P ⊗[R] Q) (x ⊗ₜ[R] x_1) : P ⊗[R] Q)
      (((map f g₂ : M ⊗[R] N →ₗ[A] P ⊗[R] Q) : (a : M ⊗[R] N) → P ⊗[R] Q) (x ⊗ₜ[R] x_1) : P ⊗[R] Q)
a₄ :
  (f : (a : M) → P) x ⊗ₜ[R] (g₁ + g₂ : (a : N) → Q) x_1 =
    HAdd.hAdd (α := P ⊗[R] Q) (β := P ⊗[R] Q) ((f : (a : M) → P) x ⊗ₜ[R] (g₁ : (a : N) → Q) x_1 : P ⊗[R] Q)
      ((f : (a : M) → P) x ⊗ₜ[R] (g₂ : (a : N) → Q) x_1 : P ⊗[R] Q)
⊢ Eq (α := P ⊗[R] Q)
    (((((curry (map f (g₁ + g₂)) : M →ₗ[A] N →ₗ[R] P ⊗[R] Q) : (a : M) → N →ₗ[R] P ⊗[R] Q) x : N →ₗ[R] P ⊗[R] Q) :
          (a : N) → P ⊗[R] Q)
        x_1 :
      P ⊗[R] Q)
    (((((curry
                    (HAdd.hAdd (α := M ⊗[R] N →ₗ[A] P ⊗[R] Q) (β := M ⊗[R] N →ₗ[A] P ⊗[R] Q)
                      (map f g₁ : M ⊗[R] N →ₗ[A] P ⊗[R] Q) (map f g₂ : M ⊗[R] N →ₗ[A] P ⊗[R] Q)) :
                  M →ₗ[A] N →ₗ[R] P ⊗[R] Q) :
                (a : M) → N →ₗ[R] P ⊗[R] Q)
              x :
            N →ₗ[R] P ⊗[R] Q) :
          (a : N) → P ⊗[R] Q)
        x_1 :
      P ⊗[R] Q)
have a₅ : (f : (a : M) → P) x ⊗ₜ[R] HAdd.hAdd (α := Q) (β := Q) ((g₁ : (a : N) → Q) x_1 : Q) ((g₂ : (a : N) → Q) x_1 : Q) =
  HAdd.hAdd (α := P ⊗[R] Q) (β := P ⊗[R] Q) ((f : (a : M) → P) x ⊗ₜ[R] (g₁ : (a : N) → Q) x_1 : P ⊗[R] Q)
    ((f : (a : M) → P) x ⊗ₜ[R] (g₂ : (a : N) → Q) x_1 : P ⊗[R] Q)
Tactic: simp_rw [curry_apply, TensorProduct.curry_apply, restrictScalars_apply, add_apply, map_tmul,
    add_apply, tmul_add]