From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 31 Oct 2006 09:19:19 +0000 (+0000)
Subject: Bug fixed: inductive types were no longer removed from the environment during
X-Git-Tag: make_still_working~6690
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=f7ef9307f419376e5db085d59ad79487010ec123;p=helm.git

Bug fixed: inductive types were no longer removed from the environment during
a remove_single_obj.
---

diff --git a/helm/software/components/library/librarySync.ml b/helm/software/components/library/librarySync.ml
index a3429840b..5e8ddaf6d 100644
--- a/helm/software/components/library/librarySync.ml
+++ b/helm/software/components/library/librarySync.ml
@@ -173,8 +173,8 @@ let remove_single_obj uri =
    (fun uri -> 
      ignore (LibraryDb.remove_uri uri);
      (*CoercGraph.remove_coercion uri;*)
-     CicEnvironment.remove_obj uri
-   ) uris_to_remove
+   ) uris_to_remove ;
+  CicEnvironment.remove_obj uri
 
 (*** GENERATION OF AUXILIARY LEMMAS ***)