]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/ng_kernel/nCic2OCic.ml
Inverters/Inversion:
[helm.git] / helm / software / components / ng_kernel / nCic2OCic.ml
index 5f8279d7e67cb3660652e392b882a49cc4fa63a7..1006d03c684e110e2ded288cd5915ff034436618 100644 (file)
@@ -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