fact: Definition discrete_category_to_univalent_groupoid : discrete_category -> univalent_groupoid := λ disc, make_univalent_groupoid (make_univalent_category (pr1 disc) (dirprod_pr2 (dirprod_pr2 (pr2 disc)))) (dirprod_pr1 (dirprod_pr2 (pr2 disc))).
imports: UniMath.Foundations.PartA UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Setcategories UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.opp_precat