Definition fullsub_inclusion_enrichment : functor_enrichment (sub_precategory_inclusion _ _) fullsub_enrichment E. Proof. simple refine (_ ,, _). - exact (λ x y, identity _). - repeat split. + abstract (cbn ; intro x ; apply id_right). + abstract (cbn ; intros x y z ; rewrite id_right ; rewrite tensor_id_id ; rewrite id_left ; apply idpath). + abstract (cbn ; intros x y f ; rewrite 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.Subcategory.Core. Require Import UniMath.CategoryTheory.Subcategory.Full. Require Import UniMath.CategoryTheory.EnrichedCats.Enrichment. Require Import UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor. Require Import UniMath.CategoryTheory.Monoidal.Categories.