fact: Definition uniform_separator (A B : set T) := exists (uT : @Uniform.axioms_ T^o) (E : set (T * T)), let UT := Uniform.Pack uT in [/\ @entourage UT E, A `*` B `&` E = set0 & (forall x, @nbhs UT UT x `<=` @nbhs T T x)].
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrint ssrnum finmap matrix) mathcomp(rat interval zmodp vector fieldext falgebra) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality set_interval Rstruct) ereal reals signed topology prodnormedzmodule