proposition: Lemma RelMonad_eq_obsolete (R R' : RelMonad)(hs : has_homsets D) : pr1 R = pr1 R' -> R = R'.
proof: Proof. intro p. apply subtypeInjectivity. - intro R''. apply isaprop_RelMonad_axioms. exact hs. - assumption. 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