diff -r 5818d9cfb2e7 -r 644b62cf678f src/HOL/Bali/Example.thy --- a/src/HOL/Bali/Example.thy Tue Oct 07 16:07:40 2008 +0200 +++ b/src/HOL/Bali/Example.thy Tue Oct 07 16:07:50 2008 +0200 @@ -230,7 +230,7 @@ lemma table_classes_Object [simp]: "table_of Classes Object = Some \access=Public,cfields=[] ,methods=Object_mdecls - ,init=Skip,super=arbitrary,superIfs=[]\" + ,init=Skip,super=undefined,superIfs=[]\" apply (unfold table_classes_defs) apply (simp (no_asm) add:Object_def) done @@ -1246,13 +1246,13 @@ "obj_c" == "\tag=CInst (SXcpt NullPointer),values=CONST empty\" "arr_N" == "CONST empty(Inl (CONST arr, CONST Base)\Null)" "arr_a" == "CONST empty(Inl (CONST arr, CONST Base)\Addr a)" - "globs1" == "CONST empty(Inr (CONST Ext) \\tag=arbitrary, values=CONST empty\) - (Inr (CONST Base) \\tag=arbitrary, values=arr_N\) - (Inr Object\\tag=arbitrary, values=CONST empty\)" - "globs2" == "CONST empty(Inr (CONST Ext) \\tag=arbitrary, values=CONST empty\) - (Inr Object\\tag=arbitrary, values=CONST empty\) + "globs1" == "CONST empty(Inr (CONST Ext) \\tag=CONST undefined, values=CONST empty\) + (Inr (CONST Base) \\tag=CONST undefined, values=arr_N\) + (Inr Object\\tag=CONST undefined, values=CONST empty\)" + "globs2" == "CONST empty(Inr (CONST Ext) \\tag=CONST undefined, values=CONST empty\) + (Inr Object\\tag=CONST undefined, values=CONST empty\) (Inl a\obj_a) - (Inr (CONST Base) \\tag=arbitrary, values=arr_a\)" + (Inr (CONST Base) \\tag=CONST undefined, values=arr_a\)" "globs3" == "globs2(Inl b\obj_b)" "globs8" == "globs3(Inl c\obj_c)" "locs3" == "CONST empty(VName (CONST e)\Addr b)"