From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 31 Jul 2009 09:01:53 +0000 (+0000)
Subject: Pp fixed in order to obtain read-back.
X-Git-Tag: make_still_working~3587
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=c80f6d72bfe8bdea8b564c8505460c703581c487;p=helm.git

Pp fixed in order to obtain read-back.
---

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index 7d7a90dcc..e7cc53a47 100644
--- a/helm/software/components/ng_kernel/nCicPp.ml
+++ b/helm/software/components/ng_kernel/nCicPp.ml
@@ -45,7 +45,7 @@ let r2s pp_fix_name r =
             if pp_fix_name then
               let _,name,_,_,_ = List.nth fl i in name
             else 
-              NUri.name_of_uri u ^"("^ string_of_int i ^ ")"
+              NUri.name_of_uri u (*^"("^ string_of_int i ^ ")"*)
         | _ -> assert false)
   with 
   | NCicEnvironment.ObjectNotFound _