From 13553fb82419f58ab61131bd4a6e04352e388b50 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Sat, 19 Apr 2008 16:30:53 +0000
Subject: [PATCH] associativity of -> fixed

---
 helm/software/components/ng_kernel/nCicPp.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index c84008fbf..782fd9566 100644
--- a/helm/software/components/ng_kernel/nCicPp.ml
+++ b/helm/software/components/ng_kernel/nCicPp.ml
@@ -57,7 +57,9 @@ let trivial_pp_term ~context ~subst ~metasenv ?(inside_fix=false) t =
    | C.Prod ("_",s,t) -> 
        if not toplevel then F.fprintf f "(";
        F.fprintf f "@[<hov 1>";
-       aux ~toplevel:false ctx s; 
+       (match s with 
+       | C.Prod ("_",_,_) -> aux ~toplevel:false ctx s 
+       | _ -> aux ~toplevel:true ctx s);
        F.fprintf f "@;→ ";
        aux ~toplevel:true ("_"::ctx) t;
        F.fprintf f "@]";
-- 
2.39.2