∀ {C : Type u₁} {D : Type u₂} [inst : CategoryTheory.Category.{v₁, u₁} C] [inst_1 : CategoryTheory.Category.{v₂, u₂} D]
  (j : CategoryTheory.Functor C D) [inst_2 : CategoryTheory.Coreflective j],
  (CategoryTheory.coreflector j).IsRightAdjoint