src/HOL/IMP/BExp.thy
changeset 45216 a51a70687517
parent 45200 1f1897ac7877
child 45255 ffc06165d272
     1.1 --- a/src/HOL/IMP/BExp.thy	Thu Oct 20 09:48:00 2011 +0200
     1.2 +++ b/src/HOL/IMP/BExp.thy	Thu Oct 20 10:43:47 2011 +0200
     1.3 @@ -5,7 +5,7 @@
     1.4  datatype bexp = Bc bool | Not bexp | And bexp bexp | Less aexp aexp
     1.5  
     1.6  fun bval :: "bexp \<Rightarrow> state \<Rightarrow> bool" where
     1.7 -"bval (Bc v) _ = v" |
     1.8 +"bval (Bc v) s = v" |
     1.9  "bval (Not b) s = (\<not> bval b s)" |
    1.10  "bval (And b1 b2) s = (if bval b1 s then bval b2 s else False)" |
    1.11  "bval (Less a1 a2) s = (aval a1 s < aval a2 s)"