...

[helm.git] / helm / software / components / cic_disambiguation / disambiguate.ml

diff --git a/helm/software/components/cic_disambiguation/disambiguate.ml b/helm/software/components/cic_disambiguation/disambiguate.ml
index e11927d7d58fe6fb526a80f3347e7d56a5317727..9effb6ae466b301b5896e783e0f600397cb73f05 100644 (file)
--- a/helm/software/components/cic_disambiguation/disambiguate.ml
+++ b/helm/software/components/cic_disambiguation/disambiguate.ml
@@ -895,6 +895,8 @@ let domain_of_obj ~context ast =
 let domain_of_obj ~context obj = 
  uniq_domain (domain_of_obj ~context obj)
 
+let domain_of_ast_term = domain_of_term;;
+
 let domain_of_term ~context term = 
  let context = 
    List.map (function None -> Cic.Anonymous | Some (n,_) -> n) context