∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] {D : Type u'} [inst_1 : CategoryTheory.Category.{v', u'} D]
  {X Y : C} (h : CategoryTheory.Retract X Y) (F : CategoryTheory.Functor C D), (h.map F).r = F.map h.r