fact: Definition treeify_one : treeify_t := fun acc => match acc with | (x,v)::acc => (Rd Leaf x v Leaf, acc) | _ => bogus end.
imports: Coq(Bool BinPos Pnat Setoid SetoidList PeanoNat) Coq(Orders OrdersFacts OrdersLists) MMaps(Utils Interface OrdList GenTree)