1.1 --- a/src/HOL/IMP/Procs.thy	Wed Oct 19 23:07:48 2011 +0200
     1.2 +++ b/src/HOL/IMP/Procs.thy	Thu Oct 20 09:48:00 2011 +0200
     1.3 @@ -4,15 +4,17 @@
     1.4  
     1.5  subsection "Procedures and Local Variables"
     1.6  
     1.7 +type_synonym pname = string
     1.8 +
     1.9  datatype
    1.10    com = SKIP 
    1.11 -      | Assign name aexp         ("_ ::= _" [1000, 61] 61)
    1.12 +      | Assign vname aexp        ("_ ::= _" [1000, 61] 61)
    1.13        | Semi   com  com          ("_;/ _"  [60, 61] 60)
    1.14        | If     bexp com com     ("(IF _/ THEN _/ ELSE _)"  [0, 0, 61] 61)
    1.15        | While  bexp com         ("(WHILE _/ DO _)"  [0, 61] 61)
    1.16 -      | Var    name com         ("(1{VAR _;;/ _})")
    1.17 -      | Proc   name com com     ("(1{PROC _ = _;;/ _})")
    1.18 -      | CALL   name
    1.19 +      | Var    vname com        ("(1{VAR _;;/ _})")
    1.20 +      | Proc   pname com com    ("(1{PROC _ = _;;/ _})")
    1.21 +      | CALL   pname
    1.22  
    1.23  definition "test_com =
    1.24  {VAR ''x'';;