X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FapplyTransformation.mli;h=95712f78eb269b6ed85aa4fe308c0745d8901b1d;hb=13114a0147a28f8c7359c9c19ee254716eb5f55a;hp=7156d986706b90262b0480951a43b328a85ecb1c;hpb=397b5f9d848e63a9703a1f90faf9869092ec8893;p=helm.git

diff --git a/helm/software/matita/applyTransformation.mli b/helm/software/matita/applyTransformation.mli
index 7156d9867..95712f78e 100644
--- a/helm/software/matita/applyTransformation.mli
+++ b/helm/software/matita/applyTransformation.mli
@@ -57,24 +57,35 @@ val mml_of_cic_object:
 
 val txt_of_cic_term: 
   map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.context -> Cic.term ->
-    string 
+   string 
 val txt_of_cic_sequent: 
-  map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.conjecture ->
-    string
+  map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.conjecture -> string
 val txt_of_cic_sequent_conclusion: 
-  map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.conjecture ->
-    string
+  map_unicode_to_tex:bool -> output_type:[`Pattern | `Term] -> int ->
+   Cic.metasenv -> Cic.conjecture -> string
 
-(* columns, rendering style, name prefix, object *)
+(* columns, rendering style, flavour, name prefix, object *)
 val txt_of_cic_object: 
   map_unicode_to_tex:bool -> 
-  ?skip_thm_and_qed:bool -> 
-  ?skip_initial_lambdas:int -> 
-    int -> GrafiteAst.presentation_style -> string ->
-  Cic.obj ->
+  ?skip_thm_and_qed:bool -> ?skip_initial_lambdas:int -> 
+  int -> GrafiteAst.presentation_style -> ?flavour:Cic.object_flavour ->
+  string -> Cic.obj ->
     string
 
-(* presentation_style, uri or baseuri, name prefix *)
+(* presentation_style, flavour, name prefix, uri or baseuri *)
 val txt_of_inline_macro:
-  map_unicode_to_tex:bool -> 
-   GrafiteAst.presentation_style -> string -> string -> string
+  map_unicode_to_tex:bool -> GrafiteAst.presentation_style -> 
+  ?flavour:Cic.object_flavour -> string -> string ->
+    string
+
+val txt_of_macro:
+  map_unicode_to_tex:bool ->
+    Cic.metasenv ->
+    Cic.context ->
+    (Cic.term, Cic.lazy_term) GrafiteAst.macro -> string
+
+(* columns, rendering depth, context, term *)
+val procedural_txt_of_cic_term: 
+  map_unicode_to_tex:bool -> int -> ?depth:int -> 
+  Cic.context -> Cic.term ->
+    string