{A} {D : A -> Type} `{DHasEquivs A D} {a b : A} {e : a $<~> b} {f : b $-> a} {p : f $o e $== Id a} {a' : D a} {b' : D b} {e' : DCatEquiv e a' b'} (f' : DHom f b' a') (p' : DGpdHom p (f' $o' e') (DId a')) : DGpdHom (cate_moveL_1V f p) f' (dcate_fun e'^-1$'). Proof. apply (dcate_epic_equiv e'). nrapply (p' $@' (dcate_issect e')^$'). exact isd0gpd_hom. Defined.
Require Import Basics.Overture. Require Import Basics.Tactics. Require Import Basics.Equivalences. Require Import Types.Sigma. Require Import WildCat.Core. Require Import WildCat.Displayed. Require Import WildCat.Equiv.