fact: Fixpoint code (x: NumSet.t): num := match x with | NumSet'.Leaf => 1 | NumSet'.Node l true r => enc (code l) (code r)~0 | NumSet'.Node l false r => enc (code l) (code r)~1 end.
imports: ATBR(Common) ATBR(BoolView) ATBR(MyFSets MyFSetProperties MyFMapProperties) Coq(FSetPositive FMapPositive)