X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_generator%2FcGSearchPattern.ml;h=a56d65959448421f872acc554e00edb194359ab8;hb=970ba0021a992efe25ec374875dc127ff236cc74;hp=60633f897e722f988990d7157506ce178b052e34;hpb=96134b9ec1030ed15cea00d751dd4d744463f62c;p=helm.git

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 60633f897..a56d65959 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -96,6 +96,7 @@ let get_constraints term =
                 Cic.Prop -> T.Prop
               | Cic.Set -> T.Set
               | Cic.Type -> T.Type
+	      | Cic.CProp -> T.CProp
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])
@@ -187,3 +188,6 @@ let get_constraints term =
    ) sorts ;
   res
 ;;
+
+let universe =
+   [T.MainHypothesis; T.InHypothesis; T.MainConclusion; T.InConclusion]