--- 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