dest_ptree : term -> term_ptree
- dest_ptree ``(Branch 1 2 (Leaf 2 2) (Leaf 3 3))``;
Exception-
HOL_ERR
{message = "not a valid Patricia tree", origin_function = "dest_ptree",
origin_structure = "patricia"} raised
- dest_ptree ``(Branch 0 0 (Leaf 3 3) (Leaf 2 2))``;
val it = <ptree>: term_ptree
let fun pp _ _ (_: term_ptree) = PolyML.PrettyString "<ptree>" in PolyML.addPrettyPrinter pp end;