--- a/src/HOL/HOL.thy Sat May 01 21:58:52 2004 +0200
+++ b/src/HOL/HOL.thy Sat May 01 21:59:12 2004 +0200
@@ -181,7 +181,7 @@
syntax
"_index1" :: index ("\<^sub>1")
translations
- (index) "\<^sub>1" == "_index 1"
+ (index) "\<^sub>1" => (index) "\<^bsub>\<struct>\<^esub>"
local