X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicEnvironment.mli;h=0a8b25c256c044640368a2afe86363fb18b34bae;hb=335acfd6f24de834bec623fdf55ad153b142d087;hp=77f97ed966705156ac9d58675aca7a37f8e0868f;hpb=502eecdd0e3d63c7e1a647c633b588e738f0afcf;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicEnvironment.mli b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
index 77f97ed96..0a8b25c25 100644
--- a/helm/ocaml/cic_proof_checking/cicEnvironment.mli
+++ b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
@@ -83,10 +83,10 @@ val set_type_checking_info :
 val add_type_checked_term : 
   UriManager.uri -> (Cic.obj * CicUniv.universe_graph) -> unit
 
-  (** remove a type checked term
+  (** remove a type checked object
   * @raise Term_not_found when given term is not in the environment
   * @raise Failure when remove_term is invoked while type checking *)
-val remove_term: UriManager.uri -> unit
+val remove_obj: UriManager.uri -> unit
 
 (* get_cooked_obj ~trust uri                                        *)
 (* returns the object if it is already type-checked or if it can be *)
@@ -120,6 +120,10 @@ val set_trust: (UriManager.uri -> bool) -> unit
   * 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