X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_disambiguation%2Fdisambiguate.ml;h=9effb6ae466b301b5896e783e0f600397cb73f05;hb=3007de3f032ea2349cb2f8fffc76b18d26895f36;hp=e11927d7d58fe6fb526a80f3347e7d56a5317727;hpb=1f3e810634367e2ce4b929a935ac6f3553870632;p=helm.git

diff --git a/helm/software/components/cic_disambiguation/disambiguate.ml b/helm/software/components/cic_disambiguation/disambiguate.ml
index e11927d7d..9effb6ae4 100644
--- 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