diff options
Diffstat (limited to 'proofs/clenv.ml')
| -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)) |