3210
|
1 |
(* Title: HOL/Modelcheck/CTL.thy
|
|
2 |
ID: $Id$
|
|
3 |
Author: Olaf Mueller, Jan Philipps, Robert Sandner
|
|
4 |
Copyright 1997 TU Muenchen
|
|
5 |
*)
|
|
6 |
|
17272
|
7 |
theory CTL
|
|
8 |
imports MuCalculus
|
|
9 |
begin
|
3210
|
10 |
|
|
11 |
types
|
|
12 |
'a trans = "('a * 'a) set"
|
|
13 |
|
17272
|
14 |
constdefs
|
|
15 |
CEX ::"['a trans,'a pred, 'a]=>bool"
|
|
16 |
"CEX N f u == (? v. (f v & (u,v):N))"
|
|
17 |
EG ::"['a trans,'a pred]=> 'a pred"
|
|
18 |
"EG N f == nu (% Q. % u.(f u & CEX N Q u))"
|
3210
|
19 |
|
17272
|
20 |
ML {* use_legacy_bindings (the_context ()) *}
|
3882
|
21 |
|
3210
|
22 |
end
|