author | nipkow |
Fri, 08 May 1998 18:33:29 +0200 | |
changeset 4907 | 0eb6730de30f |
parent 4832 | bc11b5b06f87 |
child 5184 | 9b8547a9496a |
permissions | -rw-r--r-- |
4832 | 1 |
(* Title: HOL/Lex/NA.thy |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow |
|
4 |
Copyright 1998 TUM |
|
5 |
||
6 |
Nondeterministic automata |
|
7 |
*) |
|
8 |
||
9 |
NA = List + AutoProj + |
|
10 |
||
11 |
types ('a,'s)na = "'s * ('a => 's => 's set) * ('s => bool)" |
|
12 |
||
13 |
consts delta :: "('a,'s)na => 'a list => 's => 's set" |
|
14 |
primrec delta list |
|
15 |
"delta A [] p = {p}" |
|
4907
0eb6730de30f
Reshuffeling, renaming and a few simple corollaries.
nipkow
parents:
4832
diff
changeset
|
16 |
"delta A (a#w) p = Union(delta A w `` next A a p)" |
4832 | 17 |
|
18 |
constdefs |
|
19 |
accepts :: ('a,'s)na => 'a list => bool |
|
20 |
"accepts A w == ? q : delta A w (start A). fin A q" |
|
21 |
||
22 |
end |