Definition evaluate_curry_functor' : bindelta_pair_functor (pr1_functor D₁ C ∙ curry_functor') (pr2_functor D₁ C ∙ functor_identity _) ∙ evaluation_functor ⟹ F. Proof. use make_nat_trans. - exact (λ x, identity _). - abstract (intros x₁ x₂ f ; cbn ; rewrite <- !(functor_comp F) ; cbn ; rewrite !id_left, !id_right ; apply idpath). 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.Univalence. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.opp_precat.