s/List.find.../CicUtil.lookup_meta/

[helm.git] / helm / ocaml / tactics / tacticals.ml

diff --git a/helm/ocaml/tactics/tacticals.ml b/helm/ocaml/tactics/tacticals.ml
index 57660310badd2935b53972670170313f3816b27f..8414698e783f25c0a4da517720caa5602a52e0f9 100644 (file)
--- a/helm/ocaml/tactics/tacticals.ml
+++ b/helm/ocaml/tactics/tacticals.ml
@@ -222,7 +222,7 @@ let thens' ~start ~continuations ~status =
 let prova_tac =
  let apply_T_tac ~status:((proof,goal) as status) =
   let curi,metasenv,pbo,pty = proof in
-  let metano,context,gty = List.find (function (m,_,_) -> m=goal) metasenv in
+  let metano,context,gty = CicUtil.lookup_meta goal metasenv in
    let rel =
     let rec find n =
      function