∀ {C : Type u₁} [inst : CategoryTheory.Category.{v₁, u₁} C] {T : CategoryTheory.Monad C} {A B : T.Algebra}
  (f f_1 : A.A ⟶ B.A) (e_f : f = f_1)
  (h : CategoryTheory.CategoryStruct.comp (T.map f) B.a = CategoryTheory.CategoryStruct.comp A.a f),
  { f := f, h := h } = { f := f_1, h := ⋯ }