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