proposition: Lemma ereal_dnbhs_le (R : numFieldType) (x : \bar R) : ereal_dnbhs x --> ereal_nbhs x.
proof: Proof. move: x => [r P [_/posnumP[e] reP] |r P|r P] //=. by exists e%:num => //= ? ? ?; apply: reP. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(fsbigop cardinality set_interval) reals signed topology constructive_ereal