diff -r 46f59511b7bb -r d97fdabd9e2b src/HOL/NanoJava/Term.thy --- a/src/HOL/NanoJava/Term.thy Fri Sep 20 19:07:10 2024 +0200 +++ b/src/HOL/NanoJava/Term.thy Fri Sep 20 19:51:08 2024 +0200 @@ -25,20 +25,20 @@ datatype stmt = Skip \ \empty statement\ - | Comp stmt stmt ("_;; _" [91,90 ] 90) - | Cond expr stmt stmt ("If '(_') _ Else _" [ 3,91,91] 91) - | Loop vname stmt ("While '(_') _" [ 3,91 ] 91) - | LAss vname expr ("_ :== _" [99, 95] 94) \ \local assignment\ - | FAss expr fname expr ("_.._:==_" [95,99,95] 94) \ \field assignment\ + | Comp stmt stmt (\_;; _\ [91,90 ] 90) + | Cond expr stmt stmt (\If '(_') _ Else _\ [ 3,91,91] 91) + | Loop vname stmt (\While '(_') _\ [ 3,91 ] 91) + | LAss vname expr (\_ :== _\ [99, 95] 94) \ \local assignment\ + | FAss expr fname expr (\_.._:==_\ [95,99,95] 94) \ \field assignment\ | Meth "cname \ mname" \ \virtual method\ | Impl "cname \ mname" \ \method implementation\ and expr - = NewC cname ("new _" [ 99] 95) \ \object creation\ + = NewC cname (\new _\ [ 99] 95) \ \object creation\ | Cast cname expr \ \type cast\ | LAcc vname \ \local access\ - | FAcc expr fname ("_.._" [95,99] 95) \ \field access\ + | FAcc expr fname (\_.._\ [95,99] 95) \ \field access\ | Call cname expr mname expr - ("{_}_.._'(_')" [99,95,99,95] 95) \ \method call\ + (\{_}_.._'(_')\ [99,95,99,95] 95) \ \method call\ end