(* construction de l'adj droit *)

Definition CoadjointUA_ob (c : C) := CoUA_ob (UA_of c).

(* Specifications: *)
Lemma CoadjointUA_map_law : Map_law CoadjointUA_mor.
Lemma CoadjointUA_id_law : Fid_law CoadjointUA_map.
Lemma CoadjointUA_comp_law : Fcomp_law CoadjointUA_map.