sig' : PreCategory. Proof. refine (@Build_PreCategory obj (fun s d => mor s d) (fun x => identity x) (fun s d d' m1 m2 => compose m1 m2) _ _ _ _); assumption. Defined.
Require Import Category.Core Functor.Core. Require Import Basics.Trunc Types.Sigma.