∀ {R : Type u_1} [inst : CommRing R] {A : Type u_1} [inst_1 : CommRing A] [inst_2 : Bialgebra R A],
  CategoryTheory.CategoryStruct.comp
      (CategoryTheory.MonoidalCategoryStruct.whiskerLeft (Opposite.op (CommAlgCat.of R A))
        (CommAlgCat.ofHom (Bialgebra.counitAlgHom R A)).op)
      (CommAlgCat.ofHom (Bialgebra.comulAlgHom R A)).op =
    (CategoryTheory.MonoidalCategoryStruct.rightUnitor (Opposite.op (CommAlgCat.of R A))).hom