1.1 --- a/src/HOL/IMP/Com.thy	Wed Oct 19 23:07:48 2011 +0200
     1.2 +++ b/src/HOL/IMP/Com.thy	Thu Oct 20 09:48:00 2011 +0200
     1.3 @@ -4,7 +4,7 @@
     1.4  
     1.5  datatype
     1.6    com = SKIP 
     1.7 -      | Assign name aexp         ("_ ::= _" [1000, 61] 61)
     1.8 +      | Assign vname aexp        ("_ ::= _" [1000, 61] 61)
     1.9        | Semi   com  com          ("_;/ _"  [60, 61] 60)
    1.10        | If     bexp com com     ("(IF _/ THEN _/ ELSE _)"  [0, 0, 61] 61)
    1.11        | While  bexp com         ("(WHILE _/ DO _)"  [0, 61] 61)