Definition enriched_functor_identity (A : enriched_precat) : enriched_functor A A. Proof. use make_enriched_functor. - use make_enriched_functor_data. + intro a. exact a. + intros x y. exact (identity _). - intro a. apply id_right. - abstract (intros a b c; simpl ; rewrite tensor_id_id ; rewrite id_left, id_right; reflexivity). Defined.
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.Propositions. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.Core.Isos. Import MonoidalNotations.