proposition: Lemma has_homsets_RelMonad {C : precategory_data} {D : precategory} (hs: has_homsets D) (J : functor_data C D) : has_homsets (precategory_RelMonad hs J).
proof: Proof. intros R R'. simpl. unfold RelMonadMor. apply isaset_total2 . - apply impred_isaset. intro. apply hs. - intro α. apply isasetaprop. apply isaprop_RelMonadMor_axioms. apply hs. Defined.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.PartA UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Adjunctions.Core