diff options
| author | Matthieu Sozeau | 2015-10-01 15:36:57 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-02 15:54:13 +0200 |
| commit | b3d97c2147418f44fc704807d3812b04921591af (patch) | |
| tree | 695491ad5693218e18e023ac36671c653cf15c71 /pretyping | |
| parent | c1630c9dcdf91dc965b3c375d68e3338fb737531 (diff) | |
Univs: fix bug #4251, handling of template polymorphic constants.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index edb76e52f4..f18657da82 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -645,7 +645,7 @@ let rec pretype k0 resolve_tc (tycon : type_constraint) env evdref (lvar : ltac_ match evar_kind_of_term !evdref resj.uj_val with | App (f,args) -> let f = whd_evar !evdref f in - if isInd f && is_template_polymorphic env f then + if is_template_polymorphic env f then (* Special case for inductive type applications that must be refreshed right away. *) let sigma = !evdref in |