removed useless parameter uri from mml_of_cic_object

diff --git a/helm/ocaml/cic_transformations/applyTransformation.ml b/helm/ocaml/cic_transformations/applyTransformation.ml
index 4d1a65069a380f4f223a3e88b2a2ebbf07b62a4b..6c0b0cddffb39eb14c29ae94409e055ed90cb023 100644 (file)
--- a/helm/ocaml/cic_transformations/applyTransformation.ml
+++ b/helm/ocaml/cic_transformations/applyTransformation.ml
@@ -48,9 +48,8 @@ let mml_of_cic_sequent metasenv sequent =
   Xml2Gdome.document_of_xml Misc.domImpl xmlpres,
    (asequent,
     (ids_to_terms,ids_to_father_ids,ids_to_hypotheses,ids_to_inner_sorts))
-;;
 
-let mml_of_cic_object uri obj =
+let mml_of_cic_object obj =
   let (annobj, ids_to_terms, ids_to_father_ids, ids_to_inner_sorts,
     ids_to_inner_types, ids_to_conjectures, ids_to_hypotheses)
   =

diff --git a/helm/ocaml/cic_transformations/applyTransformation.mli b/helm/ocaml/cic_transformations/applyTransformation.mli
index f7d3d2da2c09cfa15b1e865e8ee44eba02d9bbde..fc5fd547a0e088c3494d08c84c307412c64ea122 100644 (file)
--- a/helm/ocaml/cic_transformations/applyTransformation.mli
+++ b/helm/ocaml/cic_transformations/applyTransformation.mli
@@ -33,7 +33,7 @@
 (*                                                                         *)
 (***************************************************************************)
 
-val mml_of_cic_sequent :
+val mml_of_cic_sequent:
  Cic.metasenv ->                          (* metasenv *)
  Cic.conjecture ->                        (* sequent *)
   Gdome.document *                            (* Math ML *)
@@ -43,9 +43,8 @@ val mml_of_cic_sequent :
      (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 *)