doc-src/Tutorial/Datatype/triesels
author wenzelm
Thu, 24 Jan 2002 22:42:14 +0100
changeset 12847 afa356dbcb15
parent 5851 15ce4c1c8313
permissions -rw-r--r--
fixed subgoal_tac; fails on non-existent subgoal;

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"