{B A f g} (P : Type) (coeq' : A -> P) (cglue' : forall b, coeq' (f b) = coeq' (g b)) : @Coeq B A f g -> P. Proof. rapply GraphQuotient_rec. intros a b [x [[] []]]. exact (cglue' x). Defined.
Require Import Basics. Require Import Types.Paths Types.Arrow Types.Sigma Types.Forall Types.Universe Types.Prod. Require Import Colimits.GraphQuotient.