| author | wenzelm |
| Tue, 06 Jul 1999 21:09:05 +0200 | |
| changeset 6906 | 46652582f831 |
| parent 4832 | bc11b5b06f87 |
| child 8732 | aef229ca5e77 |
| permissions | -rw-r--r-- |
(* Title: HOL/Lex/RegSet.thy ID: $Id$ Author: Tobias Nipkow Copyright 1998 TUM Regular sets *) RegSet = List + constdefs conc :: 'a list set => 'a list set => 'a list set "conc A B == {xs@ys | xs ys. xs:A & ys:B}" consts star :: 'a list set => 'a list set inductive "star A" intrs NilI "[] : star A" ConsI "[| a:A; as : star A |] ==> a@as : star A" end