∀ (X : FinPartOrd),
  FintypeCat.homMk ⇑(CategoryTheory.ConcreteCategory.hom (CategoryTheory.CategoryStruct.id X).hom) =
    CategoryTheory.CategoryStruct.id { carrier := ↑X.toPartOrd, str := X.isFintype }