X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FapplyTransformation.mli;h=dbd0343ff600d4bdd3e09e62963c340e5adcacdb;hb=d97886196d2c730f72312b226bebc388be08f39e;hp=95712f78eb269b6ed85aa4fe308c0745d8901b1d;hpb=75de1f4c87166f120d8bb42d98926adaf407c98c;p=helm.git

diff --git a/helm/software/matita/applyTransformation.mli b/helm/software/matita/applyTransformation.mli
index 95712f78e..dbd0343ff 100644
--- a/helm/software/matita/applyTransformation.mli
+++ b/helm/software/matita/applyTransformation.mli
@@ -44,6 +44,12 @@ val mml_of_cic_sequent:
      (Cic.id, Cic.hypothesis) Hashtbl.t *       (* id -> hypothesis *)
      (Cic.id, Cic2acic.sort_kind) Hashtbl.t))   (* ids_to_inner_sorts *)
 
+val nmml_of_cic_sequent:
+ #NCicCoercion.status ->
+ NCic.metasenv -> NCic.substitution ->          (* metasenv, substitution *)
+ int * NCic.conjecture ->                       (* sequent *)
+  Gdome.document                                (* Math ML *)
+
 val mml_of_cic_object:
   Cic.obj ->                                  (* object *)
     Gdome.document *                            (* Math ML *)
@@ -55,6 +61,8 @@ val mml_of_cic_object:
        (Cic.id, Cic2acic.sort_kind) Hashtbl.t * (* ids_to_inner_sorts *)
        (Cic.id, Cic2acic.anntypes) Hashtbl.t))  (* ids_to_inner_types *)
 
+val nmml_of_cic_object: #NCicCoercion.status -> NCic.obj -> Gdome.document
+
 val txt_of_cic_term: 
   map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.context -> Cic.term ->
    string 
@@ -64,18 +72,16 @@ val txt_of_cic_sequent_conclusion:
   map_unicode_to_tex:bool -> output_type:[`Pattern | `Term] -> int ->
    Cic.metasenv -> Cic.conjecture -> string
 
-(* columns, rendering style, flavour, name prefix, object *)
+(* columns, params, object *)
 val txt_of_cic_object: 
   map_unicode_to_tex:bool -> 
   ?skip_thm_and_qed:bool -> ?skip_initial_lambdas:int -> 
-  int -> GrafiteAst.presentation_style -> ?flavour:Cic.object_flavour ->
-  string -> Cic.obj ->
+  int -> GrafiteAst.inline_param list -> Cic.obj ->
     string
 
-(* presentation_style, flavour, name prefix, uri or baseuri *)
+(* params, uri or baseuri *)
 val txt_of_inline_macro:
-  map_unicode_to_tex:bool -> GrafiteAst.presentation_style -> 
-  ?flavour:Cic.object_flavour -> string -> string ->
+  map_unicode_to_tex:bool -> GrafiteAst.inline_param list -> string ->
     string
 
 val txt_of_macro:
@@ -86,6 +92,6 @@ val txt_of_macro:
 
 (* columns, rendering depth, context, term *)
 val procedural_txt_of_cic_term: 
-  map_unicode_to_tex:bool -> int -> ?depth:int -> 
+  map_unicode_to_tex:bool -> int -> GrafiteAst.inline_param list -> 
   Cic.context -> Cic.term ->
     string