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 /engine/termops.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 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index f720e5195d..c0dd9d07d1 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -1173,7 +1173,7 @@ let isGlobalRef sigma c = | Const _ | Ind _ | Construct _ | Var _ -> true | _ -> false -let is_template_polymorphic env sigma f = +let is_template_polymorphic_ind env sigma f = match EConstr.kind sigma f with | Ind (ind, u) -> if not (EConstr.EInstance.is_empty u) then false |