diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 3 |
1 files changed, 3 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) |