∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] [inst_1 : CategoryTheory.Limits.HasZeroMorphisms C]
  [CategoryTheory.Limits.HasZeroObject C] {X : C} [CategoryTheory.IsArtinianObject X],
  ¬CategoryTheory.Limits.IsZero X → ∃ Y, CategoryTheory.Simple (CategoryTheory.Subobject.underlying.obj Y)