X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2Ftacticals.ml;h=8414698e783f25c0a4da517720caa5602a52e0f9;hb=b38de2d3fa8bbe346c59c18bbeb889f29e493f63;hp=d499acb9ad2cb8a1ed70119d05a6c629f659edc0;hpb=bac72fcaa876137ab7a5630e0c1badc2a627dce8;p=helm.git

diff --git a/helm/ocaml/tactics/tacticals.ml b/helm/ocaml/tactics/tacticals.ml
index d499acb9a..8414698e7 100644
--- a/helm/ocaml/tactics/tacticals.ml
+++ b/helm/ocaml/tactics/tacticals.ml
@@ -68,8 +68,8 @@ let rec try_tactics ~(tactics: (string * tactic) list) ~status =
         e ->
          match e with
             (Fail _)
-          | (CicTypeChecker.TypeCheckerFailure (CicTypeChecker.NotWellTyped _))
-          | (CicUnification.UnificationFailed) ->
+          | (CicTypeChecker.TypeCheckerFailure _)
+          | (CicUnification.UnificationFailure _) ->
               warn (
                 "Tacticals.try_tactics failed with exn: " ^
                 Printexc.to_string e);
@@ -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