fact: Fixpoint choose (m: t) : option elt := match m with | Leaf => None | Node l o r => if o then Some 1 else match choose l with | None => omap xI (choose r) | Some i => Some i~0 end end.
imports: Bool PeanoNat BinPos OrderedType OrderedTypeEx FSetInterface