17309
|
1 |
(*
|
|
2 |
File: TLA/Init.thy
|
|
3 |
ID: $Id$
|
6255
|
4 |
Author: Stephan Merz
|
|
5 |
Copyright: 1998 University of Munich
|
|
6 |
|
|
7 |
Theory Name: Init
|
|
8 |
Logic Image: HOL
|
|
9 |
|
|
10 |
Introduces type of temporal formulas. Defines interface between
|
|
11 |
temporal formulas and its "subformulas" (state predicates and actions).
|
|
12 |
*)
|
|
13 |
|
17309
|
14 |
theory Init
|
|
15 |
imports Action
|
|
16 |
begin
|
|
17 |
|
|
18 |
typedecl behavior
|
|
19 |
instance behavior :: world ..
|
6255
|
20 |
|
|
21 |
types
|
17309
|
22 |
temporal = "behavior form"
|
6255
|
23 |
|
|
24 |
|
|
25 |
consts
|
17309
|
26 |
Initial :: "('w::world => bool) => temporal"
|
|
27 |
first_world :: "behavior => ('w::world)"
|
|
28 |
st1 :: "behavior => state"
|
|
29 |
st2 :: "behavior => state"
|
6255
|
30 |
|
|
31 |
syntax
|
17309
|
32 |
TEMP :: "lift => 'a" ("(TEMP _)")
|
|
33 |
"_Init" :: "lift => lift" ("(Init _)"[40] 50)
|
6255
|
34 |
|
|
35 |
translations
|
|
36 |
"TEMP F" => "(F::behavior => _)"
|
|
37 |
"_Init" == "Initial"
|
|
38 |
"sigma |= Init F" <= "_Init F sigma"
|
|
39 |
|
|
40 |
defs
|
17309
|
41 |
Init_def: "sigma |= Init F == (first_world sigma) |= F"
|
|
42 |
fw_temp_def: "first_world == %sigma. sigma"
|
|
43 |
fw_stp_def: "first_world == st1"
|
|
44 |
fw_act_def: "first_world == %sigma. (st1 sigma, st2 sigma)"
|
|
45 |
|
|
46 |
ML {* use_legacy_bindings (the_context ()) *}
|
|
47 |
|
6255
|
48 |
end
|