∀ {C : Type u_2} [inst : CategoryTheory.Category.{u_1, u_2} C] {T : CategoryTheory.Monad C} {J : Type u_4}
  [inst_1 : CategoryTheory.Category.{u_3, u_4} J] (D : CategoryTheory.Functor J T.Algebra)
  (c : CategoryTheory.Limits.Cone (D.comp T.forget)) (t : CategoryTheory.Limits.IsLimit c)
  (s : CategoryTheory.Limits.Cone D) (m : s.pt ⟶ (CategoryTheory.Monad.ForgetCreatesLimits.liftedCone D c t).pt),
  (∀ (j : J),
      CategoryTheory.CategoryStruct.comp m ((CategoryTheory.Monad.ForgetCreatesLimits.liftedCone D c t).π.app j) =
        s.π.app j) →
    m = { f := t.lift (T.forget.mapCone s), h := ⋯ }