X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_transformations%2FapplyTransformation.mli;h=8e023aea626f366cbfdc7cdf6778fa01f5854903;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=fc5fd547a0e088c3494d08c84c307412c64ea122;hpb=f38e8fafcf040258b54b4032562753a876a8a94e;p=helm.git

diff --git a/helm/ocaml/cic_transformations/applyTransformation.mli b/helm/ocaml/cic_transformations/applyTransformation.mli
index fc5fd547a..8e023aea6 100644
--- a/helm/ocaml/cic_transformations/applyTransformation.mli
+++ b/helm/ocaml/cic_transformations/applyTransformation.mli
@@ -34,23 +34,24 @@
 (***************************************************************************)
 
 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, string) Hashtbl.t))             (* ids_to_inner_sorts *)
+ Cic.metasenv ->                              (* metasenv *)
+ Cic.conjecture ->                            (* sequent *)
+  Gdome.document *                              (* Math ML *)
+   Cic.conjecture *                             (* unshared sequent *)
+   (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, Cic2acic.sort_kind) Hashtbl.t))   (* ids_to_inner_sorts *)
 
 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, string) Hashtbl.t *           (* ids_to_inner_sorts *)
-       (Cic.id, Cic2acic.anntypes) Hashtbl.t))(* ids_to_inner_types *)
+  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, Cic2acic.sort_kind) Hashtbl.t * (* ids_to_inner_sorts *)
+       (Cic.id, Cic2acic.anntypes) Hashtbl.t))  (* ids_to_inner_types *)