src/HOL/IMP/Transition.thy
changeset 4897 be11be0b6ea1
parent 4757 02b86e36e98f
child 4906 0537ee95d004
--- a/src/HOL/IMP/Transition.thy	Tue May 05 17:28:22 1998 +0200
+++ b/src/HOL/IMP/Transition.thy	Wed May 06 11:46:00 1998 +0200
@@ -24,7 +24,7 @@
 
 inductive evalc1
   intrs
-    Assign "(x := a,s) -1-> (SKIP,s[a s / x])"
+    Assign "(x := a,s) -1-> (SKIP,s[x := a s])"
 
     Semi1   "(SKIP;c,s) -1-> (c,s)"	
     Semi2   "(c0,s) -1-> (c2,s1) ==> (c0;c1,s) -1-> (c2;c1,s1)"