2 files changed, 0 insertions, 4 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 }