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.

Lemma E_tau_cone_law : Cone_law E_tau.