src/HOL/HOLCF/IOA/Storage/Action.thy
author wenzelm
Sun, 20 May 2012 11:34:33 +0200
changeset 47884 21c42b095c84
parent 42151 4da4fc77664b
child 55416 dd7992d4a61a
permissions -rw-r--r--
try to avoid races again (cf. 8c37cb84065f and fd3a36e48b09);
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
42151
4da4fc77664b tuned headers;
wenzelm
parents: 40945
diff changeset
     1
(*  Title:      HOL/HOLCF/IOA/Storage/Action.thy
40945
b8703f63bfb2 recoded latin1 as utf8;
wenzelm
parents: 40774
diff changeset
     2
    Author:     Olaf Müller
6008
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     3
*)
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     4
17244
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
     5
header {* The set of all actions of the system *}
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
     6
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
     7
theory Action
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
     8
imports Main
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
     9
begin
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
    10
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
    11
datatype action = New  | Loc nat | Free nat
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
    12
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
    13
lemma [cong]: "!!x. x = y ==> action_case a b c x = action_case a b c y"
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
    14
  by simp
0b2ff9541727 converted to Isar theory format;
wenzelm
parents: 14981
diff changeset
    15
6008
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
    16
end