X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FcicNotationUtil.mli;h=5a4e1c536f4bdb5f82023a0ac362e690019498f2;hb=4803b343f52b716c80eed945fa12d7075399df1b;hp=5d309d68fdf959bfa1efad2ee7abc2815eeaa5cf;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/acic_content/cicNotationUtil.mli b/helm/software/components/acic_content/cicNotationUtil.mli
index 5d309d68f..5a4e1c536 100644
--- 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
@@ -81,7 +87,7 @@ val name_of_cic_name: Cic.name -> CicNotationPt.term
   (** Symbol/Numbers instances *)
 
 val freshen_term: CicNotationPt.term -> CicNotationPt.term
-val freshen_obj: CicNotationPt.obj -> CicNotationPt.obj
+val freshen_obj: CicNotationPt.term CicNotationPt.obj -> CicNotationPt.term CicNotationPt.obj
 
   (** Notation id handling *)