Definition compute_funspecs_norepeat (l : list (ident*funspec)) :=
  compute_list_norepet (fst (split l)).

(* Specifications: *)
Lemma not_in_funspecs_by_id_i {A B} i (l : list (A * B)) l0 l1 : split l = (l0,l1) -> ~In i l0 -> ~In i (map fst l).
Lemma compute_funspecs_norepeat_e l : compute_funspecs_norepeat l = true -> funspecs_norepeat l.