Definition runitor_transf (a b : C) : bindelta_pair_functor (functor_identity (hom a b)) (constant_functor (hom a b) (hom b b) (identity b)) ∙ hcomp_functor ⟹ functor_identity (hom a b). Proof. exists runitor. red. apply runitor_natural. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.PrecategoryBinProduct.