src/HOL/IMP/AExp.thy
changeset 45216 a51a70687517
parent 45212 e87feee00a4c
child 45238 ed2bb3b58cc4
     1.1 --- a/src/HOL/IMP/AExp.thy	Thu Oct 20 09:48:00 2011 +0200
     1.2 +++ b/src/HOL/IMP/AExp.thy	Thu Oct 20 10:43:47 2011 +0200
     1.3 @@ -11,7 +11,7 @@
     1.4  datatype aexp = N int | V vname | Plus aexp aexp
     1.5  
     1.6  fun aval :: "aexp \<Rightarrow> state \<Rightarrow> val" where
     1.7 -"aval (N n) _ = n" |
     1.8 +"aval (N n) s = n" |
     1.9  "aval (V x) s = s x" |
    1.10  "aval (Plus a1 a2) s = aval a1 s + aval a2 s"
    1.11