fact: Definition left_functor_nondep : Functor (sig_obj (D -> C) (fun G => { F : Functor C D & F -| G })) (sig_obj ((C -> D)^op * (D -> C)) (fun FG => fst FG -| snd FG)) := Build_Functor (sig_obj (D -> C) (fun G => { F : Functor C D & F -| G })) (sig_obj ((C -> D)^op * (D -> C)) (fun FG => fst FG -| snd FG)) (fun GFA => ((GFA.2.1, GFA.1); GFA.2.2)) (fun GFA G'F'A' m => (left_morphism_of_nondep GFA.2.2 G'F'A'.2.2 m, m)) (fun s d d' m1 m2 => path_prod' (left_composition_of_nondep _ _ _ _ _) 1) (fun x => path_prod' (left_identity_of_nondep _) 1).
imports: Category.Core Functor.Core Category.Dual FunctorCategory.Core Category.Sigma.OnObjects Category.Prod Adjoint.Core Adjoint.Functorial.Parts Adjoint.Functorial.Laws HoTT.Types.Prod