| 
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
  |