{C : Type u₁} →
  [inst : CategoryTheory.Category.{v₁, u₁} C] →
    {D : Type u₂} →
      [inst_1 : CategoryTheory.Category.{v₂, u₂} D] →
        {R : CategoryTheory.Functor D C} →
          (L : CategoryTheory.Functor C D) →
            (adj : L ⊣ R) → (CategoryTheory.Monad.comparison adj).IsEquivalence → CategoryTheory.MonadicRightAdjoint R