∀ (R : Type u_1) [inst : CommRing R] (x : BialgCat R),
  (AlgCat.Hom.hom
          ((CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).map
            (CategoryTheory.MonoidalCategoryStruct.rightUnitor x).hom)).comp
      Algebra.TensorProduct.includeLeft =
    (AlgCat.Hom.hom
          (((CategoryTheory.Iso.refl
                    (CategoryTheory.MonoidalCategoryStruct.tensorObj
                      ((CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).obj x)
                      ((CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).obj
                        (CategoryTheory.MonoidalCategoryStruct.tensorUnit (BialgCat R))))).symm ≪≫
                CategoryTheory.MonoidalCategory.tensorIso
                  (CategoryTheory.Iso.refl ((CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).obj x))
                  (CategoryTheory.Iso.refl (CategoryTheory.MonoidalCategoryStruct.tensorUnit (AlgCat R))).symm) ≪≫
              CategoryTheory.MonoidalCategoryStruct.rightUnitor
                ((CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).obj x)).hom).comp
      Algebra.TensorProduct.includeLeft