first moogle template checkin

[helm.git] / helm / ocaml / cic / cicUtil.ml

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 =