diff options
| author | herbelin | 2002-12-30 18:42:27 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-30 18:42:27 +0000 |
| commit | 5f8868261c5a2c9c6d240f6dbba8932258962659 (patch) | |
| tree | bcca795ff3fe63cec1191b1342cd9c96453561d2 | |
| parent | 05dffdc0a9c3a3ba62a9756f5b33e7182e818656 (diff) | |
Amélioration choix des noms dans abstract_list_all
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3485 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/clenv.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 80fccbf687..04a60e498d 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -34,6 +34,7 @@ open Tacexpr let abstract_scheme env c l lname_typ = List.fold_left2 (fun t (locc,a) (na,_,ta) -> + let na = match kind_of_term a with Var id -> Name id | _ -> na in if occur_meta ta then error "cannot find a type for the generalisation" else if occur_meta a then lambda_name env (na,ta,t) else lambda_name env (na,ta,subst_term_occ locc a t)) |