pattern matching over Ast.Case simplified:

[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..5a4e1c536f4bdb5f82023a0ac362e690019498f2 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