From 60e9617f75ebbd31e93593936d0ea4ba5792ff2f Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 6 Sep 2005 14:31:08 +0000 Subject: Un vieux bug d'affichage des lieurs (cf bug #1005) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7346 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/detyping.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 9dc25a0b56..5363176138 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -490,9 +490,9 @@ and detype_binder tenv bk avoid env na ty c = concrete_name (fst tenv) avoid env na c in let r = detype tenv avoid' (add_name na' env) c in match bk with - | BProd -> RProd (dummy_loc, na',detype tenv [] env ty, r) - | BLambda -> RLambda (dummy_loc, na',detype tenv [] env ty, r) - | BLetIn -> RLetIn (dummy_loc, na',detype tenv [] env ty, r) + | BProd -> RProd (dummy_loc, na',detype tenv avoid env ty, r) + | BLambda -> RLambda (dummy_loc, na',detype tenv avoid env ty, r) + | BLetIn -> RLetIn (dummy_loc, na',detype tenv avoid env ty, r) let rec subst_pat subst pat = match pat with -- cgit v1.2.3