diff options
| author | herbelin | 2005-09-06 14:31:08 +0000 |
|---|---|---|
| committer | herbelin | 2005-09-06 14:31:08 +0000 |
| commit | 60e9617f75ebbd31e93593936d0ea4ba5792ff2f (patch) | |
| tree | 89533f87aa8bf33f84712c6249ba361057ba1975 | |
| parent | 398d7b3fcd4ec6ae7c4a8cbdf31b0dfa76c50aaf (diff) | |
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
| -rw-r--r-- | pretyping/detyping.ml | 6 |
1 files 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 |