added list_obj and list_uri

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

diff --git a/helm/ocaml/cic_proof_checking/cicEnvironment.mli b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
index 77f97ed966705156ac9d58675aca7a37f8e0868f..5c10c81a37ea150f77be59597f6762de3363ea0c 100644 (file)
--- a/helm/ocaml/cic_proof_checking/cicEnvironment.mli
+++ b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
@@ -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