added sample configuration file

[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 77f3b488c6e896a7285e3ef2a0c73e2f415f87d9..7640a6b7678ec1aacbcc0802dc44f10b9fb6b938 100644 (file)
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -96,11 +96,12 @@ let get_constraints term =
                 Cic.Prop -> T.Prop
               | Cic.Set -> T.Set
               | Cic.Type -> T.Type
+             | Cic.CProp -> T.CProp
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])
     | C.Meta _
-    | C.Implicit -> assert false
+    | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)
        process_type_aux kind te