s/commands_of_domain_and_codomain_items_list/aliases_of_domain_and_codomain_items_list/

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 =

diff --git a/helm/ocaml/cic_disambiguation/disambiguatePp.mli b/helm/ocaml/cic_disambiguation/disambiguatePp.mli
index 9c3b506619af230cd21866a942a9bbc77eba81d2..69b6e8451b3ab89fbc617f7eb073ba14fef27558 100644 (file)
--- a/helm/ocaml/cic_disambiguation/disambiguatePp.mli
+++ b/helm/ocaml/cic_disambiguation/disambiguatePp.mli
@@ -27,8 +27,8 @@ val parse_environment:
   string ->
    DisambiguateTypes.environment * DisambiguateTypes.multiple_environment
 
-val commands_of_domain_and_codomain_items_list:
- (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list ->
-  (CicNotationPt.term, GrafiteAst.obj) GrafiteAst.command list
+val aliases_of_domain_and_codomain_items_list:
+  (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list ->
+    GrafiteAst.alias_spec list
 
 val pp_environment: DisambiguateTypes.environment -> string