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)"