{A : Type} {D : A -> Type} `{IsD1Cat A D} {a b c : A} {f : a $-> b} {g h : b $-> c} {p : g $== h} {a' : D a} {b' : D b} {c' : D c} {g' : DHom g b' c'} {h' : DHom h b' c'} (p' : DHom p g' h') (f' : DHom f a' b') : DHom (p $@R f) (g' $o' f') (h' $o' f') := dfmap (cat_precomp c f) (dcat_precomp f') p'.
Require Import Basics.Overture. Require Import Basics.PathGroupoids. Require Import Basics.Tactics. Require Import Types.Sigma. Require Import WildCat.Core. Require Import WildCat.Prod.