fact: Definition U_dyadic (x:dyadic_rational) : Ensemble X := match x with | m_over_2_to_n m n => (proj1_sig (U_dyadic_level_n n)) m end.
imports: Coq(Reals Lia Lra ClassicalChoice) RationalsInReals TopologicalSpaces InteriorsClosures Div2 Even Arith RTopology