Section fsc_inc_def.
Variables (C : Category) (I : Type) (a : I -> C).
Definition Inc_map (i j : FullSubCat a) := Id_map (a i --> a j).
Canonical Structure FSC_inc := Build_Functor Inc_comp_law Inc_id_law.
(* proprie'te's de Inc *)

Lemma Inc_full :
Full_law (F:=FSC_inc) (fun i j : I => Id_fun (A:=a i --> a j)).