21 lines
521 B
Plaintext
21 lines
521 B
Plaintext
(* Author: Lukas Bulwahn, TUM 2011 *)
|
|
|
|
section \<open>Executing Automata and membership of Regular Expressions\<close>
|
|
|
|
theory Execute
|
|
imports AutoRegExp
|
|
begin
|
|
|
|
subsection \<open>Example\<close>
|
|
|
|
definition example_expression
|
|
where
|
|
"example_expression = (let r0 = Atom (0::nat); r1 = Atom (1::nat)
|
|
in Times (Star (Plus (Times r1 r1) r0)) (Star (Plus (Times r0 r0) r1)))"
|
|
|
|
value "NA.accepts (rexp2na example_expression) [0,1,1,0,0,1]"
|
|
|
|
value "DA.accepts (na2da (rexp2na example_expression)) [0,1,1,0,0,1]"
|
|
|
|
end
|