doc-src/Tutorial/Datatype/triesels
changeset 5851 15ce4c1c8313
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doc-src/Tutorial/Datatype/triesels	Thu Nov 12 16:45:40 1998 +0100
@@ -0,0 +1,4 @@
+consts value :: ('a,'v)trie => 'v option
+       alist :: "('a,'v)trie => ('a * ('a,'v)trie)list"
+primrec "value(Trie ov al) = ov"
+primrec "alist(Trie ov al) = al"