From 1268a2640bb06b70f0c8a0238d58c90f3d0605c9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 20 Nov 2001 23:05:02 +0000
Subject: Ajout isEvar

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

(limited to 'kernel')

diff --git a/kernel/term.ml b/kernel/term.ml
index bba7906cbd..8c7d7ccd08 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -337,6 +337,9 @@ let iskind c = isprop c or is_Type c
 
 let same_kind c1 c2 = (isprop c1 & isprop c2) or (is_Type c1 & is_Type c2)
 
+(* Tests if an evar *)
+let isEvar c = match kind_of_term c with Evar _ -> true | _ -> false
+
 (* Destructs a casted term *)
 let destCast c = match kind_of_term c with 
   | Cast (t1, t2) -> (t1,t2)
diff --git a/kernel/term.mli b/kernel/term.mli
index bc55bcf4bb..b676376d3d 100644
--- a/kernel/term.mli
+++ b/kernel/term.mli
@@ -222,6 +222,7 @@ val kind_of_type : types -> (constr, types) kind_of_type
 
 val isRel  : constr -> bool
 val isVar  : constr -> bool
+val isEvar : constr -> bool
 val isMeta : constr -> bool
 val isSort : constr -> bool
 val isCast : constr -> bool
-- 
cgit v1.2.3