∀ {R : Type u_4} {A : Type u_3} {M : Type u_1} {N : Type u_2} {P : Type u_5} {Q : Type u_6} [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 : N ≃ₗ[R] Q),
  TensorProduct.AlgebraTensorModule.map ↑f.symm ↑g.symm ∘ₗ TensorProduct.AlgebraTensorModule.map ↑f ↑g = LinearMap.id