proposition: Lemma alternative_inv_to_relmonadmor_z_iso_is_inv {C : precategory_data} (D : category) (J : functor C D) {R R': RelMonad J} (α : z_iso(C := category_RelMonad D J) R R'): alternative_inv_to_relmonadmor_z_iso D J α = inv_from_z_iso α.
proof: Proof. apply inv_z_iso_unique'. unfold precomp_with. apply RelMonadMor_equiv. - apply D. - apply funextsec. intro c. unfold alternative_inv_to_relmonadmor_z_iso. simpl. apply pathsinv0. apply z_iso_inv_on_left. rewrite id_left. intermediate_path (pr1 (pr1 α) c). { apply idpath. } rewrite z_iso_from_is_relmonadmor_z_iso_p. apply idpath. 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