added env content debug print

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 0b5919ab9e8b28f78c7a81035eb2615ebdb7fcbf..d0223a80bccf8e0b7f7cb1ff8a7bb430dcf95051 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -152,6 +152,10 @@ let _ =
         prerr_endline (UriManager.string_of_uri u); 
         CicUniv.print_ugraph g) (CicEnvironment.list_obj ())
       );
+    addDebugItem "dump environment content" (fun _ ->
+      List.iter (fun (u,_,_) -> 
+        prerr_endline (UriManager.string_of_uri u)) 
+        (CicEnvironment.list_obj ()));
     addDebugItem "print selected terms" (fun () ->
       let i = ref 0 in
       List.iter