From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 14 Apr 2004 13:56:47 +0000 (+0000)
Subject: added exists_meta
X-Git-Tag: dead_dir_walking~69
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=a8f2c7ca6806a563808eba60fadd2e1dbaec49e4;p=helm.git

added exists_meta
---

diff --git a/helm/ocaml/cic/cicUtil.ml b/helm/ocaml/cic/cicUtil.ml
index fb40ad3ba..55a70822e 100644
--- a/helm/ocaml/cic/cicUtil.ml
+++ b/helm/ocaml/cic/cicUtil.ml
@@ -30,6 +30,8 @@ let lookup_meta index metasenv =
     List.find (fun (index', _, _) -> index = index') metasenv
   with Not_found -> raise (Meta_not_found index)
 
+let exists_meta index = List.exists (fun (index', _, _) -> (index = index'))
+
 let is_closed =
  let module C = Cic in
  let rec is_closed k =
diff --git a/helm/ocaml/cic/cicUtil.mli b/helm/ocaml/cic/cicUtil.mli
index 7db463b7d..9069c24fb 100644
--- a/helm/ocaml/cic/cicUtil.mli
+++ b/helm/ocaml/cic/cicUtil.mli
@@ -22,8 +22,11 @@
  * For details, see the HELM World-Wide-Web page,
  * http://helm.cs.unibo.it/
  *)
+
 exception Meta_not_found of int
 
 val lookup_meta: int -> Cic.metasenv -> Cic.conjecture
+val exists_meta: int -> Cic.metasenv -> bool
 
 val is_closed : Cic.term -> bool
+