fact: Definition dcat_equiv_path_sigma {A} {D : A -> Type} `{DHasEquivs A D} {a b : A} (a' : D a) (b' : D b) : {p : a = b & p # a' = b'} -> {e : a $<~> b & DCatEquiv e a' b'} := functor_sigma (cat_equiv_path a b) (fun p => dcat_equiv_path p a' b').
imports: Basics.Overture Basics.Tactics Basics.Equivalences Types.Sigma WildCat.Core WildCat.Displayed WildCat.Equiv