(* Prouver que pour tout d, <F(d),phi(Id(F(d)))> est UA de d vers G *)

Definition Unit_ob := F d.Definition Unit_arrow := ApAphi ad (Id (F d)).

(* Specifications: *)
Lemma Unit_UAlaw1 : UA_law1 Unit_arrow Unit_arrow_diese.
Lemma Unit_UAlaw2 : UA_law2 Unit_arrow Unit_arrow_diese.