Inductive Discr_mor : U -> U -> Type :=
    Build_Discr_mor : forall a : U, Discr_mor a a.Inductive Discr_mor : U -> U -> Type :=
    Build_Discr_mor : forall a : U, Discr_mor a a.Definition Equal_Discr_mor (f g : Discr_mor a b) := True.

Lemma Equal_Discr_mor_equiv : Equivalence Equal_Discr_mor.