src/HOL/IMPP/Misc.thy
changeset 8177 e59e93ad85eb
child 17477 ceb42ea2f223
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/IMPP/Misc.thy	Mon Jan 31 18:30:35 2000 +0100
@@ -0,0 +1,19 @@
+(*  Title:      HOL/IMPP/Misc.thy
+    ID:         $Id$
+    Author:     David von Oheimb
+    Copyright   1999 TUM
+
+Several examples for Hoare logic
+*)
+Misc = Hoare +
+
+defs
+  newlocs_def "newlocs       == %x. arbitrary"
+  setlocs_def "setlocs s l'  == case s of st g l => st g l'"
+  getlocs_def "getlocs s     == case s of st g l => l"
+   update_def "update s vn v == case vn of
+                              Glb gn => (case s of st g l => st (g(gn:=v)) l)
+                            | Loc ln => (case s of st g l => st g (l(ln:=v)))"
+
+end
+  
\ No newline at end of file