diff options
| author | Pierre-Marie Pédrot | 2014-03-03 16:00:02 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-03-03 16:57:25 +0100 |
| commit | b785d468186b4a1e9196b75f759e2e57aabe3be7 (patch) | |
| tree | b5b20602e16b1ea2c0bfa53526686ee2bf2779cf /kernel | |
| parent | 96f8d358c7d3c9a08ff2006f42716bc64937dad2 (diff) | |
Fixing Pervasives.equality in extraction.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 1 | ||||
| -rw-r--r-- | kernel/univ.mli | 1 |
2 files changed, 2 insertions, 0 deletions
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 |