From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 13 May 2008 17:27:08 +0000 (+0000)
Subject: Bug fixed in pretty-printing of free Rels.
X-Git-Tag: make_still_working~5221
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=703515866ff6b77ab0e8b186c6703ec634fc23df;p=helm.git

Bug fixed in pretty-printing of free Rels.
---

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index a38ecde4c..991b26ffc 100644
--- a/helm/software/components/ng_kernel/nCicPp.ml
+++ b/helm/software/components/ng_kernel/nCicPp.ml
@@ -52,7 +52,7 @@ let trivial_pp_term ~context ~subst ~metasenv ?(inside_fix=false) t =
          (try 
             let name = List.nth ctx (m-1) in
             F.fprintf f "%s" (if name = "_" then "__"^string_of_int m else name)
-         with Failure _ -> F.fprintf f " -%d" (m - List.length context))
+         with Failure _ -> F.fprintf f " -%d" (m - List.length ctx))
    | C.Const r -> F.fprintf f "%s" (r2s inside_fix r)
    | C.Prod ("_",s,t) -> 
        if not toplevel then F.fprintf f "(";