(R : Type u_1) →
  (S : Type u_2) →
    (A : Type u_3) →
      [inst : CommSemiring R] →
        [inst_1 : CommSemiring S] →
          [inst_2 : Semiring A] →
            [inst_3 : Bialgebra S A] →
              [inst_4 : Algebra R A] →
                [inst_5 : Algebra R S] → [inst_6 : IsScalarTower R S A] → TensorProduct R A R ≃ₐc[S] A