ocaml 3.09 transition

[helm.git] / helm / ocaml / cic_disambiguation / disambiguatePp.ml

diff --git a/helm/ocaml/cic_disambiguation/disambiguatePp.ml b/helm/ocaml/cic_disambiguation/disambiguatePp.ml
index 1f25e1f95ea6860044eb4d421c91b949cf2ed9ee..c3a48e409e885a767b4b6441d942ebff86baeab5 100644 (file)
--- 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 =