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