diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index f7b7b607fd..33056e5ba6 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -294,6 +294,10 @@ let is_small = function let iskind c = isprop c or is_Type c +let is_existential_oper = function + | Evar _ -> true + | _ -> false + let same_kind c1 c2 = (isprop c1 & isprop c2) or (is_Type c1 & is_Type c2) let rec contents_of_kind = function |