Canonical Structure FPA := Build_Functor FPA_comp_law FPA_id_law.SubClass Equalizer1 := Limit FPA.(* The Type I must be non empty *)

Structure Equalizer2 : Type :=  {Prf_equalizer1 :> Equalizer1; Witness : I}.(* The Type I must be non empty *)

Structure Equalizer2 : Type :=  {Prf_equalizer1 :> Equalizer1; Witness : I}.(* The Type I must be non empty *)

Structure Equalizer2 : Type :=  {Prf_equalizer1 :> Equalizer1; Witness : I}.Definition E1_ob := Lim l.

(* Specifications: *)
Lemma Prf_E1_law1 : Equalizer_law1 k E1_mor.
Lemma E_tau_cone_law : Cone_law E_tau.