From 0a50cfa8da5437ecd0b628eafcf48b60c7fd7676 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Fri, 19 Oct 2018 15:31:59 +0200
Subject: Cleanup comparing projections through their constants.

---
 kernel/names.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel/names.ml')

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
-- 
cgit v1.2.3