(* The category One *)

Inductive One_ob : Type :=
    Obone : One_ob.(* The category One *)

Inductive One_ob : Type :=
    Obone : One_ob.Inductive One_mor : One_ob -> One_ob -> Type :=
    Id_Obone : One_mor Obone Obone.Inductive One_mor : One_ob -> One_ob -> Type :=
    Id_Obone : One_mor Obone Obone.Definition Equal_One_mor (f g : One_mor a b) := True.

(* Specifications: *)
Lemma Equal_One_mor_equiv : Equivalence Equal_One_mor.