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_faith : Faithful_law FSC_inc.