src/HOLCF/ex/Dlist.thy

added Classlib.* and Witness.*,
moved (and updated) Coind.*, Dagstuhl.*, Dlist.*, Dnat.*, Focus_ex.*
and Stream.* from HOLCF/explicit_domains to here
adapted several proofs; now they work again.
Hope that the following strange errors (when committing) do not matter:
rlog error: RCS/Classlib.ML,v: No such file or directory
rlog error: RCS/Classlib.thy,v: No such file or directory
rlog error: RCS/Coind.ML,v: No such file or directory
rlog error: RCS/Coind.thy,v: No such file or directory
rlog error: RCS/Dagstuhl.ML,v: No such file or directory
rlog error: RCS/Dagstuhl.thy,v: No such file or directory
rlog error: RCS/Dlist.ML,v: No such file or directory
rlog error: RCS/Dlist.thy,v: No such file or directory
rlog error: RCS/Dnat.ML,v: No such file or directory
rlog error: RCS/Dnat.thy,v: No such file or directory
rlog error: RCS/Focus_ex.ML,v: No such file or directory
rlog error: RCS/Focus_ex.thy,v: No such file or directory
rlog error: RCS/Stream.ML,v: No such file or directory
rlog error: RCS/Stream.thy,v: No such file or directory
rlog error: RCS/Witness.ML,v: No such file or directory
rlog error: RCS/Witness.thy,v: No such file or directory

(*  Title:      HOLCF/Dlist.thy
    ID:         $Id$
    Author:     Franz Regensburger
    Copyright   1993 Technische Universitaet Muenchen

Theory for finite lists  'a dlist = one ++ ('a ** 'a dlist)
*)

Dlist = Classlib +

domain 'a dlist = dnil | "##" (dhd::'a) (dtl::'a dlist) (cinfixr 65)

ops curried

lmap	:: "('a -> 'b) -> 'a dlist -> 'b dlist"
lmem	:: "('a::eq)  -> 'a dlist -> tr"		(cinfixl 50)

defs

lmap_def "   lmap Ú fix`(LAM h f s. case s of dnil => dnil 
				      | x ## xs => f`x ## h`f`xs)"

lmem_def "op lmem Ú fix`(LAM h e l. case l of dnil => FF
			 | x ## xs => If e Ù x then TT else h`e`xs fi)"

end