From a35a77559f93141a6493f437405370f725ae2fbb Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 3 May 2013 17:57:16 +0000
Subject: Removing a redundant function from Evd.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16465 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/evd.ml  | 2 --
 pretyping/evd.mli | 2 --
 proofs/clenv.ml   | 4 ++--
 3 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index 28b6ac93b5..cc525dca1e 100644
--- a/pretyping/evd.ml
+++ b/pretyping/evd.ml
@@ -317,8 +317,6 @@ let clb_name = function
 
 module Metaset = Int.Set
 
-let meta_exists p s = Metaset.fold (fun x b -> b || (p x)) s false
-
 module Metamap = Int.Map
 
 let metamap_to_list m =
diff --git a/pretyping/evd.mli b/pretyping/evd.mli
index 52c24a3f20..49878ce8aa 100644
--- a/pretyping/evd.mli
+++ b/pretyping/evd.mli
@@ -23,8 +23,6 @@ module Metamap : Map.S with type key = metavariable
 
 module Metaset : Set.S with type elt = metavariable
 
-val meta_exists : (metavariable -> bool) -> Metaset.t -> bool
-
 type 'a freelisted = {
   rebus : 'a;
   freemetas : Metaset.t }
diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index 156629c190..bc6da8c347 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -157,7 +157,7 @@ let mentions clenv mv0 =
       | Some (b,_) -> b.freemetas
       | None -> Metaset.empty
       with Not_found -> Metaset.empty in
-    meta_exists menrec mlist
+    Metaset.exists menrec mlist
   in menrec
 
 let error_incompatible_inst clenv mv  =
@@ -173,7 +173,7 @@ let error_incompatible_inst clenv mv  =
 (* TODO: replace by clenv_unify (mkMeta mv) rhs ? *)
 let clenv_assign mv rhs clenv =
   let rhs_fls = mk_freelisted rhs in
-  if meta_exists (mentions clenv mv) rhs_fls.freemetas then
+  if Metaset.exists (mentions clenv mv) rhs_fls.freemetas then
     error "clenv_assign: circularity in unification";
   try
     if meta_defined clenv.evd mv then
-- 
cgit v1.2.3