fact: Fixpoint subset (m m': t): bool := match m with | Leaf => true | Node l o r => match m' with | Leaf => is_empty m | Node l' o' r' => (negb o ||| o') &&& subset l l' &&& subset r r' end end.
imports: Bool PeanoNat BinPos Orders OrdersEx MSetInterface