diff options
| author | Hugo Herbelin | 2018-10-30 15:04:06 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-10-31 16:16:41 +0100 |
| commit | ae39925d64cc51663ab3f2ad397501b435bd0e5e (patch) | |
| tree | 6bb3f85d9654b17b890d0332125315653063e08a /pretyping/evarsolve.ml | |
| parent | 2a93216a3851688dd29c06a29c6d1442898faab8 (diff) | |
Renaming is_template_polymorphic -> is_template_polymorphic_ind.
This emphasizes that it works only on inductive types.
Also, the name is_template_polymorphic will be reused for a more
general version.
Diffstat (limited to 'pretyping/evarsolve.ml')
| -rw-r--r-- | pretyping/evarsolve.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index dd38ec6f64..96213af9c6 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -83,7 +83,7 @@ let refresh_universes ?(status=univ_rigid) ?(onlyalg=false) ?(refreshset=false) (** Refresh the types of evars under template polymorphic references *) let rec refresh_term_evars ~onevars ~top t = match EConstr.kind !evdref t with - | App (f, args) when is_template_polymorphic env !evdref f -> + | App (f, args) when Termops.is_template_polymorphic_ind env !evdref f -> let pos = get_polymorphic_positions !evdref f in refresh_polymorphic_positions args pos; t | App (f, args) when top && isEvar !evdref f -> |