...

[helm.git] / helm / software / components / ng_kernel / nCicPp.ml

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index 258e83c949da272dd1b412faa010fe5d7b558b4f..e7cc53a47b8de4030032bd1858afdf63c08584e5 100644 (file)
--- 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 _ 
@@ -60,6 +60,7 @@ let string_of_implicit_annotation = function
   | `Hole -> "□"
   | `Term -> "Term"
   | `Typeof x -> "Ty("^string_of_int x^")"
+  | `Vector -> "…"
 ;;
 
 let ppterm ~formatter:f ~context ~subst ~metasenv:_ ?(inside_fix=false) t =