wdfs
This commit is contained in:
parent
46c51235e3
commit
8e216c02f2
|
@ -96,9 +96,9 @@ export_code zero one Suc Int.nat nat_of_integer int_of_integer (* for debuggi
|
|||
|
||||
in SML module_name RegExpChecker file "RegExpChecker.sml"
|
||||
|
||||
|
||||
(*
|
||||
SML_file "RegExpChecker.sml"
|
||||
|
||||
*)
|
||||
section\<open>The Abstract Interface For Monitor Expressions\<close>
|
||||
text\<open>Here comes the hic : The reflection of the HOL-Automata module into an SML module
|
||||
with an abstract interface hiding some generation artefacts like the internal states
|
||||
|
|
|
@ -16,7 +16,7 @@ val term = @{term "(title ~~
|
|||
|
||||
ML\<open>
|
||||
val alpha = (RegExpInterface.alphabet [term]);
|
||||
val DA as (init,(next,fin)) = RegExpInterface.rexp_term2da (RegExpInterface.alphabet [term]) term ;
|
||||
val DA as (init,(next,fin)) = RegExpInterface.rexp_term2da alpha term ;
|
||||
RegExpChecker.accepts DA [0,2,3,4,5,6,7,8];
|
||||
\<close>
|
||||
|
||||
|
|
Loading…
Reference in New Issue