From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 18 Apr 2008 16:58:38 +0000 (+0000)
Subject: workaround for Pi associativity
X-Git-Tag: make_still_working~5320
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=206dd7a0508b73fd3c18747f4997dddc0a12fc3a;p=helm.git

workaround for Pi associativity
---

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index 72e8abff5..c84008fbf 100644
--- a/helm/software/components/ng_kernel/nCicPp.ml
+++ b/helm/software/components/ng_kernel/nCicPp.ml
@@ -57,7 +57,7 @@ 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:true ctx s; 
+       aux ~toplevel:false ctx s; 
        F.fprintf f "@;→ ";
        aux ~toplevel:true ("_"::ctx) t;
        F.fprintf f "@]";