some new exports

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 

diff --git a/helm/software/components/cic_disambiguation/disambiguate.mli b/helm/software/components/cic_disambiguation/disambiguate.mli
index 99c1e45560947209b6982c4046cc51cae64f78d7..78fe417683e33dd6e03cce852851cfa608cf86cd 100644 (file)
--- a/helm/software/components/cic_disambiguation/disambiguate.mli
+++ b/helm/software/components/cic_disambiguation/disambiguate.mli
@@ -52,6 +52,9 @@ type ('a,'m) test_result =
   | Ok of 'a * 'm
   | Ko of Stdpp.location option * string Lazy.t
   | Uncertain of Stdpp.location option * string Lazy.t
+exception Try_again of string Lazy.t
+
+val domain_of_ast_term: context:Cic.name list -> CicNotationPt.term -> domain
 
 module type Disambiguator =
 sig