From: acondolu Date: Tue, 25 Jul 2017 14:57:26 +0000 (+0200) Subject: Bug fixed in pretty-printing of original names under lambdas X-Git-Tag: weak-reduction-separation~1 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=0aaa773167c006689b00b9ff25f867ccbb1caa32;p=fireball-separation.git Bug fixed in pretty-printing of original names under lambdas --- diff --git a/ocaml/num.ml b/ocaml/num.ml index 66bdd85..e7b6290 100644 --- a/ocaml/num.ml +++ b/ocaml/num.ml @@ -118,7 +118,7 @@ let rec string_of_term = let boundvar x = "v" ^ string_of_int x in let varname lev l n = if n < lev then boundvar (lev-n-1) - else if n < List.length l then List.nth l (n-lev) + else if n - lev < List.length l then List.nth l (n-lev) else "`" ^ string_of_int (n-lev) in let rec string_of_term_w_pars lev l = function | `Var(n,ar) -> varname lev l n ^ (if debug_display_arities then ":" ^ string_of_int ar else "")