X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2FdisambiguatePp.ml;h=c3a48e409e885a767b4b6441d942ebff86baeab5;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=1f25e1f95ea6860044eb4d421c91b949cf2ed9ee;hpb=adfeba63282f11f92705b61cb961a61e107fb5bb;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/disambiguatePp.ml b/helm/ocaml/cic_disambiguation/disambiguatePp.ml
index 1f25e1f95..c3a48e409 100644
--- a/helm/ocaml/cic_disambiguation/disambiguatePp.ml
+++ b/helm/ocaml/cic_disambiguation/disambiguatePp.ml
@@ -75,11 +75,6 @@ let aliases_of_domain_and_codomain_items_list l =
       alias_of_domain_and_codomain_items domain_item codomain_item::acc
     ) [] l
 
-let commands_of_domain_and_codomain_items_list l =
-  List.map
-    (fun alias -> GrafiteAst.Alias (dummy_floc, alias))
-    (aliases_of_domain_and_codomain_items_list l)
-
 let pp_environment env =
   let aliases = aliases_of_environment env in
   let strings =