{R : Type u_1} →
  {S : Type u_2} →
    {A : Type u_3} →
      {B : Type u_4} →
        [inst : CommSemiring R] →
          [inst_1 : CommSemiring S] →
            [inst_2 : Semiring A] →
              [inst_3 : Semiring B] →
                [inst_4 : Algebra R S] →
                  [inst_5 : HopfAlgebra R A] →
                    [inst_6 : HopfAlgebra S B] →
                      [inst_7 : Algebra R B] → [IsScalarTower R S B] → HopfAlgebra S (TensorProduct R B A)