Lemma EqualizerOfIso : Equalizer f g. Proof. use (make_Equalizer f g (EqualizerArrow E · i)). - apply EqualizerOfIso_diagram_proof. - use (isEqualizerUnderIso _ _ _ _ _ _ _ (pr2 (pr2 E))). + apply identity_z_iso. + exact i. + exact (z_iso_inv j). + apply EqualizerOfIso_diagram_proof_pd_e. + apply EqualizerOfIso_diagram_proof_pd_f. + apply EqualizerOfIso_diagram_proof_pd_g. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.CategoryTheory.Monics. Require Import UniMath.CategoryTheory.Retracts.