diff options
| author | Maxime Dénès | 2018-10-29 13:13:53 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-10-29 13:13:53 +0100 |
| commit | 13034fdd3a0dd5a396a33169375d9c71ac0253f7 (patch) | |
| tree | 530fed078016985ab083d62a38118678af3f79a5 /kernel/names.ml | |
| parent | 60b7d3662880666a22e0b90f55b49361c453e3f4 (diff) | |
| parent | 0a50cfa8da5437ecd0b628eafcf48b60c7fd7676 (diff) | |
Merge PR #8780: Cleanup comparing projections through their constants.
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 7cd749de1d..18560d5f8d 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -872,6 +872,8 @@ struct let equal (c, b) (c', b') = Repr.equal c c' && b == b' + let repr_equal p p' = Repr.equal (repr p) (repr p') + let hash (c, b) = (if b then 0 else 1) + Repr.hash c module SyntacticOrd = struct |