Universes introduction

[helm.git] / helm / ocaml / mathql_generator / cGSearchPattern.ml

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 559bee6d92dc4d61f926d5f81e48a328f40d4125..b0d290578f87f34eb20758e6298ab83020e07719 100644 (file)
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -95,7 +95,7 @@ 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']