X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite%2FgrafiteAstPp.mli;h=a695b20d27c374cb6adfc9d690b451421a222e0c;hb=4556677f40e6b979d9bdaa4475bb1ca6701264f8;hp=4ae11a59b3fa64df67f46f150fd583fe300dac50;hpb=2c01ff6094173915e7023076ea48b5804dca7778;p=helm.git

diff --git a/matita/components/grafite/grafiteAstPp.mli b/matita/components/grafite/grafiteAstPp.mli
index 4ae11a59b..a695b20d2 100644
--- a/matita/components/grafite/grafiteAstPp.mli
+++ b/matita/components/grafite/grafiteAstPp.mli
@@ -23,60 +23,10 @@
  * http://helm.cs.unibo.it/
  *)
 
-val pp_tactic:
-  map_unicode_to_tex:bool ->
-  term_pp:('term -> string) ->
-  lazy_term_pp:('lazy_term -> string) ->
-  ('term, 'lazy_term, 'term GrafiteAst.reduction, string)
-  GrafiteAst.tactic ->
-    string
+val pp_comment: map_unicode_to_tex:bool -> GrafiteAst.comment -> string
 
-val pp_tactic_pattern:
-  map_unicode_to_tex:bool ->
-  term_pp:('term -> string) ->
-  lazy_term_pp:('lazy_term -> string) ->
-  ('term, 'lazy_term, string) GrafiteAst.pattern ->
-    string
+val pp_executable: map_unicode_to_tex:bool -> GrafiteAst.code -> string
 
-val pp_reduction_kind:
-  term_pp:('a -> string) ->
-  'a GrafiteAst.reduction ->
-    string
-
-val pp_command:
- term_pp:('term -> string) ->
-  obj_pp:('obj -> string) ->
-   ('term,'obj) GrafiteAst.command -> string
-val pp_macro: 
-  term_pp:('term -> string) -> 
-  lazy_term_pp:('lazy_term -> string) ->
-    ('term,'lazy_term) GrafiteAst.macro -> string
-val pp_comment:
-  map_unicode_to_tex:bool ->
-  term_pp:('term -> string) ->
-  lazy_term_pp:('lazy_term -> string) ->
-  obj_pp:('obj -> string) ->
-  ('term, 'lazy_term, 'term GrafiteAst.reduction, 'obj, string)
-  GrafiteAst.comment ->
-    string
-
-val pp_executable:
-  map_unicode_to_tex:bool ->
-  term_pp:('term -> string) ->
-  lazy_term_pp:('lazy_term -> string) ->
-  obj_pp:('obj -> string) ->
-  ('term, 'lazy_term, 'term GrafiteAst.reduction, 'obj, string)
-  GrafiteAst.code ->
-    string
-
-val pp_statement:
-  term_pp:('term -> string) ->
-  lazy_term_pp:('lazy_term -> string) ->
-  obj_pp:('obj -> string) ->
-  ('term, 'lazy_term, 'term GrafiteAst.reduction, 'obj, string)
-  GrafiteAst.statement ->
-  map_unicode_to_tex:bool ->
-    string
-
-val pp_punctuation_tactical: GrafiteAst.punctuation_tactical -> string
+val pp_alias: GrafiteAst.alias_spec -> string
 
+val pp_statement: GrafiteAst.statement -> map_unicode_to_tex:bool -> string