| 
3210
 | 
     1  | 
(*  Title:      HOL/Modelcheck/ROOT.ML
  | 
| 
 | 
     2  | 
    ID:         $Id$
  | 
| 
7295
 | 
     3  | 
    Author:     Olaf Mueller and Tobias Hamberger and Robert Sandner, TU Muenchen
  | 
| 
3210
 | 
     4  | 
  | 
| 
7295
 | 
     5  | 
Basic Modelchecker examples.
  | 
| 
3210
 | 
     6  | 
*)
  | 
| 
 | 
     7  | 
  | 
| 
17272
 | 
     8  | 
time_use_thy "CTL";
  | 
| 
 | 
     9  | 
  | 
| 
 | 
    10  | 
  | 
| 
 | 
    11  | 
(* Einhoven model checker *)
  | 
| 
 | 
    12  | 
  | 
| 
28263
 | 
    13  | 
(*check if user has pmu installed*)
  | 
| 
 | 
    14  | 
fun eindhoven_enabled () = getenv "EINDHOVEN_HOME" <> "";
  | 
| 
 | 
    15  | 
fun if_eindhoven_enabled f x = if eindhoven_enabled () then f x else ();
  | 
| 
 | 
    16  | 
  | 
| 
17272
 | 
    17  | 
time_use_thy "EindhovenSyn";
  | 
| 
 | 
    18  | 
if_eindhoven_enabled time_use_thy "EindhovenExample";
  | 
| 
 | 
    19  | 
  | 
| 
7295
 | 
    20  | 
  | 
| 
 | 
    21  | 
(* Mucke -- mu-calculus model checker from Karlsruhe *)
  | 
| 
 | 
    22  | 
  | 
| 
9000
 | 
    23  | 
time_use_thy "MuckeSyn";
  | 
| 
3210
 | 
    24  | 
  | 
| 
28263
 | 
    25  | 
(*check if user has mucke installed*)
  | 
| 
 | 
    26  | 
fun mucke_enabled () = getenv "MUCKE_HOME" <> "";
  | 
| 
 | 
    27  | 
fun if_mucke_enabled f x = if mucke_enabled () then f x else ();
  | 
| 
 | 
    28  | 
  | 
| 
9000
 | 
    29  | 
if_mucke_enabled time_use_thy "MuckeExample1";
  | 
| 
 | 
    30  | 
if_mucke_enabled time_use_thy "MuckeExample2";
  |