X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCic2OCic.ml;h=1006d03c684e110e2ded288cd5915ff034436618;hb=7b112b0cd39c5ab0db5c28636c0a7f7e36b4d6e2;hp=d9edb1100c7d45340f97a907353decc2fc345c6d;hpb=57e708bca8555d6146c4e3d07c0a9b6a546373ce;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCic2OCic.ml b/helm/software/components/ng_kernel/nCic2OCic.ml
index d9edb1100..1006d03c6 100644
--- a/helm/software/components/ng_kernel/nCic2OCic.ml
+++ b/helm/software/components/ng_kernel/nCic2OCic.ml
@@ -15,7 +15,7 @@ let ouri_of_nuri u = UriManager.uri_of_string (NUri.string_of_uri u);;
 
 let ouri_of_reference (NReference.Ref (u,_)) = ouri_of_nuri u;;
 
-let cprop = [false, NUri.uri_of_string ("cic:/matita/pts/CProp.univ")];;
+let cprop = [`CProp, NUri.uri_of_string ("cic:/matita/pts/Type.univ")];;
 
 let nn_2_on = function
   | "_" -> Cic.Anonymous
@@ -37,7 +37,7 @@ let convert_term uri n_fl t =
  | NCic.Sort (NCic.Type u) when
     (* BUG HERE: I should use NCicEnvironment.universe_eq, but I do not
        want to add this recursion between the modules *)
-    (*NCicEnvironment.universe_eq*) u=cprop -> Cic.Sort Cic.CProp 
+    (*NCicEnvironment.universe_eq*) u=cprop -> Cic.Sort (Cic.CProp (CicUniv.fresh ()))
  | NCic.Sort (NCic.Type _) -> Cic.Sort (Cic.Type (CicUniv.fresh ()))
  | NCic.Implicit _ -> assert false
  | NCic.Const (NReference.Ref (u,NReference.Ind (_,i,_))) ->