proposition: Lemma uniform_regular {X : uniformType} : @regular_space X.
proof: Proof. move=> x A; rewrite /= -nbhs_entourageE => -[E entE]. move/(subset_trans (ent_closure entE)) => ExA. by exists [set y | split_ent E (x, y)]; first by exists (split_ent E). Qed.
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