End coadjoint_ua_map_def.

(* Specifications: *)
Lemma CoadjointUA_id_law : Fid_law CoadjointUA_map.
Lemma CoadjointUA_comp_law : Fcomp_law CoadjointUA_map.
Canonical Structure CoadjointUA :=
Build_Functor CoadjointUA_comp_law CoadjointUA_id_law.