From c1234a327b8ef2b52af1410dace719000c360f53 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 11 Oct 2011 19:17:58 +0000
Subject: More on r14536 (an unused pattern-matching remained in the commit).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14546 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml  | 1 +
 kernel/term.mli | 1 +
 2 files changed, 2 insertions(+)

(limited to 'kernel')

diff --git a/kernel/term.ml b/kernel/term.ml
index 72489b49a8..b464f4455b 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -325,6 +325,7 @@ let isRel c = match kind_of_term c with Rel _ -> true | _ -> false
 
 (* Tests if a variable *)
 let isVar c = match kind_of_term c with Var _ -> true | _ -> false
+let isVarId id c = match kind_of_term c with Var id' -> id = id' | _ -> false
 
 (* Tests if an inductive *)
 let isInd c = match kind_of_term c with Ind _ -> true | _ -> false
diff --git a/kernel/term.mli b/kernel/term.mli
index 7992c0bab7..d5899f1855 100644
--- a/kernel/term.mli
+++ b/kernel/term.mli
@@ -230,6 +230,7 @@ val kind_of_type : types -> (constr, types) kind_of_type
 
 val isRel  : constr -> bool
 val isVar  : constr -> bool
+val isVarId  : identifier -> constr -> bool
 val isInd  : constr -> bool
 val isEvar : constr -> bool
 val isMeta : constr -> bool
-- 
cgit v1.2.3