author | wenzelm |
Thu, 15 Nov 2001 23:25:46 +0100 | |
changeset 12218 | 6597093b77e7 |
parent 12114 | a8e860c86252 |
child 12338 | de0f4a63baa5 |
permissions | -rw-r--r-- |
4559 | 1 |
(* Title: HOLCF/IOA/meta_theory/TLS.thy |
2 |
ID: $Id$ |
|
12218 | 3 |
Author: Olaf Müller |
4 |
License: GPL (GNU GENERAL PUBLIC LICENSE) |
|
4559 | 5 |
|
12218 | 6 |
A General Temporal Logic. |
4559 | 7 |
*) |
12218 | 8 |
|
4559 | 9 |
TL = Pred + Sequence + |
10 |
||
11 |
default term |
|
12 |
||
13 |
types |
|
14 |
||
15 |
'a temporal = 'a Seq predicate |
|
16 |
||
17 |
||
18 |
consts |
|
19 |
||
20 |
||
21 |
suffix :: "'a Seq => 'a Seq => bool" |
|
22 |
tsuffix :: "'a Seq => 'a Seq => bool" |
|
23 |
||
24 |
validT :: "'a Seq predicate => bool" |
|
25 |
||
26 |
unlift :: "'a lift => 'a" |
|
27 |
||
28 |
Init ::"'a predicate => 'a temporal" ("<_>" [0] 1000) |
|
29 |
||
30 |
Box ::"'a temporal => 'a temporal" ("[] (_)" [80] 80) |
|
31 |
Diamond ::"'a temporal => 'a temporal" ("<> (_)" [80] 80) |
|
32 |
Next ::"'a temporal => 'a temporal" |
|
33 |
Leadsto ::"'a temporal => 'a temporal => 'a temporal" (infixr "~>" 22) |
|
34 |
||
12114
a8e860c86252
eliminated old "symbols" syntax, use "xsymbols" instead;
wenzelm
parents:
12028
diff
changeset
|
35 |
syntax (xsymbols) |
4559 | 36 |
"Box" ::"'a temporal => 'a temporal" ("\\<box> (_)" [80] 80) |
37 |
"Diamond" ::"'a temporal => 'a temporal" ("\\<diamond> (_)" [80] 80) |
|
38 |
"Leadsto" ::"'a temporal => 'a temporal => 'a temporal" (infixr "\\<leadsto>" 22) |
|
39 |
||
40 |
defs |
|
41 |
||
42 |
||
43 |
unlift_def |
|
44 |
"unlift x == (case x of |
|
12028 | 45 |
UU => arbitrary |
4559 | 46 |
| Def y => y)" |
47 |
||
48 |
(* this means that for nil and UU the effect is unpredictable *) |
|
49 |
Init_def |
|
10835 | 50 |
"Init P s == (P (unlift (HD$s)))" |
4559 | 51 |
|
52 |
suffix_def |
|
53 |
"suffix s2 s == ? s1. (Finite s1 & s = s1 @@ s2)" |
|
54 |
||
55 |
tsuffix_def |
|
56 |
"tsuffix s2 s == s2 ~= nil & s2 ~= UU & suffix s2 s" |
|
57 |
||
58 |
Box_def |
|
59 |
"([] P) s == ! s2. tsuffix s2 s --> P s2" |
|
60 |
||
61 |
Next_def |
|
10835 | 62 |
"(Next P) s == if (TL$s=UU | TL$s=nil) then (P s) else P (TL$s)" |
4559 | 63 |
|
64 |
Diamond_def |
|
65 |
"<> P == .~ ([] (.~ P))" |
|
66 |
||
67 |
Leadsto_def |
|
68 |
"P ~> Q == ([] (P .--> (<> Q)))" |
|
69 |
||
70 |
validT_def |
|
71 |
"validT P == ! s. s~=UU & s~=nil --> (s |= P)" |
|
72 |
||
73 |
end |