From 45800868bf532be4348ab7025144e4caec5c3a83 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 26 Nov 1999 08:40:18 +0000
Subject: ajouts divers pour module Printer

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

(limited to 'kernel/term.ml')

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
-- 
cgit v1.2.3