X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Focaml%2Fcic_proof_checking%2FcicEnvironment.mli;h=5c10c81a37ea150f77be59597f6762de3363ea0c;hb=de36c6322dde3866f3da822f1795cc518233c79f;hp=9875f52acff94296b47b39cbeb0b0e2e292ef9f3;hpb=218c0062f93dd3221b0266cfbc26fd9cf787ad18;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicEnvironment.mli b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
index 9875f52ac..5c10c81a3 100644
--- a/helm/ocaml/cic_proof_checking/cicEnvironment.mli
+++ b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
@@ -37,10 +37,11 @@
 (****************************************************************************)
 
 exception CircularDependency of string;;
-exception Term_not_found of UriManager.uri;;
+exception Object_not_found of UriManager.uri;;
 
 (* as the get cooked, but if not present the object is only fetched,
  * not unfreezed and committed 
+ * @raise Object_not_found
  *)
 val get_obj : 
   CicUniv.universe_graph -> UriManager.uri ->   
@@ -115,7 +116,15 @@ val empty : unit -> unit
 (** Set trust function. Per default this function is set to (fun _ -> true) *)
 val set_trust: (UriManager.uri -> bool) -> unit
 
-(* for filtering in tacticChaser *)
+  (** @return true for objects currently cooked/frozend/unchecked, false
+  * otherwise (i.e. objects already parsed from XML) *)
 val in_cache : UriManager.uri -> bool
 
+(* to debug the matitac batch compiler *)
+val list_obj: unit -> (UriManager.uri * Cic.obj * CicUniv.universe_graph) list
+val list_uri: unit -> UriManager.uri list
+
+  (** @return true for objects available in the library *)
+val in_library: UriManager.uri -> bool
+
 (* EOF *)