X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2FapplyTransformation.mli;h=fc5fd547a0e088c3494d08c84c307412c64ea122;hb=6912a028bef118d8e9d7c2847200510a9b055c6a;hp=1b646aa6e9a4d3cb02522c1ec524f3fd040b42f2;hpb=f13dfdf18b6dcf7f9253cbd109e49891fba6fbc0;p=helm.git

diff --git a/helm/ocaml/cic_transformations/applyTransformation.mli b/helm/ocaml/cic_transformations/applyTransformation.mli
index 1b646aa6e..fc5fd547a 100644
--- a/helm/ocaml/cic_transformations/applyTransformation.mli
+++ b/helm/ocaml/cic_transformations/applyTransformation.mli
@@ -33,20 +33,24 @@
 (*                                                                         *)
 (***************************************************************************)
 
-val mml_of_cic_sequent :
+val mml_of_cic_sequent:
  Cic.metasenv ->                          (* metasenv *)
  Cic.conjecture ->                        (* sequent *)
   Gdome.document *                            (* Math ML *)
+   (Cic.annconjecture *                       (* annsequent *)
     ((Cic.id, Cic.term) Hashtbl.t *           (* id -> term *)
      (Cic.id, Cic.id option) Hashtbl.t *      (* id -> father id *)
-     (Cic.id, Cic.hypothesis) Hashtbl.t)      (* id -> hypothesis *)
+     (Cic.id, Cic.hypothesis) Hashtbl.t *     (* id -> hypothesis *)
+     (Cic.id, string) Hashtbl.t))             (* ids_to_inner_sorts *)
 
-val mml_of_cic_object :
-  UriManager.uri ->                       (* object uri *)
-  Cic.obj ->                              (* uri *)
+val mml_of_cic_object:
+  Cic.obj ->                              (* object *)
     Gdome.document *                          (* Math ML *)
+     (Cic.annobj *                            (* annobj *)
       ((Cic.id, Cic.term) Hashtbl.t *         (* id -> term *)
        (Cic.id, Cic.id option) Hashtbl.t *    (* id -> father id *)
        (Cic.id, Cic.conjecture) Hashtbl.t *   (* id -> conjecture *)
-       (Cic.id, Cic.hypothesis) Hashtbl.t)    (* id -> hypothesis *)
+       (Cic.id, Cic.hypothesis) Hashtbl.t *   (* id -> hypothesis *)
+       (Cic.id, string) Hashtbl.t *           (* ids_to_inner_sorts *)
+       (Cic.id, Cic2acic.anntypes) Hashtbl.t))(* ids_to_inner_types *)