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