X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_generator%2FcGSearchPattern.ml;h=b0d290578f87f34eb20758e6298ab83020e07719;hb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1;hp=7640a6b7678ec1aacbcc0802dc44f10b9fb6b938;hpb=e626927b4c1c77bdcd6b545203a0a9c17a9ff136;p=helm.git

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 7640a6b76..b0d290578 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -95,12 +95,12 @@ let get_constraints term =
              match s with
                 Cic.Prop -> T.Prop
               | Cic.Set -> T.Set
-              | Cic.Type -> T.Type
+              | Cic.Type _ -> T.Type (* TASSI: ?? *)
 	      | Cic.CProp -> T.CProp
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])
-    | C.Meta _
+    | C.Meta _ -> [],[],[] (* ???? To be understood *)
     | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)