Section equal_one_mor.
Variable a b : One_ob.
Definition Equal_One_mor (f g : One_mor a b) := True.
Canonical Structure One_mor_setoid : Setoid := Equal_One_mor_equiv.
End equal_one_mor.
Definition Comp_One_mor (a : One_ob) :=
let () as x
return
(forall b c : One_ob,
One_mor_setoid x b -> One_mor_setoid b c -> One_mor_setoid x c) :=
a in
fun b c =>
let () as x
return
(One_mor_setoid Obone b ->
One_mor_setoid b x -> One_mor_setoid Obone x) := c in
fun _ _ => Id_Obone.

Lemma Comp_One_mor_congl : Congl_law Comp_One_mor.