From 1653654a0eba7ecca78e67b4db1f6fa031e7271f Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Sun, 25 Nov 2012 17:38:55 +0000
Subject: More equality functions

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

(limited to 'kernel')

diff --git a/kernel/conv_oracle.ml b/kernel/conv_oracle.ml
index a4eab42d05..7da2a7faae 100644
--- a/kernel/conv_oracle.ml
+++ b/kernel/conv_oracle.ml
@@ -19,6 +19,9 @@ open Names
 type level = Expand | Level of int | Opaque
 let default = Level 0
 let transparent = default
+let is_transparent = function
+| Level 0 -> true
+| _ -> false
 
 type oracle = level Idmap.t * level Cmap.t
 
diff --git a/kernel/conv_oracle.mli b/kernel/conv_oracle.mli
index f875fabf2b..2a6db4b4bc 100644
--- a/kernel/conv_oracle.mli
+++ b/kernel/conv_oracle.mli
@@ -22,6 +22,9 @@ val oracle_order : bool -> 'a tableKey -> 'a tableKey -> bool
 type level = Expand | Level of int | Opaque
 val transparent : level
 
+(** Check whether a level is transparent *)
+val is_transparent : level -> bool
+
 val get_strategy : 'a tableKey -> level
 
 (** Sets the level of a constant.
-- 
cgit v1.2.3