∀ (m : Type u_1 → Type u_1) [inst : Monad m] [inst_1 : LawfulMonad m] (x : Type u_1),
  CategoryTheory.CategoryStruct.comp
      ({ app := @pure m inst.toPure, naturality := ⋯ }.app ((CategoryTheory.ofTypeFunctor m).obj x))
      ({ app := @joinM m inst, naturality := ⋯ }.app x) =
    CategoryTheory.CategoryStruct.id
      ((CategoryTheory.Functor.id (Type u_1)).obj ((CategoryTheory.ofTypeFunctor m).obj x))