∀ {C : Type u_2} [inst : CategoryTheory.Category.{u_1, u_2} C] {FC : C → C → Type u_3} {CC : C → Type u_4}
  [inst_1 : (X Y : C) → FunLike (FC X Y) (CC X) (CC Y)] [inst_2 : CategoryTheory.ConcreteCategory C FC]
  (P : CategoryTheory.ObjectProperty C) {X Y : P.FullSubcategory} (x : FC X.obj Y.obj),
  CategoryTheory.ConcreteCategory.hom (CategoryTheory.ConcreteCategory.ofHom x) = x