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 Prf_E1_law1 : Equalizer_law1 k E1_mor.