fact: Fixpoint xfilter (m : t) (i : elt) : t := match m with | Leaf => Leaf | Node l o r => node (xfilter l i~0) (o &&& f (rev i)) (xfilter r i~1) end.
imports: Bool PeanoNat BinPos OrderedType OrderedTypeEx FSetInterface