Definition right_unitor_trans {C : prebicategory_data} (a b : C) : bindelta_pair_functor (functor_identity (a -1-> b)) (constant_functor (a -1-> b) (b -1-> b) (identity1 b)) ∙ compose_functor a b b ⟹ functor_identity (a -1-> b) := pr2 (pr2 (pr2 C)) a b.
Require Import UniMath.Foundations.PartD. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.Categories.StandardCategories. Require Import UniMath.CategoryTheory.HorizontalComposition. Require Import UniMath.CategoryTheory.Equivalences.Core.