diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-30 12:52:25 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-30 12:52:25 +0000 |
| commit | d358d9de3afbc1adf28e6cda48ef081a07cb6e76 (patch) | |
| tree | 1fe0dcd36cd8ad9a09c08378d273f3a81c38ecfd /plugins | |
| parent | 9f5ee052b3ad755be2cdc50b2d1ccead2eff1665 (diff) | |
bwaa, a Pervasive.compare
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16542 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/extraction/table.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 581735736..2109ba632 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -30,7 +30,7 @@ module Refset' = Refset_env let occur_kn_in_ref kn = function | IndRef (kn',_) - | ConstructRef ((kn',_),_) -> kn = kn' + | ConstructRef ((kn',_),_) -> Names.eq_mind kn kn' | ConstRef _ -> false | VarRef _ -> assert false |