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

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 77f3b488c..65c955cca 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -93,9 +93,10 @@ let get_constraints term =
          | Branch _ ->
             let s' =
              match s with
-                Cic.Prop -> T.Prop
-              | Cic.Set -> T.Set
-              | Cic.Type -> T.Type
+                Cic.Prop  -> T.Prop
+              | Cic.Set   -> T.Set
+	      | Cic.CProp -> T.CProp
+              | Cic.Type  -> T.Type
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])