X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2FcicUtil.ml;h=55a70822ed6a95a9c04a95daebcfa3a4a105487c;hb=a8f2c7ca6806a563808eba60fadd2e1dbaec49e4;hp=fb40ad3ba123d6b28afb1dd1592ecc151016d8e7;hpb=a6b369829925668130b977a0abd737bf34ae74ba;p=helm.git

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 =