X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteAstPp.mli;h=35ade2b2399ddb6f19fb259f72b577637929fa9f;hb=7dbc6d6fe71f6967f5ad31528a629dc89e6d8160;hp=f9b3b37cce2b9ff40e75a4727b8683f00ab309b5;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/grafite/grafiteAstPp.mli b/helm/software/components/grafite/grafiteAstPp.mli
index f9b3b37cc..35ade2b23 100644
--- a/helm/software/components/grafite/grafiteAstPp.mli
+++ b/helm/software/components/grafite/grafiteAstPp.mli
@@ -41,7 +41,10 @@ val pp_reduction_kind:
   'a GrafiteAst.reduction ->
     string
 
-val pp_command: obj_pp:('obj -> string) -> 'obj GrafiteAst.command -> string
+val pp_command:
+ term_pp:('term -> string) ->
+  obj_pp:('obj -> string) ->
+   ('term,'obj) GrafiteAst.command -> string
 val pp_macro: term_pp:('term -> string) -> 'term GrafiteAst.macro -> string
 val pp_comment:
   term_pp:('term -> string) ->
@@ -67,10 +70,10 @@ val pp_statement:
   GrafiteAst.statement ->
     string
 
-val pp_tactical:
+val pp_punctuation_tactical:
   term_pp:('term -> string) ->
   lazy_term_pp:('lazy_term -> string) ->
   ('term, 'lazy_term, 'term GrafiteAst.reduction, string)
-  GrafiteAst.tactical ->
+  GrafiteAst.punctuation_tactical ->
     string