proposition: Corollary z_iso_from_is_relmonadmor_z_iso_inv_p {C : precategory_data} (D : category) (J : functor C D) {R R': RelMonad J} (α : z_iso(C := category_RelMonad D J) R R') (c : C) : pr1 (inv_from_z_iso α) c = inv_from_z_iso (functor_z_iso_pointwise_if_z_iso' C D (R_functor R) (R_functor R') (z_iso_from_is_relmonadmor_z_iso D J α) c).
proof: Proof. rewrite <- alternative_inv_to_relmonadmor_z_iso_is_inv. 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