--- a/src/Pure/Syntax/lexicon.ML Thu Dec 12 22:38:25 2013 +0100
+++ b/src/Pure/Syntax/lexicon.ML Thu Dec 12 22:56:28 2013 +0100
@@ -295,8 +295,6 @@
fun idxname cs ds = (implode (rev cs), nat 0 ds);
fun chop_idx [] ds = idxname [] ds
| chop_idx (cs as (_ :: "\\<^sub>" :: _)) ds = idxname cs ds
- | chop_idx (cs as (_ :: "\\<^isub>" :: _)) ds = idxname cs ds (*legacy*)
- | chop_idx (cs as (_ :: "\\<^isup>" :: _)) ds = idxname cs ds (*legacy*)
| chop_idx (c :: cs) ds =
if Symbol.is_digit c then chop_idx cs (c :: ds)
else idxname (c :: cs) ds;