src/HOL/IMP/Types.thy
changeset 45212 e87feee00a4c
parent 45200 1f1897ac7877
child 47818 151d137f1095
     1.1 --- a/src/HOL/IMP/Types.thy	Wed Oct 19 23:07:48 2011 +0200
     1.2 +++ b/src/HOL/IMP/Types.thy	Thu Oct 20 09:48:00 2011 +0200
     1.3 @@ -6,10 +6,10 @@
     1.4  
     1.5  datatype val = Iv int | Rv real
     1.6  
     1.7 -type_synonym name = string
     1.8 -type_synonym state = "name \<Rightarrow> val"
     1.9 +type_synonym vname = string
    1.10 +type_synonym state = "vname \<Rightarrow> val"
    1.11  
    1.12 -datatype aexp =  Ic int | Rc real | V name | Plus aexp aexp
    1.13 +datatype aexp =  Ic int | Rc real | V vname | Plus aexp aexp
    1.14  
    1.15  inductive taval :: "aexp \<Rightarrow> state \<Rightarrow> val \<Rightarrow> bool" where
    1.16  "taval (Ic i) s (Iv i)" |
    1.17 @@ -41,7 +41,7 @@
    1.18  
    1.19  datatype
    1.20    com = SKIP 
    1.21 -      | Assign name aexp         ("_ ::= _" [1000, 61] 61)
    1.22 +      | Assign vname aexp        ("_ ::= _" [1000, 61] 61)
    1.23        | Semi   com  com          ("_; _"  [60, 61] 60)
    1.24        | If     bexp com com     ("IF _ THEN _ ELSE _"  [0, 0, 61] 61)
    1.25        | While  bexp com         ("WHILE _ DO _"  [0, 61] 61)
    1.26 @@ -68,7 +68,7 @@
    1.27  
    1.28  datatype ty = Ity | Rty
    1.29  
    1.30 -type_synonym tyenv = "name \<Rightarrow> ty"
    1.31 +type_synonym tyenv = "vname \<Rightarrow> ty"
    1.32  
    1.33  inductive atyping :: "tyenv \<Rightarrow> aexp \<Rightarrow> ty \<Rightarrow> bool"
    1.34    ("(1_/ \<turnstile>/ (_ :/ _))" [50,0,50] 50)