∀ {C : Type u_1} [inst : CategoryTheory.Category.{v_1, u_1} C] [inst_1 : CategoryTheory.MonoidalCategory C]
  [inst_2 : CategoryTheory.MonoidalClosed C] {X Y : C} (r : CategoryTheory.Retract Y X)
  [CategoryTheory.InternallyProjective X], CategoryTheory.InternallyProjective Y