fact: Record Subcategory := { sobj : C → Type; shom {x y : C} : sobj x → sobj y → (x ~> y) → Type; scomp {x y z : C} (ox : sobj x) (oy : sobj y) (oz : sobj z) {f : y ~> z} {g : x ~> y} : shom oy oz f → shom ox oy g → shom ox oz (f ∘ g); sid {x : C} (ox : sobj x) : shom ox ox (@id C x) }.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor