X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_generator%2FcGSearchPattern.ml;h=559bee6d92dc4d61f926d5f81e48a328f40d4125;hb=22f61c7bd18cd3652e886f6a765aab63eacac83c;hp=a56d65959448421f872acc554e00edb194359ab8;hpb=296b163c8a2b09a6f87cbab15c2016de92fc8e70;p=helm.git

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index a56d65959..559bee6d9 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -100,8 +100,8 @@ let get_constraints term =
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])
-    | C.Meta _
-    | C.Implicit -> assert false
+    | C.Meta _ -> [],[],[] (* ???? To be understood *)
+    | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)
        process_type_aux kind te