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/constrintern.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'interp/constrintern.ml')

diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 83e4c44152..57de9da33a 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -1175,6 +1175,13 @@ let intern_ind_pattern genv env pat =
 (**********************************************************************)
 (* Utilities for application                                          *)
 
+let explicitation_eq ex1 ex2 = match ex1, ex2 with
+| ExplByPos (i1, id1), ExplByPos (i2, id2) ->
+  Int.equal i1 i2 && Option.Misc.compare id_eq id1 id2
+| ExplByName id1, ExplByName id2 ->
+  id_eq id1 id2
+| _ -> false
+
 let merge_impargs l args =
   List.fold_right (fun a l ->
     match a with
-- 
cgit v1.2.3