
diff -r 4939494ed791 -r ce654b0e6d69 src/HOL/MicroJava/J/Example.thy
--- a/src/HOL/MicroJava/J/Example.thy	Tue Feb 13 14:24:50 2018 +0100
+++ b/src/HOL/MicroJava/J/Example.thy	Thu Feb 15 12:11:00 2018 +0100
@@ -173,7 +173,7 @@
 apply (simp (no_asm))
 done
 
-lemma not_Object_subcls [elim!]: "(Object, C) \<in> (subcls1 tprg)^+ ==> R"
+lemma not_Object_subcls [elim!]: "(Object, C) \<in> (subcls1 tprg)\<^sup>+ ==> R"
 apply (auto dest!: tranclD subcls1D)
 done
 
@@ -184,7 +184,7 @@
 apply auto
 done
 
-lemma not_Base_subcls_Ext [elim!]: "(Base, Ext) \<in> (subcls1 tprg)^+  ==> R"
+lemma not_Base_subcls_Ext [elim!]: "(Base, Ext) \<in> (subcls1 tprg)\<^sup>+  ==> R"
 apply (auto dest!: tranclD subcls1D)
 done
 
@@ -194,7 +194,7 @@
 apply (auto split: if_split_asm simp add: map_of_Cons)
 done
 
-lemma not_class_subcls_class [elim!]: "(C, C) \<in> (subcls1 tprg)^+ ==> R"
+lemma not_class_subcls_class [elim!]: "(C, C) \<in> (subcls1 tprg)\<^sup>+ ==> R"
 apply (auto dest!: tranclD subcls1D)
 apply (frule class_tprgD)
 apply (auto dest!:)




