Section adjoint_ua_map_def.
Variable d d' : D.
Definition AdjointUA_mor (f : d --> d') :=
UA_diese (UA_of d) (f o UA_mor (UA_of d')).
Canonical Structure AdjointUA_map :
Map (d --> d') (AdjointUA_ob d --> AdjointUA_ob d') := AdjointUA_map_law.
End adjoint_ua_map_def.
(* unicite' de # pour <cd,ud> : *)
(* qq a':C. qq f':d->Ga'. qq g:cd->a'. *)
(* ud o Gg = f' => g=f'# *)
(* appliquer unicite' pour (Id(d) o ud) et Id(cd) *)

Lemma AdjointUA_id_law : Fid_law AdjointUA_map.