diff options
| author | herbelin | 2001-11-20 23:05:02 +0000 |
|---|---|---|
| committer | herbelin | 2001-11-20 23:05:02 +0000 |
| commit | 1268a2640bb06b70f0c8a0238d58c90f3d0605c9 (patch) | |
| tree | ccefd1bfe2265f372baf86241690ff803e138e7e | |
| parent | cc058a45755800e65a4e0fb6a37e8576f2b608d5 (diff) | |
Ajout isEvar
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2220 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/term.ml | 3 | ||||
| -rw-r--r-- | kernel/term.mli | 1 |
2 files changed, 4 insertions, 0 deletions
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 |