Definition make_Equalizer {x y z : C} (f g : y --> z) (e : x --> y) (H : e · f = e · g) (isE : isEqualizer f g e H) : Equalizer f g. Proof. use tpair. - use tpair. + apply x. + apply e. - simpl. exact (tpair _ H isE). 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.