From b785d468186b4a1e9196b75f759e2e57aabe3be7 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 3 Mar 2014 16:00:02 +0100
Subject: Fixing Pervasives.equality in extraction.

---
 kernel/univ.ml  | 1 +
 kernel/univ.mli | 1 +
 2 files changed, 2 insertions(+)

(limited to 'kernel')

diff --git a/kernel/univ.ml b/kernel/univ.ml
index fe872db8b9..fa0c431e30 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -653,6 +653,7 @@ type constraints = Constraint.t
 
 let empty_constraint = Constraint.empty
 let is_empty_constraint = Constraint.is_empty
+let eq_constraint = Constraint.equal
 
 let union_constraints = Constraint.union
 
diff --git a/kernel/univ.mli b/kernel/univ.mli
index 64555fbb05..04267de70d 100644
--- a/kernel/univ.mli
+++ b/kernel/univ.mli
@@ -97,6 +97,7 @@ val empty_constraint : constraints
 val union_constraints : constraints -> constraints -> constraints
 
 val is_empty_constraint : constraints -> bool
+val eq_constraint : constraints -> constraints -> bool
 
 type constraint_function = universe -> universe -> constraints -> constraints
 
-- 
cgit v1.2.3