diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-21 16:41:33 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-21 16:41:33 +0000 |
| commit | 341c96b52bd8fea29389b5535b1a39d777bb2d0a (patch) | |
| tree | 71036667df9f773f8399dd3869a1c3172c247143 | |
| parent | 9e1d18d33fd740e53962db4a5ea33ac485d8ba09 (diff) | |
Names: con_modpath and con_label access back the user kn part
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16236 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 015141d84..8251a85e1 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) |