]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/grafite/grafiteAstPp.mli
assert_tac now takes a list of sequents and also checks that the number of
[helm.git] / helm / software / components / grafite / grafiteAstPp.mli
index 35ade2b2399ddb6f19fb259f72b577637929fa9f..4ae11a59b3fa64df67f46f150fd583fe300dac50 100644 (file)
@@ -24,6 +24,7 @@
  *)
 
 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)
@@ -31,6 +32,7 @@ val pp_tactic:
     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 ->
@@ -45,8 +47,12 @@ 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_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) ->
@@ -55,6 +61,7 @@ val pp_comment:
     string
 
 val pp_executable:
+  map_unicode_to_tex:bool ->
   term_pp:('term -> string) ->
   lazy_term_pp:('lazy_term -> string) ->
   obj_pp:('obj -> string) ->
@@ -68,12 +75,8 @@ val pp_statement:
   obj_pp:('obj -> string) ->
   ('term, 'lazy_term, 'term GrafiteAst.reduction, 'obj, string)
   GrafiteAst.statement ->
+  map_unicode_to_tex:bool ->
     string
 
-val pp_punctuation_tactical:
-  term_pp:('term -> string) ->
-  lazy_term_pp:('lazy_term -> string) ->
-  ('term, 'lazy_term, 'term GrafiteAst.reduction, string)
-  GrafiteAst.punctuation_tactical ->
-    string
+val pp_punctuation_tactical: GrafiteAst.punctuation_tactical -> string