PTREE_DEFN_CONV : conv
- val ptree = Define_mk_ptree "ptree" (int_ptree_of_list [(1,``1``), (2, ``2``)]); <<HOL message: Saved IS_PTREE theorem for new constant "ptree">> val ptree = |- ptree = Branch 0 0 (Leaf 1 1) (Leaf 2 2): thm - PTREE_DEFN_CONV ``ptree \\ 1``; val it = |- ptree \\ 1 = Leaf 2 2: thm - PTREE_DEFN_CONV ``ptree |+ (3,3)``; val it = |- ptree |+ (3,3) = Branch 0 0 (Branch 1 1 (Leaf 3 3) (Leaf 1 1)) (Leaf 2 2): thm