src/HOL/IMPP/Misc.thy
author oheimb
Mon, 31 Jan 2000 18:30:35 +0100
changeset 8177 e59e93ad85eb
child 17477 ceb42ea2f223
permissions -rw-r--r--
added IMPP to HOL
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8177
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     1
(*  Title:      HOL/IMPP/Misc.thy
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     2
    ID:         $Id$
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     3
    Author:     David von Oheimb
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     4
    Copyright   1999 TUM
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     5
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     6
Several examples for Hoare logic
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     7
*)
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     8
Misc = Hoare +
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
     9
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    10
defs
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    11
  newlocs_def "newlocs       == %x. arbitrary"
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    12
  setlocs_def "setlocs s l'  == case s of st g l => st g l'"
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    13
  getlocs_def "getlocs s     == case s of st g l => l"
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    14
   update_def "update s vn v == case vn of
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    15
                              Glb gn => (case s of st g l => st (g(gn:=v)) l)
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    16
                            | Loc ln => (case s of st g l => st g (l(ln:=v)))"
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    17
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    18
end
e59e93ad85eb added IMPP to HOL
oheimb
parents:
diff changeset
    19