From 786d6e21b707035b6fb60353cef09fb8a17a58ac Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 22 Jul 2005 11:45:35 +0000
Subject: [PATCH] added env content debug print

---
 helm/matita/matita.ml | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 0b5919ab9..d0223a80b 100644
--- 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
-- 
2.39.2