Canonical Structure FunDiscr_map (i j : Discr I) :=
  Build_Map (FunDiscr_map_law (i:=i) (j:=j)).

(* Specifications: *)
Lemma FunDiscr_comp_law : Fcomp_law FunDiscr_map.
Lemma FunDiscr_id_law : Fid_law FunDiscr_map.