diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/names.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 015141d84c..8251a85e1b 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -468,8 +468,8 @@ let eq_constant = KerPair.equal let con_ord = KerPair.CanOrd.compare let con_user_ord = KerPair.UserOrd.compare -let con_label cst = KerName.label (canonical_con cst) -let con_modpath cst = KerName.modpath (canonical_con cst) +let con_label cst = KerName.label (user_con cst) +let con_modpath cst = KerName.modpath (user_con cst) let string_of_con cst = KerName.to_string (canonical_con cst) let pr_con cst = str (string_of_con cst) |