diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-20 15:27:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-20 15:41:22 +0100 |
| commit | 67319cef77a215163032ea94f28f8c21dcf64f3a (patch) | |
| tree | 3eafecdfcd2cf55c7e9c175e31fbd96702ff1e5e /library/nametab.ml | |
| parent | 7516347809b595f74fdd80c1129ed05e227c2b3d (diff) | |
Missing equalities in Names-like structures.
Diffstat (limited to 'library/nametab.ml')
| -rw-r--r-- | library/nametab.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index 08eb02c9d..03856736d 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -276,14 +276,8 @@ struct id, (DirPath.repr dir) end -module ExtRefEqual = -struct - type t = extended_global_reference - let equal e1 e2 = Int.equal (ExtRefOrdered.compare e1 e2) 0 -end - +module ExtRefEqual = ExtRefOrdered module KnEqual = Names.KerName - module MPEqual = Names.ModPath module ExtRefTab = Make(FullPath)(ExtRefEqual) |