author | haftmann |
Mon, 01 Mar 2010 13:40:23 +0100 | |
changeset 35416 | d8d7d1b785af |
parent 24327 | a207114007c6 |
permissions | -rw-r--r-- |
3210 | 1 |
(* Title: HOL/Modelcheck/CTL.thy |
2 |
Author: Olaf Mueller, Jan Philipps, Robert Sandner |
|
3 |
Copyright 1997 TU Muenchen |
|
4 |
*) |
|
5 |
||
17272 | 6 |
theory CTL |
7 |
imports MuCalculus |
|
8 |
begin |
|
3210 | 9 |
|
10 |
types |
|
11 |
'a trans = "('a * 'a) set" |
|
12 |
||
35416
d8d7d1b785af
replaced a couple of constsdefs by definitions (also some old primrecs by modern ones)
haftmann
parents:
24327
diff
changeset
|
13 |
definition CEX :: "['a trans,'a pred, 'a]=>bool" where |
17272 | 14 |
"CEX N f u == (? v. (f v & (u,v):N))" |
35416
d8d7d1b785af
replaced a couple of constsdefs by definitions (also some old primrecs by modern ones)
haftmann
parents:
24327
diff
changeset
|
15 |
|
d8d7d1b785af
replaced a couple of constsdefs by definitions (also some old primrecs by modern ones)
haftmann
parents:
24327
diff
changeset
|
16 |
definition EG ::"['a trans,'a pred]=> 'a pred" where |
17272 | 17 |
"EG N f == nu (% Q. % u.(f u & CEX N Q u))" |
3210 | 18 |
|
19 |
end |