fixed bug in fill_and_clean (now the helper universes_of_obj knows that

[helm.git] / helm / ocaml / cic_proof_checking / cicUnivUtils.mli

diff --git a/helm/ocaml/cic_proof_checking/cicUnivUtils.mli b/helm/ocaml/cic_proof_checking/cicUnivUtils.mli
index 2af21f8c990974ca16f9380e647d4d0cf5df0482..0184037a6f7ebd1791eaf847a57390cfe2a42dab 100644 (file)
--- a/helm/ocaml/cic_proof_checking/cicUnivUtils.mli
+++ b/helm/ocaml/cic_proof_checking/cicUnivUtils.mli
@@ -23,9 +23,13 @@
  * http://cs.unibo.it/helm/.                                                   
  *)
 
-(* traverses recursively a type and lists the referenced universes *)
+(** traverses recursively a type and lists the referenced universes 
+ *  skipping uri (that should be the object we are working on and 
+ *  that can't be in the environment since we are in a Qed-like state) 
+ *)
 val universes_of_obj: 
-  Cic.obj -> CicUniv.universe list
+  UriManager.uri -> Cic.obj -> CicUniv.universe list
+
 
   (** cleans the universe graph for a given object and fills universes with URI.
   * to be used on qed