proposition: Lemma z_iso_from_Equalizer_to_Equalizer_inverses {y z : C} {f g : y --> z} (E E' : Equalizer f g) : is_inverse_in_precat (from_Equalizer_to_Equalizer E E') (from_Equalizer_to_Equalizer E' E).
proof: Proof. use make_is_inverse_in_precat. - apply pathsinv0. use EqualizerEndo_is_identity. rewrite <- assoc. unfold from_Equalizer_to_Equalizer. rewrite EqualizerCommutes. rewrite EqualizerCommutes. apply idpath. - apply pathsinv0. use EqualizerEndo_is_identity. rewrite <- assoc. unfold from_Equalizer_to_Equalizer. rewrite EqualizerCommutes. rewrite EqualizerCommutes. apply idpath. Qed.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Monics UniMath.CategoryTheory.Retracts