- changed license to lgpl

[helm.git] / helm / ocaml / cic_transformations / applyTransformation.mli

diff --git a/helm/ocaml/cic_transformations/applyTransformation.mli b/helm/ocaml/cic_transformations/applyTransformation.mli
index 4a1f08e311af133f0bffafac7f29ec7bddaee394..fc5fd547a0e088c3494d08c84c307412c64ea122 100644 (file)
--- a/helm/ocaml/cic_transformations/applyTransformation.mli
+++ b/helm/ocaml/cic_transformations/applyTransformation.mli
@@ -33,19 +33,24 @@
 (*                                                                         *)
 (***************************************************************************)
 
-val reload_stylesheets: unit -> unit
+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 *)
 
-val mml_of_cic_sequent :
- Cic.metasenv ->
- int * Cic.context * Cic.term ->
- Gdome.document *
-  ((Cic.id, Cic.term) Hashtbl.t *
-   (Cic.id, Cic.id option) Hashtbl.t *
-   (string, Cic.hypothesis) Hashtbl.t)
+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 *)
 
-val mml_of_cic_object :
-  explode_all:bool ->
-  UriManager.uri ->
-  Cic.annobj ->
-  (string, string) Hashtbl.t ->
-  (string, Cic2acic.anntypes) Hashtbl.t -> Gdome.document