proposition: Lemma isweq_idtoiso_RelMonad {C : precategory_data} {D : category} (H: is_univalent D) (J : functor C D)(R R': RelMonad J) : isweq (@idtoiso (category_RelMonad D J) R R').
proof: Proof. apply (isweqhomot (relmonadmor_idtoiso H J R R')). - intro p. induction p. apply idpath. - apply (pr2 _ ). Qed.
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