HELM dependent Mathql-1.4 library

[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 60633f897e722f988990d7157506ce178b052e34..c5167fe85fe2ec8873470649ef82698da1d88767 100644 (file)
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -93,14 +93,15 @@ 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']
          | _ -> [],[],[])
     | C.Meta _
-    | C.Implicit -> assert false
+    | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)
        process_type_aux kind te
@@ -187,3 +188,6 @@ let get_constraints term =
    ) sorts ;
   res
 ;;
+
+let universe =
+   [T.MainHypothesis; T.InHypothesis; T.MainConclusion; T.InConclusion]