arithmetics for λδ

[helm.git] / helm / software / components / acic_content / cicNotationUtil.mli

diff --git a/helm/software/components/acic_content/cicNotationUtil.mli b/helm/software/components/acic_content/cicNotationUtil.mli
index 2ead321f69f52badc233f21753c8e62bb15e668c..77350a2ac9ac987f707aae624b0e30d5b3b6fd52 100644 (file)
--- a/helm/software/components/acic_content/cicNotationUtil.mli
+++ b/helm/software/components/acic_content/cicNotationUtil.mli
@@ -33,6 +33,12 @@ val keywords_of_term: CicNotationPt.term -> string list
 
 val visit_ast:
   ?special_k:(CicNotationPt.term -> CicNotationPt.term) ->
+  ?map_xref_option:(CicNotationPt.href option -> CicNotationPt.href option) ->
+  ?map_case_indty:(CicNotationPt.case_indtype option ->
+          CicNotationPt.case_indtype option) ->
+  ?map_case_outtype:((CicNotationPt.term -> CicNotationPt.term) -> 
+                     CicNotationPt.term option -> CicNotationPt.term
+  option) ->
   (CicNotationPt.term -> CicNotationPt.term) ->
   CicNotationPt.term ->
     CicNotationPt.term
@@ -70,7 +76,8 @@ val group: CicNotationPt.term list -> CicNotationPt.term
 val ungroup: CicNotationPt.term list -> CicNotationPt.term list
 
 val find_appl_pattern_uris:
-  CicNotationPt.cic_appl_pattern -> UriManager.uri list
+  CicNotationPt.cic_appl_pattern ->
+   [`Uri of UriManager.uri | `NRef of NReference.reference] list
 
 val find_branch:
   CicNotationPt.term -> CicNotationPt.term