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))).
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.PartD. Require Import UniMath.Foundations.Propositions. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.Core.Setcategories. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.opp_precat.