equal
deleted
inserted
replaced
6 The I/O automata of Lynch and Tuttle. |
6 The I/O automata of Lynch and Tuttle. |
7 *) |
7 *) |
8 |
8 |
9 (* Has been removed from HOL-simpset, who knows why? *) |
9 (* Has been removed from HOL-simpset, who knows why? *) |
10 Addsimps [Let_def]; |
10 Addsimps [Let_def]; |
|
11 Delsimps [split_paired_Ex]; |
11 |
12 |
12 open reachable; |
13 open reachable; |
13 |
14 |
14 val ioa_projections = [asig_of_def, starts_of_def, trans_of_def,wfair_of_def,sfair_of_def]; |
15 val ioa_projections = [asig_of_def, starts_of_def, trans_of_def,wfair_of_def,sfair_of_def]; |
15 |
16 |