3807
|
1 |
(*
|
|
2 |
File: MemoryParameters.thy
|
17309
|
3 |
ID: $Id$
|
3807
|
4 |
Author: Stephan Merz
|
|
5 |
Copyright: 1997 University of Munich
|
|
6 |
|
|
7 |
Theory Name: MemoryParameters
|
|
8 |
Logic Image: TLA
|
|
9 |
|
|
10 |
RPC-Memory example: Memory parameters
|
|
11 |
*)
|
|
12 |
|
17309
|
13 |
theory MemoryParameters
|
|
14 |
imports RPCMemoryParams
|
|
15 |
begin
|
3807
|
16 |
|
6255
|
17 |
(* the memory operations *)
|
|
18 |
datatype memOp = read Locs | write Locs Vals
|
|
19 |
|
3807
|
20 |
consts
|
|
21 |
(* memory locations and contents *)
|
17309
|
22 |
MemLoc :: "Locs set"
|
|
23 |
MemVal :: "Vals set"
|
3807
|
24 |
|
|
25 |
(* some particular values *)
|
|
26 |
OK :: "Vals"
|
|
27 |
BadArg :: "Vals"
|
|
28 |
MemFailure :: "Vals"
|
|
29 |
NotAResult :: "Vals" (* defined here for simplicity *)
|
17309
|
30 |
|
3807
|
31 |
(* the initial value stored in each memory cell *)
|
|
32 |
InitVal :: "Vals"
|
|
33 |
|
17309
|
34 |
axioms
|
3807
|
35 |
(* basic assumptions about the above constants and predicates *)
|
17309
|
36 |
BadArgNoMemVal: "BadArg ~: MemVal"
|
|
37 |
MemFailNoMemVal: "MemFailure ~: MemVal"
|
|
38 |
InitValMemVal: "InitVal : MemVal"
|
|
39 |
NotAResultNotVal: "NotAResult ~: MemVal"
|
|
40 |
NotAResultNotOK: "NotAResult ~= OK"
|
|
41 |
NotAResultNotBA: "NotAResult ~= BadArg"
|
|
42 |
NotAResultNotMF: "NotAResult ~= MemFailure"
|
|
43 |
|
|
44 |
ML {* use_legacy_bindings (the_context ()) *}
|
|
45 |
|
3807
|
46 |
end
|