| author | paulson |
| Wed, 05 Aug 1998 10:57:25 +0200 | |
| changeset 5253 | 82a5ca6290aa |
| parent 5184 | 9b8547a9496a |
| child 5323 | 028e00595280 |
| 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"
|
|
| 5184 | 14 |
primrec |
| 4832 | 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 |