changeset 4897 | be11be0b6ea1 |
parent 3842 | b55686a7b22c |
child 5102 | 8c782c25a11e |
--- a/src/HOL/IMP/Hoare.thy Tue May 05 17:28:22 1998 +0200 +++ b/src/HOL/IMP/Hoare.thy Wed May 06 11:46:00 1998 +0200 @@ -20,7 +20,7 @@ inductive hoare intrs skip "|- {P}SKIP{P}" - ass "|- {%s. P(s[a s/x])} x:=a {P}" + ass "|- {%s. P(s[x:=a s])} x:=a {P}" semi "[| |- {P}c{Q}; |- {Q}d{R} |] ==> |- {P} c;d {R}" If "[| |- {%s. P s & b s}c{Q}; |- {%s. P s & ~b s}d{Q} |] ==> |- {P} IF b THEN c ELSE d {Q}"