{A} {D : A -> Type} `{DHasEquivs A D} {a b c : A} {f : b $-> c} {g : b $<~> a} {a' : D a} {b' : D b} {c' : D c} (f' : DHom f b' c') (g' : DCatEquiv g b' a') : DGpdHom (compose_hV_h f g) ((f' $o' g'^-1$') $o' g') f' := dcat_assoc _ _ _ $@' (f' $@L' dcate_issect g') $@' dcat_idr f'.
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.