More debugging info from print_tac.

[helm.git] / helm / software / components / ng_library / oCic2NCic.ml

diff --git a/helm/software/components/ng_library/oCic2NCic.ml b/helm/software/components/ng_library/oCic2NCic.ml
index 1cf194a4c7e91eb970e0eac10f98273ae6c578dc..50b3207e89d2114167969a792250e7f918eeefb7 100644 (file)
--- a/helm/software/components/ng_library/oCic2NCic.ml
+++ b/helm/software/components/ng_library/oCic2NCic.ml
@@ -20,10 +20,7 @@ let mk_type n =
 ;;
 
 let mk_cprop n = 
-  if n = 0 then 
-    [`CProp, NUri.uri_of_string ("cic:/matita/pts/Type.univ")]
-  else
-    [`CProp, NUri.uri_of_string ("cic:/matita/pts/Type"^string_of_int n^".univ")]
+ [`CProp, NUri.uri_of_string ("cic:/matita/pts/Type"^string_of_int n^".univ")]
 ;;
 
 let is_proof_irrelevant context ty =
@@ -880,5 +877,7 @@ let reference_of_oxuri u =
 NCicCoercion.set_convert_term convert_term;;
 Ncic2astMatcher.set_reference_of_oxuri reference_of_oxuri;;
 NCicDisambiguate.set_reference_of_oxuri reference_of_oxuri;;
+(* Why should we set them here? 
 NCicBlob.set_reference_of_oxuri reference_of_oxuri;;
 NCicProof.set_reference_of_oxuri reference_of_oxuri;;
+*)