fact: Definition edist (xy : X * X) : \bar R := ereal_inf (EFin @` [set r | 0 < r /\ ball xy.1 r xy.2]).
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