X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2Ftacticals.ml;h=d499acb9ad2cb8a1ed70119d05a6c629f659edc0;hb=30ad9beff172b797049b772e0a710c466c9ed18a;hp=1319c13ca2dc34fa1e20299f0be540fab22c6df0;hpb=2a825bacd5664c01ae56ed1255390a5972d1e8b9;p=helm.git

diff --git a/helm/ocaml/tactics/tacticals.ml b/helm/ocaml/tactics/tacticals.ml
index 1319c13ca..d499acb9a 100644
--- a/helm/ocaml/tactics/tacticals.ml
+++ b/helm/ocaml/tactics/tacticals.ml
@@ -68,7 +68,7 @@ let rec try_tactics ~(tactics: (string * tactic) list) ~status =
         e ->
          match e with
             (Fail _)
-          | (CicTypeChecker.NotWellTyped _)
+          | (CicTypeChecker.TypeCheckerFailure (CicTypeChecker.NotWellTyped _))
           | (CicUnification.UnificationFailed) ->
               warn (
                 "Tacticals.try_tactics failed with exn: " ^