(R : Type u_1) →
  (A : Type u_2) →
    {M : Type u_3} →
      [inst : CommSemiring R] →
        [inst_1 : CommSemiring A] →
          [inst_2 : Algebra R A] →
            [inst_3 : AddCommMonoid M] →
              [inst_4 : Module R M] →
                [inst_5 : Module A M] →
                  [IsScalarTower R A M] →
                    [Algebra.IsEpi R A] →
                      [Module.Flat R A] →
                        (s : Set M) → TensorProduct R A ↥(Submodule.span R s) ≃ₗ[A] ↥(Submodule.span A s)