diff -r b505be6f029a -r 686fa0a0696e src/HOL/IMP/BExp.thy
--- 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"