]> matita.cs.unibo.it Git - helm.git/commitdiff
Pp fixed in order to obtain read-back.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 31 Jul 2009 09:01:53 +0000 (09:01 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 31 Jul 2009 09:01:53 +0000 (09:01 +0000)
helm/software/components/ng_kernel/nCicPp.ml

index 7d7a90dcc9e5933d94650011e5db3dd6b3498031..e7cc53a47b8de4030032bd1858afdf63c08584e5 100644 (file)
@@ -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 _