proposition: Lemma numseteqb_eq_nat_bool: forall i j, NumSetProps.eqb i j = eq_nat_bool (nat_of_num i) (nat_of_num j).
proof: Proof. intros. rewrite <- eqb_eq_nat_bool. unfold NumSetProps.eqb. destruct (NumSetProps.P.Dec.F.eq_dec i j). rewrite set_eq_spec in e. subst. bool_simpl. reflexivity. rewrite set_eq_spec in n. symmetry. num_prop. auto. Qed.
imports: ATBR(Common) ATBR(BoolView) ATBR(MyFSets MyFSetProperties MyFMapProperties) Coq(FSetPositive FMapPositive)