| author | wenzelm | 
| Tue, 26 Feb 2002 00:19:04 +0100 | |
| changeset 12944 | fa6a3ddec27f | 
| parent 8732 | aef229ca5e77 | 
| child 14431 | ade3d26e0caf | 
| permissions | -rw-r--r-- | 
| 4832 | 1 | (* Title: HOL/Lex/RegSet.thy | 
| 2 | ID: $Id$ | |
| 3 | Author: Tobias Nipkow | |
| 4 | Copyright 1998 TUM | |
| 5 | ||
| 6 | Regular sets | |
| 7 | *) | |
| 8 | ||
| 8732 | 9 | RegSet = Main + | 
| 4832 | 10 | |
| 11 | constdefs | |
| 12 | conc :: 'a list set => 'a list set => 'a list set | |
| 13 | "conc A B == {xs@ys | xs ys. xs:A & ys:B}"
 | |
| 14 | ||
| 15 | consts star :: 'a list set => 'a list set | |
| 16 | inductive "star A" | |
| 17 | intrs | |
| 18 | NilI "[] : star A" | |
| 19 | ConsI "[| a:A; as : star A |] ==> a@as : star A" | |
| 20 | ||
| 21 | end |