From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 9 Jun 2005 11:43:40 +0000 (+0000)
Subject: fixed remove_coercion
X-Git-Tag: PRE_INDEX_1~18
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6707bdbd677ee7709bebec14880e1673b4048c6d;p=helm.git

fixed remove_coercion
---

diff --git a/helm/ocaml/cic_unification/coercDb.ml b/helm/ocaml/cic_unification/coercDb.ml
index 149f3a4ab..6a514b814 100644
--- a/helm/ocaml/cic_unification/coercDb.ml
+++ b/helm/ocaml/cic_unification/coercDb.ml
@@ -7,7 +7,7 @@ let add_coercion c =
   db := c :: !db
 
 let remove_coercion p = 
-  db := List.filter p !db
+  db := List.filter (fun u -> not(p u)) !db
 
 let find_coercion f =
   List.map (fun (_,_,x) -> x) (List.filter (fun (s,t,_) -> f (s,t)) !db)