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;