Section coadjoint_ua_map_def.
Variable c c' : C.
Definition CoadjointUA_mor (f : c --> c') :=
CoUA_diese (UA_of c') (CoUA_mor (UA_of c) o f).
Canonical Structure CoadjointUA_map :
Map (c --> c') (CoadjointUA_ob c --> CoadjointUA_ob c') :=
CoadjointUA_map_law.
End coadjoint_ua_map_def.

Lemma CoadjointUA_id_law : Fid_law CoadjointUA_map.