src/HOL/IMP/Types.thy

 
 subsection "Arithmetic Expressions"
 
 datatype val = Iv int | Rv real
 
-type_synonym name = string
-type_synonym state = "name \<Rightarrow> val"
-
-datatype aexp =  Ic int | Rc real | V name | Plus aexp aexp
+type_synonym vname = string
+type_synonym state = "vname \<Rightarrow> val"
+
+datatype aexp =  Ic int | Rc real | V vname | Plus aexp aexp
 
 inductive taval :: "aexp \<Rightarrow> state \<Rightarrow> val \<Rightarrow> bool" where
 "taval (Ic i) s (Iv i)" |
 "taval (Rc r) s (Rv r)" |
 "taval (V x) s (s x)" |

 subsection "Syntax of Commands"
 (* a copy of Com.thy - keep in sync! *)
 
 datatype
   com = SKIP 
-      | Assign name aexp         ("_ ::= _" [1000, 61] 61)
+      | Assign vname aexp        ("_ ::= _" [1000, 61] 61)
       | Semi   com  com          ("_; _"  [60, 61] 60)
       | If     bexp com com     ("IF _ THEN _ ELSE _"  [0, 0, 61] 61)
       | While  bexp com         ("WHILE _ DO _"  [0, 61] 61)
 
 

 
 subsection "The Type System"
 
 datatype ty = Ity | Rty
 
-type_synonym tyenv = "name \<Rightarrow> ty"
+type_synonym tyenv = "vname \<Rightarrow> ty"
 
 inductive atyping :: "tyenv \<Rightarrow> aexp \<Rightarrow> ty \<Rightarrow> bool"
   ("(1_/ \<turnstile>/ (_ :/ _))" [50,0,50] 50)
 where
 Ic_ty: "\<Gamma> \<turnstile> Ic i : Ity" |