proposition: Lemma partition_spec2 : forall s f, @compat_bool elt E.eq f -> Equal (snd (partition f s)) (filter (fun x => negb (f x)) s).
proof: Proof. intros. rewrite partition_filter. reflexivity. Qed.
imports: Bool PeanoNat BinPos Orders OrdersEx MSetInterface