| changeset 43158 | 686fa0a0696e |
| parent 43141 | 11fce8564415 |
| child 44036 | d03f9f28d01d |
--- a/src/HOL/IMP/BExp.thy Mon Jun 06 16:29:13 2011 +0200 +++ b/src/HOL/IMP/BExp.thy Mon Jun 06 16:29:38 2011 +0200 @@ -11,7 +11,7 @@ "bval (Less a1 a2) s = (aval a1 s < aval a2 s)" value "bval (Less (V ''x'') (Plus (N 3) (V ''y''))) - (lookup [(''x'',3),(''y'',1)])" + [''x'' \<rightarrow> 3, ''y'' \<rightarrow> 1]" subsection "Optimization"