proposition: Lemma Unit_UAlaw1 : UA_law1 Unit_arrow Unit_arrow_diese.
proof: Proof. unfold UA_law1, UA_eq, Unit_arrow_diese, Unit_arrow in |- *. intros c1 f; apply Sym. apply Trans with (ApAphi ad (Id (F d) o ApAphi_inv ad f)). apply Trans with (ApAphi ad (ApAphi_inv ad f)). apply Sym; exact (Idl_inv (NTa_areIso ad (Build_POb1 d c1)) f). apply AphiPres; apply Idl1. apply (Adj_eq3 ad (ApAphi_inv ad f) (Id (F d))). Qed.
imports: CoUniversalArrow Adjunction