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.