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
---
 interp/notation.mli | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'interp/notation.mli')

diff --git a/interp/notation.mli b/interp/notation.mli
index 88574636fe..5c8dbb40bf 100644
--- a/interp/notation.mli
+++ b/interp/notation.mli
@@ -35,6 +35,8 @@ val declare_scope : scope_name -> unit
 
 val current_scopes : unit -> scopes
 
+val level_eq : level -> level -> bool
+
 (** Check where a scope is opened or not in a scope list, or in
  * the current opened scopes *)
 val scope_is_open_in_scopes : scope_name -> scopes -> bool
@@ -171,6 +173,8 @@ type symbol =
   | SProdList of identifier * symbol list
   | Break of int
 
+val symbol_eq : symbol -> symbol -> bool
+
 val make_notation_key : symbol list -> notation
 val decompose_notation_key : notation -> symbol list
 
-- 
cgit v1.2.3