proposition: Lemma discrete_category_hom_prop {disc : discrete_category} {a b : ob disc} : isaprop (a --> b).
proof: Proof. apply (@isofhlevelweqf _ (a = b)). - apply invweq, (@univalent_groupoid_arrow_weq_path disc). - apply (isaset_ob (_ ,, discrete_category_is_setcategory _)). Defined.
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