`{Funext} {σ} {A B : object (precategory_algebra σ)} : A <~=~> B → A ≅ B. Proof. intros [f [a b c]]. unshelve eapply (@BuildIsomorphic _ _ _ f). intros s. refine (isequiv_adjointify (f s) (a s) _ _). - exact (apD10_homomorphism c s). - exact (apD10_homomorphism b s). Defined.
Require Import Import Morphisms.CategoryMorphismsNotations isomorphic_notations.