fact: Definition full_sub_category_equivalence_unit_data : nat_trans_data (functor_identity (full_sub_category C₁ P)) (L' ∙ R') := λ y, unit_from_left_adjoint L_equiv (pr1 y) ,, tt.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.PartA UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Subcategory.Core UniMath.CategoryTheory.Subcategory.Full UniMath.CategoryTheory.Adjunctions.Core UniMath.CategoryTheory.Equivalences.Core