X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_proof_checking%2FcicUnivUtils.ml;h=2c35ebe1a05badb17fd5269edfa4411662bb5c2e;hb=20427121e8114fa60b64bd1669a0fc734bf39205;hp=948b26ff0bf62e372648f8ab175112cd0b455d9a;hpb=efc3d154e69c0fb18215901f5c4de3a73ebc2fb5;p=helm.git

diff --git a/helm/software/components/cic_proof_checking/cicUnivUtils.ml b/helm/software/components/cic_proof_checking/cicUnivUtils.ml
index 948b26ff0..2c35ebe1a 100644
--- a/helm/software/components/cic_proof_checking/cicUnivUtils.ml
+++ b/helm/software/components/cic_proof_checking/cicUnivUtils.ml
@@ -79,6 +79,8 @@ let universes_of_obj uri t =
     | C.Meta (n,l1) -> C.Meta (n, List.map (HExtlib.map_option aux) l1)
     | C.Sort (C.Type i) -> add_result [i]; 
       C.Sort (C.Type (CicUniv.name_universe i uri))
+    | C.Sort (C.CProp i) -> add_result [i]; 
+      C.Sort (C.CProp (CicUniv.name_universe i uri))
     | C.Rel _ 
     | C.Sort _
     | C.Implicit _ as x -> x