From ae39925d64cc51663ab3f2ad397501b435bd0e5e Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 30 Oct 2018 15:04:06 +0100
Subject: 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.
---
 engine/termops.ml  | 2 +-
 engine/termops.mli | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'engine')

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
diff --git a/engine/termops.mli b/engine/termops.mli
index 1054fbbc5e..07c9541f25 100644
--- a/engine/termops.mli
+++ b/engine/termops.mli
@@ -282,7 +282,7 @@ val is_global : Evd.evar_map -> GlobRef.t -> constr -> bool
 
 val isGlobalRef : Evd.evar_map -> constr -> bool
 
-val is_template_polymorphic : env -> Evd.evar_map -> constr -> bool
+val is_template_polymorphic_ind : env -> Evd.evar_map -> constr -> bool
 
 val is_Prop : Evd.evar_map -> constr -> bool
 val is_Set : Evd.evar_map -> constr -> bool
-- 
cgit v1.2.3