X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_generator%2FcGSearchPattern.ml;h=c5167fe85fe2ec8873470649ef82698da1d88767;hb=e73f439e856f456b47ec6381c0c93594eaac5a82;hp=65c955cca7652e889aa8a3d622e796c74d159dc3;hpb=b2bde540ce5ec2c8731f0353815583bd3d4eba26;p=helm.git

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 65c955cca..c5167fe85 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -101,7 +101,7 @@ let get_constraints term =
             [],[],[!!kind,s']
          | _ -> [],[],[])
     | C.Meta _
-    | C.Implicit -> assert false
+    | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)
        process_type_aux kind te