added exists_meta

diff --git a/helm/ocaml/cic/cicUtil.ml b/helm/ocaml/cic/cicUtil.ml
index fb40ad3ba123d6b28afb1dd1592ecc151016d8e7..55a70822ed6a95a9c04a95daebcfa3a4a105487c 100644 (file)
--- 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 7db463b7d4fe3ea7641cca7f775a96fa1813c985..9069c24fb40194132f87b13da0cff04fc6ae0e5e 100644 (file)
--- 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
+