src/HOL/MicroJava/J/Exceptions.thy
changeset 77645 7edbb16bc60f
parent 68451 c34aa23a1fb6
--- a/src/HOL/MicroJava/J/Exceptions.thy	Tue Mar 14 14:00:07 2023 +0100
+++ b/src/HOL/MicroJava/J/Exceptions.thy	Tue Mar 14 18:19:10 2023 +0100
@@ -10,9 +10,9 @@
   "blank G C \<equiv> (C,init_vars (fields(G,C)))" 
 
 definition start_heap :: "'c prog \<Rightarrow> aheap" where
-  "start_heap G \<equiv> Map.empty (XcptRef NullPointer \<mapsto> blank G (Xcpt NullPointer))
-                        (XcptRef ClassCast \<mapsto> blank G (Xcpt ClassCast))
-                        (XcptRef OutOfMemory \<mapsto> blank G (Xcpt OutOfMemory))"
+  "start_heap G \<equiv> Map.empty (XcptRef NullPointer \<mapsto> blank G (Xcpt NullPointer),
+                        XcptRef ClassCast \<mapsto> blank G (Xcpt ClassCast),
+                        XcptRef OutOfMemory \<mapsto> blank G (Xcpt OutOfMemory))"
 
 
 abbreviation